JG1FJCの部屋

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

FJCニュ－ス2005年１2月号

投稿者：山原投稿日：2005年11月30日(水)16時26分52秒

FJCニュ－ス2005年１2月号今月は１６Ｆ８７ｘのアセンブラと書き込みについてです。メモリーが同じ16C74をアセンブルするように秋月ＰＡ用ヘッダーファイル１６Ｆ８７ｘ．ｈを作成ターゲットは１６Ｃ７４でＰＡでアセンブルできます。アセンブラで作成した、ＨＥＸファイルをＲＯＭライターに読み込みますと、この方法で作成したものでは、コンフィグレーションワードは正しく読み込めませんのでロムライターで修正します。私は自作の１６Ｆ８ＸＸ用ライターで書き込み直前にイレースコマンドを追加するようにして、対応できました。コンフィグレーションワードの扱いもパソコンソフトの修正がありました。 16f74からの書き換えは、EEROM レジスタが追加されています。ユーザRAMのエリア、サイズが違うので要注意です。以下は秋月ＰＡ用インクルードファイル16f87x.h です。 ;ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ .nlist ; ; PIC16F87X Header file Vers.1.00 ; Copyright (c) 2003 by T.Yamahara ; .16c74 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 rbpu 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 porta equ 5 ra equ 5 trisa equ 5 portb equ 6 rb equ 6 trisb equ 6 portc equ 7 rc equ 7 trisc equ 7 portd equ 8 rd equ 8 trisd equ 8 porte equ 9 re equ 9 trise equ 9 re0 equ re.0 re1 equ re.1 re2 equ re.2 trise0 equ 9.0 trise1 equ 9.1 trise2 equ 9.2 pspmode equ 9.4 ibov equ 9.5 obf equ 9.6 ibf equ 9.7 pclath equ 0ah intcon equ 0bh rbif equ 0bh.0 intf equ 0bh.1 t0if equ 0bh.2 rbie 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 tmr2if equ 0ch.1 ccp1if equ 0ch.2 sspif equ 0ch.3 txif equ 0ch.4 rcif equ 0ch.5 adif equ 0ch.6 pspif equ 0ch.7 pie1 equ 0ch tmr1ie equ 0ch.0 tmr2ie equ 0ch.1 ccp1ie equ 0ch.2 sspie equ 0ch.3 txie equ 0ch.4 rcie equ 0ch.5 adie equ 0ch.6 pspie equ 0ch.7 eedata equ 0ch eecon1 equ 0ch eepgd equ 0ch.7 wrerr equ 0ch.3 wren equ 0ch.2 wr equ 0ch.1 ee_rd equ 0ch.0 ;RDと重なるのでee_rdに

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

ｆｊｃニュ－ス12月号

投稿者：山原投稿日：2005年11月30日(水)16時25分47秒

pir2 equ 0dh ccp2if equ 0dh.0 eeif equ 0dh.4 bclif equ 0dh.3 pie2 equ 0dh ccp2ie equ 0dh.0 eeie equ 0dh.4 bclie equ 0dh.3 eecon2 equ 0dh eeadr equ 0dh tmr1l equ 0eh pcon equ 0eh bor equ 0eh.0 por equ 0eh.1 eedath equ 0eh eeadrh equ 0fh 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 tmr2 equ 11h sspcon2 equ 11h gcen equ 11h.7 ackstat equ 11h.6 ackdt equ 11h.5 acken equ 11h.4 rcen equ 11h.3 pen equ 11h.2 rsen equ 11h.1 sen equ 11h.0 t2con equ 12h t2ckps0 equ 12h.0 t2ckps1 equ 12h.1 tmr2on equ 12h.2 toutps0 equ 12h.3 toutps1 equ 12h.4 toutps2 equ 12h.5 toutps3 equ 12h.6 pr2 equ 12h sspbuf equ 13h sspadd equ 13h sspcon equ 14h sspm0 equ 14h.0 sspm1 equ 14h.1 sspm2 equ 14h.2 sspm3 equ 14h.3 ckp equ 14h.4 sspen equ 14h.5 sspov equ 14h.6 wcol equ 14h.7 sspstat equ 14h bf equ 14h.0 ua equ 14h.1 r_w equ 14h.2 s equ 14h.3 p equ 14h.4 d_a equ 14h.5 cke equ 14h.6 smp equ 14h.7 ccpr1l equ 15h ccpr1h equ 16h ccp1con equ 17h ccp1m0 equ 17h.0 ccp1m1 equ 17h.1 ccp1m2 equ 17h.2 ccp1m3 equ 17h.3 ccp1y equ 17h.4 ccp1x equ 17h.5 rcsta equ 18h rx9d equ 18h.0 oerr equ 18h.1 ferr equ 18h.2 adden equ 18h.3 cren equ 18h.4 sren equ 18h.5 rx9 equ 18h.6 spen equ 18h.7 txsta equ 18h tx9d equ 18h.0 trmt equ 18h.1 brgh equ 18h.2 sync equ 18h.4 txen equ 18h.5 tx9 equ 18h.6 csrc equ 18h.7 txreg equ 19h spbrg equ 19h rcreg equ 1ah ccpr2l equ 1bh ccpr2h equ 1ch ccp2con equ 1dh ccp2m0 equ 1dh.0 ccp2m1 equ 1dh.1 ccp2m2 equ 1dh.2 ccp2m3 equ 1dh.3 ccp2y equ 1dh.4 ccp2x equ 1dh.5 adres equ 1eh adresh equ 1eh adresl equ 1eh adcon0 equ 1fh adon equ 1fh.0 go_done equ 1fh.2 chs0 equ 1fh.3 chs1 equ 1fh.4 chs2 equ 1fh.5 adcs0 equ 1fh.6 adcs1 equ 1fh.7 adcon1 equ 1fh pcfg0 equ 1fh.0 pcfg1 equ 1fh.1 pcfg2 equ 1fh.2 pcfg3 equ 1fh.3 admf equ 1fh.7 .list

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

FJCニュ－ス2005年11月号

投稿者：山原投稿日：2005年10月26日(水)08時59分21秒

FJCニュ－ス2005年11月号今月は1月号で紹介した今月は2相ユニポーラパルスモーター制御のサンプル１２Ｃ５０９Ａの MPSA ソースファイルです。 6月号で紹介したソフトを当方のソフトでＰＡマクロバスターで、変換したものです。回路図とうはホームページのパルスモータのページをご覧ください｡ ;------------------------------------------- LIST P=12C509A #include "P12C509A.INC" ;内部クロック　4MHz ;MCLR を　入力ポ－ト　ＧＰ３　で使う __CONFIG _MCLRE_OFF & _CP_OFF & _WDT_OFF &_IntRC_OSC __IDLOCS H'0306' ; 1相励磁パルスモータコントローラ t.yamahara ; ; ; ; GND s1 s2 s3 ; ┌────────────┐ ; │⑧ ⑦ ⑥ ⑤ │ ; │VSS GP0 GP1 GP2 │ ; │ PIC12C509 │ ; │VDD GP5 GP4 GP3 │ ; │① ② ③ ④ │ ; └────────────┘ ; DC5V ccw s4 ｃｗ ; IN IN ; s1 equ 0 ;パルスモターφ１出力 GPIO_0 s2 equ 1 ;パルスモターφ２出力 GPIO_1 s3 equ 2 ;パルスモターφ３出力 GPIO_2 s4 equ 4 ;パルスモターφ４出力 GPIO_4 ccwin equ 5 ;ＣＣＷ回転司令負パルス入力 GPIO_5 cwin equ 3 ;ＣＣＷ回転司令負パルス入 GPIO_3 stc equ 8 ;モーター位置カウンター tmdt equ 9 ;タイマーデーター cu1 equ 10 ;汎用 cu2 equ 11 bf equ 12 gpbf equ 13 ;ＧＰＩＯｎｏバッファ org 0 goto start ; ＧＰＩＯの読み込み ; １２Ｃ５０９Ａを内部ＲＣ発振で使用しますので1サイクル４ＭＨｚ／4 ; １uｓで約１０uｓの間にｇｐiｏの値が変化すると読み直しとなり ; ＣＣＷ，ＣＷ制御パルスに入る１０uｓ以下のノイズをカットできます。 ; ＮＯＰを１つ増やす事で１uｓフイルターを伸ばせます｡ ingp movf GPIO,0 ;gpbf に GPIO の値を入れる。 movwf gpbf nop ; １uｓ nop nop movf GPIO,0 ;GPIOの値が変わっていればingpへジャンプ subwf gpbf,0 btfss 3,2 goto ingp retlw 0 ; 電源立ち上がり時の誤動作防止タイマー start 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 101000b ; GPIO i/o set TRIS GPIO clrf GPIO movlw 000111b ; trm0 i/o Pul up OPTION loop0 clrf GPIO ;motor off bsf GPIO,s1 ;モターを０ポジションにセット clrf stc loop1 call ingp ;１０uｓソフトフイルターをとうして入力監視 btfss gpbf,cwin ;ＣＷパルスＩＮ goto incs btfss gpbf,ccwin ;ＣＣＷパルスＩＮ goto decs goto loop1 ;ＣＷパルスＩＮ incs incf stc,1 ;位置カウンター＋１(１ステップ時計回り位置） movlw 4 subwf stc,0 btfss 3,2 goto tmset clrf stc goto tmset ; ＣＣＷパルスＩＮ decs movlw 1 ;位置カウンター＋１(１ステップ反時計回り位置） subwf stc,1 btfsc 3,0 goto tmset movlw 3 movwf stc ; 位置カウンターに合わせて励磁 tmset movlw 1 subwf stc,0 btfsc 3,2 goto p1 movlw 2 subwf stc,0 btfsc 3,2 goto p2 movlw 3 subwf stc,0 btfsc 3,2 goto p3 bsf GPIO,s1 ;モータ位置 0 励磁 bcf GPIO,s2 bcf GPIO,s3 bcf GPIO,s4 goto tmon p1 bcf GPIO,s1 ;モータ位置１励磁 bsf GPIO,s2 bcf GPIO,s3 bcf GPIO,s4 goto tmon p2 bcf GPIO,s1 ;モータ位置２励磁 bcf GPIO,s2 bsf GPIO,s3 bcf GPIO,s4 goto tmon p3 bcf GPIO,s1 ;モータ位置３励磁 bcf GPIO,s2 bcf GPIO,s3 bsf GPIO,s4 goto tmon ; 負入力のパルスがＯＦＦ（電圧Ｈ）になるまで待つ。 tmon call ingp btfss gpbf,cwin goto tmon btfss gpbf,ccwin goto tmon goto loop1 END

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

FJCﾆｭ-ｽ10月号 1/2

投稿者：山原投稿日：2005年10月 1日(土)08時56分37秒

FJCニュ－ス2003年10月号今月は１6Ｆ627,628のアセンブラと書き込みについてです。 9月号で紹介した、Ｈファイルを使用して１６Ｆ８４ファイルを１６Ｆ６２８に移植します。秋月ＰＡ用ヘッターファイル１６ｆ６ｘｘ．ｈを作成ターゲットは１６Ｃ６２でＰＡでアセンブルできます。コンフィグレーションワードは正しく生成できませんので手書きで修正します。私は自作の１６Ｆ８ＸＸ用ライターで、コンフィグレーションワードの扱いをパソコンソフトの修正をしました。昨年発表のロジックテスター用表示プログラムの移植サンプルです。６２８の USART 機能は、使用しないでのＲＳ２３２Ｃ制御です。移植には、ＲＡＭユーザーエリアを、０ＣＨから２０Ｈにして、コンパレータを、使用しない設定を追加します。ーーーーーー追加変更個所ーーーーー setb rp0 ;clrb oscf ;osc int の設定時 37kHz setb oscf ;osc int の設定時 4MHz clrb por ;pow on reset clrb bor ;boden on clrb rp0 clr ra mov cmcon,#7 ;ra I/O not use compareter mov !ra,#11110001b ;８バイト設定ーーーーーーーーーーーーーーーーーーーーーーーーーーー ; ロジックチエッカー用 ; ＰＩＣ１６Ｆ628／１６文字×２行対応 ; キャラクタ液晶表示プログラム; ; 2003年5月6日山原 ; 使用環境 ; ＰＩＣ PIC16F６２８（それ以外にも応用可能） ; 液晶Ｍ１６３２，Ｍ１６７２，ＳＣ１６０２Ｂ等 ; クロック 10.0MHz ; ; ; ピンアサイン：（電源・クリスタル・コントラスト調整ＶＲ等の配線は省略） ; ; ＰＩＣ１６Ｆ628 液晶モジュール ; ()内はピン番号 ; 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 16f6xx.h ; ここでは１６Ｆ８２８を選択 .osc hs ; オシレータＸＴ .wdt off ; ウォッチドッグＯＦＦ .pwrt on ; パワーアップタイマＯＮ .protect off ; プロテクトＯＦＦ id 1505h ;btime equ 33 ; 9600bps @4.19MHz btime equ 83 ; 9600bps @10MHz txd equ ra.0 ;rs232c ch1 rxd equ ra.1 E equ ra.3 RS equ ra.2 ;org 0ch ;--------------------------------- org 20h;１６Ｆ６２Ｘは２０Ｈに ;--------------------------------- ch ds 1 ; 送信受信データ（８ビット） rs ds 1 ; ウェイト時間調整用 cn ds 1 ; ビット数 wait_cn ds 1 wait_cn2 ds 1 rxdt ds 1 dd ds 4 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 ;------ 16F62X設定 setb rp0 ;clrb oscf ;osc int の設定時 37kHz ;setb oscf ;osc int の設定時 4MHz 今回はＨＳ clrb por ;pow on reset clrb bor ;boden on clrb rp0 clr ra mov cmcon,#7 ;ra I/O not use compareter mov !ra,#11110010b ;１６Ｆ６２８は８バイト設定 ;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

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

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

投稿者：山原投稿日：2005年10月 1日(土)08時55分36秒

;---------- 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ニュ－ス2005年9月号

投稿者：山原投稿日：2005年 8月29日(月)09時42分48秒

FJCニュ－ス2005年9月号今月は１6Ｆ627,628のアセンブラと書き込みについてです。 16f62ｘはピンは16F84と同じですが,16ビットタイマーやコンパレータ、内部オシレータなどの機能もあります。６２８は２Ｋのプログラムメモリーで、８４の2倍。Ｉ/Ｏも内部ＯＳＣだとＲＡが３ポート増。１６Ｆ８４で、秋月ＰＡのＡＳＭファイルを、移植秋月ＰＡ用ヘッターファイル１６ｆ６ｘｘ．ｈを作成ターゲットは１６Ｃ６２でＰＡでアセンブルできます。ＨＥＸファイルをＲＯＭライターに読み込みますと、この方法で作成したものでは、コンフィグレーションワードは正しく生成できませんので手書きで修正します。私は自作の１６Ｆ８ＸＸ用ライターで、コンフィグレーションワードの扱いをパソコンソフトの修正をしました。移植には、ＲＡＭユーザーエリアを、０ＣＨから２０Ｈにして、コンパレータを、使用しない設定を追加します。 setb rp0 ;clrb oscf ;osc int の設定時 37kHz setb oscf ;osc int の設定時 4MHz clrb por ;pow on reset clrb bor ;boden on clrb rp0 clr ra mov cmcon,#7 ;ra I/O not use compareter mov !ra,#11110001b ;８バイト設定以下は秋月ＰＡ用インクルードファイル１６ｆ６ｘｘ．ｈです。 ;------------------------------------------------------- .nlist .16c62 ; ; PIC16F6XX Header file Vers.1.00 ; Copyright (c) t.y ; 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 rbpu 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 porta equ 5 ra equ 5 trisa equ 5 portb equ 6 rb equ 6 trisb equ 6 pclath equ 0ah intcon equ 0bh rbif equ 0bh.0 intf equ 0bh.1 t0if equ 0bh.2 rbie 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 tmr2if equ 0ch.1 ccp1if equ 0ch.2 txif equ 0ch.4 rcif equ 0ch.5 cmif equ 0ch.6 eeif equ 0ch.7 pie1 equ 0ch tmr1ie equ 0ch.0 tmr2ie equ 0ch.1 ccp1ie equ 0ch.2 txie equ 0ch.4 rcie equ 0ch.5 cmie equ 0ch.6 eeie equ 0ch.7 tmr1l equ 0eh pcon equ 0eh bor equ 0eh.0 por equ 0eh.1 oscf equ 0eh.3 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 tmr2 equ 11h t2con equ 12h t2ckps0 equ 12h.0 t2ckps1 equ 12h.1 tmr2on equ 12h.2 toutps0 equ 12h.3 toutps1 equ 12h.4 toutps2 equ 12h.5 toutps3 equ 12h.6 pr2 equ 12h ;bank 1 ccpr1l equ 15h ccpr1h equ 16h ccp1con equ 17h ccp1m0 equ 17h.0 ccp1m1 equ 17h.1 ccp1m2 equ 17h.2 ccp1m3 equ 17h.3 ccp1y equ 17h.4 ccp1x equ 17h.5 rcsta equ 18h spen equ 18h.7 rx9 equ 18h.6 sren equ 18h.5 cren equ 18h.4 aden equ 18h.3 ferr equ 18h.2 oerr equ 18h.1 rx9d equ 18h.0 txsta equ 18h ;bank 1 csrc equ 18h.7 tx9 equ 18h.6 txen equ 18h.5 sync equ 18h.4 brgh equ 18h.2 trmt equ 18h.1 tx9d equ 18h.0 txreg equ 19h rcreg equ 1Ah eedata equ 1ah ;bank1 eeadr equ 1bh ;bank1 eecon1 equ 1ch ;bank1 wrerr equ 1ch.3 wren equ 1ch.2 wr equ 1ch.1 rd equ 1ch.0 eecon2 equ 1dh ;bank 1 vrcon equ 1fh ;bank 1 vren equ 1fh.7 vroe equ 1fh.6 vrr equ 1fh.5 vr3 equ 1fh.3 vr2 equ 1fh.2 vr1 equ 1fh.1 vr0 equ 1fh.0 cmcon equ 1Fh c2out equ 1fh.7 c1out equ 1fh.6 c2inv equ 1fh.5 c1inv equ 1fh.4 cis equ 1fh.3 cm2 equ 1fh.2 cm1 equ 1fh.1 cm0 equ 1fh.0 .list

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

FJCニュス8月号-1/2

投稿者：山原投稿日：2005年 7月22日(金)09時10分51秒

;page write control ; ＲＡＭの20Hから2fＨに書き込みﾃﾞｰﾀｰを16ﾊﾞｲﾄ書き込んでcall ;ddc_hとddc_lに24LC65のアドレスをセット ; ３６バイト書き込みですがメモリーが小さいので16倍とのみ残りは２０Ｈを書き込み。 ;ﾃﾞｰﾀｰをＲＳ２３２Ｃなどで読み込みながら書き込めば36ﾊﾞｲﾄの書き込みもできます。 wr65 mov ddc_l,#0 ;writ start addres ddc set mov cu1,#20h ;36 ﾊﾞｲﾄ書き込み mov cu2,#20h ;ﾃﾞｰﾀｰﾊﾞｯﾌｧｱﾄﾞﾚｽ call strcnd mov a_bf,#0a0h ;page write control command call sd8 mov a_bf,ddc_h ;addres writ H call sd8 mov a_bf,ddc_l ;addres writ L call sd8 loopw cjbe cu2,#30h,loopw1 mov a_bf,#20h ;16byte only Write goto loopw2 loopw1 mov fsr,cu2 movf 0,0 movwf a_bf loopw2 call sd8 ;mov fsr,cu2 ;movlw 0 ;movwf 0 inc cu2 djnz cu1,loopw call stpcnd ret ;8 bit reciv 24LC65 rv8 clr a_bf call scll call sdth call sclh btfsc sdti setb a_bf.7 call scll call sclh btfsc sdti setb a_bf.6 call scll call sclh btfsc sdti setb a_bf.5 call scll call sclh btfsc sdti setb a_bf.4 call scll call sclh btfsc sdti setb a_bf.3 call scll call sclh btfsc sdti setb a_bf.2 call scll call sclh btfsc sdti setb a_bf.1 call scll call sclh btfsc sdti setb a_bf.0 ret ; 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 mov wait_cn,#50 ack jnb sdti,acke djnz wait_cn,ack acke call wait_usf call sclh call scll ret sdc1 call scll call sdth call sclh call scll ret sdc0 call scll call sdtl call sclh call scll call sdth ret start ;-------------- SW ON timer-------------- clr cu1 clr cu2 mov cu3,#5 st1 djnz cu1,st1 djnz cu2,st1 djnz cu3,st1 ;-------------- I/O set ------------ mov !ra,#10000b ; ra set mov !rb,#00010010b ; rb set clr rb clr ra goto $

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

FJCニュス8月号-2/2

投稿者：山原投稿日：2005年 7月22日(金)09時07分25秒

FJCニュ－ス2005年8月号今回は同期シリアルポート（ｓｓｐ）の無いデバイスで、ＩＣーＩＣ（Ｉ２Ｃ）インターフェイスをソフトで行いシリアルＥＥＲＯＭ２４ＬＣ６４の読み書きを、行うＳＵＢル－チンの紹介です。 ; 24LC65 SUB include 16f84.h .osc xt ;3.58MHZ .wdt off ; 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 rb.1 ;24lc65 data input scl equ rb.2 ; clock sdto equ rb.3 ; data output org 0ch ddc_h ds 1 ;writ start addres H ddc set ddc_l ds 1 ;writ start addres L ddc set bf ds 1 rabf ds 1 cu0 ds 1 cu1 ds 1 cu2 ds 1 cu3 ds 1 a_bf ds 1 wait_cn ds 1 org 20h dtbf ds 16 ;書き込みデータバッファ ; int wark org 3dh wk0 ds 1 wk1 ds 1 wk2 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 ; 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 ;------------ sub ----------------- clr_gie clrb gie jb gie,clr_gie ret wait_ms mov cu0,#10 ;cu0=5 5ms wait_ms0 mov cu1,#0 wait_ms1 nop nop djnz cu1,wait_ms1 djnz cu0,wait_ms0 ret wait_us mov cu0,#50 ;cu0=50 50us wait_us0 djnz cu0,wait_us0 ret wait_usf nop ret ;---------- 24LC65 contsub ---------- sdtl call wait_usf setb sdto ret sdth call wait_usf clrb sdto ret sclh call wait_usf setb scl ret sclhm call wait_usf setb scl call wait_usf ret scll call wait_usf clrb scl ret strcnd call sdth call sclh call sdtl call scll call sdth ret stpcnd call scll call sdtl call sclh call sdth ret rndrd call strcnd ;24lc64 1ward read mov a_bf,#0a0h ;page write control call sd8 mov a_bf,ddc_h call sd8 mov a_bf,ddc_l call sd8 rndrd1 call strcnd mov a_bf,#0a1h call sd8 call rv8 call scll call sdth call sclh call scll call stpcnd rndrd3 call wait_ms ret

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

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/

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

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

投稿募集！　スレッド一覧

FJCニュ－ス2005年１2月号

ｆｊｃニュ－ス12月号

FJCニュ－ス2005年11月号

FJCﾆｭ-ｽ10月号 1/2

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

FJCニュ－ス2005年9月号

FJCニュス8月号-1/2

FJCニュス8月号-2/2

FJCニュ－ス2005年7月号

FJCニュ－ス2005年6月号

teacup.AUTO BBS Lv2-Free

投稿募集！ スレッド一覧

投稿募集！　スレッド一覧