JG1FJCの部屋

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

fjcﾆｭ-ｽ11月号 2/2

投稿者：山原投稿日：2006年11月 1日(水)16時08分36秒

/* 時計ＬＣＤ表示 */ 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/

ＦＪＣニュ－ス 10月号

投稿者：山原投稿日：2006年10月 5日(木)15時55分28秒

ＦＪＣニュ－ス 10月号今月号は H8/3664 のＣプログラムリンカーのＳＵＢファイルのご紹介をいたします。 H8/3664 を使ってまだ1カ月なので不都合の所もあるとおもいますがお許しいただき、ご指摘いただければ幸いです。 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/

ＦＪＣニュ－ス 9月号

投稿者：山原投稿日：2006年 8月30日(水)10時12分56秒

ＦＪＣニュ－ス 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/

データー

投稿者：ＪＬ１ＨＡＣみーこ投稿日：2006年 8月24日(木)14時11分1秒

初めて書きこみますすごいデーターの量ですね　びっくりしていますわたしには、さっぱりチンプンカンプンですが・・・これからも頑張ってくださいね

http://plaza.rakuten.co.jp/hachijikatasaizo/

fjcﾆｭ-ｽ8月号 -1

投稿者：山原投稿日：2006年 8月 2日(水)10時50分30秒

; ＬＣＤカレンダー時計 include 16f84.h .osc xt ;2MHZ .wdt off ; ; ピンアサイン：（電源・クリスタル・コントラスト調整ＶＲ等の配線は省略） ; ; ＰＩＣ１６Ｆ８４液晶モジュール ; ()内はピン番号 ; RA3(2) ＝ DB7 ; RA2(1) ＝ DB6 ; RA1(18) ＝ DB5 ; RA0(17) = DB4 ; GND(0V) ＝ R/~W ; rb7(13) ＝ RS ; rb6(12) ＝ EN(ENABLE) ; 時計セット ; 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 ;36は時間微調整デ－タ遅れや進みがでたら ;この値を調整大きくすると早く小さいと遅くなります 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 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 ;-------- 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

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

fjcﾆｭ-ｽ8月号-3

投稿者：山原投稿日：2006年 8月 2日(水)10時48分42秒

;--------- 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 ;-------- 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 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

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

fjcﾆｭ-ｽ8月号 -3

投稿者：山原投稿日：2006年 8月 2日(水)10時47分25秒

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 env mov cu0,#5 call wait_us setb lce nop clrb lce mov cu0,#40 call wait_us ret swait call inrb and bf,#3 cjne bf,#3,swait mov cu0,#50 call wait_ms call inrb and bf,#3 cjne bf,#3,swait ret wait_ms mov cu1,#0 wait_ms1 nop nop nop nop djnz cu1,wait_ms1 djnz cu0,wait_ms ret wait_us djnz cu0,wait_us ret inra mov bf,ra nop nop nop cjne bf,ra,inra ret inrb mov bf,rb nop nop nop nop cjne bf,rb,inrb ret ;------------ LCD init -------------- lcd_init clrb lcrs mov ra,#3 call env mov cu0,#5 call wait_ms mov ra,#3 call env mov cu0,#100 call wait_us mov ra,#3 call env mov ra,#2 call env mov ra,#2 call env mov ra,#8 call env mov ra,#0 ;dsp off call env mov ra,#8 call env mov ra,#0 ;dsp clr call env mov ra,#1 call env mov cu0,#2 call wait_ms mov ra,#0 ;ent call env mov ra,#6 call env mov ra,#0 ;dsp on call env mov ra,#0eh call env ret

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

ＦＪＣニュ－ス７月号 1/２

投稿者：山原投稿日：2006年 6月30日(金)18時30分24秒

ＦＪＣニュ－ス7月号 TV用リモコンのコ－ドを読み込むソフトのMPASM版での紹介です。ＰＡマクロバスタ－を使用してＭＰＡＳＭ用に秋月ＰＡ用から変換しています。赤外線受光ユニットで受信したコ－ドをＲＳ２３２Ｃで出力するソフトです。赤外線受光ユニットはソニ－ＢＸ－１４０１ f0=38KHz を使用しました。ＴＶリモコンのコ－ドが解析できれば PICマイコンや他のマイコンボ－ドでＴＶリモコンを自作機器の入力装置として応用出来ます。 *信号フォ－マットの違いにより読み取れない機種もあります。Ｚ８０用に変更すれば応用範囲もさらに広がります｡ ; TVリモコン　コード　受信 MPASM用 ; PAﾏｸﾛﾊﾞｽﾀｰ使用で秋月ＰＡよりＭＰＡＳＭに変換 LIST p=16F84A #include "P16F84A.INC" __CONFIG _CP_OFF & _WDT_OFF & _XT_OSC __IDLOCS H'0204' ;3.58MHZ ; ; ・-----------------------------------------------------・ ; ・⑱ ⑰ ⑯ ⑮ ⑭ ⑬ ⑫ ⑪ ⑩ ・ ; ・ra1 ra0 osc1 osc2 vdd rb7 rb6 rb5 rb4 ・ ; ・　　　　　　ＰＩＣ１６Ｆ８４・ ; ・ra2 ra3 ra4/to mclr vss rb0/int rb1 rb2 rb3 ・ ; ・① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ・ ; ・-----------------------------------------------------・ btime equ 28 ; 9600bps @3.58MHz btimer equ 128 ; 0.7ms txd equ 7 ;rb.7 rxld equ 0 ;rb.0 org 0ch ch equ 12 ; 送信受信データ（８ビット） rs equ 13 ; ウェイト時間調整用 cn equ 14 ; ビット数 stc equ 15 cu1 equ 16 cu2 equ 17 bf equ 18 wk0 equ 19 ;int push w wk1 equ 20 ; status wk2 equ 21 ; FSR dt_0 equ 22 dt_1 equ 23 dt_2 equ 24 dt_3 equ 25 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 ; init end pop FSR status w btfsc wk1,1 ;bank 0 ? bsf STATUS,RP0 ;no bank 1 movf wk2,0 ;pop FSR movwf FSR swapf wk1,0 ;pop status movwf STATUS swapf wk0,0 ;pop w retfie start ;-------------- timer-------------- clrf cu1 clrf cu2 movlw 2 movwf bf start1 nop decfsz cu1,1 goto start1 decfsz cu2,1 goto start1 decfsz bf,1 goto start1 movlw 11111b ; RA in set tris PORTA movlw 01111111b ; rb set tris PORTB bsf PORTB,txd endless call lerv movf dt_0,0 ; ｺｰﾄﾞ　dt[0],dt[1] movwf ch call transmit movf dt_1,0 movwf ch call transmit call tm7 movf dt_2,0 ; data dt[2],dt[3] movwf ch call transmit movf dt_3,0 movwf ch call transmit call tm7 movlw 0 movwf ch call transmit goto endless ; ; ＲＳ２３２Ｃ送信サブルーチン ; transmit bcf PORTB,txd movlw btime movwf rs trans10 decfsz rs,1 goto trans10 movlw 8 movwf cn nop transmit0 rrf ch nop btfss STATUS,C ; データ出力（ＬＳＢから） bcf PORTB,txd btfsc STATUS,C bsf PORTB,txd movlw btime movwf rs trans11 decfsz rs,1 goto trans11 decfsz cn,1 goto transmit0 nop nop nop nop nop nop bsf PORTB,txd movlw btimer movwf rs trans12 decfsz rs,1 ; ＳＴＯＰビット分ウェイト goto trans12 return

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

ＦＪＣニュ－ス 7月号 2/2

投稿者：山原投稿日：2006年 6月30日(金)18時29分10秒

; ; 光リモコン受信サブルーチン ; lerv btfsc PORTB,rxld goto lerv ; STARTビットがくるまで待つ movlw 224 ;5ms movwf cu1 lerv0 btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv btfsc PORTB,rxld goto lerv decfsz cu1,1 goto lerv0 lerv1 btfss PORTB,rxld goto lerv1 movlw 112 ;2.5ms movwf cu1 lerv11 btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv btfss PORTB,rxld goto lerv decfsz cu1,1 goto lerv11 lerv2 btfsc PORTB,rxld goto lerv2 lerv3 btfss PORTB,rxld goto lerv3 movlw 8 movwf cn call ledt movlw 0ffh subwf ch,0 btfsc 3,2 goto lerv5 movf ch,0 movwf dt_0 movlw 8 movwf cn call ledt movf ch,0 movwf dt_1 movlw 8 movwf cn call ledt movf ch,0 movwf dt_2 movlw 8 movwf cn call ledt movf ch,0 movwf dt_3 lerv4 btfss PORTB,rxld goto lerv4 return lerv5 clrf cu1 clrf cu2 lerv6 nop nop nop nop nop decfsz cu1,1 goto lerv6 decfsz cu2,1 goto lerv6 goto lerv ledt call tm7 btfss PORTB,rxld ; データ入力 bcf STATUS,C btfsc PORTB,rxld bsf STATUS,C rrf ch ledt1 btfsc PORTB,rxld goto ledt3 goto ledt4 ledt3 btfsc PORTB,rxld goto ledt3 ledt4 btfss PORTB,rxld goto ledt4 decfsz cn,1 goto ledt return ; 0.7ms tm7 movlw btimer ;0.7ms wait movwf bf tm71 nop decfsz bf,1 goto tm71 return END

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

FJCニュ－ス6月号 1/2

投稿者：山原投稿日：2006年 5月26日(金)17時25分50秒

FJCニュ－ス6月号今回はシリアルＥＥＲＯＭ２４ＬＣ６４の読み書きＳＵＢル－チンMPASM版の紹介です。各種マイコンのバックアップ電池なしで大量デ－タ保存に応用できます。私のホ－ムペ－ジで紹介中の多機能時計（16f84A使用）で、スケジュ－ル、記念日の表示のデ－タ－を記憶させています。ＲＳ２３２Ｃを使用して入力しています。 ; 24LC65 SUB LIST p=16F84A #include "P16F84A.INC" __CONFIG _CP_OFF & _WDT_OFF & _XT_OSC __IDLOCS H'0101' ; txd1 3.58MHZ ; ┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ; ┃ ⑱ ⑰ ⑯ ⑮ ⑭ ⑬ ⑫ ⑪ ⑩ ┃ ; ┃ra1 ra0 osc1 osc2 vdd rb7 rb6 rb5 rb4 ┃ ; ┃　　　　　　ＰＩＣ１６Ｆ８４ ┃ ; ┃ra2 ra3 ra4/to mclr vss rb0/int rb1 rb2 rb3 ┃ ; ┃ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ┃ ; ┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛ ; sdtin sclok sdtout sdti equ 1 ;24lc65 data input scl equ 2 ; clock sdto equ 3 ; data output ddc_h equ 12 ;writ start addres H ddc set ddc_l equ 13 ;writ start addres L ddc set bf equ 14 rabf equ 15 cu0 equ 16 cu1 equ 17 cu2 equ 18 cu3 equ 19 a_bf equ 20 wait_cn equ 21 dtbf_0 equ 32 ;書き込みデータバッファ dtbf_1 equ 33 dtbf_2 equ 34 dtbf_3 equ 35 dtbf_4 equ 36 dtbf_5 equ 37 dtbf_6 equ 38 dtbf_7 equ 39 dtbf_8 equ 40 dtbf_9 equ 41 dtbf_10 equ 42 dtbf_11 equ 43 dtbf_12 equ 44 dtbf_13 equ 45 dtbf_14 equ 46 dtbf_15 equ 47 ; int wark org 3dh wk0 equ 61 wk1 equ 62 wk2 equ 63 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 ; init end pop FSR STATUS w btfsc wk1,1 ;bank 0 ? bsf STATUS,RP0 ;no bank 1 movf wk2,0 ;pop FSR movwf FSR swapf wk1,0 ;pop STATUS movwf STATUS swapf wk0,0 ;pop w retfie start ;-------------- SW ON timer-------------- clrf cu1 clrf cu2 movlw 5 movwf cu3 st1 decfsz cu1,1 goto st1 decfsz cu2,1 goto st1 decfsz cu3,1 goto st1 ;-------------- I/O set ------------ movlw 10000b ; ra set tris PORTA movlw 00010010b ; rb set tris PORTB clrf PORTA clrf PORTA st2 goto st2 ;------------ sub ----------------- clr_GIE bcf INTCON,GIE btfsc INTCON,GIE goto clr_GIE return wait_ms movlw 10 ;cu0=5 5ms movwf cu0 wait_ms0 movlw 0 movwf cu1 wait_ms1 nop nop decfsz cu1,1 goto wait_ms1 decfsz cu0,1 goto wait_ms0 return wait_us movlw 50 ;cu0=50 50us movwf cu0 wait_us0 decfsz cu0,1 goto wait_us0 return wait_usf nop return ;---------- 24LC65 contsub ---------- sdtl call wait_usf bsf PORTB,sdto return sdth call wait_usf bcf PORTB,sdto return sclh call wait_usf bsf PORTB,scl return sclhm call wait_usf bsf PORTB,scl call wait_usf return scll call wait_usf bcf PORTB,scl return strcnd call sdth call sclh call sdtl call scll call sdth return stpcnd call scll call sdtl call sclh call sdth return rndrd call strcnd ;24lc64 1ward read movlw 0a0h ;page write control movwf a_bf call sd8 movf ddc_h,0 movwf a_bf call sd8 movf ddc_l,0 movwf a_bf call sd8 rndrd1 call strcnd movlw 0a1h movwf a_bf call sd8 call rv8 call scll call sdth call sclh call scll call stpcnd rndrd3 call wait_ms return

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

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

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

投稿募集！　スレッド一覧

fjcﾆｭ-ｽ11月号 2/2

ＦＪＣニュ－ス 10月号

ＦＪＣニュ－ス 9月号

データー

fjcﾆｭ-ｽ8月号 -1

fjcﾆｭ-ｽ8月号-3

fjcﾆｭ-ｽ8月号 -3

ＦＪＣニュ－ス７月号 1/２

ＦＪＣニュ－ス 7月号 2/2

FJCニュ－ス6月号 1/2

teacup.AUTO BBS Lv2-Free

投稿募集！ スレッド一覧

投稿募集！　スレッド一覧