JG1FJCの部屋

全89件の内、新着の記事から10件ずつ表示します。

1 2 3 4 5 6 7 8 9 | 《前のページ | 次のページ》

FJCニュ－ス2005年7月号

投稿者：山原投稿日：2005年 6月24日(金)08時02分23秒

FJCニュ－ス2005年7月号今月は、１２ビットコアは２スタックのため、サブルチンコールがあまりできません。そこで、リターンを少なくするための、工夫例の紹介です。０ペ－ジのサブル－チンを他ペ－ジから呼び出せます。１４ビットコアでも８００Ｈを超えるソフトにＰＣＬＡＴＨを使って応用できます。 ;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ include 12c5xx.h .12c509 .osc intrc ;内部ＲＣクロック４ＭＨｚ .mclre disable ;MCLR を　入力ポ－ト　ＧＰ３　で使う .wdt off id 1412h org 8h cu1 ds 1 cu2 ds 1 gpbf ds 1 run_sw equ gpbf.3 w_cu ds 1 ;wait cunter p2bf ds 1 ;ﾍﾟｰｼﾞｰ2時１その他０ sub_dt ds 1 ;ret アドレスバッファ org 0 goto start ingpio mov gpbf,gpio ;in gpio nop nop nop nop nop cjne gpbf,gpio,ingpio ;gpioのショ－トパルスの ;ノイズフィルタ－ jnb gpbf.2,lp1_1 mov sub_dt,#1 goto sub1 ;call sub1 不使用 lp1_1 jnb gpbf.3,lp1_2 mov sub_dt,#2 goto sub2 ;call sub2 不使用 lp1_2 jb p2bf.0,lp2 ;2ﾍﾟｰｼﾞ？ ret lp2 setb pa0 ;ﾍﾟ-ｼﾞ１からのＣａｌｌでﾍﾟ-ｼﾞ1にもどります。 ret ; サブルーチンを使用しない例 sub1 ;サブルーチン処理 sblp cje sub_dt,#1,lp1_1 ;ret しないで戻る。 cje sub_dt,#2,lp1_2 ret ;1,2以外はRET sub2 ;サブルーチン処理 goto sblp start mov w_cu,#20 ;-------------- timer-------------- wait clr cu1 mov cu2,#4 wait1 nop djnz cu1,wait1 djnz cu2,wait1 djnz w_cu,wait mov !gpio,#101100b ; in out set mov w,#000010b option main clr p2bf ;Page 0 prgram ＳＥＴ call ingpio jnb run_sw,run ;start sw ON goto main run ;ペ－ジ０プログラム clr sub_dt call sub2 ;SUB2単独CALL ;ペ－ジ０で書ききれないでペ－ジ１に移行 ; page 2 jmp setb p2bf.0 ;ペ－ジ 1 prgram setb pa0 goto run_2a org 200h ingpio_1 clrb pa0 goto ingpio ;ペ－ジ０のingpio call sub1_1 clrb pa0 goto sub1 ;ペ－ジ０の call sub2_1 clrb pa0 goto sub2 ;ペ－ジ０の call run_2a ;プログラムのつずき call ingpio_1 ;プログラムＥＮＤ clr p2bf ;ペ－ジ０ prgram clrb pa0 goto main

http://homepage2.nifty.com/JG1FJC/

FJCニュ－ス2005年6月号

投稿者：山原投稿日：2005年 5月23日(月)09時37分39秒

FJCニュ－ス2005年6月号今月は1月号で紹介した今月は2相ユニポーラパルスモーター制御のサンプルを１２Ｃ５０９Ａのソースファイルです。回路図とうはホームページのパルスモータのページをご覧ください｡ ;------------------------------------------- include 12c5xx.h .12c509 .osc intrc ;内部クロック　4MHz .mclre disable ;MCLR を　入力ポ－ト　ＧＰ３　で使う .wdt off id 1208h ; 1相励磁パルスモータコントローラ t.yamahara ; ; ; ; GND s1 s2 s3 ; ┌────────────┐ ; │⑧ ⑦ ⑥ ⑤ │ ; │VSS GP0 GP1 GP2 │ ; │ PIC12C509 │ ; │VDD GP5 GP4 GP3 │ ; │① ② ③ ④ │ ; └────────────┘ ; DC5V ccw s4 ｃｗ ; IN IN s1 equ gpio.0 ;パルスモターφ１出力 s2 equ gpio.1 ;パルスモターφ２出力 s3 equ gpio.2 ;パルスモターφ３出力 s4 equ gpio.4 ;パルスモターφ４出力 org 08h stc ds 1 ;モーター位置カウンター tmdt ds 1 ;タイマーデーター cu1 ds 1 ;汎用 cu2 ds 1 bf ds 1 gpbf ds 1 ;ＧＰＩＯｎｏバッファ ccwin equ gpbf.5 ;ＣＣＷ回転司令負パルス入力 cwin equ gpbf.3 ;ＣＣＷ回転司令負パルス入力 org 0 goto start ; ＧＰＩＯの読み込み ; １２Ｃ５０９Ａを内部ＲＣ発振で使用しますので1サイクル４ＭＨｚ／4 ; １uｓで約１０uｓの間にｇｐiｏの値が変化すると読み直しとなり ; ＣＣＷ，ＣＷ制御パルスに入る１０uｓ以下のノイズをカットできます。 ; ＮＯＰを１つ増やす事で１uｓフイルターを伸ばせます｡ ingp mov gpbf,gpio ;gpbf に gpio の値を入れる。 nop ; １uｓ nop nop cjne gpbf,gpio,ingp ;gpioの値が変わっていればingpへジャンプ ret ; 電源立ち上がり時の誤動作防止タイマー start clr cu1 clr cu2 mov bf,#2 start1 nop djnz cu1,start1 djnz cu2,start1 djnz bf,start1 mov !gpio,#101000b ; gpio i/o set clr gpio mov w,#000111b ; trm0 i/o Pul up option loop0 clr gpio ;motor off setb s1 ;モターを０ポジションにセット clr stc loop1 call ingp ;１０uｓソフトフイルターをとうして入力監視 jnb cwin,incs ;ＣＷパルスＩＮ jnb ccwin,decs ;ＣＣＷパルスＩＮ goto loop1 ;ＣＷパルスＩＮ incs inc stc ;位置カウンター＋１(１ステップ時計回り位置） cjne stc,#4,tmset clr stc goto tmset ; ＣＣＷパルスＩＮ decs sub stc,#1 ;位置カウンター＋１(１ステップ反時計回り位置） jc tmset mov stc,#3 ; 位置カウンターに合わせて励磁 tmset cje stc,#1,p1 cje stc,#2,p2 cje stc,#3,p3 setb s1 ;モータ位置 0 励磁 clrb s2 clrb s3 clrb s4 jmp tmon p1 clrb s1 ;モータ位置１励磁 setb s2 clrb s3 clrb s4 jmp tmon p2 clrb s1 ;モータ位置２励磁 clrb s2 setb s3 clrb s4 jmp tmon p3 clrb s1 ;モータ位置３励磁 clrb s2 clrb s3 setb s4 jmp tmon ; 負入力のパルスがＯＦＦ（電圧Ｈ）になるまで待つ。 tmon call ingp jnb cwin,tmon jnb ccwin,tmon goto loop1

http://homepage2.nifty.com/JG1FJC/

FJCニュ－ス2003年5月号

投稿者：山原投稿日：2005年 5月 2日(月)06時35分19秒

FJCニュ－ス2003年5月号今月は、１２ビットコアの、０ペ－ジ以外からの０ペジ－にあるサブルチンの呼びだしの、使用例です。 ;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ include 12c5xx.h .12c509 .osc intrc ;内部ＲＣクロック４ＭＨｚ　 .mclre disable ;MCLR を　入力ポ－ト　ＧＰ３　で使う .wdt off id 1412h ; ; ; gnd out1 out2 open ; ┌────────────┐ ; │⑧ ⑦ ⑥ ⑤ │ ; │VSS GP0 GP1 GP2 │ ; │ PIC12C509 │ ; │VDD oscin oscout GP3 │ ; │① ② ③ ④ │ ; └────────────┘ ; 3v open out3 startSW org 8h cu1 ds 1 cu2 ds 1 gpbf ds 1 run_sw equ gpbf.3 w_cu ds 1 ;wait cunter p2bf ds 1 ;ﾍﾟｰｼﾞｰ2時１その他０ org 0 goto start ingpio mov gpbf,gpio ;in gpio nop nop nop nop nop cjne gpbf,gpio,ingpio ;gpioのショ－トパルスの ;ノイズフィルタ－ jb p2bf.0,lp2 ;2ﾍﾟｰｼﾞ？ ret lp2 setb pa0 ;ﾍﾟ-ｼﾞ１からのＣａｌｌでﾍﾟ-ｼﾞ1にもどります。 ret start mov w_cu,#20 ;-------------- timer-------------- wait clr cu1 mov cu2,#4 wait1 nop djnz cu1,wait1 djnz cu2,wait1 djnz w_cu,wait mov !gpio,#101100b ; in out set mov w,#000010b option main clr p2bf ;Page 0 prgram ＳＥＴ call ingpio jnb run_sw,run ;start sw ON goto main run ;ペ－ジ０プログラム ;ペ－ジ０で書ききれないでペ－ジ１に移行 ; page 2 jmp setb p2bf.0 ;ペ－ジ 1 prgram setb pa0 goto run_2a org 200h ingpio1 clrb pa0 goto ingpio ;ペ－ジ０のingpio call run_2a ;プログラムのつずき call ingpio1 ;プログラムＥＮＤ clr p2bf ;ペ－ジ０ prgram clrb pa0 goto main

FJCニュ－ス2003年5月号

投稿者：山原投稿日：2005年 4月25日(月)07時47分7秒

FJCニュ－ス2005年4月号

投稿者：山原投稿日：2005年 3月30日(水)07時37分37秒

FJCニュ－ス2005年4月号今月は3月号で紹介の１２Ｆ６ＸＸの秋月ＰＡ用ヘッダーファイル１２ｆ６ｘｘ．ｈの使用例です。ターゲットは１６Ｆ８４でＰＡでアセンブルします。１２ｆ６ｘｘはピンは１２ｃ５０９と同じですが、１４ビットコアで割り込み、ＡＤ，コンパレータなどの機能もあります。１６ｆ８７ｘ同様にポートをますＩ／ＯかＡＤ、コンパレータで使用するかをかきこまないと、なりません。 include 12f6xx.h .16f84 ;ＰＡを騙してアセンブラさせます。 .pwrt on ;これらのコンフィグレーションは１６Ｆ８４ .osc intrc ;と違うのでＲＯＭライターで読んだ後修正 .mclre disable ; .wdt off id 0301h ; gnd out1 out2 open ; ┌────────────┐ ; │⑧ ⑦ ⑥ ⑤ │ ; │VSS GP0 GP1 GP2 │ ; │ PIC12f675 │ ; │VDD oscin oscout GP3 │ ; │① ② ③ ④ │ ; └────────────┘ ; 3v startSW out3 open org 20h cu1 ds 1 cu2 ds 1 gpbf ds 1 run_sw equ gpbf.5 bf ds 1 org 0 goto start org 4 retfie start mov w_cu,#20 ;-------------- timer-------------- wait clr cu1 mov cu2,#4 wait1 nop djnz cu1,wait1 djnz cu2,wait1 djnz w_cu,wait mov cmcon,#7 ;ｺﾝﾊﾟﾚｰﾀ不使用 setb rp0 mov ansel,#0000000b ;non Ad all i/o port mov gpio,#101100b ; in out set mov intcon,#00000000b ;tmr0 int on mov option,#00000001b ;1:4 ﾌﾟﾘｽｹｰﾗ mov wpu,#37h ;内部ﾌﾟﾙｱｯﾌﾟ clrb rp0 clr gpio main mov gpbf,gpio ;in gpio

FJCニュス3月号

投稿者：山原投稿日：2005年 2月28日(月)07時50分17秒

今月は１２Ｆ６ＸＸのアセンブラと書き込みについてです。１６ｆ６ｘｘはピンは１２ｃ５０９と同じですが、１４ビットコアで割り込み、ＡＤ，コンパレータなどの機能もあります。メモリーが同じ１６Ｆ８４をアセンブルするように秋月ＰＡ用ヘッダーファイル１２ｆ６ｘｘ．ｈを作成ターゲットは１６Ｆ８４でＰＡでアセンブルできます。ＭＰＡＳＭ用ヘッダーを作れば、同様に可能だとおもいます。アセンブラで作成した、ＨＥＸファイルをＲＯＭライターに読み込みますと、この方法で作成したものでは、コンフィグレーションワードは正しく読み込めませんのでロムライターで修正します。私は自作の１６Ｆ８ＸＸ用ライターで１６Ｆ８４用のものに書き込み直前にイレースコマンドを追加するようにして、対応できました。コンフィグレーションワードの扱いもパソコンソフトの修正がありました。１２ｃ５０９からの書き換えは、ＡＤ，コンパレータ不使用の設定、内部プルアップできるポートもちがいます。以下は秋月ＰＡ用インクルードファイル１２ｆ６ｘｘ．ｈです。 ;ーーーーーーーーーーーーーーーーーーーーーー .nlist ; ; PIC12FXXX Header file Vers.1.00 ; PIC1F629,PIC12F675 ; Copyright (c) 2002 by t.yamahara ; indirect equ 0 indf equ 0 rtcc equ 1 ; RTCC = TMR0 = 1 tmr0 equ 1 option equ 1 ; OPTION ps0 equ 1.0 ps1 equ 1.1 ps2 equ 1.2 psa equ 1.3 t0se equ 1.4 t0cs equ 1.5 intedg equ 1.6 gpwuf equ 1.7 pc equ 2 ; PC = PCL = 2 pcl equ 2 status equ 3 ; STATUS c equ 3.0 ; carry/borrow flag dc equ 3.1 ; digit carry/borrow flag z equ 3.2 ; zero flag pd equ 3.3 ; power down bit to equ 3.4 ; time out bit rp0 equ 3.5 ; page select rp1 equ 3.6 ; irp equ 3.7 fsr equ 4 gpio equ 5 trisio equ 5 pclath equ 0ah intcon equ 0bh gpif equ 0bh.0 intf equ 0bh.1 t0if equ 0bh.2 gpie equ 0bh.3 inte equ 0bh.4 t0ie equ 0bh.5 peie equ 0bh.6 gie equ 0bh.7 pir1 equ 0ch tmr1if equ 0ch.0 cmif equ 0ch.3 ;ｺﾝﾊﾟﾚｰﾀｰ割り込みﾌﾗｸﾞ adif equ 0ch.6 eeif equ 0ch.7 pie1 equ 0ch ;ﾊﾞﾝｸ１ tmr1ie equ 0ch.0 cmie equ 0ch.3 ;ｺﾝﾊﾟﾚｰﾀｰ割り込み adie equ 0ch.6 eeie equ 0ch.7 tmr1l equ 0eh pcon equ 0eh ;ﾊﾞﾝｸ1 ﾊﾟﾜｰｺﾝﾄﾛｰﾙ bod equ 0eh.0 ;ﾌﾞﾗｳﾝｱｳﾄ por equ 0eh.1 ;ﾊﾟﾜｰON リセット tmr1h equ 0fh t1con equ 10h tmr1on equ 10h.0 tmr1cs equ 10h.1 t1sync equ 10h.2 t1oscen equ 10h.3 t1ckps0 equ 10h.4 t1ckps1 equ 10h.5 tmr1ge equ 10h.6 osccal equ 10h ;bank 1 cal0 equ 10h.2 cal1 equ 10h.3 cal2 equ 10h.4 cal3 equ 10h.5 cal4 equ 10h.6 cal5 equ 10h.7 wpu equ 15h ;bank1 wpu0 equ 15h.0 wpu1 equ 15h.1 wpu2 equ 15h.2 wpu4 equ 15h.4 wpu5 equ 15h.5 iocb equ 16h ;bank1 iocb0 equ 16h.0 iocb1 equ 16h.1 iocb2 equ 16h.2 iocb3 equ 16h.3 iocb4 equ 16h.4 iocb5 equ 16h.5 cmcon equ 19h cm0 equ 19h.0 cm1 equ 19h.1 cm2 equ 19h.2 cis equ 19h.0 cinv equ 19h.4 cout equ 19h.6 vrcon equ 19h vr0 equ 19h.0 vr1 equ 19h.1 vr2 equ 19h.2 vr3 equ 19h.3 vr4 equ 19h.5 vren equ 19h.7 ; EERom data cont bank 1 eedata equ 1ah eeadr equ 1bh ;7bit eecon1 equ 1ch rd equ 1ch.0 wr equ 1ch.1 wren equ 1ch.2 wrerr equ 1ch.3 eecon2 equ 1dh adresh equ 1eh ;adcon data H adresl equ 1eh ;adcon data h bank L adcon0 equ 1fh adon equ 1fh.0 go equ 1fh.1 chs0 equ 1fh.2 chs1 equ 1fh.3 vcfg equ 1fh.6 ;1 ref Vref pin 0 Vdd adfm equ 1fh.7 ;1 out右詰め 0 out 左詰め ansel equ 1fh ;bank1 ans0 equ 1fh.0 ;0 f/2,1 f/8,2 f/32 ans1 equ 1fh.1 ;3 Frc Max 500kHz ans2 equ 1fh.2 ;4 f/4, 5 f/16 ,6 f/64 ans3 equ 1fh.3 adcs0 equ 1fh.4 ; 0=I/O 1=A/D adcs1 equ 1fh.5 adcs2 equ 1fh.6 .list

http://http:/

FJCニュ－ス2月号

投稿者：yamahara 投稿日：2005年 1月26日(水)09時43分31秒

FJCニュ－ス2月号今月は電信用エレキ－を利用してリモ－ト操作をする方法です。モールス符号全てを、覚えるのは大変ですが、数字は簡単です｡それを利用して､短点用､長点用の2個のＳＷでさまざまな組み合わせの入力が可能です｡モールス符号は１：３の短点､長点同じく１：３のスペースの組み合わせで構成されています。短点または長点を出したあと必ず短点と同じ長さのスペースが挿入されます。当エレキーではＥモード時、短点の１．５倍以上の時間キーイングされないと１文字の終わりとみなし。そのコードを出力します。コードは１６ビットバッファをクリアして、短点入力時１６ビットバッファを１回左シフトして OR １長点入力時１６ビットバッファを２回左シフトして OR ３次の短ショートスペースでは１６ビットバッファを１回左シフトしてＡＮＤｆｆｆｅＨロングスペース（短点の１．５倍以上の時間キーイングされない）時コードを送信します。モールス信号のコード化例文字　　　２進コード　　１６進コード　モールス符号１　　0001 0110 1101 1011 B 16db H ・ーーーー２　　0000 1010 1101 1011 B0adb H・・ーーー３　　　　　0000 0101 0101 1011 B　　　 055b H・・・ーー４　　　　　0000 0010 1010 1011 B02ab H・・・・ー５　　　　　0000 0001 0101 0101 B0155 H・・・・・６　　　　　0000 0011 0101 0101 B0355 Hー・・・・７　　0000 0110 1101 0101 B　　　 06d5 Hーー・・・８　　　　　0000 1101 1011 0101 B　　　 0db5 Hーーー・・９　　　　　0001 1011 0110 1101 B1b6d Hーーーー・０　　　　　0011 0110 1101 1011 B36db H ーーーーーＢ　　　　　0000 0000 1101 0101 B00d5 Hー・・・Ｆ　　0000 0000 1010 1101 B　　　 00ad H・・ー・Ｇ　　0000 0000 0110 1101 B006d Hー・・Ｓ　　　　　0000 0000 0001 0101 B0015 H・・・ＲＳ２３２Ｃを介してエレキ－よりのコマンド実行例モ－ルス符号ダイレクトコマンドＧモ－タ－ＯＮ　　　　－－・Ｆ前進モ－タ－ＯＮ　　・・－・Ｂ後退モ－タ－ＯＮ　　－・・・Ｓモ－タ－ＯＦＦ　　　・・・１プログラム１実行　　・－－－－　　２プログラム２実行　　・・－－－３プログラム３実行　　・・・－－　　　４プログラム４実行　　・・・・－５プログラム５実行　　・・・・・　６プログラム６実行　　－・・・・

http://homepage2.nifty.com/JG1FJC/

FJCニュ－ス12月号

投稿者：yamahara 投稿日：2004年11月22日(月)07時58分37秒

FJCニュ－ス12月号　　　ｐｉｃ１２ｃ５０９ CW tone 800Hz　パルスジエネレータ　　　 tmr0で方形波を作ります。５５５より低電圧で動作（３Ｖから５Ｖ）　　　 5００Ｈｚから1200Hzでクリスタルレシーバを鳴らせます。　　　 OPTIONでtmr0分周比をかえるか、　　　 EXTRC のＲ、ＶＲを調整すれば周波数を変えられます　　　ＡＭＰを付ければスピーカも鳴らせます。　　　またクロックを固定してｔｍｒ０の比較定数をかえ回数用カウンタ－　　　（音長）を用意すれば音楽演奏もできます。　 ;ｰｰｰｰｰ　　 PROGRAM　ｰｰｰｰｰｰｰｰｰｰｰｰｰ include12c5xx.h .12c509 .oscextrc;可変外部クロック　 .mclredisable;MCLR を　入力ポ－ト　ＧＰ３　で使う .wdtoff id0108h ;　　　　　　　　　　　 ;　　　　　　　　　　 H でON ;　　　　　　　　3v　　cwon　 open　PULS OUT ;　　　　┌────────────┐ ;│⑧　　⑦　　⑥　　⑤　　│ ;│VSS　GP0　　GP1　 GP2　 │ ;│　 PIC12C509　　　　　　│ ;│VDD　oscin oscout GP3　 │ ;│①　　②　　③　　④　　│ ;└────────────┘ ; gnd　 CR　　Open　 open ;　　　　　　　　ＣＷＯＮＨで８００ＨＺ発振　　　 ;　 -----EXTRC------　　　　　 ;　　　　　*　 oscin ->3 3k-> 10kVR -> 3v ;　　　　　*　 oscin -> 50pF -> GND ;　　　　　-----800Hz out ------- ;　　　　　50K VR にて音量制御ｸﾘｽﾀﾙﾚｼｰﾊﾞｰを鳴らす cwoutequgpio.2 org8 cu1ds1 cu2ds1 gpbfds1 cwon　　　　　　equ　　 gpbf.0 bfds1 org0 ;-------------- timer-------------- 　　　　　　　　clr　　 cu1 　　　　　　　　clr　　 cu2 　　　　　　　　mov　　 bf#2 start1　　　　　nop 　　　　　　　　djnz　　cu1start1 　　　　　　　　djnz　　cu2start1 　　　　　　　　djnz　　bfstart1 　　　　　　　　mov　　 !gpio#101011b　　 ; in out set clrbcwout clrtmr0 movw#00000011b;1: option clrcu1 clrcu2 main　　　　clrbcwout main1movw#3 option clrtmr0 mov　　 gpbfgpio;in gpio 　　　　　　　　nop 　　　　　　　　nop 　　　　　　　　cjne　　gpbfgpiomain1 jbcwonmain2 gotomain1 main2cjbetmr0#10hmain2;time chk pmonsetbcwout pmonwcjbetmr0#20hpmonw;time chk gotomain

http://homepage2.nifty.com/JG1FJC/

ＦＪＣニュ－ス 11月号

投稿者：yamahara 投稿日：2004年11月15日(月)07時28分16秒

ＦＪＣニュ－ス 11月号今月号は H8/3664 のＣプログラム時計ＬＣＤ時:分：秒表示（Ｐ８）とＲＳ２３２Ｃで時：分表示のＴＭＡ．Ｃのご紹介をいたします。 H8/3664 を使ってまだ1カ月なので不都合の所もあるとおもいますがお許しいただき、ご指摘いただければ幸いです。タイマーＡで基準１Ｓ時間を割り込みで作り、ポート８で２Ｓ１回のＬＥＤ点滅、液表１６Ｘ１２表示ＲＳ２３２Ｃで時：分表示と時：分入力ーーーーーＴＭＡ．Ｃーーーーーーーー #include <Mytype.h>　　　　　　 #include <3664f.h> #include <machine.h> #define MHz16 #define BAUD19200 #define BITR(MHz*1000000)/(BAUD*32)-1 #define WAIT_1B(MHz*1000000)/6/BAUD SInt8　DD[6]; UInt16 d8d4poitmxtmy; void rsout(char x) ; SInt8 rsin(void) ; void wait_ms(void) ;/* max 22 mS */ void wait_us(void) ; void wait_n(void); void init_lcd(void) ; void init_tma(void) ; void init_io(void) ; void send_dt(void); void tmset(void); /*void tmai(void);*/ void init_sci(void); void wr_ld8(void); void wr_ld4(void); void dsp_wath(void); void main(void) { 　　inti;　　init_sci(); 　init_tma();/*initialize TimerA*/ 　init_io(); 　init_lcd(); ms: 　and_ccr(0xff); 　for(i=0;i<=5;i++)DD[i]=0; 　tmset(); 　and_ccr(0x7f); ml: 　if(rsin()=='s')goto ms ;/* endless loop*/ 　goto ml; } void init_tma(void) { 　TA.TMA.BYTE = 0x08 ;/* TMOW=1/32interval=1sec*/ 　IRR1.BIT.IRRTA = 0 ;/* clear interrupt request flag for TMA*/ 　IENR1.BIT.IENTA = 1 ;/* enable Timer A overflow interrupt*/ } void init_io(void) { 　IO.PCR8=0xdf;/*p8 bit 7 LED &LCD　0-3 DB4-7 OUT E bit4 RS bit6　*/ 　IO.PDR8.BIT.B7=0;/* LED ON */ 　 } void init_sci(void) { SInt16 xx; IO.PMR1.BIT.TXD = 1; SCI3.SCR3.BYTE = 0;/* clear all flags*/ SCI3.SMR.BYTE = 0;/* Ascnc 8bit NoParity (Even) stop1 1/1 */ SCI3.BRR = 25;/* 19200baud (CPU=16MHz) */ tmx=100;/* 1us wait */ wait_us(); SCI3.SCR3.BYTE = 0x30;/* scr=0011 0000 (TE=1RE=1) */ xx = SCI3.SSR.BYTE;/* Dummy Read */ SCI3.SSR.BYTE = 0x80;/* Clear Error Flag (TDRE=1) */ }/* initio */ void rsout(char x) { lp: 　　　　if(SCI3.SSR.BIT.TDRE==0)goto lp ;/* wait can write transmit data*/ 　SCI3.TDR = x; 　SCI3.SSR.BIT.TDRE==0;/*割り込み処理をしないときは自分でクリアする*/ 　 } void tmset(void) { SInt8 a; rsout('S'); rsout('e'); rsout('t'); rsout(' '); rsout('T'); rsout('i'); rsout('m'); rsout(' '); a=rsin(); rsout(a); a = a & 0xf; DD[5] = a; a=rsin(); rsout(a); a = a & 0xf; DD[4] = a; a=rsin(); rsout(a); a = a & 0xf; DD[3] = a; a=rsin(); rsout(a); a = a & 0xf; DD[2] = a; } SInt8 rsin(void) { SInt8x; lpr:if(SCI3.SSR.BIT.OER==1 || SCI3.SSR.BIT.FER==1 ||　SCI3.SSR.BIT.PER==1 ){ /*error*/ SCI3.SSR.BIT.OER==0; SCI3.SSR.BIT.FER==0; SCI3.SSR.BIT.PER==0; } if(SCI3.SSR.BIT.RDRF != 1)goto lpr; x=SCI3.RDR; SCI3.SSR.BIT.RDRF = 0; return(x); } /*p8 bit 7 LED &LCD　0-3 DB4-7 OUT E bit4 RS bit6　*/ void init_lcd(void) {　　tmx=15; 　wait_ms(); 　IO.PDR8.BIT.B6=0;/* RS= L */ 　d8=0x3; 　wr_ld8(); 　tmx=5; 　wait_ms(); 　d8=0x3; 　wr_ld8(); 　tmx=100; 　wait_us(); 　d8=0x3; 　wr_ld8(); 　d8=0x2; 　wr_ld8(); 　d4=0x28; 　wr_ld4; 　d4=1;/* clr command */ 　wr_ld4(); 　tmx=2; 　wait_ms(); 　d4=0x6;/* entry mode set */ 　wr_ld4(); 　d4=0xe;/* dsplay & cursor on */ 　wr_ld4(); } void wr_ld8(void) {　　tmy=IO.PDR8.BYTE; 　tmy=tmy & 0xf0; 　tmy=tmy + d8; 　IO.PDR8.BYTE=tmy; 　wait_n(); 　IO.PDR8.BIT.B4=1;　 /*E = H */ 　wait_n(); 　IO.PDR8.BIT.B4=0;　 /*E = L */ 　tmx=80; 　wait_us(); } void wait_n(void) { 　tmy=tmy; } void wr_ld4(void) { 　d8=d4 & 0xf0; 　if(d8 > 0xf )d8=d8/0x10; 　wr_ld8(); 　d8=d4; 　d8=d8 & 0xf; 　wr_ld8(); }

http://homepage2.nifty.com/JG1FJC/

以上は、新着順81番目から90番目までの記事です。
これ以下の記事はありません。

1 2 3 4 5 6 7 8 9 | 《前のページ | 次のページ》

投稿募集！　スレッド一覧

FJCニュ－ス2005年7月号

FJCニュ－ス2005年6月号

FJCニュ－ス2003年5月号

FJCニュ－ス2003年5月号

FJCニュ－ス2005年4月号

FJCニュス3月号

FJCニュ－ス2月号

FJCニュ－ス12月号

ＦＪＣニュ－ス 11月号

teacup.AUTO BBS Lv2-Free

投稿募集！ スレッド一覧

投稿募集！　スレッド一覧