JG1FJCの部屋

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

fjcﾆｭ-ｽ2月号

投稿者：山原投稿日：2009年 1月31日(土)11時35分33秒

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

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

fjcﾆｭ-ｽ1月号

投稿者：山原投稿日：2009年 1月 3日(土)16時34分38秒

FJCニュ－ス2009年１月号謹賀新年本年も宜しくおねがいします。今月は2相ユニポーラパルスモーター制御法をお送ります｡ 2相ユニポーラパルスモーターには６本の線があり２個のセンタータップのあるコイル（電磁石）がありそれは４個の電磁石として使い２相励磁、1ー２相励磁、１相励磁で制御します。１相励磁はステップが荒く省電力。トルクは小さい。２相励磁はステップが荒くトルクは大きい。 1ー２相励磁はステップが１相励磁、2相励磁に比べ1/2。電磁石Ａ Ф１(A) センター Ф３(Aバー）電磁石Ａ Ф２(B) センター Ф４(Bバー）センターをモター電源につなぎ、Ф１、Ф２、Ф３、Ф４をパワートランジスタで制御します。を下記の順番でＯＮ、ＯＦＦすると時計方向回転(CW) 順番を逆にすると反時計方向回転(CCW)します。 1相励磁 Ф１ Ф２ Ф３ Ф４０１０００１０１００２００１０３０００１２相励磁 Ф１ Ф２ Ф３ Ф４０１１００１０１１０２００１１３１００１ 1ー２相励磁 Ф１ Ф２ Ф３ Ф４０１０００１１１００２０１００３０１１０４００１０５００１１６０００１７１００１定速運転時の立ち上がりのときには１ステップごとに短くなるソフトタイマーを入れＳ時カーブで定速まであげ、定速運転時の立ち下がりのときには１ステップごとに長くなるソフトタイマーを入れＳ時カーブで減速して止めます。１２Ｃ５０９，１６Ｆ８４などで動かしてみてはいかがでしょうか。ホームページで紹介しています、１６Ｆ８４で作ったパルスモータードラバーはこの機能が入っています。１２Ｃ５０９で作ったパルスモータードラバーはパルス列入力の1相励磁、２相励磁、1ー２相励磁の３タイプあります。詳細、回路図はホ－ムペ－ジで紹介しています。

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

FJCニュ－ス12月号

投稿者：山原投稿日：2008年11月29日(土)14時28分13秒

FJCニュ－ス12月号ｐｉｃ１２ｃ５０９ CW tone 800Hz　パルスジエネレータ tmr0で方形波を作ります。５５５より低電圧で動作（３Ｖから５Ｖ） 5００Ｈｚから1200Hzでクリスタルレシーバを鳴らせます。 OPTIONでtmr0分周比をかえるか、 EXTRC のＲ、ＶＲを調整すれば周波数を変えられますＡＭＰを付ければスピーカも鳴らせます。またクロックを固定してｔｍｒ０の比較定数をかえ回数用カウンタ－（音長）を用意すれば音楽演奏もできます。 ;ｰｰｰｰｰ PROGRAM ｰｰｰｰｰｰｰｰｰｰｰｰｰ include 12c5xx.h .12c509 .osc extrc ;可変外部クロック .mclre disable ;MCLR を　入力ポ－ト　ＧＰ３　で使う .wdt off id 0108h ; ; 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 にて音量制御ｸﾘｽﾀﾙﾚｼｰﾊﾞｰを鳴らす cwout equ gpio.2 org 8 cu1 ds 1 cu2 ds 1 gpbf ds 1 cwon equ gpbf.0 bf ds 1 org 0 ;-------------- timer-------------- clr cu1 clr cu2 mov bf,#2 start1 nop djnz cu1,start1 djnz cu2,start1 djnz bf,start1 mov !gpio,#101011b ; in out set clrb cwout clr tmr0 mov w,#00000011b ;1: option clr cu1 clr cu2 main clrb cwout main1 mov w,#3 option clr tmr0 mov gpbf,gpio ;in gpio nop nop cjne gpbf,gpio,main1 jb cwon,main2 goto main1 main2 cjbe tmr0,#10h,main2 ;time chk pmon setb cwout pmonw cjbe tmr0,#20h,pmonw ;time chk goto main

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

fjcﾆｭ-ｽ11月号 1/2

投稿者：山原投稿日：2008年10月30日(木)14時26分55秒

ＦＪＣニュ－ス 11月号今月号は H8/3664 のＣプログラム時計ＬＣＤ時:分：秒表示（Ｐ８）とＲＳ２３２Ｃで時：分表示のＴＭＡ．Ｃのご紹介をいたします。 H8/3664 を使ってまだ1カ月なので不都合の所もあるとおもいますがお許しいただき、ご指摘いただければ幸いです。タイマーＡで基準１Ｓ時間を割り込みで作り、ポート８で２Ｓ１回のＬＥＤ点滅、液表１６Ｘ１２表示ＲＳ２３２Ｃで時：分表示と時：分入力ーーーーーＴＭＡ．Ｃーーーーーーーー #include <Mytype.h> #include <3664f.h> #include <machine.h> #define MHz 16 #define BAUD 19200 #define BITR (MHz*1000000)/(BAUD*32)-1 #define WAIT_1B (MHz*1000000)/6/BAUD SInt8 DD[6]; UInt16 d8,d4,poi,tmx,tmy; 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) { int i; 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/32,interval=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=1,RE=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) { SInt8 x; 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); }

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

fjcﾆｭ-ｽ11月号 2/2

投稿者：山原投稿日：2008年10月30日(木)14時21分41秒

/*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(); } /* 時計ＬＣＤ表示 */ void dsp_wath(void) { IO.PDR8.BIT.B6=0; /* RS= L */ d4=0x80; /* cursor top */ wr_ld4(); IO.PDR8.BIT.B6=1; /* RS= H */ d4=DD[5]+0x30; /* time*10 */ wr_ld4(); d4=DD[4]+0x30; /* time */ wr_ld4(); d4=':'; /* time */ wr_ld4(); d4=DD[3]+0x30; /* min*10 */ wr_ld4(); d4=DD[2]+0x30; /* min */ wr_ld4(); d4=':'; /* min */ wr_ld4(); d4=DD[1]+0x30; /* sec * 10 */ wr_ld4(); d4=DD[0]+0x30; /* min */ wr_ld4(); } void wait_ms(void) { tmx=tmx*2800; /* if tmx=2800 then 1ms Wait */ for ( tmy=0;tmy < tmx;tmy++); } void wait_us(void) { tmx=tmx*3; /* if tmx=2.8 then 1us Wait */ for ( tmy=0;tmy<tmx;tmy++); } #pragma interrupt(tmai) void tmai(void) { char i,j; IENR1.BIT.IENTA = 0 ; /* disable Timer A overflow interrupt */ IRR1.BIT.IRRTA = 0 ; /*オバーフローフラグクリア*/ j=0; DD[0]=DD[0]+1; if(DD[0]==10){ DD[0]=0; /* sec */ DD[1]=DD[1]+1; if(DD[1]==6){ j=1; DD[1]=0; DD[2]=DD[2]+1; } if(DD[2]==10){ /* min */ DD[2]=0; DD[3]=DD[3]+1; } if(DD[3]==6){ DD[3]=0; DD[4]=DD[4]+1; } if(DD[4]==10){ DD[4]=0; /* time */ DD[5]=DD[5]+1; } if((DD[5]==2) && (DD[4]==4)){ DD[5]=0; DD[4]=0; } } if(j == 1){ i=5; lp: rsout(DD[i]+0x30); i--; if(i==3)rsout(':'); if (i > 1)goto lp; } if((DD[0] & 1) == 0){ IO.PDR8.BIT.B7=0; /* LED ON */ } else{ IO.PDR8.BIT.B7=1; /* LED OFF */ } dsp_wath(); IENR1.BIT.IENTA = 1 ; /* enable Timer A overflow interrupt */ }

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

fjcﾆｭ-ｽ10月号

投稿者：山原投稿日：2008年 9月29日(月)14時27分16秒

ＦＪＣニュ－ス 10月号今月号は H8/3664 のＣプログラムリンカーのＳＵＢファイルのご紹介をいたします。 1行目で実行ファイルＴＭＡ．ＭＡＲの指定 2行目リストファイルの出力命令 3行目 64Rres,tma オブジエファイルリンク 4行目ライブラリー指定 5行目プログラム書き込みアドレスＦ７９０指定ＲＡＭアドレスＦＤ４０指定Ｆ７８０Ｈは６４Ｒｒｅｓが入ります｡ 64Rres でスタック設定、仮想割り込みベクタ設定をします。 ----- tma.sub -------------- OUTPUT tma PRINT tma INPUT 64Rres,tma LIB c:\3664\h8_c\lib\c38hn START P,C(0F790),B,D(0FD40) EXIT ーーーーーーーーーーーーーーＤＯＳ版のソフトでアセンブラを使用してエラーが多くでたときはスクロールして先の方がわかりません。私はフリーソフトのＤｏｓＥｘｅｃを使用してウィンドウズ上でやっています。ＤｏｓＥｘｅｃをウィンドウズで起動させてＤｏｓＥｘｅｃからＤＯＳプログラムを直に実行できます。アセンブラ結果などもＤｏｓＥｘｅｃのウィンドウ上でスクロールアップ、ダウンができエデターと行き来してエラーの修正ができます。私のＣのコンパイルとリンクをするバッチファイルですＥはＲＡＭデスクでここで作業すると余分なファイルは電源を落すと消えるので楽です。ｰｰｰＨ8c．BAT ｰｰｰｰｰｰ @echo off copy c:\3664\h8_c\test\*.* e:\ e:\ c:\3664\h8_c\ch38 -cpu=300hn -include=c:\3664\h8_c\include e:\%1.c if errorlevel 1 goto eend c:\3664\h8_c\ch38 -cpu=300hn -code=asmcode -include=c:\3664\h8_c\include e:\%1.c if errorlevel 1 goto eend c:\3664\asm\lnk.exe -sub=e:\%1.sub if errorlevel 1 goto eend copy e:\*.abs c:\3664\writer :eend

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

fjcﾆｭ-ｽ9月号

投稿者：山原投稿日：2008年 8月28日(木)16時18分32秒

ＦＪＣニュ－ス 9月号 9月、10月、11月は H8/3664 のＣプログラムのご紹介をいたします。 H8デバッカ－上で、動作する、時計ソフトをＣ言語を使ってプログラムします。表示部はデバッカ－動作中のパソコンＣＲＴとＬＣＤです。紹介ファイルはＣ言語ファイルと、同時コンパイルするＭＡＲファイル、ヘッダ－ファイルです。汎用レジスターを多用するので、変数の宣言なども気をつけないとすぐに暴走します。Ｃだけではスタックのセットができアセンブラで作ったＯＢＪファイルを同時にリンクします。アセンブラでＲＡＭデバック時の仮想割り込みベクタ、スタックＲＡＭ，ＲＯＭの先頭アドレスを指定します。今月号では、そのアセンブラファイルを紹介いたします。ーーーーーー６４Ｒｒｅｓ．ｍａｒーーーーーーーー .CPU 300HN ; H8-３６６４ .PRINT LIST ; 割り込みアドレス .IMPORT _nmi ;外部割り込みＣでＮＭＩ割り込みサブルーチン nmi() .IMPORT _trp0i ;トラップ命令＃０ .IMPORT _trp1i ;トラップ命令＃１ .IMPORT _trp2i ;トラップ命令＃２ .IMPORT _trp3i ;トラップ命令＃３ .IMPORT _bkseti ;ブレーク条件成立 .IMPORT _sleepi ;スリープ .IMPORT _irq0i ;IRQ0 外部割り込み .IMPORT _irq1i ;IRQ1 .IMPORT _irq2i ;IRQ2 .IMPORT _irq3i ;IRQ3 .IMPORT _wkpi ;WKP .IMPORT _tmai ;TMA オバーフロー .IMPORT _tmwi ;TMW .IMPORT _tmvi ;TMV .IMPORT _sci3i ;RS232C .IMPORT _iici ;I2C .IMPORT _adi ;A/D .IMPORT _main ;main() .DATA.L H'F870 ;リセットベクトル ; 仮想割り込みアドレスの設定 .SECTION INIT_7,CODE,LOCATE=H'FC4E .DATA.W _nmi .SECTION INIT_8,CODE,LOCATE=H'FC50 .DATA.W _trp0i .SECTION INIT_9,CODE,LOCATE=H'FC52 .DATA.W _trp1i .SECTION INIT_10,CODE,LOCATE=H'FC54 .DATA.W _trp2i .SECTION INIT_11,CODE,LOCATE=H'FC56 .DATA.W _trp3i .SECTION INIT_12,CODE,LOCATE=H'FC58 .DATA.W _bkseti .SECTION INIT_13,CODE,LOCATE=H'FC5A .DATA.W _sleepi .SECTION INIT_14,CODE,LOCATE=H'FC5C .DATA.W _irq0i .SECTION INIT_15,CODE,LOCATE=H'FC5E .DATA.W _irq1i .SECTION INIT_16,CODE,LOCATE=H'FC60 .DATA.W _irq2i .SECTION INIT_17,CODE,LOCATE=H'FC62 .DATA.W _irq3i .SECTION INIT_18,CODE,LOCATE=H'FC64 .DATA.W _wkpi .SECTION INIT_19,CODE,LOCATE=H'FC66 .DATA.W _tmai .SECTION INIT_21,CODE,LOCATE=H'FC6A .DATA.W _tmwi .SECTION INIT_22,CODE,LOCATE=H'FC6C .DATA.W _tmvi .SECTION INIT_23,CODE,LOCATE=H'FC6E .DATA.W _sci3i .SECTION INIT_24,CODE,LOCATE=H'FC70 .DATA.W _iici .SECTION INIT_25,CODE,LOCATE=H'FC72 .DATA.W _adi .SECTION A,DATA,LOCATE=H'F780 MOV.L #H'FF7F,ER7 ;スタックポインタ設定 jmp @_main ;Ｃのプログラム main()へジャンプ .END

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

fjcﾆｭ-ｽ8月号 1/4

投稿者：山原投稿日：2008年 7月30日(水)16時55分50秒

ＦＪＣニュ－ス8月号１６Ｆ８４使用カレンダー時計ＭＰＡＳＭ用にＰＡマクロバスタ－をしようして変換したソースファイルの紹介です。 ; ＬＣＤカレンダー時計 include 16f84.h .osc xt ;2MHZ .wdt off ; ; ＰＩＣ１６Ｆ８４／１６文字×２行対応 ; カウンター液晶表示プログラム; ; 2001年7月14日山原 ; 使用環境 ; ＰＩＣ PIC16F84-10/P（それ以外にも応用可能） ; 液晶Ｍ１６３２，Ｍ１６７２，ＳＣ１６０２Ｂ等 ; クロック２MHz ; ; ; ピンアサイン：（電源・クリスタル・コントラスト調整ＶＲ等の配線は省略） ; ; ＰＩＣ１６Ｆ８４液晶モジュール ; ()内はピン番号 ; RA3(2) ＝ DB7 ; RA2(1) ＝ DB6 ; RA1(18) ＝ DB5 ; RA0(17) = DB4 ; GND(0V) ＝ R/~W ; rb7(13) ＝ RS ; rb6(12) ＝ EN(ENABLE) ; 時計セット ; rb5(11) ＝ ; rb4(10) ＝ ; rb3(19) ＝ ; rb2(9) ＝日、分セットＳＷインクリメント ; rb1(7) ＝月、時、曜日ＳＷインクリメント ; rb0(6) ＝エンターＳＷ ; ra4(3) ＝ lce equ rb.6 lcrs equ rb.7 org 0ch erfg ds 1 mtcu1 ds 1 mtcu2 ds 1 tmdt ds 2 cutm ds 2 daytcu ds 2 weekcu ds 1 dspno ds 1 bf ds 1 cu0 ds 1 cu1 ds 1 cu2 ds 1 cu3 ds 1 lcu1 ds 1 lcu2 ds 1 lcu3 ds 1 wk0 ds 1 ;int bf wk1 ds 1 wk2 ds 1 ittm ds 1 tuff ds 1 org 0 goto start org 4 ; ｔｉｍｅｒ　割り込み inttm movwf wk0 ;push w swapf wk0,1 swapf status,0 ; status movwf wk1 movf fsr,0 ; fsr movwf wk2 ; init wark clrb t0if inc ittm cjne ittm,#244,intm2 clr ittm intm1 cjne tmr0,#36,intm1 clr tmr0 ;2m/4/8/256=244...36 inc tuff ;1s ; init end pop fsr status w intm2 btfsc wk1,1 ;bank 0 ? setb rp0 ;no bank 1 movf wk2,0 ;pop fsr movwf fsr swapf wk1,0 ;pop status movwf status swapf wk0,0 ;pop w retfie ;----------dsplay masag 0123456789abcdef ------------- dsp1 jmp pc+w retw ' push key ' dsp2 jmp pc+w retw ' set clock ' dsp5 jmp pc+w retw ' ' dsp7 jmp pc+w retw ' set mon/date ' dsp8 jmp pc+w retw ' set week ' dsp10 jmp pc+w retw 'sun ' dsp11 jmp pc+w retw 'mon ' dsp12 jmp pc+w retw 'tue ' dsp13 jmp pc+w retw 'wed ' dsp14 jmp pc+w retw 'thu ' dsp15 jmp pc+w retw 'fri ' dsp16 jmp pc+w retw 'sat ' nop nop

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

fjcﾆｭ-ｽ8月号 2/4

投稿者：山原投稿日：2008年 7月30日(水)16時54分28秒

start ;-------------- SW ON timer-------------- clr cu1 clr cu2 mov cu3,#2 st1 nop djnz cu1,st1 djnz cu2,st1 djnz cu3,st1 clr ittm clr weekcu mov daytcu[0],#1 mov daytcu[1],#1 clr tmdt[0] clr tmdt[1] mov erfg,#0 ;-------------- I/O set ------------ mov !ra,#10000b ; ra set mov !rb,#00011111b ; rb set clr rb clr ra ;------------- option (int & tmr0 )set--------- setb rp0 mov option,#00000010b ;1:8 ﾌﾟﾘｽｹｰﾗ clrb rp0 mov intcon,#00100000b ;tmr0 int on call lcd_init call inrb jb bf.3,tmset call uhp mov lcu2,#16 setb lcrs clr lcu1 tmset call lcd_init call uhp ;--------- date set ------------- mov dspno,#0 call dwdsp dayset_1 call dclr call dhp call dspdait call swait dayset_2 call inrb jnb bf.0,weekset_0 jnb bf.1,dayset_3 jb bf.2,dayset_2 inc daytcu[1] cjbe daytcu[1],#31,dayset_1 mov daytcu[1],#1 goto dayset_1 dayset_3 inc daytcu[0] cjbe daytcu[0],#12,dayset_1 mov daytcu[0],#1 goto dayset_1 ;-------- week set ------------- weekset_0 call swait call uhp mov dspno,#1 call dwdsp weekset_1 call dclr call dhp call weekdsp call swait weekset_2 call inrb jnb bf.0,timeset_0 jb bf.1,weekset_2 inc weekcu cjbe weekcu,#6,weekset_1 clr weekcu goto weekset_1 ;-------- time set ------------- timeset_0 call swait call uhp clrb gie mov lcu2,#16 setb lcrs clr lcu1 st3 mov w,lcu1 ;dsp clock set call dsp2 mov bf,w call lcdsp inc lcu1 djnz lcu2,st3 st4 call tmdspd call swait st4_nd call inrb jnb bf.0,st6 jb bf.1,st5 call ttset goto st4 st5 jb bf.2,st4_nd call mtset goto st4 st6 call swait clr tuff clr ittm setb gie call uhp mov lcu2,#16 setb lcrs clr lcu1 call uclr call dhp call dclr goto cuu1 main cjne tuff,#0,cuupds main_0 call inrb jnb bf.0,ftmset goto main ftmset call swait goto tmset ;----------- 1s up ---------------- cuupds cjbe tuff,#59,main_0 sub tuff,#60 inc tmdt[1] cjne tmdt[1],#60,cuu1 clr tmdt[1] inc tmdt[0] cjae tmdt[0],#24,dateup cuu1 call uclr call uhp call dspdait mov bf,#20h call lcdsp call weekdsp mov bf,#20h call lcdsp call tmdsp2 goto main dateup clr tmdt[0] inc weekcu cjbe weekcu,#6,dateup_1 clr weekcu dateup_1 inc daytcu[1] cje daytcu[0],#2,dateup_2 cjbe daytcu[1],#30,cuu1 cje daytcu[1],#32,monup cje daytcu[0],#4,monup cje daytcu[0],#6,monup cje daytcu[0],#9,monup cje daytcu[0],#11,monup goto cuu1 dateup_2 cjbe daytcu[1],#28,cuu1 monup mov daytcu[1],#1 inc daytcu[0] cjne daytcu[0],#13,cuu1 mov daytcu[0],#1 goto cuu1 ;------------ sub ----------------- dspdait mov bf,daytcu[0] call dm24 call dspbf mov bf,#'/' call lcdsp mov bf,daytcu[1] call dm60 call dspbf ret ; ｓｅｔ時間表示 tmdsp call uclr call uhp goto tmdsp2 tmdspd call dclr call dhp tmdsp2 mov bf,tmdt[0] call dm24 call dspbf mov bf,#':' call lcdsp mov bf,tmdt[1] call dm60 call dspbf ret dspbf setb lcrs swap bf mov ra,#3 call env mov ra,bf call env swap bf mov ra,#3 call env mov ra,bf call env ret ttset inc tmdt[0] cjae tmdt[0],#24,ttset1 ret ttset1 clr tmdt[0] ret mtset inc tmdt[1] cjae tmdt[1],#60,mtset1 ret mtset1 clr tmdt[1] ret

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

FJCニュ－ス8月号 3/4

投稿者：山原投稿日：2008年 7月30日(水)16時50分44秒

uhp mov ra,#8 ;cler & hp clrb lcrs call env mov ra,#0 call env ret dhp clrb lcrs ;cld 2nd home mov ra,#0ch call env mov ra,#0 call env ret dclr call dhp goto uclr0 uclr call uhp uclr0 mov lcu2,#16 setb lcrs clr lcu1 uclr1 mov w,lcu1 ;dsp spase call dsp5 mov bf,w call lcdsp inc lcu1 djnz lcu2,uclr1 ret weekdsp mov lcu2,#3 setb lcrs clr lcu1 weekdsp1 cje weekcu,#0,wekdsp0 cje weekcu,#1,wekdsp1 cje weekcu,#2,wekdsp2 cje weekcu,#3,wekdsp3 cje weekcu,#4,wekdsp4 cje weekcu,#5,wekdsp5 mov w,lcu1 call dsp16 ;sat mov bf,w goto weekdsp3 wekdsp0 mov w,lcu1 ;sun call dsp10 mov bf,w goto weekdsp3 wekdsp1 mov w,lcu1 ;mon call dsp11 mov bf,w goto weekdsp3 wekdsp2 mov w,lcu1 ;tue call dsp12 mov bf,w goto weekdsp3 wekdsp3 mov w,lcu1 ;wed call dsp13 mov bf,w goto weekdsp3 wekdsp4 mov w,lcu1 ;thu call dsp14 mov bf,w goto weekdsp3 wekdsp5 mov w,lcu1 ;fri call dsp15 mov bf,w weekdsp3 call lcdsp inc lcu1 djnz lcu2,weekdsp1 ret dwdsp call uhp mov lcu2,#16 setb lcrs clr lcu1 dwdsp1 cje dspno,#0,dwdsp2 mov w,lcu1 call dsp8 ;week dsp mov bf,w goto dwdsp3 dwdsp2 mov w,lcu1 ;day open call dsp7 mov bf,w dwdsp3 call lcdsp inc lcu1 djnz lcu2,dwdsp1 ret lcdsp mov lcu3,bf and lcu3,#0f0h swap lcu3 mov ra,lcu3 call env and bf,#0fh mov ra,bf call env ret dm24 cja bf,#19,dm24_2 cja bf,#9,dm24_1 ret dm24_1 sub bf,#10 or bf,#10h ret dm24_2 sub bf,#20 or bf,#20h ret dm60 cja bf,#49,dm60_5 cja bf,#39,dm60_4 cja bf,#29,dm60_3 goto dm24 dm60_3 sub bf,#30 or bf,#30h ret dm60_4 sub bf,#40 or bf,#40h ret dm60_5 sub bf,#50 or bf,#50h ret

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

以上は、新着順11番目から20番目までの記事です。

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

投稿募集！　スレッド一覧

fjcﾆｭ-ｽ2月号

fjcﾆｭ-ｽ1月号

FJCニュ－ス12月号

fjcﾆｭ-ｽ11月号 1/2

fjcﾆｭ-ｽ11月号 2/2

fjcﾆｭ-ｽ10月号

fjcﾆｭ-ｽ9月号

fjcﾆｭ-ｽ8月号 1/4

fjcﾆｭ-ｽ8月号 2/4

FJCニュ－ス8月号 3/4

teacup.AUTO BBS Lv2-Free

投稿募集！ スレッド一覧

投稿募集！　スレッド一覧