JG1FJCの部屋

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

fjcﾆｭ-ｽ6月号 2/2

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

; ＲＯＭの2FHから３ＦＨに書き込みﾃﾞｰﾀｰを16ﾊﾞｲﾄ書き込んでcall ;ddc_hとddc_lに24LC65のアドレスをセット ; ３６バイト書き込みですがメモリーが小さいので16倍とのみ残りは２０Ｈ ;ﾃﾞｰﾀｰをＲＳ２３２Ｃなどで読み込みながら書き込めば36ﾊﾞｲﾄの書き込みもできます。 wr65 movlw 0 ;writ start addres ddc set movwf ddc_l movlw 20h ;36 ﾊﾞｲﾄ書き込み movwf cu1 movlw 20h ;ﾃﾞｰﾀｰﾊﾞｯﾌｧｱﾄﾞﾚｽ movwf cu2 call strcnd movlw 0a0h ;page write control command movwf a_bf call sd8 movf ddc_h,0 ;addres writ H movwf a_bf call sd8 movf ddc_l,0 ;addres writ L movwf a_bf call sd8 loopw movlw 30h ^ 0ffh addwf cu2,0 btfss 3,0 goto loopw1 movlw 20h ;16byte only Write movwf a_bf goto loopw2 loopw1 movf cu2,0 movwf FSR movf 0,0 movwf a_bf loopw2 call sd8 ;mov FSR,cu2 ;movlw 0 ;movwf 0 incf cu2 decfsz cu1,1 goto loopw call stpcnd return ;8 bit reciv 24LC65 rv8 clrf a_bf call scll call sdth call sclh btfsc PORTB,sdti bsf a_bf,7 call scll call sclh btfsc PORTB,sdti bsf a_bf,6 call scll call sclh btfsc PORTB,sdti bsf a_bf,5 call scll call sclh btfsc PORTB,sdti bsf a_bf,4 call scll call sclh btfsc PORTB,sdti bsf a_bf,3 call scll call sclh btfsc PORTB,sdti bsf a_bf,2 call scll call sclh btfsc PORTB,sdti bsf a_bf,1 call scll call sclh btfsc PORTB,sdti bsf a_bf,0 return ; 8bit send to 24LC65 sd8 btfss a_bf,7 call sdc0 btfsc a_bf,7 call sdc1 btfss a_bf,6 call sdc0 btfsc a_bf,6 call sdc1 btfss a_bf,5 call sdc0 btfsc a_bf,5 call sdc1 btfss a_bf,4 call sdc0 btfsc a_bf,4 call sdc1 btfss a_bf,3 call sdc0 btfsc a_bf,3 call sdc1 btfss a_bf,2 call sdc0 btfsc a_bf,2 call sdc1 btfss a_bf,1 call sdc0 btfsc a_bf,1 call sdc1 btfss a_bf,0 call sdc0 btfsc a_bf,0 call sdc1 movlw 50 movwf wait_cn ack btfss PORTB,sdti goto acke decfsz wait_cn,1 goto ack acke call wait_usf call sclh call scll return sdc1 call scll call sdth call sclh call scll return sdc0 call scl call sdtl call sclh call scll call sdth return END

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

FJCニュ－ス2006年5月号

投稿者：山原投稿日：2006年 4月30日(日)16時56分2秒

FJCニュ－ス2006年5月号今月は 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/

ＦＪＣﾆｭ-ｽ4月号 4/4

投稿者：山原投稿日：2006年 3月31日(金)07時47分9秒

cuntdsp call clr_gie cjne tmdt[0],#0,ttc0 cjne tmdt[1],#0,ttc0 cjne tmdt[2],#0,ttc0 cje tmdt[3],#0,dd0 ttc0 mov xx[0],tmdt[3] mov xx[1],tmdt[2] mov yy[0],#56h ;5d mov yy[1],#9h ;7 call mul_xy ;data*1885*1.23 75dh*1.268=956h mov dd[3],zz[3] mov dd[2],zz[2] mov dd[1],zz[1] mov dd[0],zz[0] mov xx[0],tmdt[1] clr xx[1] mov yy[0],#5dh mov yy[1],#7h call mul_xy ;data*1885 mov yy[0],dd[0] mov yy[1],dd[1] mov yy[2],dd[2] mov yy[3],dd[3] clr xx[0] clr xx[1] mov xx[2],zz[0] mov xx[3],zz[1] call add_xy mov x[0],xx[0] mov x[1],xx[1] mov x[2],xx[2] mov x[3],xx[3] call div_1000 ;/1000 mov tmdt[3],zz[0] mov tmdt[2],zz[1] mov tmdt[1],zz[2] mov tmdt[0],zz[3] dd0 call dtset_1 clr dd[0] clr dd[1] clr dd[2] clr dd[3] clr dd[4] clr dd[5] clr dd[6] clr dd[7] clr dd[8] clr dd[9] mov y[0],#0 ;10,0000,0000 mov y[1],#0cah mov y[2],#9ah mov y[3],#3bh mov crc,x[3] dd1 call sub_xy jnc dd1_1 cja x[3],crc,dd1_1 inc dd[0] call dtset_2 goto dd1 dd1_1 mov y[0],#0 ;1,0000,0000 mov y[1],#0e1h mov y[2],#0f5h mov y[3],#5h mov crc,x[3] dd2 call dtset_1 call sub_xy jnc dd2_1 cja x[3],crc,dd2_1 inc dd[1] call dtset_2 goto dd2 dd2_1 mov y[0],#80h ;1000,0000 mov y[1],#96h mov y[2],#98h mov y[3],#0h dd3 call dtset_1 call sub_xy jnc dd3_1 cje x[3],#0ffh,dd3_1 inc dd[2] call dtset_2 goto dd3 dd3_1 mov y[0],#40h ;100,0000 mov y[1],#42h mov y[2],#0fh mov y[3],#0h dd4 call dtset_1 call sub_xy jnc dd4_1 cje x[3],#0ffh,dd4_1 inc dd[3] call dtset_2 goto dd4 dd4_1 mov y[0],#0a0h ;10,0000 mov y[1],#86h mov y[2],#1h mov y[3],#0h dd5 call dtset_1 call sub_xy jnc dd5_1 cje x[3],#0ffh,dd5_1 inc dd[4] call dtset_2 goto dd5 dd5_1 mov y[0],#10h ;1,0000 mov y[1],#27h mov y[2],#0h mov y[3],#0h dd6 call dtset_1 call sub_xy jnc dd6_1 cje x[3],#0ffh,dd6_1 inc dd[5] call dtset_2 goto dd6 dd6_1 mov y[0],#0e8h ;1000 mov y[1],#3h mov y[2],#0h mov y[3],#0h dd7 call dtset_1 call sub_xy jnc dd7_1 cje x[3],#0ffh,dd7_1 inc dd[6] call dtset_2 goto dd7 dd7_1 mov y[0],#64h ;100 mov y[1],#0 mov y[2],#0 mov y[3],#0 dd8 call dtset_1 call sub_xy jnc dd8_1 cje x[3],#0ffh,dd8_1 inc dd[7] call dtset_2 goto dd8 dd8_1 mov y[0],#0ah ;10 mov y[1],#0h mov y[2],#0h mov y[3],#0h dd9 call dtset_1 call sub_xy jnc dd10 cje x[3],#0ffh,dd10 inc dd[8] call dtset_2 goto dd9 dd10 mov dd[9],tmdt[3] call lcd_top mov rb,#'F' call write_lcd8 mov rb,#'c' call write_lcd8 mov rb,#20h ; ' ' call write_lcd8 call write_lcd8 mov rb,dd[0] or rb,#30h call write_lcd8 mov rb,dd[1] or rb,#30h call write_lcd8 mov rb,dd[2] or rb,#30h call write_lcd8 mov rb,dd[3] or rb,#30h call write_lcd8 mov rb,dd[4] or rb,#30h call write_lcd8 mov rb,dd[5] or rb,#30h call write_lcd8 mov rb,dd[6] or rb,#30h call write_lcd8 mov rb,dd[7] or rb,#30h call write_lcd8 mov rb,dd[8] or rb,#30h call write_lcd8 mov rb,dd[9] or rb,#30h call write_lcd8 mov rb,#'H' call write_lcd8 mov rb,#'z' call write_lcd8 clrb RS ret

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

ＦＪＣﾆｭ-ｽ4月号 3/4

投稿者：山原投稿日：2006年 3月31日(金)07時45分48秒

; ; μｓオーダーのウェイト ; wait_us wait_us0 djnz wait_cn,wait_us0 ret div_1000 mov y[3],#3 mov y[2],#0e8h clr y[0] clr y[1] clr zz[0] clr zz[1] clr zz[2] clr zz[3] div_1001 mov dd[0],x[0] mov dd[1],x[1] mov dd[2],x[2] mov dd[3],x[3] call sub_xy jc div_1003 div_1002 mov x[0],dd[0] mov x[1],dd[1] mov x[2],dd[2] mov x[3],dd[3] goto div_1004 div_1003 cja x[3],dd[3],div_1002 add zz[2],#1 movlw 1 btfsc c addwf zz[3],1 goto div_1001 wait_ms wait_ms0 mov wait_cn2,#0 wait_ms1 nop nop nop nop nop nop nop djnz wait_cn2,wait_ms1 djnz wait_cn,wait_ms0 ret div_1004 mov y[2],#3 mov y[1],#0e8h clr y[0] clr y[3] div_1005 mov dd[0],x[0] mov dd[1],x[1] mov dd[2],x[2] mov dd[3],x[3] call sub_xy jc div_1007 div_1006 mov x[0],dd[0] mov x[1],dd[1] mov x[2],dd[2] mov x[3],dd[3] goto div_1008 div_1007 cja x[3],dd[3],div_1006 add zz[1],#1 movlw 1 btfsc c addwf zz[2],1 btfsc c addwf zz[3],1 goto div_1005 div_1008 mov y[1],#3 mov y[0],#0e8h clr y[2] clr y[3] div_1009 mov dd[0],x[0] mov dd[1],x[1] mov dd[2],x[2] mov dd[3],x[3] call sub_xy jc div_1011 div_1010 mov x[0],dd[0] mov x[1],dd[1] mov x[2],dd[2] mov x[3],dd[3] ret div_1011 cja x[3],dd[3],div_1010 add zz[0],#1 movlw 1 btfsc c addwf zz[1],1 btfsc c addwf zz[2],1 btfsc c addwf zz[3] goto div_1009 sub_xy sub x[0],y[0] movlw 1 btfss c subwf x[1],1 btfss c subwf x[2],1 btfss c subwf x[3],1 sub x[1],y[1] movlw 1 btfss c subwf x[2],1 btfss c subwf x[3],1 sub x[2],y[2] movlw 1 btfss c subwf x[3],1 sub x[3],y[3] ret div_32 mov xx[4],#0 cjne yy[1],#0,div_320 cjne yy[0],#0,div_320 clr xx[3] clr xx[2] clr xx[1] clr xx[0] ret div_320 mov cn,#10h div_321 setb c rl xx[0] rl xx[1] rl xx[2] rl xx[3] rl xx[4] sub xx[2],yy[0] movlw 1 btfss c subwf xx[3],1 btfss c subwf xx[4],1 sub xx[3],yy[1] movlw 1 btfss c subwf xx[4],1 jc div_322 div_3211 add xx[2],yy[0] movlw 1 btfsc c addwf xx[3],1 btfsc c addwf xx[4],1 add xx[3],yy[1] movlw 1 btfsc c addwf xx[4],1 clrb xx[0].0 div_322 cje xx[4],#0ffh,div_3211 djnz cn,div_321 ret mul_xy mov zz[0],xx[0] mov zz[1],xx[1] clr zz[2] clr zz[3] mov cn,#16 mul_xy0 btfss zz[0].0 goto mul_xy9 bcf zz[0].0 add zz[2],yy[0] movlw 1 btfsc c addwf zz[3],1 btfsc c addwf zz[0],1 add zz[3],yy[1] movlw 1 btfsc c addwf zz[0],1 mul_xy9: movb c,zz[0].0 rr zz[3] rr zz[2] rr zz[1] rr zz[0] djnz cn,mul_xy0 ret add_xy add xx[0],yy[0] movlw 1 btfsc c addwf xx[1],1 btfsc c addwf xx[2],1 btfsc c addwf xx[3],1 add xx[1],yy[1] movlw 1 btfsc c addwf xx[2],1 btfsc c addwf xx[3],1 add xx[2],yy[2] movlw 1 btfsc c addwf xx[3],1 add xx[3],yy[3] ret ;--------------------------------- dsm mov x[1],x[0] and x[1],#0fh call dsms mov x[2],x[3] mov x[1],x[0] and x[1],#0f0h rr x[1] rr x[1] rr x[1] rr x[1] call dsms mov x[1],x[3] ret dsms cjae x[1],#10,dsms1 mov x[3],x[1] or x[3],#30h ret dsms1 mov x[3],x[1] add x[3],#37h ret

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

ＦＪＣﾆｭ-ｽ4月号 2/4

投稿者：山原投稿日：2006年 3月31日(金)07時44分17秒

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 call clr_gie clrb t0if add tmdt[2],#1 movlw 1 btfsc c addwf tmdt[1] btfsc c addwf tmdt[0] setb gie ; init end pop fsr status w 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 start clr dd[0] clr dd[1] mov dd[2],2 start1 nop nop djnz dd[0],start1 djnz dd[1],start1 djnz dd[2],start1 mov tris_rb,#00000000b ;tris_b buffa setb rp0 mov rb,#0 ; DB7-DB0ピンをOUTに All 0 mov ra,#10010b ; E,RS,test_out ピンをOUTに,rxd in mov option,#10111000b ;デバック時Ｒｂプルアップしない（ＲＳ２３２ＣＯＵＴとぶつかるため） clrb rp0 clr ra clr rb call init_lcd ; ＬＣＤ初期化 mov intcon,#10100000b main0 clr tmdt[0] clr tmdt[1] clr tmdt[2] clr tmdt[3] clr tmr0 main setb gie ; 周波数カウント call tm1s call tm1s mov tmdt[3],tmr0 ;-----dbug------ ;mov dbd,tmdt[2] ;tmdt[2]の値をＲＯＭライターに出力 ;call dbug ;--------------- call cuntdsp goto main0 tm1s mov cu3,#2 mov cu2,#0 mov cu1,#0 tm1s_l nop djnz cu1,tm1s_l xor ra,#1 ;ra0 test out 1.22KHz djnz cu2,tm1s_l djnz cu3,tm1s_l ret clr_gie clrb gie jb gie,clr_gie ret dtset_1 mov x[3],tmdt[0] mov x[2],tmdt[1] mov x[1],tmdt[2] mov x[0],tmdt[3] ret dtset_2 mov tmdt[0],x[3] mov tmdt[1],x[2] mov tmdt[2],x[1] mov tmdt[3],x[0] ret ; ; 液晶初期化ルーチン ; init_lcd mov wait_cn,#15 ; wait 15ms call wait_ms clrb RS ; RS='L' mov rb,#00110000b call write_lcd8 mov wait_cn,#5 ; wait 4.1ms call wait_ms mov rb,#00110000b call write_lcd8 mov wait_cn,#100 ; wait 100us call wait_us mov rb,#00110000b call write_lcd8 ; 0 0 0011 (3) mov rb,#00111000b call write_lcd8 ; 0 0 0010 (8bit) ; mov rb,#00001000b ; duty,font set9 call write_lcd8 mov rb,#00000001b ; クリアコマンド call write_lcd8 mov wait_cn,#2 ; クリアが終わるまで待つ call wait_ms mov rb,#00000110b ; entry mode set call write_lcd8 mov rb,#00001110b ; display on,cursor on call write_lcd8 ret ; ; ８ビットモード専用液晶ライトルーチン ; write_lcd8 nop nop nop setb EN ; Ｅピンを'H' nop clrb EN mov wait_cn,#40 call wait_us ret ;----------- LCD clr cursol top --------- lcd_top clrb RS mov rb,#00000001b ; クリアコマンド call write_lcd8 mov wait_cn,#2 ; クリアが終わるまで待つ call wait_ms mov rb,#10000000b call write_lcd8 ; カーソルを１行目に移動 setb RS ret ;

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

ＦＪＣニュ－ス4月号 1/4

投稿者：山原投稿日：2006年 3月31日(金)07時42分18秒

ＦＪＣニュ－ス4月号 16F84を使用した周波数ｶｳﾝﾀ-の紹介です。Ｔ０ＣＫ１を入力に、ＴＭＲ０割込みでオバ－フロウカウント。表示には２桁１６行液晶表示器を使用定時間ＴＯＣＫ１に入ったパルス数を数え１Ｓ分に変換し１０進数変換、アスキー変換してＬＣＤ表示します。約１．２２ＫＨｚのテスト出力ピン付き。 ; ＰＩＣ１６Ｆ８４／１６文字×２行対応 ; カウンター液晶表示プログラム ; 液晶Ｍ１６３２，Ｍ１６７２，ＳＣ１６０２Ｂ等 ; クロック 10MHz ; ; ; ピンアサイン：（電源・クリスタル・コントラスト調整ＶＲ等の配線は省略） ; ; ＰＩＣ１６Ｆ８４液晶モジュール ; ()内はピン番号 ; RA3(2) ＝ EN(ENABLE) ; RA2(1) ＝ RS ; RA0(17) = cunter test 1.22KHz ; GND(0V) ＝ R/~W ; rb7(13) ＝ DB7 ; rb6(12) ＝ DB6 ; rb5(11) ＝ DB5 ; rb4(10) ＝ DB4 ; rb3(19) ＝ DB3 ; rb2(9) ＝ DB2 ; rb1(7) ＝ DB1 ; rb0(6) ＝ DB0 ; ra4(3) ＝ t0ck カウンター入力 include 16f84.h ; ここでは１６Ｆ８４を選択 .osc hs ; オシレータＸＴ .wdt off ; ウォッチドッグＯＦＦ .pwrt on ; パワーアップタイマＯＮ .protect off ; プロテクトＯＦＦ id 0205h eeorg 0 eedata 'Yamahara' ;include rd84_ak.asm ;デバック時使う ;rom writer debug ; ＬＣＤ制御 EN equ ra.3 RS equ ra.2 ;------------------------------ ;dbugファイルなし cn equ 0eh ;dbug 時";"で削除 wait_cn2 ds 12h ;rd84_ak.asmにかいてあるのでダブり wait_cn ds 11h tris_rb ds 10h ;------------------------------ org 15h x ds 4 y ds 4 cu1 ds 1 cu2 ds 1 cu3 ds 1 dd ds 10 yy ds 4 ; xx ds 5 ; zz ds 4 ; 演算結果(4bytes) crc ds 1 tmdt ds 4 wk0 ds 1 wk1 ds 1 wk2 ds 1

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

fjcﾆｭ-ｽ3月号 1/2

投稿者：山原投稿日：2006年 2月28日(火)15時06分43秒

FJCニュース2006年3月号 16F84のＰＯＲＴＢを入力ポートとして８ビットのロジックを監視して、ＲＳ２３２Ｃよりデーターを受信して液表表示します。ＲＳ２３２Ｃポ－トはＭＡＸ２３２などの２３２Ｃドライバは不要です。直にＲＸ，ＴＸを接続できます。＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ ; ロジックチエッカー用 ; ＰＩＣ１６Ｆ８４／１６文字×２行対応 ; キャラクタ液晶表示プログラム; ; 2001年12月16日山原 ; 使用環境 ; ＰＩＣ PIC16F84-10/P（それ以外にも応用可能） ; 液晶Ｍ１６３２，Ｍ１６７２，ＳＣ１６０２Ｂ等 ; クロック 10.0MHz ; ; ; ピンアサイン：（電源・クリスタル・コントラスト調整ＶＲ等の配線は省略） ; ; ＰＩＣ１６Ｆ８４液晶モジュール ; ()内はピン番号 ; RA3(2) ＝ E(ENABLE) ; RA2(1) ＝ RS ; ra017) = txd ; ra1(18) = rxd ; GND(0V) ＝ R/~W ; rb7(13) ＝ DB7 ; rb6(12) ＝ DB6 ; rb5(11) ＝ DB5 ; rb4(10) ＝ DB4 ; rb3(19) ＝ DB3 ; rb2(9) ＝ DB2 ; rb1(7) ＝ DB1 ; rb0(6) ＝ DB0 ; ; ◆ＰＩＣ１６Ｆ８４用にコーディングしてありますが、 ; 一部改造すればそれ以外のデバイスでも使用可能です。 ; ◆２０文字や４行の液晶にも応用できます。 ; ◆クロックは10MHzを想定してあります。それ以外のクロックでは ; ウェイト数を多少変更してください。 ; include 16f84.h ; ここでは１６Ｆ８４を選択 .osc hs ; オシレータＸＴ .wdt off ; ウォッチドッグＯＦＦ .pwrt on ; パワーアップタイマＯＮ .protect off ; プロテクトＯＦＦ id 9910h eeorg 0 eedata 'Yamahara' ;btime equ 33 ; 9600bps @4.19MHz btime equ 83 ; 9600bps @10MHz txd equ ra.0 ;rs232c ch1 rxd equ ra.1 txdd equ rb.7 ;dbug rs232c ch2 rxdd equ rb.6 E equ ra.3 RS equ ra.2 org 0ch ch ds 1 ; 送信受信データ（８ビット） rs ds 1 ; ウェイト時間調整用 cn ds 1 ; ビット数 wait_cn ds 1 wait_cn2 ds 1 rxdt ds 1 dd ds 4

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

fjcﾆｭ-ｽ3月号 2/2

投稿者：山原投稿日：2006年 2月28日(火)15時05分14秒

org 0 goto start org 4 retfie start clr dd[0] clr dd[1] mov dd[2],#3 start1 nop nop djnz dd[0],start1 djnz dd[1],start1 djnz dd[2],start1 mov !ra,#00010b ; txd,E,RSピンをOUTに,rxd in mov !rb,#00000000b ; DB7-DB0ピンをOUTに clr ra clr rb clrb gie setb txd call init_lcd ; ＬＣＤ初期化 main mov ch,#'T' ;ﾛｼﾞｯｸﾃﾞｰﾀ送信要求 call transmit call receive mov rxdt,ch dsp_11 clrb RS mov rb,#10000000b+64 call write_lcd8 ; カーソルを２行目に移動 setb RS mov cn,#31h dsp_2 mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#2 call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#4 call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#8 call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#10h call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#20h call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#40h call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#80h call onoff mov rb,cn call write_lcd8 inc cn mov ch,rxdt and ch,#1 call onoff goto main ;---------- sub ------------------ onoff cje ch,#0,offd mov rb,#'H' onoff1 call write_lcd8 ret offd mov rb,#'L' goto onoff1 ; ; 液晶初期化ルーチン ; init_lcd mov wait_cn,#15 ; wait 15ms call wait_ms clrb RS ; RS='L' mov rb,#00110000b call write_lcd8 mov wait_cn,#5 ; wait 4.1ms call wait_ms mov rb,#00110000b call write_lcd8 mov wait_cn,#100 ; wait 100us call wait_us mov rb,#00110000b call write_lcd8 ; 0 0 0011 (3) mov rb,#00111000b call write_lcd8 ; 0 0 0010 (8bit) ; mov rb,#00001000b ; duty,font set9 call write_lcd8 mov rb,#00000001b ; クリアコマンド call write_lcd8 mov wait_cn,#2 ; クリアが終わるまで待つ call wait_ms mov rb,#00000110b ; entry mode set call write_lcd8 mov rb,#00001110b ; display on,cursor on call write_lcd8 ret ; ; ８ビットモード専用液晶ライトルーチン ; write_lcd8 nop nop nop setb E ; Ｅピンを'H' nop clrb E mov wait_cn,#40 call wait_us ret ;----------- LCD clr cursol top --------- lcd_top clrb RS mov rb,#00000001b ; クリアコマンド call write_lcd8 mov wait_cn,#2 ; クリアが終わるまで待つ call wait_ms mov rb,#10000000b call write_lcd8 ; カーソルを１行目に移動 setb RS ret ; ; ; ｍｓオーダーのウェイト ; wait_ms wait_ms0 mov wait_cn2,#0 wait_ms1 nop nop nop nop nop nop nop djnz wait_cn2,wait_ms1 djnz wait_cn,wait_ms0 ret ; ; μｓオーダーのウェイト ; wait_us wait_us0 djnz wait_cn,wait_us0 ret ; ＲＳ２３２Ｃ送信サブルーチン ; transmit bcf txd mov rs,#btime trans10 djnz rs,trans10 mov cn,#8 nop transmit0 rr ch nop movb txd,c ; データ出力（ＬＳＢから） mov rs,#btime trans11 djnz rs,trans11 djnz cn,transmit0 nop nop nop nop nop nop bsf txd mov rs,#btime trans12 djnz rs,trans12 ; ＳＴＯＰビット分ウェイト ret ; ; ＲＳ２３２Ｃ受信サブルーチン ; receive btfss rxd goto receive receivew btfsc rxd goto receivew ; STARTビットがくるまで待つ mov rs,#btime/2 ; 1/2ビット分待つ recv10 djnz rs,recv10 mov cn,#8 nop recv0 mov rs,#btime recv11 djnz rs,recv11 nop movb c,rxd ; データ入力 rr ch djnz cn,recv0 ret

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

FJCニュース2006年2月号

投稿者：山原投稿日：2006年 2月 1日(水)12時41分20秒

FJCニュース2006年2月号ＰＯＲＴＢを入力ポートとして８ビットのロジックを監視して、ＲＳ２３２Ｃよりデーターを出力します。ＲＳ２３２Ｃポ－トはＭＡＸ２３２などを使用してください。 2月号で１６Ｆ８４でＨ，Ｌの表示プログラムを紹介します。パソコンまたはＰＩＣマイコンなどで受信して各ビットのＯＮ，ＯＦＦの表示をしてください。 ; ＲＳ２３２Ｃロジックチエッカープログラム ; For PIC16F84 ; ; ; btime = ｛（動作周波数(Hz) ÷ 転送スピード(bps) ÷４）－１０｝÷３ ; include 16f84.h .osc hs ;10MHz .wdt off .pwrt off .protect off btime equ 83 ; 9600bps @7.9MHz txd equ ra.0 rxd equ ra.1 org 0ch ch ds 1 ; 送信受信データ（８ビット） rs ds 1 ; ウェイト時間調整用 cn ds 1 ; ビット数 cu1 ds 1 cu2 ds 1 cu3 ds 1 rbbf ds 1 org 0 goto start org 4 retfie start clr cu1 clr cu2 mov cu3,#3 start1 nop djnz cu1,start1 djnz cu2,start1 djnz cu3,start1 mov !ra,#11110b ; RA.0を出力ポートへ ; RA.1を入力ポートへ mov !rb,#11111111b ; rb all in clr ra setb txd main call receive cjne ch,#'T',main ;表示側送信要求待ち call inrb ;rb読み込み mov ch,rbbf call transmit goto main inrb mov rbbf,rb nop nop cjne rb,rbbf,inrb ret ; ; ＲＳ２３２Ｃ送信サブルーチン ; transmit bcf txd mov rs,#btime trans10 djnz rs,trans10 mov cn,#8 nop transmit0 rr ch nop movb txd,c ; データ出力（ＬＳＢから） mov rs,#btime trans11 djnz rs,trans11 djnz cn,transmit0 nop nop nop nop nop nop bsf txd mov rs,#btime trans12 djnz rs,trans12 ; ＳＴＯＰビット分ウェイト setb gie mov cu1,#40 trans13 nop djnz cu1,trans13 ret ; ; ＲＳ２３２Ｃ受信サブルーチン ; receive btfss rxd goto receive receivew btfsc rxd goto receivew ; STARTビットがくるまで待つ mov rs,#btime/2 ; 1/2ビット分待つ recv10 djnz rs,recv10 mov cn,#8 nop recv0 mov rs,#btime recv11 djnz rs,recv11 nop movb c,rxd ; データ入力 rr ch djnz cn,recv0 ret

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

FJCニュ－ス2006年１月号

投稿者：山原投稿日：2005年12月30日(金)15時59分56秒

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

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

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

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

投稿募集！　スレッド一覧

fjcﾆｭ-ｽ6月号 2/2

FJCニュ－ス2006年5月号

ＦＪＣﾆｭ-ｽ4月号 4/4

ＦＪＣﾆｭ-ｽ4月号 3/4

ＦＪＣﾆｭ-ｽ4月号 2/4

ＦＪＣニュ－ス4月号 1/4

fjcﾆｭ-ｽ3月号 1/2

fjcﾆｭ-ｽ3月号 2/2

FJCニュース2006年2月号

FJCニュ－ス2006年１月号

teacup.AUTO BBS Lv2-Free

投稿募集！ スレッド一覧

投稿募集！　スレッド一覧