Bird-Soft Weblog

Let'snoteの新製品(Y5,W5,T5,R5)が発表されました！
今回は特にY5がCPUにCore Duoを採用したり、全面防滴になるなど大幅に機能アップしており注目です。W5などのシリーズはCPUにCore Soloを採用で消費電力が減少、バッテリーの持ち時間が従来品よりさらに延びています。
これは買いかも・・・？

（以下、参考ページへのリンク）

◆メーカーホームページ(レッツノートY5)

◆松下、「Let'snote」新製品発表会

◆今度の「Let's note」は水にも強い――松下が2006年PC夏モデルを発表

◆松下電器産業、“Let'snote”シリーズ4製品の夏モデルを発表

投稿者: BIRD 日時: 00:50 | パーマリンク | コメント (2) | トラックバック (0)

PICマイコンの役立つ情報が公開されているページをまとめてみました。

◆PIC-TECH　(　Junk box　)
※アセンブラでプログラムを書く上でのエッセンスが大量にあるのでお勧めです。

◆電子工作の実験室　（PIC、マイコン、ラジコン、EDA、VHDL、CPLD）
※有名、定番のサイト。情報量の多さには驚きます。

◆ＰＩＣ入門　(　趣味の電子工作　)
※わかりやすい命令一覧やさまざまな作品の製作事例がのっており、役立つ情報がたくさんあります

◆PICな日曜日
※PICのことが順を追って記録されているので読みやすいです

◆オーディオクラフト工房
※主にオーディオ関係の電子工作にPICを使われています。PIC16F88最強伝説のコーナーにはさまざまな作品集が紹介されているのでおすすめ。

投稿者: BIRD 日時: 23:16 | パーマリンク | コメント (0) | トラックバック (0)

PICマイコン(Peripheral Interface Controller)のためのプログラムをアセンブラで書いていくとき、どうすれば条件分岐ができるのか最初はとまどいます。
まずは基本的なものを書いてみます。

条件分岐の発展系はこちらから

C言語などで、
if( TEST_VAR == 10 ) {
　　　　//何かの処理
}

などというようなことをアセンブラしたい場合はどのようにすればよいのでしょうか？
※変数TEST_VARが10かどうかで処理を変えたいときはどうすればよいのか

TEST_VAR = 10 ということは、 TEST_VAR 　-　10　= 　0
ということなので、10をひいて、その値が0かがわかればどうにかできます。
これはPICのゼロフラグ(Z)をチェックすることによって解決できます。

今回のプログラムでは、TEST_VARが10かどうかで、ポートBの出力が 変わるようになっています。
よって、ポートにLEDでもつないでおけば確認がしやすいでしょう。


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

※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



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

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

投稿者: BIRD 日時: 23:46 | パーマリンク | コメント (0) | トラックバック (0)

PICのためのプログラムをアセンブラで書いていくとき、どうすれば条件分岐できるかわからなくなりそうだったのでメモとして残しておきます。（ほとんど自分用（苦笑））

C言語などで、
if( TEST_VAR > 10 ) {
　　　　//何かの処理
}

などとしたい場合はどのようにすればよいのでしょうか？

TEST_VAR > 10 ということは、 TEST_VAR 　-　10　> 　0
ということなので、10をひいて、その値が正か負かがわかればどうにかできます。
これはPICのキャリーフラグ(C)をチェックすることによってどうにかできます。

今回のプログラムでは、TEST_VARが10より大きいかどうかで、ポートBの出力が 変わるようになっています。
よって、ポートにLEDでもつないでおけば確認がしやすいでしょう。




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

※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++



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

投稿者: BIRD 日時: 23:09 | パーマリンク | コメント (0) | トラックバック (0)

xreaでメールがつながらない・・・。
SSLでサイトにつながらない（https://ss1.xrea.com/〜でアクセスするとつながらないことがある）
と思っていたらなんと問題が発生していました。

◆詳細はこちらの記事参照
無料ホスティング「XREA」が利用不能の状態に、復旧は11日以降の見込み

上位レジストラの誤認のようです。
早く直してもらいたいものです。

上位レジストラは「法務担当部署は週末で既に休業中であるため対応できない。月曜日にあらためて対応する」という対応になっているという。

上位レジストラの対応がいい加減すぎorz

◆XREAにもお知らせが出ています
「xrea.com」を含むURLのアクセス障害について

投稿者: BIRD 日時: 21:29 | パーマリンク | コメント (2) | トラックバック (0)