17K66A任意分周・遅延回路デバイスサポート(XportでRS-232C)(Japanese)

• 1.はじめに
• 2.サポートする機能
• 3.EPICS環境
• 4.コードの概要
• 5.EPICSデータベースサンプル
• 6.スタートアップファイルサンプル
• 7.おわりに

1.はじめに

本デバイスサポートは、この17K66Aモジュールを、EPICSからXport経由でコントロール する、Asynドライバーです。

2.サポートする機能

3.EPICS環境

4.コードの概要

static struct gpibCmd gpibCmds[] = { 

    /* COMAND 0 set_delay */
  {&DSET_LO, GPIBWRITE, IB_Q_LOW, NULL, "DLY%05ld\r", 511, 511, NULL, 0, 0, NULL, NULL, EOSNL },

    /* COMAND 1 set_dev */
  {&DSET_LO, GPIBWRITE, IB_Q_LOW, NULL, "DVD%05ld\r", 511, 511, NULL, 0, 0, NULL, NULL, EOSNL },

  /* COMAND 2 read status */
  {&DSET_WF, GPIBREAD, IB_Q_LOW, "GET\r",NULL, 0, 8191, rd_wf_data, 0,0,NULL,NULL, EOSNL }

};

• 設定コマンドは必ず5桁の数字で設定する必要があるようなので、指定は %05ldとなります。
• EOSNLは何も指定しません。
• status読み込みはGETコマンドで色々送ってくるので、一旦waveformで受け、 その後subarrayに分配します。waveformの1個目の配列はoutput enable/disableで、0がenable、1がdisableです。2個目が分周数、 3個目がdelayです。
• 設定コマンドに対して無駄なread backが帰ってくるので、これを無視するた め、readbackバッファを用意するとともに、init_aiのところの devSupParams.respond2Writes=1.0としておきます。

static int rd_data(char wav[], long data[])
{
  /*  012345678901234567890
      OEN/DVD12345/DLY12345
  */
  int i;
  char wa1[32767];
  /* printf("input %s\n",wav);  */
  strcpy(wa1,strtok(wav,"/"));
   if (strcmp(wa1,"OEN")==0) {
    data[0]=0;
  }
  else {
    data[0]=1;
  }

  for (i=7;i<12;i++)
    {
      wa1[i-7]=wav[i];
    }
  /*  printf("DVD %s\n",wa1); */
  data[1]=atoi(wa1);

  for (i=16;i<21;i++)
    {
      wa1[i-16]=wav[i];
    }
  
  data[2]= atoi(wa1);
  return 0;
}

#dev17K66A dbd list
device(ai,GPIB_IO,devAi17K66A,"DV66A")
device(ao,GPIB_IO,devAo17K66A,"DV66A")
device(bi,GPIB_IO,devBi17K66A,"DV66A")
device(bo,GPIB_IO,devBo17K66A,"DV66A")
device(stringin,GPIB_IO,devSi17K66A,"DV66A")
device(stringout,GPIB_IO,devSo17K66A,"DV66A")
device(longin,GPIB_IO,devLi17K66A,"DV66A")
device(longout,GPIB_IO,devLo17K66A,"DV66A")
device(mbbi,GPIB_IO,devMbbi17K66A,"DV66A")
device(mbbo,GPIB_IO,devMbbo17K66A,"DV66A")
device(waveform,GPIB_IO,devWf17K66A,"DV66A")

5.EPICSデータベースサンプル

6.スタートアップファイルサンプル

• 上で作ったデーターベースを読み込む。PORTはLなんとか、Aは何でも良いけど、何かの値を設定する。
• IPポートを設定する
  drvAsynIPPortConfigure("L2","IPアドレス:ポート番号",0,0,0)
  のように設定する。

dbLoadRecords("db/FB_DV.db","PORT=L2, A=1")


drvAsynIPPortConfigure("L2","172.19.**.***:23",0,0,0)

7.おわりに