Index: drsdaq/DAQReadout.cc =================================================================== --- drsdaq/DAQReadout.cc (revision 175) +++ drsdaq/DAQReadout.cc (revision 176) @@ -26,10 +26,12 @@ {"status", &DAQReadout::cmd_status, false, "[daq|drs]", "Show DAQ/DRS status information"}, {"frequency", &DAQReadout::cmd_freq, true, " [reg]", "Set DRS sampling frequency (regulated)"}, - {"calib", &DAQReadout::cmd_calib, true, " ", "Response calibration"}, + {"acalib", &DAQReadout::cmd_acalib, true, " ", "Amplitude calibration"}, + {"tcalib", &DAQReadout::cmd_tcalib, true, " ", "Amplitude calibration"}, {"trigger", &DAQReadout::cmd_trigger, true, "", "Hardware trigger on or off"}, - {"delayed", &DAQReadout::cmd_delayed, true, "", "Switch delayed start on or off"}, - {"wmode", &DAQReadout::cmd_wmode, true, "<0|1>", "Set DRS wave mode"}, - {"rmode", &DAQReadout::cmd_rmode, true, "<0|1>", "Set DRS readout mode"}, - {"mode", &DAQReadout::cmd_mode, true, "", "Set DRS single shot or continuous mode"}, + {"wmode", &DAQReadout::cmd_wmode, true, "", "Domino wave running or stopped during read out"}, + {"rmode", &DAQReadout::cmd_rmode, true, "", "Readout start at first bin or stop position (DRS4)"}, + {"dmode", &DAQReadout::cmd_dmode, true, "", "Domino wave single shot or continuous"}, + {"centre", &DAQReadout::cmd_centre, true, "", "Set centre of input range (DRS4)"}, + {"refclk", &DAQReadout::cmd_refclk, true, "", "Set reference clock to FPGA or external (DRS4)"}, {"read", &DAQReadout::cmd_read, false, " [res]", "Read current data (and restart if DAQ not active)"}, {"take", &DAQReadout::cmd_take, false, " [n] [source]", "Start run (data, pedestal or test) with n events"}, @@ -37,7 +39,8 @@ {"start", &DAQReadout::cmd_start, true, "", "Start DRS and DAQ without disk writing (feedback will be called)"}, {"stop", &DAQReadout::cmd_stop, false, "", "Issue soft trigger and stop DAQ"}, - {"test", &DAQReadout::cmd_test, true, "[2e] [n]", "Test read access of VMEbus (n blocks)"}, {"regtest", &DAQReadout::cmd_regtest, true, "", "DRS register test"}, {"ramtest", &DAQReadout::cmd_ramtest, true, "", "DRS RAM integrity and speed test"}, + {"chiptest", &DAQReadout::cmd_chiptest, true, "", "Chip test"}, + {"eepromtest", &DAQReadout::cmd_eepromtest, true, "", "EEPROM test"}, {"led", &DAQReadout::cmd_led, true, "", "Turn LED on or off"}, {"config", &DAQReadout::cmd_config, false, "", "Print drsdaq configuration"}, @@ -69,5 +72,4 @@ Socket = -1; Exit = false; - CalibrationRead = false; NumEvents = 0; NumEventsRequested = 0; @@ -91,4 +93,5 @@ ConfigOK &= ReadCard("MaxLogLines", &fMaxLogLines, 'U', File); ConfigOK &= ReadCard("RawDataPath", fRawDataPath, 's', File); + ConfigOK &= ReadCard("CalibDataPath", fCalibDataPath, 's', File); ConfigOK &= ReadCard("FirstSample", &fFirstSample, 'I', File); ConfigOK &= ReadCard("Samples", &fSamples, 'U', File); @@ -96,6 +99,4 @@ ConfigOK &= ReadCard("MaxFileSizeMB", &fMaxFileSizeMB, 'I', File); ConfigOK &= ReadCard("CCPort", &fCCPort, 'I', File); - ConfigOK &= ReadCard("FirstVMESlot", &fFirstVMESlot, 'I', File); - ConfigOK &= ReadCard("LastVMESlot", &fLastVMESlot, 'I', File); ConfigOK &= ReadCard("HVFeedbackConfig", fHVFeedbackConfig, 's', File); ConfigOK &= ReadCard("DefaultFrequency", &fDefaultFrequency , 'd', File); @@ -109,19 +110,8 @@ } - // Truncate log file to given number of lines - char ShellCmd[MAX_COM_SIZE]; - snprintf(ShellCmd, sizeof(ShellCmd), "tail --lines=%u %s >%s; cp %s %s; rm %s", fMaxLogLines, fLogFile, TMPNAME, TMPNAME, fLogFile, TMPNAME); - if (system(ShellCmd) != 0) printf("Warning: Could not truncate log file '%s' to %u lines\n", fLogFile, fMaxLogLines); - // Open log file and log configuration if ((Logfile = fopen(fLogFile, "a")) == NULL) printf("Warning: Could not open log file '%s'\n", fLogFile); PrintMessage(MsgToLog,"********** Logging started **********\n"); PrintConfig(MsgToLog); - - // Create DRS instance and perform initial scan - drs = new DRS(); - drs->SetFirstVMESlot(fFirstVMESlot); - drs->SetLastVMESlot(fLastVMESlot); - drs->InitialScan(); // Allocate headers and initialise to zero @@ -132,22 +122,25 @@ // Scan for DRS boards - DRSFreq = new float [drs->GetNumberOfBoards()]; - if (drs->GetNumberOfBoards()==0) PrintMessage("No DRS boards found - check VME crate and configuration file!\n"); - - for (int i=0; iGetNumberOfBoards(); i++) { - PrintMessage("Init. mezz. board %2d on VME slot %2d %s, serial #%d, firmware revision %d\n", - i, (drs->GetBoard(i)->GetSlotNumber() >> 1)+2, ((drs->GetBoard(i)->GetSlotNumber() & 1) == 0) ? "upper" : "lower", - drs->GetBoard(i)->GetCMCSerialNumber(), drs->GetBoard(i)->GetFirmwareVersion()); + DRSFreq = new float [GetNumberOfBoards()]; + ACalib = new bool [GetNumberOfBoards()]; + ACalibTemp = new double [GetNumberOfBoards()]; + TCalib = new bool [GetNumberOfBoards()]; + + if (GetNumberOfBoards() == 0) PrintMessage("No DRS boards found - check VME crate and configuration file!\n"); + + for (int i=0; iGetBoard(i)->Init(); - drs->GetBoard(i)->SetRotation(false); + GetBoard(i)->Init(); DRSFreq[i] = 0; - } - BStruct = new BoardStructure [NumBoards == 0 ? 1:drs->GetNumberOfBoards()]; - memset(BStruct, 0, sizeof(BoardStructure)*(NumBoards == 0 ? 1:drs->GetNumberOfBoards())); - - WaveForm = new short [NumBoards == 0 ? 1:NumBoards][kNumberOfChips][kNumberOfChannels][kNumberOfBins]; - TriggerCell = new int [NumBoards == 0 ? 1:NumBoards][kNumberOfChips] (); // Zero initialised + ACalib[i] = false; + ACalibTemp[i] = -999; + TCalib[i] = false; + } + BStruct = new BoardStructure [NumBoards == 0 ? 1:GetNumberOfBoards()]; + memset(BStruct, 0, sizeof(BoardStructure)*(NumBoards == 0 ? 1:GetNumberOfBoards())); + + WaveForm = new short [NumBoards == 0 ? 1:NumBoards][kNumberOfChipsMax][kNumberOfChannelsMax][kNumberOfBins]; + TriggerCell = new int [NumBoards == 0 ? 1:NumBoards][kNumberOfChipsMax] (); // Zero initialised // Create instance of HV feedback (must be called after CMC board detection) @@ -169,5 +162,6 @@ delete SlowDataClass; delete RHeader; delete EHeader; - delete drs; delete HVFB; + delete HVFB; delete[] ACalibTemp; + delete[] ACalib; delete[] TCalib; delete[] DRSFreq; delete[] BStruct; delete[] WaveForm; delete[] TriggerCell; @@ -232,4 +226,5 @@ void DAQReadout::cmd_take() { + // Check conditions if this is not a test run if(!Match(Param[1],"test")) { if (daq_state==active || NumBoards==0) { @@ -237,16 +232,24 @@ return; } + // Check if all boards have the same number of DRS chips and channels + // (restriction of current data format) + for (int i=FirstBoard; i<=LastBoard-1; i++) { + if ((GetBoard(i)->GetNumberOfChannels() != GetBoard(i+1)->GetNumberOfChannels()) || (GetBoard(i)->GetNumberOfChips() != GetBoard(i+1)->GetNumberOfChips())) { + PrintMessage("Cannot take data is not all boards have the same number of DRS chips and channels due to data format restriction\n"); + return; + } + } if (!IsDRSFreqSet()) { PrintMessage("Setting default frequency\n"); - SetDRSFrequency(fDefaultFrequency, false); - CalibrationRead = false; - } - - if (!CalibrationRead && !ReadCalibration()) { + SetDRSFrequency(fDefaultFrequency, true); + } + if (!ReadCalibration()) { PrintMessage("Cannot start run if response calibration not read\n"); - return; - } - } - + //return; + } + // Readout from domino wave stop position (ignored if not DRS4) + SetDOMINOReadMode(1); + } + if (Match(Param[1],"data")) { HWTrigger(1); @@ -272,5 +275,5 @@ else snprintf(RHeader->Description,sizeof(RHeader->Description),"DUMMY"); - // Determine new run number using the file RUN_NUM_FILE + // Determine new run number using the file given by RUN_NUM_FILE FILE *RunNumFile = fopen(RUN_NUM_FILE,"r+"); if(RunNumFile == NULL) { @@ -318,9 +321,28 @@ } +// EEPROM test +void DAQReadout::cmd_eepromtest() { + + unsigned short buf[16384],rbuf[16384]; + int n = 0; + + for (int i=FirstBoard; i<=LastBoard; i++) { + PrintMessage("EEPROM test of board #%d:\n\r",i); + for (int j=0; j<16384; j++) buf[j] = rand(); + GetBoard(i)->WriteEEPROM(1, buf, sizeof(buf)); + memset(rbuf, 0, sizeof(rbuf)); + GetBoard(i)->Write(T_RAM, 0, rbuf, sizeof(rbuf)); + GetBoard(i)->ReadEEPROM(1, rbuf, sizeof(rbuf)); + + for (int j=0; j<16384; j++) if (buf[j] != rbuf[j]) n++; + printf("32 kByte written, %d errors\n", n); + } +} + // RAM test void DAQReadout::cmd_ramtest() { for (int i=FirstBoard; i<=LastBoard; i++) { - PrintMessage("RAM integrity and speed test (board #%d):\n",i); - (drs->GetBoard(i))->RAMTest(3); + PrintMessage("RAM integrity and speed test of board #%d:\n",i); + GetBoard(i)->RAMTest(3); } } @@ -329,27 +351,16 @@ void DAQReadout::cmd_regtest() { for (int i=FirstBoard; i<=LastBoard; i++) { - PrintMessage("Register test (board #%d):\n",i); - (drs->GetBoard(i))->RegisterTest(); - } -} - -// Test VME transfer -void DAQReadout::cmd_test() { - int Type=-1, i; - - if (Match(Param[1], "2eblt64")) Type = 2; - else if (Match(Param[1], "blt32")) Type = 0; - else if (Match(Param[1], "blt64")) Type = 1; - else { - PrintMessage("Unknown type for testing\n"); - return; - } - - if (NumBoards) for (i=FirstBoard; i<=LastBoard; i++) { - PrintMessage("BLT test started (board #%d)\n",i); - (drs->GetBoard(i))->TestRead(Param[2][0] && atoi(Param[2])<=10000 && atoi(Param[2])>0 ? atoi(Param[2]):1, Type); - } - else PrintMessage("No DRS boards available\n"); -} + PrintMessage("Register test of board #%d:\n\r",i); + GetBoard(i)->RegisterTest(); + } +} + +// Chip test +void DAQReadout::cmd_chiptest() { + for (int i=FirstBoard; i<=LastBoard; i++) { + if (GetBoard(i)->ChipTest()) PrintMessage("Chip test of board %i successful\n", i); + else PrintMessage("Chip test of board %i failed\n", i); + } +} // Stop DAQ @@ -376,33 +387,46 @@ PrintUsage(); return; - } - if (atoi(Param[1])>LastBoard || atoi(Param[1])LastBoard || Board=kNumberOfChannels) { + if (Channel<0 || Channel>=GetBoard(Board)->GetNumberOfChannels()) { PrintMessage("Error: Channel number out of range\n"); return; } - if (atoi(Param[2])<0 || atoi(Param[2])>=kNumberOfChips) { + if (Chip<0 || Chip>=GetBoard(Board)->GetNumberOfChips()) { PrintMessage("Error: Chip number out of range\n"); return; } - - if (daq_state!=active) { - if (!CalibrationRead) ReadCalibration(); + + if (daq_state != active) { + ReadCalibration(); if(NParam==5) StopDRS(); ReadCalibratedDRSData(); if(NParam==5) StartDRS(); - } - PrintMessage(CmdFromSocket ? MsgToSocket:MsgToConsole|MsgToLog, "==START== %d %.2f %.2f ",kNumberOfBins+2,DRSFreq[atoi(Param[1])],drs->GetBoard(atoi(Param[1]))->GetPrecision()); - for (int k=0; kGetPrecision()); + double mean=0,square=0.0; + for (int k=0; kSetInputRange(atof(Param[1])) == 1) { + PrintMessage("Range of board %d: %.2f to %.2f Volt (centre %.2f V)\n",i,atof(Param[1])-0.5, atof(Param[1])+0.5, atof(Param[1])); + } + else PrintMessage("Centre voltage of board %d out of range\n", i); + } +} + +// Set refclock source +void DAQReadout::cmd_refclk() { + + if (NParam!=2) { + PrintUsage(); + return; + } + + for (int i=FirstBoard; i<=LastBoard; i++) { + if (Match(Param[1], "extern")) GetBoard(i)->SetRefclk(1); + else GetBoard(i)->SetRefclk(0); + } +} // Set trigger mode @@ -447,5 +494,5 @@ else { PrintMessage("Flashing EEPROM of board %d...\n", atoi(Param[1])); - (drs->GetBoard(atoi(Param[1])))->FlashEEPROM(atoi(Param[2])); + (GetBoard(atoi(Param[1])))->SetBoardSerialNumber(atoi(Param[2])); } } @@ -453,45 +500,115 @@ } -// Do internal calibration -void DAQReadout::cmd_calib() { - char str[MAX_COM_SIZE]; - - if (NParam!=2 || !atof(Param[1])) { - PrintUsage(); +// Do amplitude calibration +void DAQReadout::cmd_acalib() { + + if (!IsDRSFreqSet()) { + PrintMessage("Set sampling frequency for all boards first\n"); return; } + + for (int i=FirstBoard; i<=LastBoard; i++) { + if (GetBoard(i)->GetDRSType()==2 && (NParam!=2 || !atof(Param[1]))) { + PrintUsage(); + return; + } + + PrintMessage("Creating amplitude calibration of board %d (serial #%04d)\n", i, GetBoard(i)->GetBoardSerialNumber()); + + GetBoard(i)->EnableTcal(0); + GetBoard(i)->SelectClockSource(0); + if (GetBoard(i)->GetDRSType() == 4) { + GetBoard(i)->SetFrequency(DRSFreq[i], true); + GetBoard(i)->CalibrateVolt(this); + } else { + GetBoard(i)->Init(); + GetBoard(i)->SetFrequency(DRSFreq[i], true); + GetBoard(i)->SoftTrigger(); + + if (GetBoard(i)->GetDRSType() == 3) { + GetBoard(i)->GetResponseCalibration()->SetCalibrationParameters(1,11,0,20,0,0,0,0,0); + } + else GetBoard(i)->GetResponseCalibration()->SetCalibrationParameters(1,36,110,20,19,40,15,atof(Param[1]),0); + + GetBoard(i)->SetCalibrationDirectory(fCalibDataPath); + for (int j=0; j<2; j++) { + GetBoard(i)->GetResponseCalibration()->ResetCalibration(); + while (!GetBoard(i)->GetResponseCalibration()->RecordCalibrationPoints(j)) {} + PrintMessage("Calibration points recorded.\n"); + while (!GetBoard(i)->GetResponseCalibration()->FitCalibrationPoints(j)) {} + PrintMessage("Calibration points fitted.\n"); + while (!GetBoard(i)->GetResponseCalibration()->OffsetCalibration(j)) {} + PrintMessage("Offset calibration done.\n"); + if (!GetBoard(i)->GetResponseCalibration()->WriteCalibration(j)) break; + } + } // else for DRS2/3 + ACalib[i] = true; + ACalibTemp[i] = GetBoard(i)->GetTemperature(); + } // Loop over boards + PrintMessage("Amplitude calibration finished\n"); +} + +// Do time calibration +void DAQReadout::cmd_tcalib() { + if (!IsDRSFreqSet()) { - PrintMessage("Set sampling frequency first\n"); + PrintMessage("Set sampling frequency for all boards first\n"); return; } - getcwd(str, sizeof(str)); - strcat(str,"/calib"); - for (int i=FirstBoard; i<=LastBoard; i++) { - PrintMessage("Creating calibration of board %d (serial number %d)\n", i, drs->GetBoard(i)->GetCMCSerialNumber()); - - drs->GetBoard(i)->EnableTcal(1); - if (drs->GetBoard(i)->GetChipVersion() == 3) drs->GetBoard(i)->GetResponseCalibration()->SetCalibrationParameters(1,21,0,20,0,0,0,0,0); - else drs->GetBoard(i)->GetResponseCalibration()->SetCalibrationParameters(1,36,110,20,19,40,15,atof(Param[1]),0); - drs->GetBoard(i)->SetCalibrationDirectory(str); - - for (int j=0; jGetBoard(i)->GetResponseCalibration()->ResetCalibration(); - - while (!drs->GetBoard(i)->GetResponseCalibration()->RecordCalibrationPoints(j)) {} - PrintMessage("Calibration points recorded.\n"); - - while (!drs->GetBoard(i)->GetResponseCalibration()->FitCalibrationPoints(j)) {} - PrintMessage("Calibration points fitted.\n"); - - while (!drs->GetBoard(i)->GetResponseCalibration()->OffsetCalibration(j)) {} - PrintMessage("Offset calibration done.\n"); - - if (!drs->GetBoard(i)->GetResponseCalibration()->WriteCalibration(j)) break; - } - } // Loop over boards - PrintMessage("End of calibration\n"); - CalibrationRead = false; + if (GetBoard(i)->GetDRSType() != 4 || GetBoard(i)->GetFirmwareVersion() < 13279) { + PrintMessage("Time calibration needs DRS4 and minimum firmware version 13279, skipping board %d\n", i); + continue; + } + if (!ACalib[i]) { + PrintMessage("Amplitude calibration of board %d has to be done first, skipping this board\n", i); + continue; + } + PrintMessage("Creating time calibration of board %d (serial #%04d)\n", i, GetBoard(i)->GetBoardSerialNumber()); + + GetBoard(i)->SetFrequency(DRSFreq[i], true); + if (GetBoard(i)->CalibrateTiming(this) != 1) { + PrintMessage("Time calibration method returned error status, stopping calibration\n"); + return; + } + + TCalib[i] = true; + + // Write calibration data to file + float Time[kNumberOfChipsMax][kNumberOfBins]; + char *Filename; + FILE *Calibfile; + bool WriteOK = true; + + // Copy calibration data into array + for (int Chip=0; ChipGetNumberOfChips(); Chip++) { + GetBoard(i)->GetTime(Chip, Time[Chip], true, false); + } + + if (asprintf(&Filename, "TCalib_%d_%.2fGHz.txt", GetBoard(i)->GetBoardSerialNumber(), DRSFreq[i]) == -1) { + PrintMessage("Error: asprintf() failed, cannot generate filename (%s)\n", strerror(errno)); + return; + } + if ((Calibfile=fopen(Filename,"w")) == NULL) { + PrintMessage("Error: Could not open file '%s' \n", Filename); + } + else { + if(fprintf(Calibfile, "# DRS time calibration\n") == -1) WriteOK = false; + + for (int Bin=0; BinGetNumberOfChips(); Chip++) { + if(fprintf(Calibfile, "%.2f ", Time[Chip][Bin]) == -1) WriteOK = false; + } + if(fprintf(Calibfile, "\n") == -1) WriteOK = false; + } + if (fclose(Calibfile) != 0) PrintMessage("Error closing file '%s'\n", Filename); + } + if (!WriteOK) PrintMessage("Error writing to file '%s'\n", Filename); + else PrintMessage("Calibration written to file '%s'\n", Filename); + + free(Filename); + } + PrintMessage("Time calibration finished\n"); } @@ -500,5 +617,4 @@ if (NParam>=2 && atof(Param[1])) { SetDRSFrequency(atof(Param[1]), NParam==2 ? false : true); - CalibrationRead = false; } else PrintUsage(); @@ -509,5 +625,5 @@ if (Match(Param[1], "on") || Match(Param[1], "off")) for (int i=FirstBoard; i<=LastBoard; i++) - (drs->GetBoard(i))->SetLED(Match(Param[1], "on") ? 1 : 0); + (GetBoard(i))->SetLED(Match(Param[1], "on") ? 1 : 0); else PrintUsage(); } @@ -528,8 +644,8 @@ " Disk space: %lu MByte\n" " Socket state: %s\n" - " Total number of CMC boards: %d\n" - " Active CMC boards: %d\n", + " Total number of DRS boards: %d\n" + " Active DRS boards: %d\n", daq_state_str[daq_state], daq_state==active ? (int) RunNumber:-1, - daq_runtype_str[daq_runtype], NumEvents, + daq_state==active ? daq_runtype_str[daq_runtype]:"n/a", NumEvents, NumEventsRequested, fRawDataPath, CheckDisk(fRawDataPath), Socket==-1 ? "disconnected":"connected", @@ -545,55 +661,50 @@ for (int i=FirstBoard; i<=LastBoard; i++) { - PrintMessage(" Mezz. board index: %d\n" - " Slot: %d %s\n",i,((drs->GetBoard(i))->GetSlotNumber() >> 1)+2,((drs->GetBoard(i))->GetSlotNumber() & 1)==0 ? "upper":"lower"); - PrintMessage(" Chip version: DRS%d\n" - " Board version: %d\n" - " Serial number: %d\n" - " Firmware revision: %d\n" - " Temperature: %1.1lf C\n" - " Status reg.: 0X%08X\n", - (drs->GetBoard(i))->GetChipVersion(), - (drs->GetBoard(i))->GetCMCVersion(), - (drs->GetBoard(i))->GetCMCSerialNumber(), - (drs->GetBoard(i))->GetFirmwareVersion(), - (drs->GetBoard(i))->GetTemperature(), - (drs->GetBoard(i))->GetStatusReg()); - - - if ((drs->GetBoard(i))->GetStatusReg() & BIT_RUNNING) + PrintMessage("Board #%d in slot %d %s\n",i,((GetBoard(i))->GetSlotNumber() >> 1)+2,((GetBoard(i))->GetSlotNumber() & 1)==0 ? "upper":"lower"); + PrintMessage(" DRS%d serial %d, firmware %d\n" + " Actual temperature: %1.1lf C\n" + " Calibration temp.: %1.1lf C\n" + " Status reg.: 0x%08X\n", + GetBoard(i)->GetDRSType(), + GetBoard(i)->GetBoardSerialNumber(), + GetBoard(i)->GetFirmwareVersion(), + GetBoard(i)->GetTemperature(), + ACalibTemp[i], + GetBoard(i)->GetStatusReg()); + + + if (GetBoard(i)->GetStatusReg() & BIT_RUNNING) PrintMessage(" Domino wave running\n"); - if ((drs->GetBoard(i))->GetStatusReg() & BIT_NEW_FREQ1) + if (GetBoard(i)->GetStatusReg() & BIT_NEW_FREQ1) PrintMessage(" New Freq1 ready\n"); - if ((drs->GetBoard(i))->GetStatusReg() & BIT_NEW_FREQ2) + if (GetBoard(i)->GetStatusReg() & BIT_NEW_FREQ2) PrintMessage(" New Freq2 ready\n"); - PrintMessage(" Control reg.: 0X%08X\n", (drs->GetBoard(i))->GetCtrlReg()); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_AUTOSTART) + PrintMessage(" Control reg.: 0x%08X\n", (GetBoard(i))->GetCtrlReg()); + if (GetBoard(i)->GetCtrlReg() & BIT_AUTOSTART) PrintMessage(" AUTOSTART enabled\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_DMODE) + if (GetBoard(i)->GetCtrlReg() & BIT_DMODE) PrintMessage(" DMODE circular\n"); else PrintMessage(" DMODE single shot\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_LED) + if (GetBoard(i)->GetCtrlReg() & BIT_LED) PrintMessage(" LED\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_TCAL_EN) + if (GetBoard(i)->GetCtrlReg() & BIT_TCAL_EN) PrintMessage(" TCAL enabled\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_ZERO_SUPP) - PrintMessage(" ZERO_SUPP enabled\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_FREQ_AUTO_ADJ) + if (GetBoard(i)->GetCtrlReg() & BIT_TCAL_SOURCE) + PrintMessage(" TCAL_SOURCE enabled\n"); + if (GetBoard(i)->GetCtrlReg() & BIT_FREQ_AUTO_ADJ) PrintMessage(" FREQ_AUTO_ADJ enabled\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_ENABLE_TRIGGER) + if (GetBoard(i)->GetCtrlReg() & BIT_ENABLE_TRIGGER1) PrintMessage(" ENABLE_TRIGGER\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_LONG_START_PULSE) + if (GetBoard(i)->GetCtrlReg() & BIT_LONG_START_PULSE) PrintMessage(" LONG_START_PULSE\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_DELAYED_START) - PrintMessage(" DELAYED_START\n"); - if ((drs->GetBoard(i))->GetCtrlReg() & BIT_ACAL_EN) + if (GetBoard(i)->GetCtrlReg() & BIT_ACAL_EN) PrintMessage(" ACAL enabled\n"); - PrintMessage(" Trigger bus: 0X%08X\n", (drs->GetBoard(i))->GetTriggerBus()); - if ((drs->GetBoard(i))->IsBusy()) { - (drs->GetBoard(i))->ReadFrequency(0, &freq); + PrintMessage(" Trigger bus: 0x%08X\n", GetBoard(i)->GetTriggerBus()); + if (GetBoard(i)->IsBusy()) { + GetBoard(i)->ReadFrequency(0, &freq); PrintMessage(" Frequency0: %1.4lf GHz\n", freq); - (drs->GetBoard(i))->ReadFrequency(1, &freq); + GetBoard(i)->ReadFrequency(1, &freq); PrintMessage(" Frequency1: %1.4lf GHz\n", freq); } @@ -609,5 +720,5 @@ if (Match(Param[1],"all")) { FirstBoard = 0; - LastBoard = drs->GetNumberOfBoards()-1; + LastBoard = GetNumberOfBoards()-1; } else if (NParam==2 && atoi(Param[1])>=0 && atoi(Param[1])GetNumberOfChips(); j++) + for (int k=0; kGetNumberOfChannels(); k++) if ((atoi(Param[1])==i || Match(Param[1],"all")) && (atoi(Param[2])==j || Match(Param[2],"all")) && @@ -703,22 +813,23 @@ // Start domino wave void DAQReadout::StartDRS() { - for (int i=FirstBoard; i<=LastBoard; i++) drs->GetBoard(i)->StartDomino(); + for (int i=FirstBoard; i<=LastBoard; i++) GetBoard(i)->StartDomino(); } // Stop domino wave void DAQReadout::StopDRS() { - for (int i=FirstBoard; i<=LastBoard; i++) drs->GetBoard(i)->SoftTrigger(); -} - -// Transfer data to memory + for (int i=FirstBoard; i<=LastBoard; i++) GetBoard(i)->SoftTrigger(); +} + +// Transfer amplitude-calibrated waveforms to memory void DAQReadout::ReadCalibratedDRSData() { for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->TransferWaves(kNumberOfChannels*kNumberOfChips); - for (int j=0; jGetBoard(i)->GetWave(0, j, WaveForm[i][0][j], true); // Chip #1 - TriggerCell[i][0] = drs->GetBoard(i)->GetTriggerCell((unsigned int) 0); - drs->GetBoard(i)->GetWave(1, j, WaveForm[i][1][j], true); // Chip #2 - TriggerCell[i][1] = drs->GetBoard(i)->GetTriggerCell((unsigned int) 1); + GetBoard(i)->TransferWaves(GetBoard(i)->GetNumberOfChannels()*GetBoard(i)->GetNumberOfChips()); + + for (int j=0; jGetNumberOfChannels(); j++) { + for (int k=0; kGetNumberOfChips(); k++) { + GetBoard(i)->GetWave(k, j, WaveForm[i][k][j], true, GetBoard(i)->GetTriggerCell(k)); + TriggerCell[i][k] = GetBoard(i)->GetTriggerCell(k); + } } } @@ -728,18 +839,21 @@ bool DAQReadout::ReadCalibration() { - char dir[MAX_COM_SIZE]; - - getcwd(dir, sizeof(dir)); - strcat(dir,"/calib"); for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->SetCalibrationDirectory(dir); - PrintMessage("Reading response calibration file for board %d from: \"%s\"\n", i, dir); - for (int Chip=0; ChipGetBoard(i)->GetResponseCalibration()->ReadCalibration(Chip)==false) { - CalibrationRead = false; - return false; + if (!TCalib[i]) PrintMessage("Warning: No time calibration for board %d\n", i); + + if (GetBoard(i)->GetDRSType() == 4) { + if (ACalib[i] == false) return false; + } + else { + if (!ACalib[i]) { + GetBoard(i)->SetCalibrationDirectory(fCalibDataPath); + PrintMessage("Reading response calibration file for board %d from: \"%s\"\n", i, fCalibDataPath); + for (int Chip=0; ChipGetNumberOfChips(); Chip++) { + if (GetBoard(i)->GetResponseCalibration()->ReadCalibration(Chip) == false) return false; + } + ACalib[i] = true; } - } - CalibrationRead = true; + } + } // Loop over boards return true; } @@ -758,51 +872,34 @@ void DAQReadout::SetDOMINOMode(int mode) { + for (int i=FirstBoard; i<=LastBoard; i++) { + GetBoard(i)->SetDominoMode(mode==1 ? 1:0); + PrintMessage("Domino mode of board %d switched to %s.\n",i,mode==1 ? "continuous":"single shot"); + } +} + +// Set DOMINO readout mode +void DAQReadout::SetDOMINOReadMode(int mode) { + + for (int i=FirstBoard; i<=LastBoard; i++) { + GetBoard(i)->SetReadoutMode(mode); + PrintMessage("Start readout of board %d from %s.\n",i,mode==0 ? "first bin":"stop position"); + } +} + +// Set DOMINO wave mode +void DAQReadout::SetDOMINOWaveMode(int mode) { + + for (int i=FirstBoard; i<=LastBoard; i++) { + GetBoard(i)->SetDominoActive(mode); + PrintMessage("Domino wave of board %d is %s during readout\n",i,mode==1 ? "running":"stopped"); + } +} + +// Enable hardware trigger of all boards +void DAQReadout::HWTrigger(int mode) { + if (NumBoards) for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->SetDominoMode(mode==1 ? 1:0); - PrintMessage("Domino mode of board %d switched to %s.\n",i,mode==1 ? "continuous":"single shot"); - } - else PrintMessage("No DRS boards available\n"); -} - -// Set DOMINO readout mode -void DAQReadout::SetDOMINOReadMode(int mode) { - - if (NumBoards) - for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->SetReadoutMode(mode==1 ? 1:0); - PrintMessage("Start readout of board %d from %s.\n",i,mode==1 ? "first bin":"stop position"); - } - else PrintMessage("No DRS boards available\n"); -} - -// Set DOMINO wave mode -void DAQReadout::SetDOMINOWaveMode(int mode) { - - if (NumBoards) - for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->SetDominoActive(mode==1 ? 1:0); - PrintMessage("Domino wave of board %d is %s during readout\n",i,mode==1 ? "running":"stopped"); - } - else PrintMessage("No DRS boards available\n"); -} - -// Delayed start on/off -void DAQReadout::SetDelayedStart(int mode) { - - if (NumBoards) - for (int i=FirstBoard; i<=LastBoard; i++) { - (drs->GetBoard(i))->SetDelayedStart(mode==1 ? 1:0); - PrintMessage("Delayed start of board %d is %s\n",i,mode==1 ? "on":"off"); - } - else PrintMessage("No DRS boards available\n"); -} - -// Enable hardware trigger of all boards -void DAQReadout::HWTrigger(int mode) { - - if (NumBoards) - for (int i=FirstBoard; i<=LastBoard; i++) { - drs->GetBoard(i)->EnableTrigger(mode==1 ? 1:0); + GetBoard(i)->EnableTrigger(mode, 0); PrintMessage("Hardware trigger of board %d %s\n",i,mode==1 ? "enabled":"disabled"); } @@ -813,18 +910,18 @@ void DAQReadout::SetDRSFrequency(double freq, bool Regulation) { - double currentfreq; - - PrintMessage("Setting frequency %s regulation:\n",Regulation ? "with":"without"); + PrintMessage("Setting frequency %s regulation\n",Regulation ? "with":"without"); + for (int i=FirstBoard; i<=LastBoard; i++) { - drs->GetBoard(i)->SetDebug(1); - - if (Regulation ? drs->GetBoard(i)->RegulateFrequency(freq) : drs->GetBoard(i)->SetFrequency(freq)) { - drs->GetBoard(i)->ReadFrequency(0, ¤tfreq); - DRSFreq[i] = freq; - PrintMessage("Domino wave of board %d is running at %1.3lf GHz\n",i,currentfreq); - } else { - DRSFreq[i] = 0; - PrintMessage("Warning: Domino wave of board %d has changed but not reached the requested value\n",i); - } + if ((Regulation ? GetBoard(i)->RegulateFrequency(freq) : + GetBoard(i)->SetFrequency(freq, true)) == 0) { + PrintMessage("Warning: Board %d has not reached the requested value\n",i); + } + + double f; + GetBoard(i)->ReadFrequency(0, &f); + DRSFreq[i] = f; + ACalib[i] = false; + TCalib[i] = false; + PrintMessage("Board %d is running at %1.3lf GHz\n",i,f); } } @@ -834,5 +931,5 @@ for (int i=FirstBoard; i<=LastBoard; i++) - if ((drs->GetBoard(i))->IsBusy()) return true; + if ((GetBoard(i))->IsBusy()) return true; return false; } @@ -842,6 +939,6 @@ for (int i=FirstBoard; i<=LastBoard; i++) - if (DRSFreq[i]==0) { - PrintMessage("DRS sampling frequency of board %d not set!\n",i); + if (DRSFreq[i] == 0) { + PrintMessage("Sampling frequency of DRS board %d not set\n", i); return false; } @@ -906,6 +1003,6 @@ RHeader->NBoards = NumBoards==0 && daq_runtype==test ? 1 : (LastBoard - FirstBoard) + 1; - RHeader->NChips = kNumberOfChips; - RHeader->NChannels = kNumberOfChannels; + RHeader->NChips = NumBoards==0 ? kNumberOfChipsMax : GetBoard(0)->GetNumberOfChips(); + RHeader->NChannels = NumBoards==0 ? kNumberOfChannelsMax : GetBoard(0)->GetNumberOfChannels(); RHeader->NBytes = sizeof(short); @@ -919,8 +1016,8 @@ for (int i=FirstBoard; i<=LastBoard; i++) { - BStruct[i].SerialNo = drs->GetBoard(i)->GetCMCSerialNumber(); - BStruct[i].BoardTemp = drs->GetBoard(i)->GetTemperature(); + BStruct[i].SerialNo = GetBoard(i)->GetBoardSerialNumber(); + BStruct[i].BoardTemp = GetBoard(i)->GetTemperature(); BStruct[i].NomFreq = DRSFreq[i]; - BStruct[i].ScaleFactor = drs->GetBoard(i)->GetPrecision(); + BStruct[i].ScaleFactor = GetBoard(i)->GetPrecision(); } @@ -990,6 +1087,6 @@ // First chunk: trigger cells - DataPart[Count].iov_base = (char *) TriggerCell + FirstBoard*kNumberOfChips*sizeof(int); // TriggerCell is without cast a pointer to an 8-byte unit (two ints) ! - DataPart[Count++].iov_len = RHeader->NBoards * kNumberOfChips * sizeof(int); + DataPart[Count].iov_base = (char *) TriggerCell + FirstBoard*RHeader->NChips*sizeof(int); // TriggerCell is without cast a pointer to an 8-byte unit (two ints) ! + DataPart[Count++].iov_len = RHeader->NBoards * RHeader->NChips * sizeof(int); Size += DataPart[Count-1].iov_len; @@ -997,5 +1094,7 @@ for (int i=FirstBoard; (i<=LastBoard + (NumBoards==0)); i++) { for (unsigned int k=0; kNChips; k++) { - Start = (TriggerCell[i][k]-fFirstSample+kNumberOfBins) % kNumberOfBins; // Start bin for this chip + // Start bin + if (GetBoard(i)->GetDRSType() == 4) Start = 0; + else Start = (TriggerCell[i][k]-fFirstSample+kNumberOfBins) % kNumberOfBins; for (unsigned int l=0; lNChannels; l++) { DataPart[Count].iov_base = &WaveForm[i][k][l][Start]; @@ -1031,8 +1130,8 @@ "DefaultFrequency: %.2f\tFirstSample: %d\tSamples: %u\n" "MinDiskSpaceMB: %u\tMaxFileSizeMB: %d\tCCPort: %d\n" - "FirstVMESlot: %d\t\tLastVMESlot: %d\n" + "CalibDataPath: %s\n" "SlowDataPath: %s\tHVFeedbackConfig: %s\n", fLogFile,fMaxLogLines,fRawDataPath,fDefaultFrequency,fFirstSample,fSamples,fMinDiskSpaceMB, - fMaxFileSizeMB,fCCPort,fFirstVMESlot,fLastVMESlot,fSlowDataPath,fHVFeedbackConfig); + fMaxFileSizeMB,fCCPort,fCalibDataPath,fSlowDataPath,fHVFeedbackConfig); } @@ -1041,5 +1140,11 @@ PrintMessage("Usage: %s %s\n", CommandList[CmdNumber].Name, CommandList[CmdNumber].Parameters); } - + +// Print progress (used in DRS class) +void DAQReadout::Progress(int Progress) { + PrintMessage(MsgToConsole, "\rProgress: %d%% ", Progress); + fflush(stdout); +}; + // Print message to selected target void DAQReadout::PrintMessage(int Target, const char *Format, ...) { @@ -1230,5 +1335,5 @@ else { double Period = ((double) rand())/RAND_MAX*20; - for (long unsigned int i=0; iRHeader->NBoards*kNumberOfChips*kNumberOfChannels*kNumberOfBins; i++) + for (long unsigned int i=0; iRHeader->NBoards*m->RHeader->NChips*m->RHeader->NChannels*m->RHeader->Samples; i++) *((short *) m->WaveForm+i) = (short) (sin(i/Period)*1000); } @@ -1266,5 +1371,5 @@ m->SlowDataClass->AddToEntry("%d %s %s %d %d %s", m->RunNumber, WriteError?"Error":"OK", daq_runtype_str[m->daq_runtype], m->NumEvents, m->FileNumber, m->RHeader->Description); if(m->SlowDataClass->ErrorCode != 0) { - m->PrintMessage("Error, could not write DAQ data to file (%s), file closed\n", strerror(m->SlowDataClass->ErrorCode)); + m->PrintMessage("Error: Could not write DAQ slow data to file (%s), file closed\n", strerror(m->SlowDataClass->ErrorCode)); } Index: drsdaq/DAQReadout.h =================================================================== --- drsdaq/DAQReadout.h (revision 175) +++ drsdaq/DAQReadout.h (revision 176) @@ -7,4 +7,5 @@ #include #include +#include #include #include @@ -18,5 +19,5 @@ #include "HVFeedback.h" -#define RUN_NUM_FILE "/ct3data/LastRunNumber" +#define RUN_NUM_FILE "/home/ogrimm/Data/LastRunNumber" #define MAX_PATH 256 // also used for filename length @@ -31,5 +32,5 @@ enum runtype_enum {data, pedestal, reserved, test}; -class DAQReadout { +class DAQReadout : public DRS, public DRSCallback { time_t StartTime; @@ -40,5 +41,4 @@ FILE *Logfile; void PrintUsage(); - bool CalibrationRead; public: @@ -46,8 +46,6 @@ EventHeader* EHeader; - DRS *drs; - - short (*WaveForm)[kNumberOfChips][kNumberOfChannels][kNumberOfBins]; - int (*TriggerCell)[kNumberOfChips]; + short (*WaveForm)[kNumberOfChipsMax][kNumberOfChannelsMax][kNumberOfBins]; + int (*TriggerCell)[kNumberOfChipsMax]; pthread_mutex_t control_mutex; @@ -59,4 +57,5 @@ char fLogFile[MAX_PATH]; char fSlowDataPath[MAX_PATH]; + char fCalibDataPath[MAX_PATH]; unsigned int fMaxLogLines; char fRawDataPath[MAX_PATH]; @@ -66,6 +65,4 @@ unsigned int fSamples; int fCCPort; - int fLastVMESlot; - int fFirstVMESlot; char fHVFeedbackConfig[MAX_PATH]; double fDefaultFrequency; @@ -79,4 +76,8 @@ int LastBoard; float *DRSFreq; // DRS sampling frequency [GHz] + bool *ACalib; + double *ACalibTemp; + bool *TCalib; + BoardStructure *BStruct; state_enum daq_state; @@ -97,20 +98,22 @@ ~DAQReadout(); - void cmd_exit(); void cmd_help(); - void cmd_board(); void cmd_status(); - void cmd_led(); void cmd_freq(); - void cmd_calib(); void cmd_serial(); - void cmd_trigger(); void cmd_delayed(); - void cmd_wmode(); void cmd_rmode(); - void cmd_mode(); void cmd_read(); - void cmd_stop(); void cmd_test(); - void cmd_regtest(); void cmd_ramtest(); - void cmd_start(); void cmd_take(); - void cmd_config(); void cmd_events(); - void cmd_disk(); void cmd_uptime(); + void cmd_exit(); void cmd_help(); + void cmd_board(); void cmd_status(); + void cmd_led(); void cmd_freq(); + void cmd_acalib(); void cmd_serial(); + void cmd_trigger(); void cmd_centre(); + void cmd_refclk(); + void cmd_wmode(); void cmd_rmode(); + void cmd_dmode(); void cmd_read(); + void cmd_stop(); void cmd_chiptest(); + void cmd_eepromtest(); void cmd_tcalib(); + void cmd_regtest(); void cmd_ramtest(); + void cmd_start(); void cmd_take(); + void cmd_config(); void cmd_events(); + void cmd_disk(); void cmd_uptime(); - void cmd_fmode(); void cmd_faverage(); - void cmd_ftarget(); void cmd_fgain(); - void cmd_fresponse(); void cmd_fconfig(); + void cmd_fmode(); void cmd_faverage(); + void cmd_ftarget(); void cmd_fgain(); + void cmd_fresponse(); void cmd_fconfig(); void CommandControl(char*); @@ -136,4 +139,6 @@ bool UpdateRunHeader(unsigned int, bool); bool WriteEvent(); + + void Progress(int); }; Index: drsdaq/DRS/DRS.cc =================================================================== --- drsdaq/DRS/DRS.cc (revision 175) +++ drsdaq/DRS/DRS.cc (revision 176) @@ -1,69 +1,107 @@ - -/********************************************************************\ - - Name: DRS.cc - +/******************************************************************** + + Name: DRS.cpp Created by: Stefan Ritt, Matthias Schneebeli - Modified by: Sebastian Commichau (2008) - Oliver Grimm (Nov 2009) - - Modification: This library works with: - - Concurrent Technolgies VME single board PC (VP 315) - - Struck VME controller (SIS 3100) => faster! - - Library functions for DRS board CMC card - requires DRS version 2 or 3 + Contents: Library functions for DRS mezzanine and USB boards + + $Id: DRS.cpp 14453 2009-10-22 10:51:29Z ritt $ \********************************************************************/ -#include "DRS.h" - -#define DEBUG 0 - -// Minimal FPGA firmware version required for this library -#define REQUIRED_FIRMWARE_VERSION_DRS2 5268 -#define REQUIRED_FIRMWARE_VERSION_DRS3 6981 +#include +#include +#include +#include +#include +#include +#include +#include +#include "strlcpy.h" #ifdef CT_VME -#define MEM_SEGMENT 0XA000 // Size of the memory segment allocated by each DRS board for BLT -#define BLT_TIMEOUT 1000 // Timeout for BLT [msec] + #define MEM_SEGMENT 150000 // Size of the memory segment #endif +#ifdef _MSC_VER +#pragma warning(disable:4996) +# include +# include +#else +# include +# include +inline void Sleep(useconds_t x) +{ + usleep(x * 1000); +} +#endif + +#ifdef _MSC_VER +#include +#define drs_kbhit() kbhit() +#else +#include int drs_kbhit() { - int n; - - ioctl(0, FIONREAD, &n); - return (n > 0); -} - -static inline int getch() { return getchar(); } -inline void Sleep(useconds_t x) { usleep(x * 1000); } - -// VME addresses - -/* Assuming following DIP Switch settings: - -SW1-1: 1 (off) Use geographical addressing (1=left, 21=right) -SW1-2: 1 (off) \ -SW1-3: 1 (off) > VME_WINSIZE = 8MB, subwindow = 1MB -SW1-4: 0 (on) / -SW1-5: 0 (on) Reserved -SW1-6: 0 (on) Reserved -SW1-7: 0 (on) Reserved -SW1-8: 0 (on) \ -SW2-1: 0 (on) | -SW2-2: 0 (on) | -SW2-3: 0 (on) | -SW2-4: 0 (on) > VME_ADDR_OFFSET = 0 -SW2-5: 0 (on) | -SW2-6: 0 (on) | -SW2-7: 0 (on) | -SW2-8: 0 (on) / - -which gives -VME base address = SlotNo * VME_WINSIZE + VME_ADDR_OFFSET -= SlotNo * 0x80'0000 */ - + int n; + + ioctl(0, FIONREAD, &n); + return (n > 0); +} +static inline int getch() +{ + return getchar(); +} +#endif + +#include + +#ifdef _MSC_VER +extern "C" { +#endif + +#include + +#ifdef _MSC_VER +} +#endif + +/*---- minimal FPGA firmvare version required for this library -----*/ +const int REQUIRED_FIRMWARE_VERSION_DRS2 = 5268; +const int REQUIRED_FIRMWARE_VERSION_DRS3 = 6981; +const int REQUIRED_FIRMWARE_VERSION_DRS4 = 13191; + +/*---- calibration methods to be stored in EEPROMs -----------------*/ + +#define VCALIB_METHOD 1 +#define TCALIB_METHOD 1 + +/*---- VME addresses -----------------------------------------------*/ +#if defined(HAVE_VME) || defined(CT_VME) + +/* assuming following DIP Switch settings: + + SW1-1: 1 (off) use geographical addressing (1=left, 21=right) + SW1-2: 1 (off) \ + SW1-3: 1 (off) > VME_WINSIZE = 8MB, subwindow = 1MB + SW1-4: 0 (on) / + SW1-5: 0 (on) reserverd + SW1-6: 0 (on) reserverd + SW1-7: 0 (on) reserverd + SW1-8: 0 (on) \ + | + SW2-1: 0 (on) | + SW2-2: 0 (on) | + SW2-3: 0 (on) | + SW2-4: 0 (on) > VME_ADDR_OFFSET = 0 + SW2-5: 0 (on) | + SW2-6: 0 (on) | + SW2-7: 0 (on) | + SW2-8: 0 (on) / + + which gives + VME base address = SlotNo * VME_WINSIZE + VME_ADDR_OFFSET + = SlotNo * 0x80'0000 +*/ #define GEVPC_BASE_ADDR 0x00000000 #define GEVPC_WINSIZE 0x800000 @@ -71,381 +109,266 @@ #define PMC1_OFFSET 0x00000 #define PMC2_OFFSET 0x80000 -#define PMC_CTRL_OFFSET 0x00000 // All registers 32 bit! +#define PMC_CTRL_OFFSET 0x00000 /* all registers 32 bit */ #define PMC_STATUS_OFFSET 0x10000 #define PMC_FIFO_OFFSET 0x20000 #define PMC_RAM_OFFSET 0x40000 - -// DRS registers -#define T_CTRL 1 -#define T_STATUS 2 -#define T_RAM 3 -#define T_FIFO 4 -#define REG_CTRL 0x00000 // 32-bit control reg -#define REG_DAC_OFS 0x00004 -#define REG_DAC0 0x00004 -#define REG_DAC1 0x00006 -#define REG_DAC2 0x00008 -#define REG_DAC3 0x0000A -#define REG_DAC4 0x0000C -#define REG_DAC5 0x0000E -#define REG_DAC6 0x00010 -#define REG_DAC7 0x00012 -#define REG_CHANNEL_CONFIG 0x00014 -#define REG_CHANNEL_SPAN 0x00016 -#define REG_FREQ_SET_HI 0x00018 -#define REG_FREQ_SET_LO 0x0001A -#define REG_TRIG_DELAY 0x0001C -#define REG_CALIB_TIMING 0x0001E -#define REG_STATUS 0x00000 -#define REG_RDAC_OFS 0x0000A -#define REG_RDAC0 0x00004 -#define REG_RDAC1 0x00006 -#define REG_RDAC2 0x00008 -#define REG_RDAC3 0x0000A -#define REG_RDAC4 0x0000C -#define REG_RDAC5 0x0000E -#define REG_RDAC6 0x00010 -#define REG_RDAC7 0x00012 -#define REG_EVENTS_IN_FIFO 0x00014 -#define REG_EVENT_COUNT 0x00016 -#define REG_FREQ1 0x00018 -#define REG_FREQ2 0x0001A -#define REG_TEMPERATURE 0x0001C -#define REG_TRIGGER_BUS 0x0001E -#define REG_SERIAL_CMC 0x00020 -#define REG_VERSION_FW 0x00022 +#endif // HAVE_VME +/*---- USB addresses -----------------------------------------------*/ +#define USB_TIMEOUT 1000 // one second +#ifdef HAVE_USB +#define USB_CTRL_OFFSET 0x00 /* all registers 32 bit */ +#define USB_STATUS_OFFSET 0x40 +#define USB_RAM_OFFSET 0x80 +#define USB_CMD_IDENT 0 // Query identification +#define USB_CMD_ADDR 1 // Address cycle +#define USB_CMD_READ 2 // "VME" read +#define USB_CMD_WRITE 3 // "VME" write +#define USB_CMD_READ12 4 // 12-bit read +#define USB_CMD_WRITE12 5 // 12-bit write + +#define USB2_CMD_READ 1 +#define USB2_CMD_WRITE 2 +#define USB2_CTRL_OFFSET 0x00000 /* all registers 32 bit */ +#define USB2_STATUS_OFFSET 0x10000 +#define USB2_FIFO_OFFSET 0x20000 +#define USB2_RAM_OFFSET 0x40000 +#endif // HAVE_USB + +/*------------------------------------------------------------------*/ using namespace std; - -DRS::DRS() : fNumberOfBoards(0), -#ifdef STRUCK_VME - fVMEInterface(0), +#ifdef HAVE_USB +#define USB2_BUFFER_SIZE (1024*1024+10) +unsigned char static *usb2_buffer = NULL; #endif - First_VME_Slot(0), Last_VME_Slot(7) -{ } - - -/*------------------------------------------------------------------*/ - -DRS::~DRS() { - - int i; - - for (i = 0; i < fNumberOfBoards; i++) { - delete fBoard[i]; - } - + +/*------------------------------------------------------------------*/ + +DRS::DRS() +: fNumberOfBoards(0) +#ifdef HAVE_VME + , fVmeInterface(0) +#endif +{ +#ifdef HAVE_USB + MUSB_INTERFACE *usb_interface; +#endif + + int index = 0, i = 0; + memset(fError, 0, sizeof(fError)); + +#if defined(HAVE_VME) || defined(CT_VME) + unsigned short type, fw, magic, serial, temperature; + +#ifdef HAVE_VME + mvme_addr_t addr; + + if (mvme_open(&fVmeInterface, 0) == MVME_SUCCESS) { + mvme_set_am(fVmeInterface, MVME_AM_A32); + mvme_set_dmode(fVmeInterface, MVME_DMODE_D16); +#endif #ifdef CT_VME - if (!CloseVME()) printf("VME connection closed\n"); - if (!CloseCMEM()) printf("CMEM closed\n"); -#endif - -#ifdef STRUCK_VME - if (fVMEInterface != NULL) - if (mvme_close(fVMEInterface)); - printf("VME connection closed\n"); - -#endif - -} - - -void DRS::InitialScan() { - - int index = 0; - - unsigned short Firmware, Serial, Temperature; - -#ifdef CT_VME - - unsigned int BoardAddress; + unsigned int addr; - if (!OpenVME()) { - - printf("VME connection opened\n"); - if (!OpenCMEM()) printf("CMEM opened\n"); - else return; - + if (OpenVME() == VME_SUCCESS) { + if (OpenCMEM() != VME_SUCCESS) { + printf("Error with OpenCMEM()\n"); + return; + } // Set master mapping input information - MasterMap.vmebus_address = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // Init VME board base address (derived from - // the slot number => geographical addressing) - - MasterMap.window_size = GEVPC_WINSIZE; // VME address window size + MasterMap.window_size = GEVPC_WINSIZE; MasterMap.address_modifier = VME_A32; MasterMap.options = 0; +#endif + /* check all VME slave slots */ + for (index = 2; index <= 10; index++) { +#ifdef CT_VME + MasterMap.vmebus_address = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // VME board base address + MasterMapVME(&MasterMapping[index]); +#endif - // Check all VME slave slots - for (index = First_VME_Slot; index <= Last_VME_Slot; index++) { - - MasterMap.vmebus_address = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // Update VME board base address - - if (DEBUG) - printf("Checking VME slot %d (base address: 0X%08X)\n",index,MasterMap.vmebus_address); - - MasterMapVME(&MasterMapping[index]); - - // **************************** Check PMC1 **************************** - BoardAddress = GEVPC_USER_FPGA; // UsrFPGA base address - BoardAddress += PMC1_OFFSET; // PMC1 offset - - // Read firmware - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_VERSION_FW, &Firmware); - - // Read serial number - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_SERIAL_CMC, &Serial); - - // Read temperature register to see if CMC card is present - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_TEMPERATURE, &Temperature); - - if (Firmware > 2400 && Firmware < 20000) { - - if (Temperature == 0XFFFF) { - if (DEBUG) - printf("No CMC board in slot %d\n", index); - } else { - if (DEBUG) { - printf("Found CMC board in slot %d:\n", index); - printf(" Firmware: %d\n",Firmware); - printf(" Board serial nr.: %d\n",Serial); - printf(" Temperature register: %d\n",Temperature); - } - - fBoard[fNumberOfBoards] = new DRSBoard(MasterMapping[index], MasterMap.vmebus_address, BoardAddress, (index-2) << 1); - - if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) - fNumberOfBoards++; - else - if (DEBUG) - printf("Error: wrong firmware version: board has %d, required is %d\n", - fBoard[fNumberOfBoards]->GetFirmwareVersion(), - fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); - } - } - - - // **************************** Check PMC2 **************************** - BoardAddress = GEVPC_USER_FPGA; // UsrFPGA base address - BoardAddress += PMC2_OFFSET; // PMC2 offset - - // Read firmware - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_VERSION_FW, &Firmware); - - // Read serial number - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_SERIAL_CMC, &Serial); - - // Read temperature register to see if CMC card is present - VME_ReadFastUShort(MasterMapping[index], BoardAddress + PMC_STATUS_OFFSET + REG_TEMPERATURE, &Temperature); - - if (Firmware > 2400 && Firmware < 20000) { - - if (Temperature == 0XFFFF) { - printf("No CMC board in slot %d\n", index); - } else { - if (DEBUG) { - printf("Found CMC board in slot %d:\n", index); - printf(" Firmware: %d\n",Firmware); - printf(" Board serial nr.: %d\n",Serial); - printf(" Temperature register: %d\n",Temperature); - } - - fBoard[fNumberOfBoards] = new DRSBoard(MasterMapping[index], MasterMap.vmebus_address, BoardAddress, ((index-2) << 1) | 1); - - if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) - fNumberOfBoards++; - else - if (DEBUG) - printf("Error: wrong firmware version: board has %d, required is %d\n", - fBoard[fNumberOfBoards]->GetFirmwareVersion(), - fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); - } - } - else - MasterUnMapVME(MasterMapping[index]); - } - if (DEBUG) printf("Found %d DRS boards in VME crate\n", fNumberOfBoards); - } + /* check PMC1 and PMC2 */ + for (int pmc=0; pmc<2; pmc++) { + +#ifdef HAVE_VME + addr = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // VME board base address + addr += GEVPC_USER_FPGA; // UsrFPGA base address + addr += (pmc == 0) ? PMC1_OFFSET : PMC2_OFFSET; // offset + + mvme_set_dmode(fVmeInterface, MVME_DMODE_D16); + i = mvme_read(fVmeInterface, &magic, addr + PMC_STATUS_OFFSET + REG_MAGIC, 2); #endif -#ifdef STRUCK_VME - - int i = 0; - - mvme_addr_t Address; - - if (mvme_open(&fVMEInterface, 0) == MVME_SUCCESS) { - - printf("VME connection opened\n"); - - mvme_set_am(fVMEInterface, MVME_AM_A32); - mvme_set_dmode(fVMEInterface, MVME_DMODE_D16); - - // Check all VME slave slots - for (index = 2; index <= 21; index++) { - - // **************************** Check PMC1 **************************** - Address = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // VME board base address - Address += GEVPC_USER_FPGA; // UsrFPGA base address - Address += PMC1_OFFSET; // PMC1 offset - - // Read firmware - i = mvme_read(fVMEInterface, &Firmware, Address + PMC_STATUS_OFFSET + REG_VERSION_FW, 2); - - if (i == 2) { - - // Read serial number - mvme_read(fVMEInterface, &Serial, Address + PMC_STATUS_OFFSET + REG_SERIAL_CMC, 2); - - // Read temperature register to see if CMC card is present - mvme_read(fVMEInterface, &Temperature, Address + PMC_STATUS_OFFSET + REG_TEMPERATURE, 2); - - if (Firmware > 2400 && Firmware < 20000) { - - if (Temperature == 0xFFFF) { - printf("No CMC board in slot %d\n", index); - } else { - if (DEBUG) { - printf("Found CMC board in slot %d:\n", index); - printf(" Firmware: %d\n",Firmware); - printf(" Board serial nr.: %d\n",Serial); - printf(" Temperature register: %d\n",Temperature); - } - - fBoard[fNumberOfBoards] = new DRSBoard(fVMEInterface, Address, (index-2) << 1); - - if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) - fNumberOfBoards++; - else - if (DEBUG) - printf("Error: wrong firmware version: board has %d, required is %d\n", - fBoard[fNumberOfBoards]->GetFirmwareVersion(), - fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); - - } - } - } - - // **************************** Check PMC2 **************************** - Address = GEVPC_BASE_ADDR + index * GEVPC_WINSIZE; // VME board base address - Address += GEVPC_USER_FPGA; // UsrFPGA base address - Address += PMC2_OFFSET; // PMC2 offset - - // Read firmware - i = mvme_read(fVMEInterface, &Firmware, Address + PMC_STATUS_OFFSET + REG_VERSION_FW, 2); - - if (i == 2) { - - // Read serial number - mvme_read(fVMEInterface, &Serial, Address + PMC_STATUS_OFFSET + REG_SERIAL_CMC, 2); - - // Read temperature register to see if CMC card is present - mvme_read(fVMEInterface, &Temperature, Address + PMC_STATUS_OFFSET + REG_TEMPERATURE, 2); - - if (Firmware > 2400 && Firmware < 20000) { - - if (Temperature == 0xFFFF) { - printf("No CMC board in slot %d\n", index); - } else { - if (DEBUG) { - printf("Found CMC board in slot %d:\n", index); - printf(" Firmware: %d\n",Firmware); - printf(" Board serial nr.: %d\n",Serial); - printf(" Temperature register: %d\n",Temperature); - } - - fBoard[fNumberOfBoards] = new DRSBoard(fVMEInterface, Address, ((index-2) << 1) | 1); - - if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) - fNumberOfBoards++; - else - if (DEBUG) - printf("Error: wrong firmware version: board has %d, required is %d\n", - fBoard[fNumberOfBoards]->GetFirmwareVersion(), - fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); - } - } - } - } - if (DEBUG) printf("Found %d DRS boards in VME crate\n", fNumberOfBoards); - } +#ifdef CT_VME + addr = 0; // VME board base address + addr += GEVPC_USER_FPGA; // UsrFPGA base address + addr += (pmc == 0) ? PMC1_OFFSET : PMC2_OFFSET; // offset + ErrorCode = VME_ReadSafeUShort(MasterMapping[index], addr + PMC_STATUS_OFFSET + REG_MAGIC, &magic); + if (ErrorCode == VME_SUCCESS) i = 2; + else i = 0; #endif - else printf("Error: cannot access VME crate, check driver, power and connection\n"); - -} - - -/*------------------------------------------------------------------*/ - + if (i == 2) { + if (magic != 0xC0DE) { + printf("Found old firmware, please upgrade immediately!\n"); +#ifdef HAVE_VME + fBoard[fNumberOfBoards] = new DRSBoard(fVmeInterface, addr, (index - 2) << 1 | pmc); +#endif #ifdef CT_VME -DRSBoard::DRSBoard(int MasterMapping, unsigned int BaseAddress, unsigned int BoardAddress, int SlotNumber) -#else -DRSBoard::DRSBoard(MVME_INTERFACE *MVME_Interface, mvme_addr_t BaseAddress, int SlotNumber) + fBoard[fNumberOfBoards] = new DRSBoard(MasterMapping[index], MasterMap.vmebus_address, addr, (index-2) << 1 | pmc); #endif - :fDAC_COFSA(0) - ,fDAC_COFSB(0) - ,fDAC_DRA(0) - ,fDAC_DSA(0) - ,fDAC_TLEVEL(0) - ,fDAC_ACALIB(0) - ,fDAC_DSB(0) - ,fDAC_DRB(0) - ,fDAC_COFS(0) - ,fDAC_ADCOFS(0) - ,fDAC_CLKOFS(0) - ,fDAC_ROFS_1(0) - ,fDAC_ROFS_2(0) - ,fDAC_INOFS(0) - ,fDAC_BIAS(0) - ,fBaseAddress(BaseAddress) + fNumberOfBoards++; + } else { + +#ifdef HAVE_VME + /* read board type */ + mvme_read(fVmeInterface, &type, addr + PMC_STATUS_OFFSET + REG_BOARD_TYPE, 2); + /* read firmware number */ + mvme_read(fVmeInterface, &fw, addr + PMC_STATUS_OFFSET + REG_VERSION_FW, 2); + /* read serial number */ + mvme_read(fVmeInterface, &serial, addr + PMC_STATUS_OFFSET + REG_SERIAL_BOARD, 2); + /* read temperature register to see if CMC card is present */ + mvme_read(fVmeInterface, &temperature, addr + PMC_STATUS_OFFSET + REG_TEMPERATURE, 2); + +#endif #ifdef CT_VME - ,fBoardAddress(BoardAddress) - ,fMasterMapping(MasterMapping) + /* read board type */ + VME_ReadFastUShort(MasterMapping[index], addr + PMC_STATUS_OFFSET + REG_BOARD_TYPE, &type); + // Read firmware + VME_ReadFastUShort(MasterMapping[index], addr + PMC_STATUS_OFFSET + REG_VERSION_FW, &fw); + // Read serial number + VME_ReadFastUShort(MasterMapping[index], addr + PMC_STATUS_OFFSET + REG_SERIAL_BOARD, &serial); + // Read temperature register to see if CMC card is present + VME_ReadFastUShort(MasterMapping[index], addr + PMC_STATUS_OFFSET + REG_TEMPERATURE, &temperature); #endif -#ifdef STRUCK_VME - ,fVMEInterface(MVME_Interface) + type &= 0xFF; + if (type == 2 || type == 3 || type == 4) { // DRS2 or DRS3 or DRS4 + if (temperature == 0xFFFF) { + printf("Found VME board in slot %d, fw %d, but no CMC board in %s slot\n", index, fw, (pmc==0) ? "upper" : "lower"); + } + else { + printf("Found DRS%d board %2d in %s VME slot %2d, serial #%d, firmware revision %d\n", type, fNumberOfBoards, (pmc==0) ? "upper" : "lower", index, serial, fw); + +#ifdef HAVE_VME + fBoard[fNumberOfBoards] = new DRSBoard(fVmeInterface, addr, (index - 2) << 1 | pmc); #endif - ,fRequiredFirmwareVersion(0) - ,fFirmwareVersion(0) - ,fChipVersion(0) - ,fBoardVersion(0) - ,fCMCSerialNumber(0) - ,fCtrlBits(0) - ,fNumberOfReadoutChannels(0) - ,fExternalClockFrequency(0) - ,fSlotNumber(SlotNumber) - ,fFrequency(0) - ,fDominoMode(0) - ,fReadoutMode(0) - ,fTriggerEnable(0) - ,fDelayedStart(0) - ,fTriggerCell(0) - ,fMaxChips(0) - ,fResponseCalibration(0) - ,fTimeData(0) - ,fNumberOfTimeData(0) - ,fDebug(0) - ,fTriggerStartBin(0) - ,kRotateWave(0) -{ - ConstructBoard(); -} - - -/*------------------------------------------------------------------*/ - -DRSBoard::~DRSBoard() -{ - // Response Calibration - delete fResponseCalibration; - - int i; - // Time Calibration - for (i = 0; i < fNumberOfTimeData; i++) { - delete fTimeData[i]; - } - delete[]fTimeData; - +#ifdef CT_VME + fBoard[fNumberOfBoards] = new DRSBoard(MasterMapping[index], MasterMap.vmebus_address, addr, (index-2) << 1 | pmc); +#endif + if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) fNumberOfBoards++; + else { + sprintf(fError, "Wrong firmware version: board has %d, required is %d\n", + fBoard[fNumberOfBoards]->GetFirmwareVersion(), + fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); + delete fBoard[fNumberOfBoards]; + } + } // Temperature check + } // Type check + } // Magic check + } + } // pmc + } + } else printf("Cannot access VME crate, check driver, power and connection\n"); +#endif // HAVE_VME + +#ifdef HAVE_USB + unsigned char buffer[512]; + int found, one_found, usb_slot; + + one_found = 0; + usb_slot = 0; + for (index = 0; index < 127; index++) { + found = 0; + + /* check for USB-Mezzanine test board */ + if (musb_open(&usb_interface, 0x10C4, 0x1175, index, 1, 0) == MUSB_SUCCESS) { + + /* check ID */ + buffer[0] = USB_CMD_IDENT; + musb_write(usb_interface, 2, buffer, 1, USB_TIMEOUT); + + i = musb_read(usb_interface, 1, (char *) buffer, sizeof(buffer), USB_TIMEOUT); + if (strcmp((char *) buffer, "USB_MEZZ2 V1.0") != 0) { + /* no USB-Mezzanine board found */ + musb_close(usb_interface); + } else { + usb_interface->usb_type = 1; // USB 1.1 + fBoard[fNumberOfBoards] = new DRSBoard(usb_interface, usb_slot++); + if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) { + fNumberOfBoards++; + found = 1; + one_found = 1; + } else + sprintf(fError, "Wrong firmware version: board has %d, required is %d\n", + fBoard[fNumberOfBoards]->GetFirmwareVersion(), + fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); + } + } + + /* check for DRS4 evaluation board */ + if (musb_open(&usb_interface, 0x04B4, 0x1175, index, 1, 0) == MUSB_SUCCESS) { + + /* check ID */ + struct usb_device_descriptor d; + usb_get_descriptor(usb_interface->dev, USB_DT_DEVICE, 0, &d, sizeof(d)); + if (d.bcdDevice != 1) { + /* no DRS evaluation board found */ + musb_close(usb_interface); + } else { + + /* drain any data from Cy7C68013 FIFO if FPGA startup caused erratic write */ + do { + i = musb_read(usb_interface, 8, buffer, sizeof(buffer), 100); + if (i > 0) + printf("%d bytes stuck in buffer\n", i); + } while (i > 0); + + usb_interface->usb_type = 2; // USB 2.0 + fBoard[fNumberOfBoards] = new DRSBoard(usb_interface, usb_slot++); + if (fBoard[fNumberOfBoards]->HasCorrectFirmware()) { + fNumberOfBoards++; + found = 1; + one_found = 1; + } else { + sprintf(fError, "Wrong firmware version: board has %d, required is %d\n", + fBoard[fNumberOfBoards]->GetFirmwareVersion(), + fBoard[fNumberOfBoards]->GetRequiredFirmwareVersion()); + } + } + } + + if (!found) { + if (!one_found) + printf("USB successfully scanned, but no boards found\n"); + break; + } + } +#endif // HAVE_USB + + return; +} + +/*------------------------------------------------------------------*/ + +DRS::~DRS() +{ + int i; + for (i = 0; i < fNumberOfBoards; i++) { + delete fBoard[i]; + } + +#ifdef HAVE_USB + if (usb2_buffer) { + free(usb2_buffer); + usb2_buffer = NULL; + } +#endif + +#ifdef HAVE_VME + mvme_close(fVmeInterface); +#endif + #ifdef CT_VME - if (!FreeSegmentCMEM(CMEM_SegIdentifier) && DEBUG) - printf("Memory segment %d (board #%d) freed\n",CMEM_SegIdentifier,fCMCSerialNumber); + if (CloseVME() != VME_SUCCESS) printf("Error with CloseVME()\n"); + if (CloseCMEM()!= VME_SUCCESS) printf("Error with CloseCMEM()\n"); #endif } @@ -453,432 +376,849 @@ /*------------------------------------------------------------------*/ -void DRSBoard::ConstructBoard() -{ - fDebug = 0; - fDominoMode = 1; - fReadoutMode = 0; - fTriggerEnable = 0; - fCtrlBits = 0; - fNumberOfReadoutChannels = 10; - fExternalClockFrequency = 1000. / 30.; - - for (int i = 0; i < kNumberOfChips * kNumberOfChannels; i++) - fWaveTransferred[i] = false; - - strcpy(fCalibDirectory, "."); - +bool DRS::GetError(char *str, int size) +{ + if (fError[0]) + strlcpy(str, fError, size); + + return fError[0] > 0; +} + +/*------------------------------------------------------------------*/ + +#ifdef HAVE_USB +DRSBoard::DRSBoard(MUSB_INTERFACE * musb_interface, int usb_slot) +: fDAC_COFSA(0) + , fDAC_COFSB(0) + , fDAC_DRA(0) + , fDAC_DSA(0) + , fDAC_TLEVEL(0) + , fDAC_ACALIB(0) + , fDAC_DSB(0) + , fDAC_DRB(0) + , fDAC_COFS(0) + , fDAC_ADCOFS(0) + , fDAC_CLKOFS(0) + , fDAC_ROFS_1(0) + , fDAC_ROFS_2(0) + , fDAC_INOFS(0) + , fDAC_BIAS(0) + , fDRSType(0) + , fBoardType(0) + , fRequiredFirmwareVersion(0) + , fFirmwareVersion(0) + , fBoardSerialNumber(0) + , fCtrlBits(0) + , fNumberOfReadoutChannels(0) + , fReadoutChannelConfig(0) + , fADCClkPhase(0) + , fADCClkInvert(0) + , fExternalClockFrequency(0) + , fUsbInterface(musb_interface) +#ifdef HAVE_VME + , fVmeInterface(0) + , fBaseAddress(0) +#endif + , fSlotNumber(usb_slot) + , fFrequency(0) + , fDominoMode(0) + , fDominoActive(0) + , fChannelConfig(0) + , fWSRLoop(0) + , fReadoutMode(0) + , fTriggerEnable1(0) + , fTriggerEnable2(0) + , fTriggerSource(0) + , fTriggerDelay(0) + , fDelayedStart(0) + , fRange(0) + , fCommonMode(0.8) + , fAcalMode(0) + , fAcalVolt(0) + , fTcalFreq(0) + , fTcalLevel(0) + , fTcalPhase(0) + , fMaxChips(0) + , fResponseCalibration(0) + , fCellCalibrationValid(false) + , fCellCalibratedRange(0) + , fTimingCalibrationValid(false) + , fTimeData(0) + , fNumberOfTimeData(0) + , fDebug(0) + , fTriggerStartBin(0) +{ + if (musb_interface->usb_type == 1) + fTransport = TR_USB; + else + fTransport = TR_USB2; + memset(fStopCell, 0, sizeof(fStopCell)); + ConstructBoard(); +} + +#endif + +#ifdef HAVE_VME +/*------------------------------------------------------------------*/ + +DRSBoard::DRSBoard(MVME_INTERFACE * mvme_interface, mvme_addr_t base_address, int slot_number) +:fDAC_COFSA(0) +, fDAC_COFSB(0) +, fDAC_DRA(0) +, fDAC_DSA(0) +, fDAC_TLEVEL(0) +, fDAC_ACALIB(0) +, fDAC_DSB(0) +, fDAC_DRB(0) +, fDAC_COFS(0) +, fDAC_ADCOFS(0) +, fDAC_CLKOFS(0) +, fDAC_ROFS_1(0) +, fDAC_ROFS_2(0) +, fDAC_INOFS(0) +, fDAC_BIAS(0) +, fDRSType(0) +, fBoardType(0) +, fRequiredFirmwareVersion(0) +, fFirmwareVersion(0) +, fBoardSerialNumber(0) +, fTransport(TR_VME) +, fCtrlBits(0) +, fNumberOfReadoutChannels(0) +, fReadoutChannelConfig(0) +, fADCClkPhase(0) +, fADCClkInvert(0) +, fExternalClockFrequency(0) +#ifdef HAVE_USB +, fUsbInterface(0) +#endif +#ifdef HAVE_VME +, fVmeInterface(mvme_interface) +, fBaseAddress(base_address) +, fSlotNumber(slot_number) +#endif +, fFrequency(0) +, fRefClock(0) +, fDominoMode(1) +, fDominoActive(1) +, fChannelConfig(0) +, fWSRLoop(1) +, fReadoutMode(0) +, fTriggerEnable1(0) +, fTriggerEnable2(0) +, fTriggerSource(0) +, fTriggerDelay(0) +, fDelayedStart(0) +, fRange(0) +, fCommonMode(0.8) +, fAcalMode(0) +, fAcalVolt(0) +, fTcalFreq(0) +, fTcalLevel(0) +, fTcalPhase(0) +, fMaxChips(0) +, fResponseCalibration(0) +, fTimeData(0) +, fNumberOfTimeData(0) +, fDebug(0) +, fTriggerStartBin(0) +{ + ConstructBoard(); +} + +#endif + #ifdef CT_VME - if (DEBUG) { - printf("Base address: 0X%08X\n",fBaseAddress); - printf("Board address: 0X%08X\n",fBoardAddress); - printf("0X%08X\n",fBaseAddress+fBoardAddress); - } -#endif - ReadSerialNumber(); - - // Check for required firmware version - if (!HasCorrectFirmware()) - return; - - if (DEBUG) - printf("Board version: %d\n",fBoardVersion); - - if (fBoardVersion == 1) { - - fDAC_COFSA = 0; - fDAC_COFSB = 1; - fDAC_DRA = 2; - fDAC_DSA = 3; - fDAC_TLEVEL = 4; - fDAC_ACALIB = 5; - fDAC_DSB = 6; - fDAC_DRB = 7; - - } else if (fBoardVersion == 2 || fBoardVersion == 3) { - - fDAC_COFS = 0; - fDAC_DSA = 1; - fDAC_DSB = 2; - fDAC_TLEVEL = 3; - fDAC_CLKOFS = 5; - fDAC_ACALIB = 6; - fDAC_ADCOFS = 7; - - } else if (fBoardVersion == 4) { - - fDAC_ROFS_1 = 0; - fDAC_DSA = 1; - fDAC_DSB = 2; - fDAC_ROFS_2 = 3; - fDAC_BIAS = 4; - fDAC_ADCOFS = 7; - fDAC_INOFS = 5; - fDAC_ACALIB = 6; - } - - // Response Calibration - fResponseCalibration = new ResponseCalibration(this); - - // Time Calibration - fTimeData = new DRSBoard::TimeData *[kNumberOfChips]; - fNumberOfTimeData = 0; - -#ifdef CT_VME +/*------------------------------------------------------------------*/ + +DRSBoard::DRSBoard(int MasterMapping, unsigned int base_address, unsigned int BoardAddress, int slot_number) +:fDAC_COFSA(0) +, fDAC_COFSB(0) +, fDAC_DRA(0) +, fDAC_DSA(0) +, fDAC_TLEVEL(0) +, fDAC_ACALIB(0) +, fDAC_DSB(0) +, fDAC_DRB(0) +, fDAC_COFS(0) +, fDAC_ADCOFS(0) +, fDAC_CLKOFS(0) +, fDAC_ROFS_1(0) +, fDAC_ROFS_2(0) +, fDAC_INOFS(0) +, fDAC_BIAS(0) +, fDRSType(0) +, fBoardType(0) +, fRequiredFirmwareVersion(0) +, fFirmwareVersion(0) +, fBoardSerialNumber(0) +, fTransport(TR_VME) +, fCtrlBits(0) +, fNumberOfReadoutChannels(0) +, fReadoutChannelConfig(0) +, fADCClkPhase(0) +, fADCClkInvert(0) +, fExternalClockFrequency(0) +, fBaseAddress(base_address) +, fBoardAddress(BoardAddress) +, fMasterMapping(MasterMapping) +, fSlotNumber(slot_number) +, fFrequency(0) +, fRefClock(0) +, fDominoMode(1) +, fDominoActive(1) +, fChannelConfig(0) +, fWSRLoop(1) +, fReadoutMode(0) +, fTriggerEnable1(0) +, fTriggerEnable2(0) +, fTriggerSource(0) +, fTriggerDelay(0) +, fDelayedStart(0) +, fRange(0) +, fCommonMode(0.8) +, fAcalMode(0) +, fAcalVolt(0) +, fTcalFreq(0) +, fTcalLevel(0) +, fTcalPhase(0) +, fMaxChips(0) +, fResponseCalibration(0) +, fTimeData(0) +, fNumberOfTimeData(0) +, fDebug(0) +, fTriggerStartBin(0) +{ // Allocate contiguous memory for BLT AllocateSegmentCMEM(MEM_SEGMENT,&CMEM_SegIdentifier); - if (DEBUG) - printf("Memory segment %d (board #%d) allocated\n",CMEM_SegIdentifier,fCMCSerialNumber); - AssignPhysicalSegAddressCMEM(CMEM_SegIdentifier, &PCIAddress); AssignVirtualSegAddressCMEM(CMEM_SegIdentifier, &VirtualAddress); - if (DEBUG) - printf("Physical address: 0X%08X, virtual address: 0X%08X\n", (unsigned int)PCIAddress,(unsigned int)VirtualAddress); + ConstructBoard(); +} #endif -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::PrintBinary32(unsigned int i) { - - int k; - - for (k=31;k>=0;k--) - if ((i & (1 << k)) !=0) { - if ((k)%8) - printf("1"); - else - printf("1 "); - } - else { - if ((k)%8) - printf("0"); - else - printf("0 "); - } - printf("\n"); -} - -/*------------------------------------------------------------------*/ - -long int DRSBoard::GetMicroSeconds() { - - struct tm * timeinfo; - time_t rawtime; +/*------------------------------------------------------------------*/ + +DRSBoard::~DRSBoard() +{ + int i; +#ifdef HAVE_USB + if (fTransport == TR_USB || fTransport == TR_USB2) + musb_close(fUsbInterface); +#endif + + // Response Calibration + delete fResponseCalibration; + + // Time Calibration + for (i = 0; i < fNumberOfTimeData; i++) { + delete fTimeData[i]; + } + delete[]fTimeData; + +#ifdef CT_VME + FreeSegmentCMEM(CMEM_SegIdentifier); +#endif + +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::ConstructBoard() +{ + unsigned char buffer[2]; + + fDebug = 0; + fWSRLoop = 1; + fCtrlBits = 0; + + fExternalClockFrequency = 1000. / 30.; + strcpy(fCalibDirectory, "."); + + /* check board communication */ + if (Read(T_STATUS, buffer, REG_MAGIC, 2) < 0) { + InitFPGA(); + if (Read(T_STATUS, buffer, REG_MAGIC, 2) < 0) + return; + } + + ReadSerialNumber(); + + /* check for required firmware version */ + if (!HasCorrectFirmware()) + return; + + /* set correct reference clock */ + if (fBoardType == 5) + fRefClock = 60; + else + fRefClock = 33; + + /* get mode from hardware */ + if (fDRSType == 4) { + fDominoMode = (GetConfigReg() & BIT_CONFIG_DMODE) > 0; + } else { + fDominoMode = (GetCtrlReg() & BIT_DMODE) > 0; + } + fTriggerEnable1 = (GetConfigReg() & BIT_ENABLE_TRIGGER1) > 0; + fTriggerEnable2 = (GetConfigReg() & BIT_ENABLE_TRIGGER2) > 0; + fTriggerSource = ((GetConfigReg() & BIT_TR_SOURCE1) > 0) | (((GetConfigReg() & BIT_TR_SOURCE2) > 0) << 1); + fReadoutMode = (GetConfigReg() & BIT_READOUT_MODE) > 0; + fADCClkInvert = (GetConfigReg() & BIT_ADCCLK_INVERT) > 0; + fDominoActive = (GetConfigReg() & BIT_DACTIVE) > 0; + ReadFrequency(0, &fFrequency); + if (fFrequency < 0.1 || fFrequency > 6) + fFrequency = 1; + + /* initialize number of channels */ + if (fDRSType == 4) { + if (fBoardType == 6) { + unsigned short d; + Read(T_CTRL, &d, REG_CHANNEL_MODE, 2); + fReadoutChannelConfig = d & 0xFF; + if (d == 7) + fNumberOfReadoutChannels = 9; + else + fNumberOfReadoutChannels = 5; + } else + fNumberOfReadoutChannels = 9; + } else + fNumberOfReadoutChannels = 10; + + if (fBoardType == 1) { + fDAC_COFSA = 0; + fDAC_COFSB = 1; + fDAC_DRA = 2; + fDAC_DSA = 3; + fDAC_TLEVEL = 4; + fDAC_ACALIB = 5; + fDAC_DSB = 6; + fDAC_DRB = 7; + } else if (fBoardType == 2 || fBoardType == 3) { + fDAC_COFS = 0; + fDAC_DSA = 1; + fDAC_DSB = 2; + fDAC_TLEVEL = 3; + fDAC_CLKOFS = 5; + fDAC_ACALIB = 6; + fDAC_ADCOFS = 7; + } else if (fBoardType == 4) { + fDAC_ROFS_1 = 0; + fDAC_DSA = 1; + fDAC_DSB = 2; + fDAC_ROFS_2 = 3; + fDAC_BIAS = 4; + fDAC_INOFS = 5; + fDAC_ACALIB = 6; + fDAC_ADCOFS = 7; + } else if (fBoardType == 5) { + fDAC_ROFS_1 = 0; + fDAC_CMOFS = 1; + fDAC_CALN = 2; + fDAC_CALP = 3; + fDAC_BIAS = 4; + fDAC_TLEVEL = 5; + fDAC_ONOFS = 6; + } else if (fBoardType == 6) { + fDAC_ONOFS = 0; + fDAC_CMOFSP = 1; + fDAC_CALN = 2; + fDAC_CALP = 3; + fDAC_CMOFSN = 5; + fDAC_ROFS_1 = 6; + fDAC_BIAS = 7; + } + + if (fDRSType == 4) { + ReadCalibration(); + } else { + // Response Calibration + fResponseCalibration = new ResponseCalibration(this); + + // Time Calibration + fTimeData = new DRSBoard::TimeData *[kNumberOfChipsMax]; + fNumberOfTimeData = 0; + } +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::ReadSerialNumber() +{ + unsigned char buffer[2]; + int number; + + // check magic number + if (Read(T_STATUS, buffer, REG_MAGIC, 2) < 0) { + printf("Cannot read from board\n"); + return; + } + + number = (static_cast < int >(buffer[1]) << 8) +buffer[0]; + if (number != 0xC0DE) { + printf("Invalid magic number: %04X\n", number); + return; + } + + // read board type + Read(T_STATUS, buffer, REG_BOARD_TYPE, 2); + fDRSType = buffer[0]; + fBoardType = buffer[1]; + + // read firmware version + Read(T_STATUS, buffer, REG_VERSION_FW, 2); + fFirmwareVersion = (static_cast < int >(buffer[1]) << 8) +buffer[0]; + + // retrieve board serial number + Read(T_STATUS, buffer, REG_SERIAL_BOARD, 2); + number = (static_cast < int >(buffer[1]) << 8) +buffer[0]; + fBoardSerialNumber = number; + + // determine DRS type and board type for old boards from setial number + if (fBoardType == 0) { + // determine board version from serial number + if (number >= 2000 && number < 5000) { + fBoardType = 6; + fDRSType = 4; + } else if (number >= 1000) { + fBoardType = 4; + fDRSType = 3; + } else if (number >= 100) + fBoardType = 3; + else if (number > 0) + fBoardType = 2; + else { + fBoardType = 3; + fDRSType = 2; + fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS2; + } + } + + // set constants according to board type + if (fBoardType == 6) + fNumberOfChips = 4; + else + fNumberOfChips = 2; + + if (fDRSType == 4) + fNumberOfChannels = 9; + else + fNumberOfChannels = 10; + + // retrieve firmware version + if (fDRSType == 2) + fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS2; + if (fDRSType == 3) + fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS3; + if (fDRSType == 4) + fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS4; + +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::ReadCalibration(void) +{ + unsigned short buf[1024*9*2]; + int i, j, chip; + + fCellCalibrationValid = false; + fTimingCalibrationValid = false; + + memset(fCellOffset, 0, sizeof(fCellOffset)); + memset(fCellGain, 0, sizeof(fCellGain)); + memset(fCellOffset2, 0, sizeof(fCellOffset2)); + memset(fCellT, 0, sizeof(fCellT)); + + /* read offsets and gain from eeprom */ + if (fBoardType == 5) { + ReadEEPROM(0, buf, 16); + + /* check voltage calibration method */ + if ((buf[2] & 0xFF) == VCALIB_METHOD) + fCellCalibrationValid = true; + else { + fCellCalibratedRange = 0; + return; + } + + /* check timing calibration method */ + if ((buf[4] & 0xFF) == TCALIB_METHOD) + fTimingCalibrationValid = true; + else { + fTimingCalibratedFrequency = 0; + } + + fCellCalibratedRange = ((int) (buf[2] >> 8)) / 100.0; // -50 ... +50 => -0.5 V ... +0.5 V + fTimingCalibratedFrequency = buf[6] / 65525.0 * 6; // 0 ... 65535 => 0 ... 6 GHz + + ReadEEPROM(1, buf, 1024*32); + for (i=0 ; i<8 ; i++) + for (j=0 ; j<1024; j++) { + fCellOffset[i][j] = buf[(i*1024+j)*2]; + fCellGain[i][j] = buf[(i*1024+j)*2 + 1]/65535.0*0.4+0.7; + } + + ReadEEPROM(2, buf, 1024*5*4); + for (i=0 ; i<1 ; i++) + for (j=0 ; j<1024; j++) { + fCellOffset[i+8][j] = buf[(i*1024+j)*2]; + fCellGain[i+8][j] = buf[(i*1024+j)*2 + 1]/65535.0*0.4+0.7; + } + + for (i=0 ; i<4 ; i++) + for (j=0 ; j<1024; j++) { + fCellOffset2[i*2][j] = buf[2*1024+((i*2)*1024+j)*2]; + fCellOffset2[i*2+1][j] = buf[2*1024+((i*2)*1024+j)*2+1]; + } + + } else if (fBoardType == 6) { + ReadEEPROM(0, buf, 16); + + /* check voltage calibration method */ + if ((buf[2] & 0xFF) == VCALIB_METHOD) + fCellCalibrationValid = true; + else { + fCellCalibratedRange = 0; + return; + } + + /* check timing calibration method */ + if ((buf[4] & 0xFF) == TCALIB_METHOD) + fTimingCalibrationValid = true; + else { + fTimingCalibratedFrequency = 0; + } + + fCellCalibratedRange = ((int) (buf[2] >> 8)) / 100.0; // -50 ... +50 => -0.5 V ... +0.5 V + fTimingCalibratedFrequency = buf[6] / 65525.0 * 6; // 0 ... 65535 => 0 ... 6 GHz + + for (chip=0 ; chip<4 ; chip++) { + ReadEEPROM(1+chip, buf, 1024*32); + for (i=0 ; i<8 ; i++) + for (j=0 ; j<1024; j++) { + fCellOffset[i+chip*9][j] = buf[(i*1024+j)*2]; + fCellGain[i+chip*9][j] = buf[(i*1024+j)*2 + 1]/65535.0*0.4+0.7; + } + } + + ReadEEPROM(5, buf, 1024*4*4); + for (chip=0 ; chip<4 ; chip++) + for (j=0 ; j<1024; j++) { + fCellOffset[8+chip*9][j] = buf[j*2+chip*0x0800]; + fCellGain[8+chip*9][j] = buf[j*2+1+chip*0x0800]/65535.0*0.4+0.7; + } + + ReadEEPROM(7, buf, 1024*32); + for (i=0 ; i<8 ; i++) { + for (j=0 ; j<1024; j++) { + fCellOffset2[i][j] = buf[i*0x800 + j*2]; + fCellOffset2[i+9][j] = buf[i*0x800 + j*2+1]; + } + } + + ReadEEPROM(8, buf, 1024*32); + for (i=0 ; i<8 ; i++) { + for (j=0 ; j<1024; j++) { + fCellOffset2[i+18][j] = buf[i*0x800 + j*2]; + fCellOffset2[i+27][j] = buf[i*0x800 + j*2+1]; + } + } + + } + else return; + + /* read timing calibration from eeprom */ + if (fBoardType == 5) { + if (!fTimingCalibrationValid) { + for (i=0 ; i<1024 ; i++) + fCellT[0][i] = 1/fFrequency*i; + } else { + ReadEEPROM(0, buf, 1024*sizeof(short)*2); + fCellT[0][0] = 0; + for (i=1 ; i<1024; i++) + fCellT[0][i] = fCellT[0][i-1] + buf[i*2+1]/10000.0; + } + } else if (fBoardType == 6) { + if (!fTimingCalibrationValid) { + for (i=0 ; i<1024 ; i++) + for (j=0 ; j<4 ; j++) + fCellT[j][i] = 1/fFrequency*i; + } else { + ReadEEPROM(6, buf, 1024*sizeof(short)*4); + for (j=0 ; j<4 ; j++) + fCellT[j][0] = 0; + for (i=1 ; i<1024; i++) { + fCellT[0][i] = fCellT[0][i-1] + buf[i*2]/10000.0; + fCellT[1][i] = fCellT[1][i-1] + buf[i*2+1]/10000.0; + fCellT[2][i] = fCellT[2][i-1] + buf[i*2+0x800]/10000.0; + fCellT[3][i] = fCellT[3][i-1] + buf[i*2+0x800+1]/10000.0; + } + } + } +} + +/*------------------------------------------------------------------*/ + +bool DRSBoard::HasCorrectFirmware() +{ + /* check for required firmware version */ + return (fFirmwareVersion >= fRequiredFirmwareVersion); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::InitFPGA(void) +{ + +#ifdef HAVE_USB + if (fTransport == TR_USB2) { + unsigned char buffer[1]; + int i, status; + + /* blink Cy7C68013A LED and issue an FPGA reset */ + buffer[0] = 0; // LED off + musb_write(fUsbInterface, 1, buffer, 1, 100); + Sleep(50); + + buffer[0] = 1; // LED on + musb_write(fUsbInterface, 1, buffer, 1, 100); + + /* wait until EEPROM page #0 has been read */ + for (i=0 ; i<100 ; i++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) + break; + Sleep(10); + } + } +#endif + + return 1; +} + +int DRSBoard::Write(int type, unsigned int addr, void *data, int size) +{ + // Generic write function + +#ifdef CT_VME + if (size > MEM_SEGMENT) size = MEM_SEGMENT; - struct timezone tz; - struct timeval actual_time; // Actual time + if (type == T_CTRL) addr += PMC_CTRL_OFFSET; + else if (type == T_STATUS) addr += PMC_STATUS_OFFSET; + else if (type == T_RAM) addr += PMC_RAM_OFFSET; + else return 0; - gettimeofday(&actual_time, &tz); - - time(&rawtime); - - timeinfo = gmtime(&rawtime); // Get UTC (or GMT timezone). - - return (timeinfo->tm_hour*3600 + timeinfo->tm_min*60 + timeinfo->tm_sec)*1000000 + actual_time.tv_usec; - -} - - -/*------------------------------------------------------------------*/ - -int DRSBoard::TestRead(unsigned int n, int type) { - - float delta; - float mbps; - - int errors = 0; - - const int size = 0X10000; // bytes - -#ifdef STRUCK_VME - - long int ts1, ts2; - - unsigned int Address = fBaseAddress + PMC_RAM_OFFSET; - - int read = 0, i; - - unsigned char data[size]; - - printf("**************************************************\n"); - - if (type==0) { - mvme_set_dmode(fVMEInterface, MVME_DMODE_D32); - mvme_set_blt(fVMEInterface, MVME_BLT_BLT32); - printf(" Mode: VMEbus A32/D32 DMA read [64 kB]\n"); + if (size == 1) { + ErrorCode = VME_WriteSafeUChar(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); + } + else if (size == 2) { + ErrorCode = VME_WriteSafeUShort(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); } - else if (type==1) { - mvme_set_dmode(fVMEInterface, MVME_DMODE_D32); - mvme_set_blt(fVMEInterface,MVME_BLT_MBLT64); - printf(" Mode: VMEbus A32/D64 DMA read [64 kB]\n"); + else if (size == 4) { + ErrorCode = VME_WriteSafeUInt(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); + } + else { + // Copy to contiguous block of memory at VirtualAddress + memcpy((void *) VirtualAddress, data, size); + + // Assign fields for BLT and perform BLT + BLT_List.list_of_items[0].vmebus_address = fBaseAddress + fBoardAddress + PMC_RAM_OFFSET; + BLT_List.list_of_items[0].system_iobus_address = PCIAddress; + BLT_List.list_of_items[0].size_requested = size; + BLT_List.list_of_items[0].control_word = VME_DMA_D64W | VME_A32; + BLT_List.number_of_items = 1; + ErrorCode = VME_BlockTransfer(&BLT_List,-1); } - else if (type==2) { - mvme_set_dmode(fVMEInterface, MVME_DMODE_D64); - mvme_set_blt(fVMEInterface, MVME_BLT_2EVME); - printf(" Mode: VMEbus A32/D64 2eVME read [64 kB]\n"); - } - - ts1 = GetMicroSeconds(); - - for (unsigned int j=0;j(data), Address, size); - - while (read != size) { - - errors++; - printf("Only read %d out of %d, retry with %d: ", read, size, size-read); - i = mvme_read(fVMEInterface, static_cast(data) + read/4, Address + read, size - read); - printf("read %d\n", i); - if (i == 0) { - printf("Error reading VME\n"); - return read; - } - read += i; - } - } - - ts2 = GetMicroSeconds(); - - delta = (ts2 - ts1)/1000000.; - - mbps = n * read * 1.0/(delta * 1024. * 1024.); - - printf(" %d BLT(s) finished...\n",n); - - if (!errors) - printf(" %d errors... success!\n",errors); - else - printf(" %d errors...\n",errors); - - printf(" Duration: %.3f s\n", delta); - printf(" Rate: %.3f MB/s\n", mbps); - - printf("**************************************************\n"); - -#endif -#ifdef CT_VME - tstamp ts1, ts2; - - unsigned int ret; - - ret = ts_open(1, TS_DUMMY); - if (ret) - { - rcc_error_print(stdout, ret); - exit(-2); - } - - printf("**************************************************\n"); - - // Assign fields for BLT - BLT_List.number_of_items = 1; - BLT_List.list_of_items[0].vmebus_address = fBaseAddress + fBoardAddress + PMC_RAM_OFFSET; - BLT_List.list_of_items[0].system_iobus_address = PCIAddress; - BLT_List.list_of_items[0].size_requested = size; - - if (type==0) { - BLT_List.list_of_items[0].control_word = VME_DMA_D32R | VME_A32; - printf(" Mode: VMEbus A32/D32 DMA read [64 kB]\n"); - } - else if (type==1) { - BLT_List.list_of_items[0].control_word = VME_DMA_D64R | VME_A32; - printf(" Mode: VMEbus A32/D64 DMA read [64 kB]\n"); - } - else if (type==2) { - printf("Warning: current interface does not support 2exx transfer mode!\n"); + if (ErrorCode != VME_SUCCESS) { + VME_ErrorPrint(ErrorCode); return 0; } - - printf(" VMEbus address: 0X%08X\n", BLT_List.list_of_items[0].vmebus_address); - printf(" Contiguous buffer:\n"); - printf(" Physical address: 0X%08X\n", (unsigned int)PCIAddress); - printf(" Virtual address: 0X%08X\n", (unsigned int)VirtualAddress); - - ts_clock(&ts1); - - for (unsigned int i=0;i(buffer[1]) << 8) + buffer[0]; - - // Retrieve board serial number - Read(T_STATUS, buffer, REG_SERIAL_CMC, 2); - number = (static_cast(buffer[1]) << 8) + buffer[0]; - fCMCSerialNumber = number; - - // Determine DRS chip number from serial number - fChipVersion = number < 1000 ? 2 : 3; - - if (number == 0xFFFF) { - printf("Found new mezzanine board. Please select DRS version (2/[3]): "); - fgets(str, sizeof(str), stdin); - if (atoi(str) == 2) - fChipVersion = 2; - else - fChipVersion = 3; - } - - // Retrieve firmware version - if (fChipVersion == 2) - fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS2; - if (fChipVersion == 3) - fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS3; - - - // Determine board version from serial number - if (number >= 1000) - fBoardVersion = 4; - else if (number >= 100) - fBoardVersion = 3; - else if (number > 0) - fBoardVersion = 2; - else { - fBoardVersion = 4; - fChipVersion = 3; - fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS3; - } - - //Fixme (SCC 03032008): change function FlashEEPROM accordingly! - //fChipVersion = 2; - //fBoardVersion = 3; - //fRequiredFirmwareVersion = REQUIRED_FIRMWARE_VERSION_DRS2; -} - -/*------------------------------------------------------------------*/ - -bool DRSBoard::HasCorrectFirmware() -{ - // Check firmware version - return (fFirmwareVersion >= fRequiredFirmwareVersion); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::Write(int type, unsigned int addr, void *data, int size) -{ - - // Generic write function - -#ifdef CT_VME - if (size > MEM_SEGMENT) - size = MEM_SEGMENT; - - if (type == T_CTRL) - addr += PMC_CTRL_OFFSET; - else if (type == T_STATUS) - addr += PMC_STATUS_OFFSET; - else if (type == T_RAM) - addr += PMC_RAM_OFFSET; - - if (size == 1) { - - VME_WriteSafeUChar(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); - - } else if (size == 2) { - - VME_WriteSafeUShort(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); - - } else if (size == 4) { - - VME_WriteSafeUInt(fMasterMapping, fBoardAddress + addr, *(static_cast(data))); - - } else { - - // Copy contiguous block of memory starting from VirtualAddress - memcpy((void *) VirtualAddress, data, size); - - // Assign fields for BLT - BLT_List.list_of_items[0].vmebus_address = fBaseAddress + fBoardAddress + PMC_RAM_OFFSET; - BLT_List.list_of_items[0].system_iobus_address = PCIAddress; - BLT_List.list_of_items[0].size_requested = MEM_SEGMENT; - BLT_List.list_of_items[0].control_word = VME_DMA_D64W | VME_A32; - - BLT_List.number_of_items = 1; - - // Perfom BLT - if ((ErrorCode = VME_BlockTransfer(&BLT_List,BLT_TIMEOUT)) != VME_SUCCESS) { - VME_ErrorString(ErrorCode,ErrorString); - printf("VME (BLT): %s\n",ErrorString); - } - } - -#endif -#ifdef STRUCK_VME - - unsigned int base_addr; - - base_addr = fBaseAddress; - - if (type == T_CTRL) - base_addr += PMC_CTRL_OFFSET; - else if (type == T_STATUS) - base_addr += PMC_STATUS_OFFSET; - else if (type == T_RAM) - base_addr += PMC_RAM_OFFSET; - - if (size == 1) { - // 8-bit write access - mvme_set_dmode(fVMEInterface, MVME_DMODE_D8); - mvme_write(fVMEInterface, base_addr + addr, static_cast(data), size); - } else if (size == 2) { - // 16-bit write access - mvme_set_dmode(fVMEInterface, MVME_DMODE_D16); - mvme_write(fVMEInterface, base_addr + addr, static_cast(data), size); - } else { - mvme_set_dmode(fVMEInterface, MVME_DMODE_D32); - - // As long as no block transfer is supported, do pseudo block transfer - mvme_set_blt(fVMEInterface, MVME_BLT_NONE); - - mvme_write(fVMEInterface, base_addr + addr, static_cast(data), size); - } - -#endif - - return size; + if (fTransport == TR_VME) { + +#ifdef HAVE_VME + unsigned int base_addr; + + base_addr = fBaseAddress; + + if (type == T_CTRL) + base_addr += PMC_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr += PMC_STATUS_OFFSET; + else if (type == T_RAM) + base_addr += PMC_RAM_OFFSET; + + if (size == 1) { + /* 8-bit write access */ + mvme_set_dmode(fVmeInterface, MVME_DMODE_D8); + mvme_write(fVmeInterface, base_addr + addr, static_cast < mvme_locaddr_t * >(data), size); + } else if (size == 2) { + /* 16-bit write access */ + mvme_set_dmode(fVmeInterface, MVME_DMODE_D16); + mvme_write(fVmeInterface, base_addr + addr, static_cast < mvme_locaddr_t * >(data), size); + } else { + mvme_set_dmode(fVmeInterface, MVME_DMODE_D32); + + /* as long as no block transfer is supported, do pseudo block transfer */ + mvme_set_blt(fVmeInterface, MVME_BLT_NONE); + + mvme_write(fVmeInterface, base_addr + addr, static_cast < mvme_locaddr_t * >(data), size); + } + + return size; +#endif // HAVE_VME + + } else if (fTransport == TR_USB) { +#ifdef HAVE_USB + unsigned char buffer[64], ack; + unsigned int base_addr; + int i, j, n; + + if (type == T_CTRL) + base_addr = USB_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr = USB_STATUS_OFFSET; + else if (type == T_RAM) + base_addr = USB_RAM_OFFSET; + else + base_addr = 0; + + if (type != T_RAM) { + + /*---- register access ----*/ + + if (size == 2) { + /* word swapping: first 16 bit sit at upper address */ + if ((addr % 4) == 0) + addr = addr + 2; + else + addr = addr - 2; + } + + buffer[0] = USB_CMD_WRITE; + buffer[1] = base_addr + addr; + buffer[2] = size; + + for (i = 0; i < size; i++) + buffer[3 + i] = *((unsigned char *) data + i); + + /* try 10 times */ + ack = 0; + for (i = 0; i < 10; i++) { + n = musb_write(fUsbInterface, 2, buffer, 3 + size, USB_TIMEOUT); + if (n == 3 + size) { + for (j = 0; j < 10; j++) { + /* wait for acknowledge */ + n = musb_read(fUsbInterface, 1, &ack, 1, USB_TIMEOUT); + if (n == 1 && ack == 1) + break; + + printf("Redo receive\n"); + } + } + + if (ack == 1) + return size; + + printf("Redo send\n"); + } + } else { + + /*---- RAM access ----*/ + + buffer[0] = USB_CMD_ADDR; + buffer[1] = base_addr + addr; + musb_write(fUsbInterface, 2, buffer, 2, USB_TIMEOUT); + + /* chop buffer into 60-byte packets */ + for (i = 0; i <= (size - 1) / 60; i++) { + n = size - i * 60; + if (n > 60) + n = 60; + buffer[0] = USB_CMD_WRITE12; + buffer[1] = n; + + for (j = 0; j < n; j++) + buffer[2 + j] = *((unsigned char *) data + j + i * 60); + + musb_write(fUsbInterface, 2, buffer, 2 + n, USB_TIMEOUT); + + for (j = 0; j < 10; j++) { + /* wait for acknowledge */ + n = musb_read(fUsbInterface, 1, &ack, 1, USB_TIMEOUT); + if (n == 1 && ack == 1) + break; + + printf("Redo receive acknowledge\n"); + } + } + + return size; + } +#endif // HAVE_USB + } else if (fTransport == TR_USB2) { +#ifdef HAVE_USB + unsigned int base_addr; + int i; + + if (usb2_buffer == NULL) + usb2_buffer = (unsigned char *) malloc(USB2_BUFFER_SIZE); + assert(usb2_buffer); + + /* only accept even address and number of bytes */ + assert(addr % 2 == 0); + assert(size % 2 == 0); + + /* check for maximum size */ + assert(size <= USB2_BUFFER_SIZE - 10); + + if (type == T_CTRL) + base_addr = USB2_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr = USB2_STATUS_OFFSET; + else if (type == T_FIFO) + base_addr = USB2_FIFO_OFFSET; + else if (type == T_RAM) + base_addr = USB2_RAM_OFFSET; + else + base_addr = 0; + + if (type != T_RAM && size == 2) { + /* word swapping: first 16 bit sit at upper address */ + if ((addr % 4) == 0) + addr = addr + 2; + else + addr = addr - 2; + } + + addr += base_addr; + + usb2_buffer[0] = USB2_CMD_WRITE; + usb2_buffer[1] = 0; + + usb2_buffer[2] = (addr >> 0) & 0xFF; + usb2_buffer[3] = (addr >> 8) & 0xFF; + usb2_buffer[4] = (addr >> 16) & 0xFF; + usb2_buffer[5] = (addr >> 24) & 0xFF; + + usb2_buffer[6] = (size >> 0) & 0xFF; + usb2_buffer[7] = (size >> 8) & 0xFF; + usb2_buffer[8] = (size >> 16) & 0xFF; + usb2_buffer[9] = (size >> 24) & 0xFF; + + for (i = 0; i < size; i++) + usb2_buffer[10 + i] = *((unsigned char *) data + i); + + i = musb_write(fUsbInterface, 4, usb2_buffer, 10 + size, USB_TIMEOUT); + if (i != 10 + size) + printf("musb_write error: %d\n", i); + + return i; +#endif // HAVE_USB + } + + return 0; } @@ -887,9 +1227,7 @@ int DRSBoard::Read(int type, void *data, unsigned int addr, int size) { - - // Generic read function - + // Generic read function + #ifdef CT_VME - if (size > MEM_SEGMENT) size = MEM_SEGMENT; @@ -898,826 +1236,1718 @@ else if (type == T_RAM) addr += PMC_RAM_OFFSET; else if (type == T_FIFO) addr += PMC_FIFO_OFFSET; - + else return 0; + if (size == 1) { - VME_ReadFastUChar(fMasterMapping, fBoardAddress + addr, static_cast(data)); + ErrorCode = VME_ReadSafeUChar(fMasterMapping, fBoardAddress + addr, static_cast(data)); } else if (size == 2) { - VME_ReadFastUShort(fMasterMapping, fBoardAddress + addr, static_cast(data)); + ErrorCode = VME_ReadSafeUShort(fMasterMapping, fBoardAddress + addr, static_cast(data)); } else if (size == 4) { - VME_ReadFastUInt(fMasterMapping, fBoardAddress + addr, static_cast(data)); + ErrorCode = VME_ReadSafeUInt(fMasterMapping, fBoardAddress + addr, static_cast(data)); } else { - // Assign fields for BLT + // Assign fields and perform BLT BLT_List.list_of_items[0].vmebus_address = fBaseAddress + fBoardAddress + PMC_RAM_OFFSET; BLT_List.list_of_items[0].system_iobus_address = PCIAddress; - BLT_List.list_of_items[0].size_requested = MEM_SEGMENT; + BLT_List.list_of_items[0].size_requested = size; BLT_List.list_of_items[0].control_word = VME_DMA_D64R | VME_A32; BLT_List.number_of_items = 1; - - // Perfom BLT - if ((ErrorCode = VME_BlockTransfer(&BLT_List,BLT_TIMEOUT)) != VME_SUCCESS) { - VME_ErrorString(ErrorCode,ErrorString); - printf("VME (BLT): %s\n",ErrorString); - } + ErrorCode = VME_BlockTransfer(&BLT_List, -1); // Copy contiguous block of memory starting from VirtualAddress - memcpy(data, (void *) VirtualAddress ,size); + memcpy(data, (void *) VirtualAddress, size); } - return size; - -#endif -#ifdef STRUCK_VME - - unsigned int base_addr; - int n, i; - - base_addr = fBaseAddress; - - if (type == T_CTRL) - base_addr += PMC_CTRL_OFFSET; - else if (type == T_STATUS) - base_addr += PMC_STATUS_OFFSET; - else if (type == T_RAM) - base_addr += PMC_RAM_OFFSET; - else if (type == T_FIFO) - base_addr += PMC_FIFO_OFFSET; - - mvme_set_dmode(fVMEInterface, MVME_DMODE_D32); - - n = 0; - if (size == 1) { - // 8-bit read access - mvme_set_dmode(fVMEInterface, MVME_DMODE_D8); - n = mvme_read(fVMEInterface, static_cast(data), base_addr + addr, size); - } else if (size == 2) { - // 16-bit read access - mvme_set_dmode(fVMEInterface, MVME_DMODE_D16); - n = mvme_read(fVMEInterface, static_cast(data), base_addr + addr, size); - } else { - mvme_set_dmode(fVMEInterface, MVME_DMODE_D32); - - //mvme_set_blt(fVMEInterface, MVME_BLT_NONE); // Pseudo block transfer - mvme_set_blt(fVMEInterface, MVME_BLT_2EVME); // Use 2eVME if implemented - //mvme_set_blt(fVMEInterface, MVME_BLT_MBLT64); // Use MBLT64 if implemented - //mvme_set_blt(fVMEInterface, MVME_BLT_2ESST); // Use 2eSST if implemented - - n = mvme_read(fVMEInterface, static_cast(data), base_addr + addr, size); - while (n != size) { - printf("Only read %d out of %d, retry with %d: ", n, size, size-n); - i = mvme_read(fVMEInterface, static_cast(data)+n/4, base_addr + addr + n, size-n); - printf("read %d\n", i); - if (i == 0) { - printf("Error reading VME\n"); - return n; - } - n += i; - } - - //for (i = 0; i < size; i += 4) - //mvme_read(fVMEInterface, (mvme_locaddr_t *)((char *)data+i), base_addr + addr+i, 4); - } - return n; - -#endif - -} - - -/*------------------------------------------------------------------*/ - -void DRSBoard::SetLED(int state) -{ - // Set LED state - if (state) - fCtrlBits |= BIT_LED; - else - fCtrlBits &= ~BIT_LED; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::SetChannelConfig(int firstChannel, int lastChannel, int nConfigChannels) -{ - // Set number of channels - unsigned short d; - - if (lastChannel < 0 || lastChannel > 10) { - printf("Invalid number of channels: %d (must be between 0 and 10)\n", lastChannel); - return; - } - - if (fChipVersion == 2) { - // Register must contain last channel to read out starting from 9 - d = 9 - lastChannel; - Write(T_CTRL, REG_CHANNEL_CONFIG, &d, 2); - } else if (fChipVersion == 3) { - // Upper four bits of register must contain last channel to read out starting from 9 - d = (firstChannel << 4) | lastChannel; - Write(T_CTRL, REG_CHANNEL_SPAN, &d, 2); - - // Set bit pattern for write shift register - switch (nConfigChannels ) { - case 1: d = 0x001; break; - case 2: d = 0x041; break; - case 3: d = 0x111; break; - case 4: d = 0x249; break; - case 6: d = 0x555; break; - case 12: d = 0xFFF; break; - default: - printf("Invalid channel configuration\n"); - } - Write(T_CTRL, REG_CHANNEL_CONFIG, &d, 2); - } - - fNumberOfReadoutChannels = lastChannel - firstChannel + 1; -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::SetNumberOfChannels(int nChannels) -{ - SetChannelConfig(0, nChannels-1, 12); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetDAC(unsigned char channel, double value) -{ - // Set DAC value - unsigned short d; - - // Normalize to 2.5V for 16 bit - d = static_cast(value / 2.5 * 0xFFFF + 0.5); - - Write(T_CTRL, REG_DAC_OFS + (channel * 2), &d, 2); - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::ReadDAC(unsigned char channel, double *value) -{ - // Readback DAC value from control register - unsigned char buffer[2]; - - // Map 0->1, 1->0, 2->3, 3->2, etc. - // ofs = channel + 1 - 2*(channel % 2); - - Read(T_CTRL, buffer, REG_DAC_OFS + (channel * 2), 2); - - // Normalize to 2.5V for 16 bit - *value = 2.5 * (buffer[0] + (buffer[1] << 8)) / 0xFFFF; - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetRegulationDAC(double *value) -{ - // Get DAC value from status register (-> freq. regulation) - unsigned char buffer[2]; - - if (fBoardVersion == 1) - Read(T_STATUS, buffer, REG_RDAC3, 2); - else if (fBoardVersion == 2 || fBoardVersion == 3 || fBoardVersion == 4) - Read(T_STATUS, buffer, REG_RDAC1, 2); - - // Normalize to 2.5V for 16 bit - *value = 2.5 * (buffer[0] + (buffer[1] << 8)) / 0xFFFF; - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::StartDomino() -{ - // Start domino sampling - fCtrlBits |= BIT_START_TRIG; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - fCtrlBits &= ~BIT_START_TRIG; - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::Reinit() -{ - // Stop domino sampling - // Reset readout state machine - // Reset FIFO counters - fCtrlBits |= BIT_REINIT_TRIG; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - fCtrlBits &= ~BIT_REINIT_TRIG; - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::Init() -{ - // Reinitialize - fCtrlBits |= BIT_REINIT_TRIG; // Reset readout state machine - fCtrlBits &= ~BIT_FREQ_AUTO_ADJ; // Turn auto. freq regul. off - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - fCtrlBits &= ~BIT_REINIT_TRIG; - - // Set default DAC voltages - - if (fBoardVersion == 1) { - // Set max. domino speed - SetDAC(fDAC_DRA, 2.5); - SetDAC(fDAC_DSA, 2.5); - SetDAC(fDAC_DRB, 2.5); - SetDAC(fDAC_DSB, 2.5); - // Set readout offset - SetDAC(fDAC_COFSA, 0.9); - SetDAC(fDAC_COFSB, 0.9); - SetDAC(fDAC_TLEVEL, 1.7); - } else if (fBoardVersion == 2 || fBoardVersion == 3) { - // Set max. domino speed - SetDAC(fDAC_DSA, 2.5); - SetDAC(fDAC_DSB, 2.5); - - // Set readout offset - SetDAC(fDAC_COFS, 0.9); - SetDAC(fDAC_TLEVEL, 1.7); - SetDAC(fDAC_ADCOFS, 1.7); // 1.7 for DC coupling, 1.25 for AC - SetDAC(fDAC_CLKOFS, 1); - } else if (fBoardVersion == 4) { - // Set max. domino speed - SetDAC(fDAC_DSA, 2.5); - SetDAC(fDAC_DSB, 2.5); - - // Set readout offset - SetDAC(fDAC_ROFS_1, 1.25); // LVDS level - SetDAC(fDAC_ROFS_2, 0.85); // Linear range 0.1V ... 1.1V - - SetDAC(fDAC_ADCOFS, 1.25); - SetDAC(fDAC_ACALIB, 0.5); - SetDAC(fDAC_INOFS, 0.6); - SetDAC(fDAC_BIAS, 0.70); // A bit above the internal bias of 0.68V - } - - // Set default number of channels per chip - SetChannelConfig(0, fNumberOfReadoutChannels-1, 12); - SetDominoMode(fDominoMode); - SetReadoutMode(fReadoutMode); - EnableTrigger(fTriggerEnable); - - // Disable calibration - EnableAcal(0, 0); - SetCalibTiming(0, 0); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetDominoMode(unsigned char mode) -{ - // Set domino mode - // mode == 0: single sweep - // mode == 1: run continously - // - fDominoMode = mode; - if (mode) - fCtrlBits |= BIT_DMODE; - else - fCtrlBits &= ~BIT_DMODE; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetDominoActive(unsigned char mode) -{ - // Set domino activity - // mode == 0: stop during readout - // mode == 1: keep domino wave running - // - fDominoMode = mode; - if (mode) - fCtrlBits |= BIT_DACTIVE; - else - fCtrlBits &= ~BIT_DACTIVE; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetReadoutMode(unsigned char mode) -{ - // Set readout mode - // mode == 0: start from first bin - // mode == 1: start from domino stop - // - fReadoutMode = mode; - if (mode) - fCtrlBits |= BIT_READOUT_MODE; - else - fCtrlBits &= ~BIT_READOUT_MODE; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SoftTrigger(void) -{ - // Send a software trigger - fCtrlBits |= BIT_SOFT_TRIG; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - fCtrlBits &= ~BIT_SOFT_TRIG; - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::EnableTrigger(int mode) -{ - // Enable external trigger - fTriggerEnable = mode; - if (mode) - fCtrlBits |= BIT_ENABLE_TRIGGER; - else - fCtrlBits &= ~BIT_ENABLE_TRIGGER; - - if (mode == 2) - fCtrlBits |= BIT_TRIGGER_DELAYED; - else - fCtrlBits &= ~BIT_TRIGGER_DELAYED; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetDelayedStart(int flag) -{ - // Enable external trigger - fDelayedStart = flag; - if (flag) - fCtrlBits |= BIT_DELAYED_START; - else - fCtrlBits &= ~BIT_DELAYED_START; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::IsBusy() -{ - // Get running flag - unsigned int status; - - Read(T_STATUS, &status, REG_STATUS, 4); - return (status & BIT_RUNNING) > 0; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::IsNewFreq(unsigned char chipIndex) -{ - unsigned int status; - - Read(T_STATUS, &status, REG_STATUS, 4); - if (chipIndex == 0) - return (status & BIT_NEW_FREQ1) > 0; - return (status & BIT_NEW_FREQ2) > 0; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::ReadFrequency(unsigned char chipIndex, double *f) -{ - // Read domino sampling frequency - unsigned char buffer[2]; - - if (chipIndex == 0) - Read(T_STATUS, buffer, REG_FREQ1, 2); - else - Read(T_STATUS, buffer, REG_FREQ2, 2); - - *f = (static_cast(buffer[1]) << 8) + buffer[0]; - - // Convert counts to frequency - if (*f != 0) - *f = 1024 * 200 * (32.768E6 * 4) / (*f) / 1E9; - - return 1; -} - -/*------------------------------------------------------------------*/ - -double DRSBoard::VoltToFreq(double volt) -{ - if (fChipVersion == 3) { - if (volt <= 1.2001) - return (volt - 0.6) / 0.2; - else - return 0.73/0.28 + sqrt((0.73/0.28)*(0.73/0.28)-2.2/0.14+volt/0.14); - } else - return (volt - 0.5) / 0.2; -} - -/*------------------------------------------------------------------*/ - -double DRSBoard::FreqToVolt(double freq) -{ - if (fChipVersion == 3) { - if (freq <= 3) - return 0.6 + 0.2 * freq; - else - return 2.2 - 0.73 * freq + 0.14 * freq * freq; - } else - return 0.55 + 0.25 * freq; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetFrequency(double demand) -{ - // Set domino sampling frequency - double freq, voltage, delta_voltage; - unsigned short target; - int i, index, timeout; - int dominoModeSave = fDominoMode; - int triggerEnableSave = fTriggerEnable; - - SetDominoMode(1); - EnableTrigger(0); - EnableAcal(0, 0); - - fFrequency = demand; - - // Turn automatic adjustment off - fCtrlBits &= ~BIT_FREQ_AUTO_ADJ; - - // Disable external trigger - fCtrlBits &= ~BIT_ENABLE_TRIGGER; - - // Set start pulse length for future DRSBoard_domino_start() - if (fChipVersion == 2) { - if (demand < 0.8) - fCtrlBits |= BIT_LONG_START_PULSE; - else - fCtrlBits &= ~BIT_LONG_START_PULSE; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - } - - // Stop any running domino wave - Reinit(); - - // Estimate DAC setting - voltage = FreqToVolt(demand); - - SetDAC(fDAC_DSA, voltage); - SetDAC(fDAC_DSB, voltage); - - // Wait until new DAC value has settled - Sleep(10); - - // Restart domino wave - StartDomino(); - - target = static_cast(1024 * 200 * (32.768E6 * 4) / demand / 1E9); - - // Iterate over both DRS chips - for (index = 0; index < 2; index++) { - - // Starting voltage - voltage = FreqToVolt(demand); - - for (i = 0; i < 100; i++) { - - // Wait until measurement finished - for (timeout = 0; timeout < 1000; timeout++) - if (IsNewFreq(index)) - break; - - freq = 0; - if (timeout == 1000) - break; - - ReadFrequency(index, &freq); - - delta_voltage = FreqToVolt(demand) - FreqToVolt(freq); - - if (fDebug) { - if (fabs(freq - demand) < 0.001) - printf("CHIP #%d, iter%3d: %1.5lf(%05d) %7.5lf\n", index, i, voltage, - static_cast(voltage / 2.5 * 65535 + 0.5), freq); - else - printf("CHIP #%d, iter%3d: %1.5lf(%05d) %7.5lf %+5d\n", index, i, voltage, - static_cast(voltage / 2.5 * 65535 + 0.5), freq, - static_cast(delta_voltage / 2.5 * 65535 + 0.5)); - } - - if (fabs(freq - demand) < 0.001) - break; - - voltage += delta_voltage; - if (voltage > 2.5) - voltage = 2.5; - if (voltage < 0) - voltage = 0; - - if (freq == 0) - break; - - if (index == 0) - SetDAC(fDAC_DSA, voltage); - else - SetDAC(fDAC_DSB, voltage); - - Sleep(10); - } - if (i == 100 || freq == 0 || timeout == 1000) { - printf("Board %d: could not set frequency of CHIP #%d to %1.3f GHz\n", GetCMCSerialNumber(), index, demand); - return 0; - } - } - - SetDominoMode(dominoModeSave); - EnableTrigger(triggerEnableSave); - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::RegulateFrequency(double demand) -{ - // Set frequency regulation - unsigned short target, target_hi, target_lo; - - if (demand < 0.42 || demand > 5.2) - return 0; - - fFrequency = demand; - - // First iterate DAC value from host - if (!SetFrequency(demand)) - return 0; - - // Convert frequency in GHz into counts for 200 cycles - target = static_cast(1024 * 200 * (32.768E6 * 4) / demand / 1E9); - target_hi = target + 6; - target_lo = target - 6; - Write(T_CTRL, REG_FREQ_SET_HI, &target_hi, 2); - Write(T_CTRL, REG_FREQ_SET_LO, &target_lo, 2); - - // Turn on regulation - fCtrlBits |= BIT_FREQ_AUTO_ADJ; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - // Optional monitoring code ... -#if 0 - do { - double freq; - unsigned short dac, cnt; - - ReadFrequency(0, &freq); - - if (fBoardVersion == 1) - Read(T_STATUS, &dac, REG_RDAC3, 2); - else if (fBoardVersion == 2 || fBoardVersion == 3) - Read(T_STATUS, &dac, REG_RDAC1, 2); - - Read(T_STATUS, &cnt, REG_FREQ1, 2); - - if (cnt < 65535) - printf("%5d %5d %5d %1.5lf\n", dac, target, cnt, freq); - - Sleep(500); - } while (1); -#endif - - return 1; -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::RegisterTest() -{ - // Register test -#define N_REG 8 - - int i, n, n_err; - unsigned int buffer[N_REG], ret[N_REG]; - - printf("**************************************************\n"); - - n_err = 0; - for (n = 0; n < 100; n++) { - for (i = 0; i < N_REG; i++) - buffer[i] = (rand() << 16) | rand(); - Write(T_CTRL, 0, buffer, sizeof(buffer)); - - memset(ret, 0, sizeof(ret)); - i = Read(T_CTRL, ret, 0, sizeof(ret)); - - while (i != sizeof(ret)) { - printf(" Read error!\n"); - return; - } - - for (i = 0; i < N_REG; i++) - if (buffer[i] != ret[i]) { - n_err++; - printf(" Error Reg.%d: %08X - %08X\n", i, buffer[i], ret[i]); - } - else - printf(" OK : %08X\n", buffer[i]); - } - - printf(" Register test: %d errors\n", n_err); - printf("**************************************************\n"); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::RAMTest(int flag) -{ -#define N_DWORDS (40*1024/4) - - // RAM test - int i, j, n, l=0; - unsigned int buffer[N_DWORDS], ret[N_DWORDS]; - time_t now; - - // Integrity test - printf("**************************************************\n"); - printf(" Integrity:\n"); - printf(" Buffer size (bytes): %d (%1.1lfk)\n", static_cast(sizeof(ret)), sizeof(ret) / 1024.0); - if (flag & 1) { - for (i = 0; i < N_DWORDS; i++) - buffer[i] = (rand() | rand() << 16) & 0x00FFFFFF; // Random 24-bit values - //buffer[i] = i; - - // Reset FIFO - Reinit(); - - Write(T_RAM, 0, buffer, sizeof(buffer)); - memset(ret, 0, sizeof(ret)); - - Read(T_FIFO, ret, 0, sizeof(ret)); - Reinit(); - - for (i = n = 0; i < N_DWORDS; i++) { - if (buffer[i] != ret[i]) - n++; - } - - printf(" %d errors\n", n); - } - - // Speed test - if (flag & 2) { - - printf(" Speed:\n"); - - // Read continously to determine speed - time(&now); - while (now == time(NULL)); - time(&now); - i = n = 0; - do { - memset(ret, 0, sizeof(ret)); - - for (j = 0; j < 10; j++) { - Read(T_RAM, ret, 0, sizeof(ret)); - i += sizeof(ret); - } - - if (flag & 1) { - for (j = 0; j < N_DWORDS; j++) - if (buffer[j] != ret[j]) - n++; - } - - if (now != time(NULL)) { - if (flag & 1) - printf(" %d read/s, %1.2lf MB/s, %d errors\n", static_cast(i / sizeof(ret)), i / 1024.0 / 1024.0, - n); - else - printf(" %d read/s, %1.2lf MB/s\n", static_cast(i / sizeof(ret)), i / 1024.0 / 1024.0); - time(&now); - i = 0; l++; - } - } while (l<5); - } - - printf("**************************************************\n"); - - return 0; -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::SetVoltageOffset(double offset1, double offset2) -{ - if (fChipVersion == 3) { - SetDAC(fDAC_ROFS_1, 0.95 - offset1); - SetDAC(fDAC_ROFS_2, 0.95 - offset2); - } else if (fChipVersion == 2) - SetDAC(fDAC_COFS, 0.9 - offset1); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::SetExternalClockFrequency(double frequencyMHz) -{ - // Set the frequency of the external clock - fExternalClockFrequency = frequencyMHz; - return 0; -} - -/*------------------------------------------------------------------*/ - -double DRSBoard::GetExternalClockFrequency() -{ - // Return the frequency of the external clock - return fExternalClockFrequency; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::TransferWaves(int numberOfChannels) -{ - return TransferWaves(fWaveforms,numberOfChannels); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::TransferWaves(unsigned char *p, int numberOfChannels) -{ - return TransferWaves(p, 0, numberOfChannels-1); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::TransferWaves(int firstChannel, int lastChannel) -{ - return TransferWaves(fWaveforms, firstChannel, lastChannel); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::TransferWaves(unsigned char *p, int firstChannel, int lastChannel) -{ - - // Transfer all waveforms at once - int i, n, offset, n_requested; - - if (lastChannel < 0 || lastChannel > kNumberOfChips*kNumberOfChannels) { - printf("Error: Invalid channel index %d\n", lastChannel); + + if (ErrorCode != VME_SUCCESS) { + VME_ErrorPrint(ErrorCode); return 0; } + else return size; +#endif + + if (fTransport == TR_VME) { + +#ifdef HAVE_VME + unsigned int base_addr; + int n, i; + + base_addr = fBaseAddress; + + if (type == T_CTRL) + base_addr += PMC_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr += PMC_STATUS_OFFSET; + else if (type == T_RAM) + base_addr += PMC_RAM_OFFSET; + else if (type == T_FIFO) + base_addr += PMC_FIFO_OFFSET; + + mvme_set_dmode(fVmeInterface, MVME_DMODE_D32); + + n = 0; + if (size == 1) { + /* 8-bit read access */ + mvme_set_dmode(fVmeInterface, MVME_DMODE_D8); + n = mvme_read(fVmeInterface, static_cast < mvme_locaddr_t * >(data), base_addr + addr, size); + } else if (size == 2) { + /* 16-bit read access */ + mvme_set_dmode(fVmeInterface, MVME_DMODE_D16); + n = mvme_read(fVmeInterface, static_cast < mvme_locaddr_t * >(data), base_addr + addr, size); + } else { + mvme_set_dmode(fVmeInterface, MVME_DMODE_D32); + + //mvme_set_blt(fVmeInterface, MVME_BLT_NONE); // pseudo block transfer + mvme_set_blt(fVmeInterface, MVME_BLT_2EVME); // 2eVME if implemented + n = mvme_read(fVmeInterface, static_cast < mvme_locaddr_t * >(data), base_addr + addr, size); + while (n != size) { + printf("Only read %d out of %d, retry with %d: ", n, size, size - n); + i = mvme_read(fVmeInterface, static_cast < mvme_locaddr_t * >(data) + n / 4, base_addr + addr + n, + size - n); + printf("read %d\n", i); + if (i == 0) { + printf("Error reading VME\n"); + return n; + } + n += i; + } + + //for (i = 0; i < size; i += 4) + // mvme_read(fVmeInterface, (mvme_locaddr_t *)((char *)data+i), base_addr + addr+i, 4); + } + return n; + +#endif // HAVE_VME + } else if (fTransport == TR_USB) { +#ifdef HAVE_USB + unsigned char buffer[64]; + unsigned int base_addr; + int i, j, ret, n; + + if (type == T_CTRL) + base_addr = USB_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr = USB_STATUS_OFFSET; + else if (type == T_RAM) + base_addr = USB_RAM_OFFSET; + else + assert(0); // FIFO not implemented + + if (type != T_RAM) { + + /*---- register access ----*/ + + if (size == 2) { + /* word swapping: first 16 bit sit at uppder address */ + if ((addr % 4) == 0) + addr = addr + 2; + else + addr = addr - 2; + } + + buffer[0] = USB_CMD_READ; + buffer[1] = base_addr + addr; + buffer[2] = size; + + musb_write(fUsbInterface, 2, buffer, 2 + size, USB_TIMEOUT); + i = musb_read(fUsbInterface, 1, data, size, USB_TIMEOUT); + + if (i != size) + return 0; + + return size; + } else { + + /*---- RAM access ----*/ + + /* in RAM mode, only the 2048-byte page can be selected */ + buffer[0] = USB_CMD_ADDR; + buffer[1] = base_addr + (addr >> 11); + musb_write(fUsbInterface, 2, buffer, 2, USB_TIMEOUT); + + /* receive data in 60-byte packets */ + for (i = 0; i <= (size - 1) / 60; i++) { + n = size - i * 60; + if (n > 60) + n = 60; + buffer[0] = USB_CMD_READ12; + buffer[1] = n; + musb_write(fUsbInterface, 2, buffer, 2, USB_TIMEOUT); + + ret = musb_read(fUsbInterface, 1, buffer, n, USB_TIMEOUT); + + if (ret != n) { + /* try again */ + ret = musb_read(fUsbInterface, 1, buffer, n, USB_TIMEOUT); + if (ret != n) + return 0; + } + + for (j = 0; j < ret; j++) + *((unsigned char *) data + j + i * 60) = buffer[j]; + } + + return size; + } +#endif // HAVE_USB + } else if (fTransport == TR_USB2) { +#ifdef HAVE_USB + unsigned char buffer[10]; + unsigned int base_addr; + int i; + + /* only accept even address and number of bytes */ + assert(addr % 2 == 0); + assert(size % 2 == 0); + + /* check for maximum size */ + assert(size <= USB2_BUFFER_SIZE - 10); + + if (type == T_CTRL) + base_addr = USB2_CTRL_OFFSET; + else if (type == T_STATUS) + base_addr = USB2_STATUS_OFFSET; + else if (type == T_FIFO) + base_addr = USB2_FIFO_OFFSET; + else if (type == T_RAM) + base_addr = USB2_RAM_OFFSET; + else + base_addr = 0; + + if (type != T_RAM && size == 2) { + /* word swapping: first 16 bit sit at upper address */ + if ((addr % 4) == 0) + addr = addr + 2; + else + addr = addr - 2; + } + + addr += base_addr; + + buffer[0] = USB2_CMD_READ; + buffer[1] = 0; + + buffer[2] = (addr >> 0) & 0xFF; + buffer[3] = (addr >> 8) & 0xFF; + buffer[4] = (addr >> 16) & 0xFF; + buffer[5] = (addr >> 24) & 0xFF; + + buffer[6] = (size >> 0) & 0xFF; + buffer[7] = (size >> 8) & 0xFF; + buffer[8] = (size >> 16) & 0xFF; + buffer[9] = (size >> 24) & 0xFF; + + i = musb_write(fUsbInterface, 4, buffer, 10, USB_TIMEOUT); + if (i != 10) + printf("musb_read error %d\n", i); + + i = musb_read(fUsbInterface, 8, data, size, USB_TIMEOUT); + return i; +#endif // HAVE_USB + } + + return 0; +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetLED(int state) +{ + // Set LED state + if (state) + fCtrlBits |= BIT_LED; + else + fCtrlBits &= ~BIT_LED; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetChannelConfig(int firstChannel, int lastChannel, int nConfigChannels) +{ + // Set number of channels + unsigned short d; + + if (lastChannel < 0 || lastChannel > 10) { + printf("Invalid number of channels: %d (must be between 0 and 10)\n", lastChannel); + return; + } + + if (fDRSType == 2) { + // register must contain last channel to read out starting from 9 + d = 9 - lastChannel; + Write(T_CTRL, REG_CHANNEL_CONFIG, &d, 2); + } else if (fDRSType == 3) { + // upper four bits of register must contain last channel to read out starting from 9 + d = (firstChannel << 4) | lastChannel; + Write(T_CTRL, REG_CHANNEL_MODE, &d, 2); + + // set bit pattern for write shift register + switch (nConfigChannels) { + case 1: + d = 0x001; + break; + case 2: + d = 0x041; + break; + case 3: + d = 0x111; + break; + case 4: + d = 0x249; + break; + case 6: + d = 0x555; + break; + case 12: + d = 0xFFF; + break; + default: + printf("Invalid channel configuration\n"); + } + Write(T_CTRL, REG_CHANNEL_CONFIG, &d, 2); + } else if (fDRSType == 4) { + if (fBoardType == 6) { + // determined channel readout mode A/C[even/odd], B/D[even/odd] or A/B/C/D + fReadoutChannelConfig = firstChannel; + Read(T_CTRL, &d, REG_CHANNEL_MODE, 2); + d = (d & 0xFF00) | firstChannel; // keep higher 8 bits which are ADClkPhase + Write(T_CTRL, REG_CHANNEL_MODE, &d, 2); + } else { + // upper four bits of register must contain last channel to read out starting from 9 + Read(T_CTRL, &d, REG_CHANNEL_MODE, 2); + d = (d & 0xFF00) | (firstChannel << 4) | lastChannel; // keep higher 8 bits which are ADClkPhase + Write(T_CTRL, REG_CHANNEL_MODE, &d, 2); + } + + // set bit pattern for write shift register + fChannelConfig = 0; + switch (nConfigChannels) { + case 1: + fChannelConfig = 0x01; + break; + case 2: + fChannelConfig = 0x11; + break; + case 4: + fChannelConfig = 0x55; + break; + case 8: + fChannelConfig = 0xFF; + break; + default: + printf("Invalid channel configuration\n"); + } + d = fChannelConfig | (fDominoMode << 8) | (1 << 9) | (fWSRLoop << 10) | (0xF8 << 8); + + Write(T_CTRL, REG_CHANNEL_CONFIG, &d, 2); + } + + if (fBoardType == 6) { + if (fReadoutChannelConfig == 7) + fNumberOfReadoutChannels = 9; + else + fNumberOfReadoutChannels = 5; + } else { + fNumberOfReadoutChannels = lastChannel - firstChannel + 1; + } +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetNumberOfChannels(int nChannels) +{ + SetChannelConfig(0, nChannels - 1, 12); +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetADCClkPhase(int phase, bool invert) +{ + unsigned short d; + + /* Set the clock phase of the ADC via the variable phase shift + in the Xilinx DCM. One unit is equal to the clock period / 256, + so at 30 MHz this is about 130ps. The possible range at 30 MHz + is -87 ... +87 */ + + // keep lower 8 bits which are the channel mode + Read(T_CTRL, &d, REG_ADCCLK_PHASE, 2); + d = (d & 0x00FF) | (phase << 8); + Write(T_CTRL, REG_ADCCLK_PHASE, &d, 2); + + if (invert) + fCtrlBits |= BIT_ADCCLK_INVERT; + else + fCtrlBits &= ~BIT_ADCCLK_INVERT; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + fADCClkPhase = phase; + fADCClkInvert = invert; +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetWarmup(unsigned int microseconds) +{ + /* Set the "warmup" time. When starting the domino wave, the DRS4 + chip together with its power supply need some time to stabilize + before high resolution data can be taken (jumping baseline + problem). This sets the time in ticks of 900ns before triggers + are accepted */ + + unsigned short ticks; + + if (microseconds == 0) + ticks = 0; + else + ticks = (unsigned short) (microseconds / 0.9 + 0.5) - 1; + Write(T_CTRL, REG_WARMUP, &ticks, 2); +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetCooldown(unsigned int microseconds) +{ + /* Set the "cooldown" time. When stopping the domino wave, the + power supply needs some time to stabilize before high resolution + data can read out (slanted baseline problem). This sets the + time in ticks of 900 ns before the readout is started */ + + unsigned short ticks; + + ticks = (unsigned short) (microseconds / 0.9 + 0.5) - 1; + Write(T_CTRL, REG_COOLDOWN, &ticks, 2); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetDAC(unsigned char channel, double value) +{ + // Set DAC value + unsigned short d; + + /* normalize to 2.5V for 16 bit */ + if (value < 0) + value = 0; + if (value > 2.5) + value = 2.5; + d = static_cast < unsigned short >(value / 2.5 * 0xFFFF + 0.5); + + Write(T_CTRL, REG_DAC_OFS + (channel * 2), &d, 2); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::ReadDAC(unsigned char channel, double *value) +{ + // Readback DAC value from control register + unsigned char buffer[2]; + + /* map 0->1, 1->0, 2->3, 3->2, etc. */ + //ofs = channel + 1 - 2*(channel % 2); + + Read(T_CTRL, buffer, REG_DAC_OFS + (channel * 2), 2); + + /* normalize to 2.5V for 16 bit */ + *value = 2.5 * (buffer[0] + (buffer[1] << 8)) / 0xFFFF; + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetRegulationDAC(double *value) +{ + // Get DAC value from status register (-> freq. regulation) + unsigned char buffer[2]; + + if (fBoardType == 1) + Read(T_STATUS, buffer, REG_RDAC3, 2); + else if (fBoardType == 2 || fBoardType == 3 || fBoardType == 4) + Read(T_STATUS, buffer, REG_RDAC1, 2); + + /* normalize to 2.5V for 16 bit */ + *value = 2.5 * (buffer[0] + (buffer[1] << 8)) / 0xFFFF; + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::StartDomino() +{ + // Start domino sampling + fCtrlBits |= BIT_START_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_START_TRIG; + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::Reinit() +{ + // Stop domino sampling + // reset readout state machine + // reset FIFO counters + fCtrlBits |= BIT_REINIT_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_REINIT_TRIG; + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::Init() +{ + // Init FPGA on USB2 board + InitFPGA(); + + // Default values + + // Reinitialize + fCtrlBits |= BIT_REINIT_TRIG; // reset readout state machine + if (fDRSType == 2) + fCtrlBits &= ~BIT_FREQ_AUTO_ADJ; // turn auto. freq regul. off + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_REINIT_TRIG; + + if (fBoardType == 1) { + // set max. domino speed + SetDAC(fDAC_DRA, 2.5); + SetDAC(fDAC_DSA, 2.5); + SetDAC(fDAC_DRB, 2.5); + SetDAC(fDAC_DSB, 2.5); + // set readout offset + SetDAC(fDAC_COFSA, 0.9); + SetDAC(fDAC_COFSB, 0.9); + SetDAC(fDAC_TLEVEL, 1.7); + } else if (fBoardType == 2 || fBoardType == 3) { + // set max. domino speed + SetDAC(fDAC_DSA, 2.5); + SetDAC(fDAC_DSB, 2.5); + + // set readout offset + SetDAC(fDAC_COFS, 0.9); + SetDAC(fDAC_TLEVEL, 1.7); + SetDAC(fDAC_ADCOFS, 1.7); // 1.7 for DC coupling, 1.25 for AC + SetDAC(fDAC_CLKOFS, 1); + } else if (fBoardType == 4) { + // set max. domino speed + SetDAC(fDAC_DSA, 2.5); + SetDAC(fDAC_DSB, 2.5); + + // set readout offset + SetDAC(fDAC_ROFS_1, 1.25); // LVDS level + //SetDAC(fDAC_ROFS_2, 0.85); // linear range 0.1V ... 1.1V + SetDAC(fDAC_ROFS_2, 1.05); // differential input from Lecce splitter + + SetDAC(fDAC_ADCOFS, 1.25); + SetDAC(fDAC_ACALIB, 0.5); + SetDAC(fDAC_INOFS, 0.6); + SetDAC(fDAC_BIAS, 0.70); // a bit above the internal bias of 0.68V + + } else if (fBoardType == 5) { + // DRS4 USB Evaluation Board 1.1 + 2.0 + + // set max. domino speed + SetDAC(fDAC_DSA, 2.5); + + // set readout offset + fROFS = 1.6; // differential input range -0.5V ... +0.5V + fRange = 0; + SetDAC(fDAC_ROFS_1, fROFS); + + // set common mode offset + fCommonMode = 0.8; // 0.8V +- 0.5V inside NMOS range + SetDAC(fDAC_CMOFS, fCommonMode); + + // calibration voltage + SetDAC(fDAC_CALP, fCommonMode); + SetDAC(fDAC_CALN, fCommonMode); + + // OUT- offset + SetDAC(fDAC_ONOFS, 1.25); + + SetDAC(fDAC_BIAS, 0.70); + + } else if (fBoardType == 6) { + // DRS4 Mezzanine Board 1.0 + + // set readout offset + fROFS = 1.6; // differential input range -0.5V ... +0.5V + fRange = 0; + SetDAC(fDAC_ROFS_1, fROFS); + + // set common mode offset + fCommonMode = 0.8; // 0.8V +- 0.5V inside NMOS range + SetDAC(fDAC_CMOFSP, fCommonMode); + SetDAC(fDAC_CMOFSN, fCommonMode); + + // calibration voltage + SetDAC(fDAC_CALN, fCommonMode); + SetDAC(fDAC_CALP, fCommonMode); + + // OUT- offset + SetDAC(fDAC_ONOFS, 1.25); + + SetDAC(fDAC_BIAS, 0.70); + } + + /* set default number of channels per chip */ + if (fDRSType == 4) { + if (fTransport == TR_USB2) + SetChannelConfig(0, fNumberOfReadoutChannels - 1, 8); + else + SetChannelConfig(7, fNumberOfReadoutChannels - 1, 8); + } else + SetChannelConfig(0, fNumberOfReadoutChannels - 1, 12); + + // set ADC clock phase + if (fBoardType == 5) { + fADCClkPhase = 0; + fADCClkInvert = 0; + } else if (fBoardType == 6) { + fADCClkPhase = 60; + fADCClkInvert = 0; + } + + // default settings + fDominoMode = 1; + fReadoutMode = 1; + fTriggerEnable1 = 0; + fTriggerEnable2 = 0; + fTriggerSource = 0; + fTriggerDelay = 0; + fFrequency = 1; + fDominoActive = 1; + + // get some settings from hardware + fRange = GetCalibratedInputRange(); + if (fRange < 0 || fRange > 0.5) + fRange = 0; + fFrequency = GetCalibratedFrequency(); + if (fFrequency < 0.1 || fFrequency > 6) + fFrequency = 1; + + SetDominoMode(fDominoMode); + SetReadoutMode(fReadoutMode); + EnableTrigger(fTriggerEnable1, fTriggerEnable2); + SetTriggerSource(fTriggerSource); + SetTriggerDelay(fTriggerDelay); + SetDominoActive(fDominoActive); + SetFrequency(fFrequency, true); + SetInputRange(fRange); + if (fBoardType == 5) + SelectClockSource(0); // FPGA clock + if (fBoardType == 6) { + SetADCClkPhase(fADCClkPhase, fADCClkInvert); + SetWarmup(0); + SetCooldown(100); + } + + /* disable calibration signals */ + EnableAcal(0, 0); + SetCalibTiming(0, 0); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetDominoMode(unsigned char mode) +{ + // Set domino mode + // mode == 0: single sweep + // mode == 1: run continously + // + fDominoMode = mode; + + if (fDRSType == 4) { + unsigned short d; + Read(T_CTRL, &d, REG_CONFIG, 2); + fChannelConfig = d & 0xFF; + + d = fChannelConfig | (fDominoMode << 8) | (1 << 9) | (fWSRLoop << 10) | (0xF8 << 8); + Write(T_CTRL, REG_CONFIG, &d, 2); + } else { + if (mode) + fCtrlBits |= BIT_DMODE; + else + fCtrlBits &= ~BIT_DMODE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetDominoActive(unsigned char mode) +{ + // Set domino activity + // mode == 0: stop during readout + // mode == 1: keep domino wave running + // + fDominoActive = mode; + if (mode) + fCtrlBits |= BIT_DACTIVE; + else + fCtrlBits &= ~BIT_DACTIVE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetReadoutMode(unsigned char mode) +{ + // Set readout mode + // mode == 0: start from first bin + // mode == 1: start from domino stop + // + fReadoutMode = mode; + if (mode) + fCtrlBits |= BIT_READOUT_MODE; + else + fCtrlBits &= ~BIT_READOUT_MODE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SoftTrigger(void) +{ + // Send a software trigger + fCtrlBits |= BIT_SOFT_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_SOFT_TRIG; + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::EnableTrigger(int flag1, int flag2) +{ + // Enable external trigger + fTriggerEnable1 = flag1; + fTriggerEnable2 = flag2; + if (flag1) + fCtrlBits |= BIT_ENABLE_TRIGGER1; + else + fCtrlBits &= ~BIT_ENABLE_TRIGGER1; + + if (flag2) + fCtrlBits |= BIT_ENABLE_TRIGGER2; + else + fCtrlBits &= ~BIT_ENABLE_TRIGGER2; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetDelayedTrigger(int flag) +{ + // Select delayed trigger from trigger bus + if (flag) + fCtrlBits |= BIT_TRIGGER_DELAYED; + else + fCtrlBits &= ~BIT_TRIGGER_DELAYED; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetTriggerLevel(double voltage, bool negative) +{ + if (fBoardType == 5) { + fTcalLevel = negative; + + if (negative) + fCtrlBits |= BIT_NEG_TRIGGER; + else + fCtrlBits &= ~BIT_NEG_TRIGGER; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return SetDAC(fDAC_TLEVEL, voltage/2 + 0.8); + } + + return 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetTriggerDelay(int delay) +{ + short ticks; + int delay0; + + if (fBoardType == 5 || fBoardType == 6) { + fTriggerDelay = delay; + + if (fBoardType == 5) { + // Adjust trigger delay to middle of window + delay0 = (int) ((kNumberOfBins/fFrequency) / 2); + delay0 -= 33; // internal trigger delay is about 33 ns + } else + delay0 = 0; // treat delay as addition to minimal delay + + // convert delay in ns into ticks, ~4*580 ps per quad LUT + ticks = (unsigned short) ((delay0 + delay) / 2.3 + 0.5); + if (ticks > 255) + ticks = 255; + if (ticks < 0) + ticks = 0; + Write(T_CTRL, REG_TRG_DELAY, &ticks, 2); + + return 1; + } + + return 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetTriggerSource(int source) +{ + // Set trigger source + // 0=CH1, 1=CH2, 2=CH3, 3=CH4 + if (source & 1) + fCtrlBits |= BIT_TR_SOURCE1; + else + fCtrlBits &= ~BIT_TR_SOURCE1; + if (source & 2) + fCtrlBits |= BIT_TR_SOURCE2; + else + fCtrlBits &= ~BIT_TR_SOURCE2; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetDelayedStart(int flag) +{ + // Enable external trigger + fDelayedStart = flag; + if (flag) + fCtrlBits |= BIT_DELAYED_START; + else + fCtrlBits &= ~BIT_DELAYED_START; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetTranspMode(int flag) +{ + // Enable/disable transparent mode + fTranspMode = flag; + if (flag) + fCtrlBits |= BIT_TRANSP_MODE; + else + fCtrlBits &= ~BIT_TRANSP_MODE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetStandbyMode(int flag) +{ + // Enable/disable standby mode + fTranspMode = flag; + if (flag) + fCtrlBits |= BIT_STANDBY_MODE; + else + fCtrlBits &= ~BIT_STANDBY_MODE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::IsBusy() +{ + // Get running flag + unsigned int status; + + Read(T_STATUS, &status, REG_STATUS, 4); + return (status & BIT_RUNNING) > 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::IsPLLLocked() +{ + // Get running flag + unsigned int status; + + Read(T_STATUS, &status, REG_STATUS, 4); + if (GetBoardType() == 6) + return ((status >> 1) & 0x0F) == 0x0F; + return (status & BIT_PLL_LOCKED0) > 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::IsLMKLocked() +{ + // Get running flag + unsigned int status; + + Read(T_STATUS, &status, REG_STATUS, 4); + if (GetBoardType() == 6) + return (status & BIT_LMK_LOCKED) > 0; + return 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::IsNewFreq(unsigned char chipIndex) +{ + unsigned int status; + + Read(T_STATUS, &status, REG_STATUS, 4); + if (chipIndex == 0) + return (status & BIT_NEW_FREQ1) > 0; + return (status & BIT_NEW_FREQ2) > 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::ReadFrequency(unsigned char chipIndex, double *f) +{ + if (fDRSType == 4) { + + if (fBoardType == 6) { + *f = fFrequency; + return 1; + } + + unsigned short ticks; + + Read(T_CTRL, &ticks, REG_FREQ_SET, 2); + ticks += 2; + + /* convert rounded ticks back to frequency */ + if (ticks > 2) + *f = 1.024 / ticks * fRefClock; + else + *f = 0; + } else { + // Read domino sampling frequency + unsigned char buffer[2]; + + if (chipIndex == 0) + Read(T_STATUS, buffer, REG_FREQ1, 2); + else + Read(T_STATUS, buffer, REG_FREQ2, 2); + + *f = (static_cast < unsigned int >(buffer[1]) << 8) +buffer[0]; + + /* convert counts to frequency */ + if (*f != 0) + *f = 1024 * 200 * (32.768E6 * 4) / (*f) / 1E9; + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +double DRSBoard::VoltToFreq(double volt) +{ + if (fDRSType == 3) { + if (volt <= 1.2001) + return (volt - 0.6) / 0.2; + else + return 0.73 / 0.28 + sqrt((0.73 / 0.28) * (0.73 / 0.28) - 2.2 / 0.14 + volt / 0.14); + } else + return (volt - 0.5) / 0.2; +} + +/*------------------------------------------------------------------*/ + +double DRSBoard::FreqToVolt(double freq) +{ + if (fDRSType == 3) { + if (freq <= 3) + return 0.6 + 0.2 * freq; + else + return 2.2 - 0.73 * freq + 0.14 * freq * freq; + } else + return 0.55 + 0.25 * freq; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::ConfigureLMK(double sampFreq, bool freqChange, int calFreq, int calPhase) +{ + unsigned int data[] = { 0x80000100, // RESET=1 + 0x0007FF00, // CLKOUT0: EN=1, DIV=FF (=510) MUX=Div&Delay + 0x00000101, // CLKOUT1: Disabled + 0x0082000B, // R11: DIV4=0 + 0x028780AD, // R13: VCO settings + 0x0830000E, // R14: PLL settings + 0xC000000F }; // R15: PLL settings + + /* calculate dividing ratio */ + int divider, vco_divider, n_counter, r_counter; + unsigned int status; + double clk, vco; + + if (fTransport == TR_USB2) { + /* 30 MHz clock */ + data[4] = 0x028780AD; // R13 according to CodeLoader 4 + clk = 30; + if (sampFreq < 1) { + r_counter = 1; + vco_divider = 8; + n_counter = 5; + } else { + r_counter = 1; + vco_divider = 5; + n_counter = 8; + } + } else { + + if (fCtrlBits & BIT_REFCLK_SOURCE) { + /* 19.44 MHz clock */ + data[4] = 0x0284C0AD; // R13 according to CodeLoader 4 + clk = 19.44; // global clock through P2 + + r_counter = 2; + vco_divider = 8; + n_counter = 16; + } else { + /* 33 MHz clock */ + data[4] = 0x028840AD; // R13 according to CodeLoader 4 + clk = 33; // FPGA clock + + r_counter = 2; + vco_divider = 8; + n_counter = 9; + } + } + + vco = clk/r_counter*n_counter*vco_divider; + divider = (int) ((vco / vco_divider / (sampFreq/2.048) / 2.0) + 0.5); + + /* return exact frequency */ + fFrequency = vco/vco_divider/(divider*2)*2.048; + + /* return exact timing calibration frequency */ + fTCALFrequency = vco/vco_divider; + + /* change registers accordingly */ + data[1] = 0x00070000 | (divider << 8); // R0 + data[5] = 0x0830000E | (r_counter << 8); // R14 + data[6] = 0xC000000F | (n_counter << 8) | (vco_divider << 26); // R15 + + /* enable TCA output if requested */ + if (calFreq) { + if (calFreq == 1) + data[2] = 0x00050001 | ( 1<<8) ; // 148.5 MHz (33 MHz PLL) + // 150 MHz (30 MHz PLL) + // 155.52 MHz (19.44 MHz PLL) + else if (calFreq == 2) + data[2] = 0x00070001 | ( 4<<8); // above values divided by 8 + else if (calFreq == 3) + data[2] = 0x00070001 | (255<<8); // above values divided by 510 + } + + /* set delay to adjsut phase */ + if (calPhase > 0) + data[2] |= (( calPhase & 0x0F) << 4); + else if (calPhase < 0) + data[1] |= ((-calPhase & 0x0F) << 4); + + if (freqChange) { + /* set all registers */ + for (int i=0 ; i<(int)(sizeof(data)/sizeof(unsigned int)) ; i++) { + Write(T_CTRL, REG_LMK_LSB, &data[i], 2); + Write(T_CTRL, REG_LMK_MSB, ((char *)&data[i])+2, 2); + // poll on serial_busy flag + for (int j=0 ; j<100 ; j++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) + break; + } + } + } else { + /* only enable/disable timing calibration frequency */ + Write(T_CTRL, REG_LMK_LSB, &data[1], 2); + Write(T_CTRL, REG_LMK_MSB, ((char *)&data[1])+2, 2); + + /* poll on serial_busy flag */ + for (int j=0 ; j<100 ; j++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) + break; + } + + Write(T_CTRL, REG_LMK_LSB, &data[2], 2); + Write(T_CTRL, REG_LMK_MSB, ((char *)&data[2])+2, 2); + + /* poll on serial_busy flag */ + for (int j=0 ; j<100 ; j++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) + break; + } + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetFrequency(double demand, bool wait) +{ + // Set domino sampling frequency + double freq, voltage, delta_voltage; + unsigned short ticks; + int i, index, timeout; + int dominoModeSave = fDominoMode; + int triggerEnableSave1 = fTriggerEnable1; + int triggerEnableSave2 = fTriggerEnable2; + + if (fDRSType == 4) { + /* allowed range is 100 MHz to 6 GHz */ + if (demand > 6 || demand < 0.1) + return 0; + + if (fBoardType == 6) + return ConfigureLMK(demand, true, fTcalFreq, fTcalPhase); + + /* convert frequency in GHz into ticks counted by reference clock */ + if (demand == 0) + ticks = 0; // turn off frequency generation + else + ticks = static_cast < unsigned short >(1.024 / demand * fRefClock + 0.5); + + ticks -= 2; // firmware counter need two additional clock cycles + Write(T_CTRL, REG_FREQ_SET, &ticks, 2); + ticks += 2; + + /* convert rounded ticks back to frequency */ + if (demand > 0) + demand = 1.024 / ticks * fRefClock; + fFrequency = demand; + + /* wait for PLL lock if asekd */ + if (wait) { + StartDomino(); + for (i=0 ; i<1000 ; i++) + if (GetStatusReg() & BIT_PLL_LOCKED0) + break; + if (i==100) { + printf("PLL did not lock for frequency %lf\n", demand); + return 0; + } + } + } else { // fDRSType == 4 + SetDominoMode(1); + EnableTrigger(0, 0); + EnableAcal(0, 0); + + fFrequency = demand; + + /* turn automatic adjustment off */ + fCtrlBits &= ~BIT_FREQ_AUTO_ADJ; + + /* disable external trigger */ + fCtrlBits &= ~BIT_ENABLE_TRIGGER1; + fCtrlBits &= ~BIT_ENABLE_TRIGGER2; + + /* set start pulse length for future DRSBoard_domino_start() */ + if (fDRSType == 2) { + if (demand < 0.8) + fCtrlBits |= BIT_LONG_START_PULSE; + else + fCtrlBits &= ~BIT_LONG_START_PULSE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + } + + /* stop any running domino wave */ + Reinit(); + + /* estimate DAC setting */ + voltage = FreqToVolt(demand); + + SetDAC(fDAC_DSA, voltage); + SetDAC(fDAC_DSB, voltage); + + /* wait until new DAC value has settled */ + Sleep(10); + + /* restart domino wave */ + StartDomino(); + + ticks = static_cast < unsigned short >(1024 * 200 * (32.768E6 * 4) / demand / 1E9); + + /* iterate over both DRS chips */ + for (index = 0; index < 2; index++) { + + /* starting voltage */ + voltage = FreqToVolt(demand); + + for (i = 0; i < 100; i++) { + + /* wait until measurement finished */ + for (timeout = 0; timeout < 1000; timeout++) + if (IsNewFreq(index)) + break; + + freq = 0; + if (timeout == 1000) + break; + + ReadFrequency(index, &freq); + + delta_voltage = FreqToVolt(demand) - FreqToVolt(freq); + + if (fDebug) { + if (fabs(freq - demand) < 0.001) + printf("CHIP-%d, iter%3d: %1.5lf(%05d) %7.5lf\n", index, i, voltage, + static_cast < int >(voltage / 2.5 * 65535 + 0.5), freq); + else + printf("CHIP-%d, iter%3d: %1.5lf(%05d) %7.5lf %+5d\n", index, i, voltage, + static_cast < int >(voltage / 2.5 * 65535 + 0.5), freq, + static_cast < int >(delta_voltage / 2.5 * 65535 + 0.5)); + } + + if (fabs(freq - demand) < 0.001) + break; + + voltage += delta_voltage; + if (voltage > 2.5) + voltage = 2.5; + if (voltage < 0) + voltage = 0; + + if (freq == 0) + break; + + if (index == 0) + SetDAC(fDAC_DSA, voltage); + else + SetDAC(fDAC_DSB, voltage); + + Sleep(10); + } + if (i == 100 || freq == 0 || timeout == 1000) { + printf("Board %d --> Could not set frequency of CHIP-#%d to %1.3f GHz\n", GetBoardSerialNumber(), + index, demand); + return 0; + } + } + + SetDominoMode(dominoModeSave); + EnableTrigger(triggerEnableSave1, triggerEnableSave2); + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::RegulateFrequency(double demand) +{ + // Set frequency regulation + unsigned short target, target_hi, target_lo; + + if (demand < 0.42 || demand > 5.2) + return 0; + + fFrequency = demand; + + /* first iterate DAC value from host */ + if (!SetFrequency(demand, true)) + return 0; + + /* convert frequency in GHz into counts for 200 cycles */ + target = static_cast < unsigned short >(1024 * 200 * (32.768E6 * 4) / demand / 1E9); + target_hi = target + 6; + target_lo = target - 6; + Write(T_CTRL, REG_FREQ_SET_HI, &target_hi, 2); + Write(T_CTRL, REG_FREQ_SET_LO, &target_lo, 2); + + /* turn on regulation */ + fCtrlBits |= BIT_FREQ_AUTO_ADJ; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + /* optional monitoring code ... */ +#if 0 + do { + double freq; + unsigned short dac, cnt; + + ReadFrequency(0, &freq); + + if (fBoardType == 1) + Read(T_STATUS, &dac, REG_RDAC3, 2); + else if (fBoardType == 2 || fBoardType == 3) + Read(T_STATUS, &dac, REG_RDAC1, 2); + + Read(T_STATUS, &cnt, REG_FREQ1, 2); + + if (cnt < 65535) + printf("%5d %5d %5d %1.5lf\n", dac, target, cnt, freq); + + Sleep(500); + } while (1); +#endif + + return 1; +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::RegisterTest() +{ + // Register test +#define N_REG 8 + + int i, n, n_err; + unsigned int buffer[N_REG], ret[N_REG]; + + /* test single register */ + buffer[0] = 0x12345678; + Write(T_CTRL, 0, buffer, 4); + memset(ret, 0, sizeof(ret)); + i = Read(T_CTRL, ret, 0, 4); + while (i != 4) + printf("Read error single register!\n"); + + printf("Reg.0: %08X - %08X\n", buffer[0], ret[0]); + + n_err = 0; + for (n = 0; n < 100; n++) { + for (i = 0; i < N_REG; i++) + buffer[i] = (rand() << 16) | rand(); + Write(T_CTRL, 0, buffer, sizeof(buffer)); + + memset(ret, 0, sizeof(ret)); + i = Read(T_CTRL, ret, 0, sizeof(ret)); + while (i != sizeof(ret)) { + printf("Read error!\n"); + return; + } + + for (i = 0; i < N_REG; i++) { + if (n == 0) + printf("Reg.%d: %08X - %08X\n", i, buffer[i], ret[i]); + if (buffer[i] != ret[i]) { + n_err++; + } + } + } + + printf("Register test: %d errors\n", n_err); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::RAMTest(int flag) +{ +#define MAX_N_BYTES 128*1024 // 128 kB + + int i, j, n, bits, n_bytes, n_words, n_dwords; + unsigned int buffer[MAX_N_BYTES/4], ret[MAX_N_BYTES/4]; + time_t now; + + if (fBoardType == 6 && fTransport == TR_VME) { + bits = 32; + n_bytes = 128*1024; // test full 128 kB + n_words = n_bytes/2; + n_dwords = n_words/2; + } else { + bits = 24; + n_words = 9*1024; + n_bytes = n_words * 2; + n_dwords = n_words/2; + } + + if (flag & 1) { + /* integrety test */ + printf("Buffer size: %d (%1.1lfk)\n", n_words * 2, n_words * 2 / 1024.0); + if (flag & 1) { + for (i = 0; i < n_dwords; i++) { + if (bits == 24) + buffer[i] = (rand() | rand() << 16) & 0x00FFFFFF; // random 24-bit values + else + buffer[i] = (rand() | rand() << 16); // random 32-bit values + } + + Reinit(); + Write(T_RAM, 0, buffer, n_bytes); + memset(ret, 0, n_bytes); + Read(T_RAM, ret, 0, n_bytes); + Reinit(); + + for (i = n = 0; i < n_dwords; i++) { + if (buffer[i] != ret[i]) { + n++; + } + if (i < 10) + printf("written: %08X read: %08X\n", buffer[i], ret[i]); + } + + printf("RAM test: %d errors\n", n); + } + } + + /* speed test */ + if (flag & 2) { + /* read continously to determine speed */ + time(&now); + while (now == time(NULL)); + time(&now); + i = n = 0; + do { + memset(ret, 0, n_bytes); + + for (j = 0; j < 10; j++) { + Read(T_RAM, ret, 0, n_bytes); + i += n_bytes; + } + + if (flag & 1) { + for (j = 0; j < n_dwords; j++) + if (buffer[j] != ret[j]) + n++; + } + + if (now != time(NULL)) { + if (flag & 1) + printf("%d read/sec, %1.2lf MB/sec, %d errors\n", static_cast < int >(i / n_bytes), + i / 1024.0 / 1024.0, n); + else + printf("%d read/sec, %1.2lf MB/sec\n", static_cast < int >(i / n_bytes), + i / 1024.0 / 1024.0); + time(&now); + i = 0; + } + + if (drs_kbhit()) + break; + + } while (1); + + while (drs_kbhit()) + getch(); + } + + return 0; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::ChipTest() +{ + int i, j, t; + double freq, old_freq, min, max, mean, rms; + float waveform[1024]; + + Init(); + SetChannelConfig(0, 8, 8); + SetDominoMode(1); + SetReadoutMode(1); + SetDominoActive(1); + SetTranspMode(0); + EnableTrigger(0, 0); + EnableTcal(1, 0); + SelectClockSource(0); + EnableAcal(1, 0); + + /* test 1 GHz */ + SetFrequency(1, true); + StartDomino(); + Sleep(100); + if (!(GetStatusReg() & BIT_PLL_LOCKED0)) { + puts("PLL did not lock at 1 GHz"); + return 0; + } + + /* test up to 6 GHz */ + for (freq = 5 ; freq < 6 ; freq += 0.1) { + SetFrequency(freq, false); + Sleep(10); + if (!(GetStatusReg() & BIT_PLL_LOCKED0)) { + printf("Max. frequency is %1.1lf GHz\n", old_freq); + break; + } + ReadFrequency(0, &old_freq); + } + + /* read and check at 0 calibration voltage */ + SetFrequency(5, true); + Sleep(10); + SoftTrigger(); + while (IsBusy()); + TransferWaves(0, 8); + + for (i=0 ; i<8 ; i++) { + t = GetStopCell(0); + GetWave(0, i, waveform, false, t, false); + for (j=0 ; j<1024; j++) + if (waveform[j] < -100 || waveform[j] > 100) { + if (j<5) { + /* skip this cells */ + } else { + printf("Cell error on channel %d, cell %d: %1.1lf mV instead 0 mV\n", i, j, waveform[j]); + return 0; + } + } + } + + /* read and check at +0.5V calibration voltage */ + EnableAcal(1, 0.5); + StartDomino(); + SoftTrigger(); + while (IsBusy()); + TransferWaves(0, 8); + + for (i=0 ; i<8 ; i++) { + t = GetStopCell(0); + GetWave(0, i, waveform, false, t, false); + for (j=0 ; j<1024; j++) + if (waveform[j] < 350) { + if (j<5) { + /* skip this cell */ + } else { + printf("Cell error on channel %d, cell %d: %1.1lf mV instead 400 mV\n", i, j, waveform[j]); + return 0; + } + } + } + + /* read and check at -0.5V calibration voltage */ + EnableAcal(1, -0.5); + StartDomino(); + Sleep(10); + SoftTrigger(); + while (IsBusy()); + TransferWaves(0, 8); + + for (i=0 ; i<8 ; i++) { + t = GetStopCell(0); + GetWave(0, i, waveform, false, t, false); + for (j=0 ; j<1024; j++) + if (waveform[j] > -350) { + if (j<5) { + /* skip this cell */ + } else { + printf("Cell error on channel %d, cell %d: %1.1lf mV instead -400mV\n", i, j, waveform[j]); + return 0; + } + } + } + + /* check clock channel */ + GetWave(0, 8, waveform, false, 0); + min = max = mean = rms = 0; + for (j=0 ; j<1024 ; j++) { + if (waveform[j] > max) + max = waveform[j]; + if (waveform[j] < min) + min = waveform[j]; + mean += waveform[j]; + } + mean /= 1024.0; + for (j=0 ; j<1024 ; j++) + rms += (waveform[j] - mean) * (waveform[j] - mean); + rms = sqrt(rms/1024); + + if (max - min < 400) { + printf("Error on clock channel amplitude: %1.1lf mV\n", max-min); + return 0; + } + + if (rms < 100 || rms > 300) { + printf("Error on clock channel RMS: %1.1lf mV\n", rms); + return 0; + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::SetVoltageOffset(double offset1, double offset2) +{ + if (fDRSType == 3) { + SetDAC(fDAC_ROFS_1, 0.95 - offset1); + SetDAC(fDAC_ROFS_2, 0.95 - offset2); + } else if (fDRSType == 2) + SetDAC(fDAC_COFS, 0.9 - offset1); + + // let DAC settle + Sleep(100); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetInputRange(double center) +{ + if (fBoardType == 5 || fBoardType == 6) { + // DRS4 USB Evaluation Board 1.1 + Mezzanine Board + + // only allow -0.5...0.5 to 0...1.0 + if (center < 0 || center > 0.5) + return 0; + + // remember range + fRange = center; + + // correct for sampling cell charge injection + center *= 1.125; + + // set readout offset + fROFS = 1.6 - center; + SetDAC(fDAC_ROFS_1, fROFS); + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetExternalClockFrequency(double frequencyMHz) +{ + // Set the frequency of the external clock + fExternalClockFrequency = frequencyMHz; + return 0; +} + +/*------------------------------------------------------------------*/ + +double DRSBoard::GetExternalClockFrequency() +{ + // Return the frequency of the external clock + return fExternalClockFrequency; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::TransferWaves(int numberOfChannels) +{ + return TransferWaves(fWaveforms, numberOfChannels); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::TransferWaves(unsigned char *p, int numberOfChannels) +{ + return TransferWaves(p, 0, numberOfChannels - 1); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::TransferWaves(int firstChannel, int lastChannel) +{ + int offset; + + if (fTransport == TR_USB) + offset = firstChannel * sizeof(short int) * kNumberOfBins; + else + offset = 0; //in VME and USB2, always start from zero + + return TransferWaves(fWaveforms + offset, firstChannel, lastChannel); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::TransferWaves(unsigned char *p, int firstChannel, int lastChannel) +{ + // Transfer all waveforms at once from VME or USB to location + int n, offset, n_requested; + + if (lastChannel >= fNumberOfChips * fNumberOfChannels) + lastChannel = fNumberOfChips * fNumberOfChannels - 1; + if (lastChannel < 0) { + printf("Error: Invalid channel index %d\n", lastChannel); + return 0; + } + + if (firstChannel < 0 || firstChannel > fNumberOfChips * fNumberOfChannels) { + printf("Error: Invalid channel index %d\n", firstChannel); + return 0; + } + + if (fTransport == TR_VME) { + /* in VME, always transfer all waveforms, since channels sit 'next' to each other */ + firstChannel = 0; + lastChannel = fNumberOfChips * fNumberOfChannels - 1; + if (fReadoutChannelConfig == 4) + lastChannel = fNumberOfChips * 5 - 1; // special mode to read only even channels + clock + } + + else if (fTransport == TR_USB2) { + /* USB2 FPGA contains 9 (Eval) or 10 (Mezz) channels */ + firstChannel = 0; + if (fBoardType == 5) + lastChannel = 8; + else if (fBoardType == 6) + lastChannel = 9; + } + + else if (fTransport == TR_USB) { + /* USB1 FPGA contains only 16 channels */ + if (lastChannel > 15) + lastChannel = 15; + } + + n_requested = (lastChannel - firstChannel + 1) * sizeof(short int) * kNumberOfBins; + offset = firstChannel * sizeof(short int) * kNumberOfBins; + + n = Read(T_RAM, p, offset, n_requested); + if (n != n_requested) { + printf("Error: only %d bytes out of %d read\n", n, n_requested); + return n; + } + + // read trigger cells + if (fDRSType == 4) { + if (fBoardType == 5) + Read(T_STATUS, fStopCell, REG_STOP_CELL0, 2); + else { + Read(T_STATUS, fStopCell, REG_STOP_CELL0, 2); + Read(T_STATUS, fStopCell+1, REG_STOP_CELL1, 2); + Read(T_STATUS, fStopCell+2, REG_STOP_CELL2, 2); + Read(T_STATUS, fStopCell+3, REG_STOP_CELL3, 2); + } + } - if (firstChannel < 0 || firstChannel > kNumberOfChips*kNumberOfChannels) { - printf("Error: Invalid channel index %d\n", firstChannel); - return 0; - } - - firstChannel = 0; - lastChannel = kNumberOfChips*kNumberOfChannels -1; - - - n_requested = (lastChannel - firstChannel + 1) * sizeof(short int) * kNumberOfBins; - offset = firstChannel * sizeof(short int) * kNumberOfBins; - - n = Read(T_RAM, p, offset, n_requested); - - // Fixme (SCC 28082008): this check is now obsolete!!!! - if (n != n_requested) { - printf("Error: only %d bytes read\n", n); - return n; - } - - // Remember which waveforms have been transferred - for (i = firstChannel; i <= lastChannel; i++) - fWaveTransferred[i] = true; - - //fNumberOfTransferredWaves = numberOfChannels; - return n; + return n; } @@ -1726,48 +2956,98 @@ int DRSBoard::DecodeWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform) { - - return DecodeWave(fWaveforms , chipIndex, channel, waveform); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::DecodeWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, unsigned short *waveform) -{ - - // Get waveform - int i, offset, ind; - - // Check valid parameters - if (channel > 9 || chipIndex > 1) - return kWrongChannelOrChip; - - // Re-map channel - if (fBoardVersion == 1) { - if (channel < 8) - channel = 7 - channel; - else - channel = 16 - channel; - } else { - channel = channel; - } - - offset = (kNumberOfBins * 4) * channel; - - if (DEBUG) - printf("offset = %d (0X%X)\n",offset,offset); - - for (i = 0; i < kNumberOfBins; i++) { - - ind = i * 4 + offset; - - if (chipIndex == 0) - // Lower 12 bit - waveform[i] = ((waveforms[ind + 1] & 0x0f) << 8) | waveforms[ind]; - else - // Upper 12 bit - waveform[i] = (waveforms[ind + 2] << 4) | (waveforms[ind + 1] >> 4); - } - - return kSuccess; + return DecodeWave(fWaveforms, chipIndex, channel, waveform); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::DecodeWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, + unsigned short *waveform) +{ + // Get waveform + int i, offset=0, ind; + + /* check valid parameters */ + assert((int)channel < fNumberOfChannels); + assert((int)chipIndex < fNumberOfChips); + + /* remap channel */ + if (fBoardType == 1) { + if (channel < 8) + channel = 7 - channel; + else + channel = 16 - channel; + } else if (fBoardType == 6) { + if (fReadoutChannelConfig == 7) { + if (channel < 8) + channel = 7-channel; + } else if (fReadoutChannelConfig == 4) { + if (channel == 8) + channel = 4; + else + channel = 3 - channel/2; + } else { + channel = channel / 2; + if (channel != 4) + channel = 3-channel; + } + } else + channel = channel; + + // Read channel + if (fTransport == TR_USB) { + offset = kNumberOfBins * 2 * (chipIndex * 16 + channel); + for (i = 0; i < kNumberOfBins; i++) { + // 12-bit data + waveform[i] = ((waveforms[i * 2 + 1 + offset] & 0x0f) << 8) + waveforms[i * 2 + offset]; + } + } else if (fTransport == TR_USB2) { + + if (fBoardType == 5) + // see dpram_map_eval1.xls + offset = kNumberOfBins * 2 * (chipIndex * 16 + channel); + else if (fBoardType == 6) { + // see dpram_map_mezz1.xls mode 0-3 + offset = (kNumberOfBins * 4) * (channel % 9) + 2 * (chipIndex/2); + } + for (i = 0; i < kNumberOfBins; i++) { + // 16-bit data + if (fBoardType == 5) + waveform[i] = ((waveforms[i * 2 + 1 + offset] & 0xff) << 8) + waveforms[i * 2 + offset]; + else if (fBoardType == 6) + waveform[i] = ((waveforms[i * 4 + 1 + offset] & 0xff) << 8) + waveforms[i * 4 + offset]; + } + } else if (fTransport == TR_VME) { + + if (fBoardType == 6) { + if (fReadoutChannelConfig == 7) // see dpram_map_mezz1.xls mode 7 + offset = (kNumberOfBins * 4) * (channel % 9 + 9*(chipIndex % 2)) + 2 * (chipIndex/2); + else if (fReadoutChannelConfig == 4) // see dpram_map_mezz1.xls mode 4 + offset = (kNumberOfBins * 4) * (channel % 5 + 5*(chipIndex % 2)) + 2 * (chipIndex/2); + for (i = 0; i < kNumberOfBins; i++) + waveform[i] = ((waveforms[i * 4 + 1 + offset] & 0xff) << 8) + waveforms[i * 4 + offset]; + } else { + offset = (kNumberOfBins * 4) * channel; + for (i = 0; i < kNumberOfBins; i++) { + ind = i * 4 + offset; + if (chipIndex == 0) + // lower 12 bit + waveform[i] = ((waveforms[ind + 1] & 0x0f) << 8) | waveforms[ind]; + else + // upper 12 bit + waveform[i] = (waveforms[ind + 2] << 4) | (waveforms[ind + 1] >> 4); + } + } + } else { + printf("Error: invalid transport %d\n", fTransport); + return kInvalidTransport; + } + return kSuccess; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetWave(unsigned int chipIndex, unsigned char channel, float *waveform) +{ + return GetWave(chipIndex, channel, waveform, true, fStopCell[chipIndex], false, 0, true); } @@ -1775,125 +3055,106 @@ int DRSBoard::GetWave(unsigned int chipIndex, unsigned char channel, short *waveform, bool responseCalib, - int triggerCell, bool adjustToClock, float threshold) -{ - - int ret; - - ret = GetWave(fWaveforms,chipIndex,channel,waveform,responseCalib,triggerCell,adjustToClock,threshold); - - if (kRotateWave) RotateWave((int)GetTriggerCell(chipIndex),waveform); - - return ret; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetWave(unsigned int chipIndex, unsigned char channel, float *waveform, bool responseCalib, - int triggerCell, bool adjustToClock, float threshold) -{ - int ret,i; - short waveS[kNumberOfBins]; - - ret = GetWave(fWaveforms,chipIndex,channel,waveS,responseCalib,triggerCell,adjustToClock,threshold); - - if (responseCalib) - for (i = 0; i < kNumberOfBins; i++) - waveform[i] = static_cast(waveS[i] * GetPrecision()); - else { - for (i = 0; i < kNumberOfBins; i++) { - if (fBoardVersion==4) - waveform[i] = static_cast(waveS[i] / 4.095); // 12-bit corresponding to 1V - else - waveform[i] = static_cast(waveS[i]); - } - } - - if (kRotateWave) - //RotateWave((int)GetTriggerCell(waveform,chipIndex),waveform); - RotateWave((int)GetTriggerCell(chipIndex),waveform); - - return ret; -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::RotateWave(int triggerCell, float *waveform) -{ - int i; - float buffer[kNumberOfBins]; - - memcpy((float*)buffer,(float*)waveform,sizeof(buffer)); - - for (i=0;i(waveS[i] * GetPrecision()); - else { - for (i = 0; i < kNumberOfBins; i++) { - if (fBoardVersion == 4) - waveform[i] = static_cast(waveS[i] / 4.095); // 12-bit corresponding to 1V - else - waveform[i] = static_cast(waveS[i]); - } - } - return ret; -} - -/*------------------------------------------------------------------*/ - - -int DRSBoard::GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, short *waveform, bool responseCalib, - int triggerCell, bool adjustToClock, float threshold) -{ - if (!fWaveTransferred[chipIndex*kNumberOfChannels+channel]) - return kWaveNotAvailable; - unsigned short adcWaveform[kNumberOfBins]; - int ret = DecodeWave(waveforms, chipIndex, channel, adcWaveform); - if (ret!=kSuccess) - return ret; - - return CalibrateWaveform(chipIndex, channel, adcWaveform, waveform, responseCalib, - triggerCell, adjustToClock, threshold); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetADCWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform) -{ - return DecodeWave(chipIndex, channel, waveform); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetADCWave(unsigned char *waveforms,unsigned int chipIndex, unsigned char channel, unsigned short *waveform) -{ - return DecodeWave(waveforms, chipIndex, channel, waveform); + int triggerCell, bool adjustToClock, float threshold, bool offsetCalib) +{ + return GetWave(fWaveforms, chipIndex, channel, waveform, responseCalib, triggerCell, adjustToClock, + threshold, offsetCalib); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetWave(unsigned int chipIndex, unsigned char channel, float *waveform, bool responseCalib, + int triggerCell, bool adjustToClock, float threshold, bool offsetCalib) +{ + int ret, i; + short waveS[kNumberOfBins]; + ret = + GetWave(fWaveforms, chipIndex, channel, waveS, responseCalib, triggerCell, adjustToClock, threshold, + offsetCalib); + if (responseCalib) + for (i = 0; i < kNumberOfBins; i++) + waveform[i] = static_cast < float >(static_cast (waveS[i]) * GetPrecision()); + else { + for (i = 0; i < kNumberOfBins; i++) { + if (fBoardType == 4 || fBoardType == 5 || fBoardType == 6) { + waveform[i] = static_cast < float >(waveS[i] * GetPrecision()); + } else + waveform[i] = static_cast < float >(waveS[i]); + } + } + return ret; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, + float *waveform, bool responseCalib, int triggerCell, bool adjustToClock, + float threshold, bool offsetCalib) +{ + int ret, i; + short waveS[kNumberOfBins]; + ret = + GetWave(waveforms, chipIndex, channel, waveS, responseCalib, triggerCell, adjustToClock, threshold, + offsetCalib); + + if (fBoardType == 4) { + for (i = 0; i < kNumberOfBins; i++) + waveform[i] = static_cast < float >(waveS[i] / 65.535); // 16-bit corresponding to 1V + } else { + if (responseCalib) { + for (i = 0; i < kNumberOfBins; i++) + waveform[i] = static_cast < float >(waveS[i] * GetPrecision()); + } else { + for (i = 0; i < kNumberOfBins; i++) { + waveform[i] = static_cast < float >(waveS[i]); + } + } + } + + return ret; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, + short *waveform, bool responseCalib, int triggerCell, bool adjustToClock, + float threshold, bool offsetCalib) +{ + unsigned short adcWaveform[kNumberOfBins]; + int ret = DecodeWave(waveforms, chipIndex, channel, adcWaveform); + if (ret != kSuccess) + return ret; + + return CalibrateWaveform(chipIndex, channel, adcWaveform, waveform, responseCalib, + triggerCell, adjustToClock, threshold, offsetCalib); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetRawWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform, + bool adjustToClock) +{ + return GetRawWave(fWaveforms, chipIndex, channel, waveform, adjustToClock); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetRawWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, + unsigned short *waveform, bool adjustToClock) +{ + int i, status, tc; + unsigned short wf[kNumberOfBins]; + + status = DecodeWave(waveforms, chipIndex, channel, wf); + + if (adjustToClock) { + tc = GetTriggerCell(chipIndex); + for (i = 0 ; i < kNumberOfBins; i++) + waveform[(i + tc) % kNumberOfBins] = wf[i]; + } else { + for (i = 0 ; i < kNumberOfBins; i++) + waveform[i] = wf[i]; + } + + return status; } @@ -1902,29 +3163,118 @@ int DRSBoard::CalibrateWaveform(unsigned int chipIndex, unsigned char channel, unsigned short *adcWaveform, short *waveform, bool responseCalib, - int triggerCell, bool // adjustToClock - , float threshold) -{ - int j; - - // Calibrate waveform - if (responseCalib) { - if (!fResponseCalibration->Calibrate(chipIndex, channel % 10, adcWaveform, waveform, triggerCell, threshold)) - return kZeroSuppression; // Return immediately if below threshold - } else { - for (j = 0; j < kNumberOfBins; j++) { - waveform[j] = adcWaveform[j]; - } - } - // Fix bad cells for single turn mode - if (fDominoMode == 0 && triggerCell==-1) { - waveform[0] = 2 * waveform[1] - waveform[2]; - short m1 = (waveform[kNumberOfBins - 5] + waveform[kNumberOfBins - 6]) / 2; - short m2 = (waveform[kNumberOfBins - 6] + waveform[kNumberOfBins - 7]) / 2; - waveform[kNumberOfBins - 4] = m1 - 1 * (m2 - m1); - waveform[kNumberOfBins - 3] = m1 - 2 * (m2 - m1); - waveform[kNumberOfBins - 2] = m1 - 3 * (m2 - m1); - waveform[kNumberOfBins - 1] = m1 - 4 * (m2 - m1); - } - return kSuccess; + int triggerCell, bool adjustToClock, float threshold, bool offsetCalib) +{ + int j; + double value; + short left, right; + + // calibrate waveform + if (responseCalib) { + if (GetDRSType() == 4) { + // if Mezz though USB2 -> select correct calibration channel + if (fBoardType == 6 && (fReadoutChannelConfig == 0 || fReadoutChannelConfig == 2) && + channel != 8) + channel++; + + // Channel readout mode #4 -> select correct calibration channel + if (fBoardType == 6 && fReadoutChannelConfig == 4 && channel % 2 == 0 && channel != 8) + channel++; + + for (j = 0 ; j < kNumberOfBins; j++) { + if (fCellCalibrationValid) { + value = adcWaveform[j] - fCellOffset[channel+chipIndex*9][(j + triggerCell) % kNumberOfBins]; + value = value / fCellGain[channel+chipIndex*9][(j + triggerCell) % kNumberOfBins]; + if (offsetCalib && channel != 8) + value = value - fCellOffset2[channel+chipIndex*9][j] + 32768; + } else { + value = adcWaveform[j]; + } + /* convert to units of 0.1 mV */ + value = value / 65536.0 * 1000 * 10; + + /* apply clipping */ + if (channel != 8) { + if (adcWaveform[j] >= 0xFFF0 || value > (fRange * 1000 + 500) * 10) + value = (fRange * 1000 + 500) * 10; + if (adcWaveform[j] < 0x0010 || value < (fRange * 1000 - 500) * 10) + value = (fRange * 1000 - 500) * 10; + } + + if (adjustToClock) + waveform[(j + triggerCell) % kNumberOfBins] = (short) (value + 0.5); + else + waveform[j] = (short) (value + 0.5); + } + + // check for stuck pixels and replace by average of neighbors + if (fCellCalibrationValid) { + for (j = 0 ; j < kNumberOfBins; j++) { + if (adjustToClock) { + if (fCellOffset[channel+chipIndex*9][j] == 0) { + left = waveform[(j-1+kNumberOfBins) % kNumberOfBins]; + right = waveform[(j+1) % kNumberOfBins]; + waveform[j] = (short) ((left+right)/2); + } + } else { + if (fCellOffset[channel+chipIndex*9][(j + triggerCell) % kNumberOfBins] == 0) { + left = waveform[(j-1+kNumberOfBins) % kNumberOfBins]; + right = waveform[(j+1) % kNumberOfBins]; + waveform[j] = (short) ((left+right)/2); + } + } + } + } + + } else { + if (!fResponseCalibration-> + Calibrate(chipIndex, channel % 10, adcWaveform, waveform, triggerCell, threshold, offsetCalib)) + return kZeroSuppression; // return immediately if below threshold + } + } else { + if (GetDRSType() == 4) { + // if Mezz though USB2 -> select correct calibration channel + if (fBoardType == 6 && (fReadoutChannelConfig == 0 || fReadoutChannelConfig == 2) && + channel != 8) + channel++; + for (j = 0 ; j < kNumberOfBins; j++) { + value = adcWaveform[j]; + + /* convert to units of 0.1 mV */ + value = (value - 32768) / 65536.0 * 1000 * 10; + + /* correct for range */ + value += fRange * 1000 * 10; + + if (adjustToClock) + waveform[(j + triggerCell) % kNumberOfBins] = (short) (value + 0.5); + else + waveform[j] = (short) (value + 0.5); + } + } else { + for (j = 0; j < kNumberOfBins; j++) { + if (adjustToClock) { + // rotate waveform such that waveform[0] corresponds to bin #0 on the chip + waveform[j] = adcWaveform[(kNumberOfBins-triggerCell+j) % kNumberOfBins]; + } else { + waveform[j] = adcWaveform[j]; + } + } + } + } + + // fix bad cells for single turn mode + if (GetDRSType() == 2) { + if (fDominoMode == 0 && triggerCell == -1) { + waveform[0] = 2 * waveform[1] - waveform[2]; + short m1 = (waveform[kNumberOfBins - 5] + waveform[kNumberOfBins - 6]) / 2; + short m2 = (waveform[kNumberOfBins - 6] + waveform[kNumberOfBins - 7]) / 2; + waveform[kNumberOfBins - 4] = m1 - 1 * (m2 - m1); + waveform[kNumberOfBins - 3] = m1 - 2 * (m2 - m1); + waveform[kNumberOfBins - 2] = m1 - 3 * (m2 - m1); + waveform[kNumberOfBins - 1] = m1 - 4 * (m2 - m1); + } + } + + return kSuccess; } @@ -1933,22 +3283,22 @@ int DRSBoard::GetStretchedTime(float *time, float *measurement, int numberOfMeasurements, float period) { - int j; - if (*time >= measurement[numberOfMeasurements - 1]) { - *time -= measurement[numberOfMeasurements - 1]; - return 1; - } - if (*time < measurement[0]) { - *time = *time - measurement[0] - (numberOfMeasurements - 1) * period / 2; - return 1; - } - for (j = 0; j < numberOfMeasurements - 1; j++) { - if (*time > measurement[j] && *time <= measurement[j + 1]) { - *time = - (period / 2) / (measurement[j + 1] - measurement[j]) * (*time - measurement[j + 1]) - - (numberOfMeasurements - 2 - j) * period / 2; + int j; + if (*time >= measurement[numberOfMeasurements - 1]) { + *time -= measurement[numberOfMeasurements - 1]; return 1; - } - } - return 0; + } + if (*time < measurement[0]) { + *time = *time - measurement[0] - (numberOfMeasurements - 1) * period / 2; + return 1; + } + for (j = 0; j < numberOfMeasurements - 1; j++) { + if (*time > measurement[j] && *time <= measurement[j + 1]) { + *time = + (period / 2) / (measurement[j + 1] - measurement[j]) * (*time - measurement[j + 1]) - + (numberOfMeasurements - 2 - j) * period / 2; + return 1; + } + } + return 0; } @@ -1957,66 +3307,59 @@ int DRSBoard::GetTriggerCell(unsigned int chipIndex) { - - return GetTriggerCell(fWaveforms,chipIndex); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetTriggerCell(unsigned char *waveforms,unsigned int chipIndex) -{ - - int j, triggerCell; - bool calib = 0; - unsigned short baseLevel = 1000; - unsigned short triggerChannel[1024]; - if (!fWaveTransferred[chipIndex*kNumberOfChannels+8]) - return -1; - - GetADCWave(waveforms,chipIndex, 8, triggerChannel); - //calib = fResponseCalibration->SubtractADCOffset(chipIndex, 8, triggerChannel, triggerChannel,baseLevel); // Changed 24/10/2008, SCC - - - triggerCell = -1; - for (j = 0; j < kNumberOfBins; j++) { - if (calib) { - if (triggerChannel[j] <= baseLevel+200 - && triggerChannel[(j + 1) % kNumberOfBins] > baseLevel+200) { - triggerCell = j; - break; - } - } else { - if (triggerChannel[j] >= 2000 - && triggerChannel[(j + 1) % kNumberOfBins] < 2000) { - triggerCell = j; - break; - } - } - } - if (triggerCell == -1) { - return kInvalidTriggerSignal; - } - fTriggerCell = triggerCell; - return triggerCell; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetTriggerCell(float *waveform) -{ - int j, triggerCell; - - triggerCell = -1; - - for (j = 0; j < kNumberOfBins; j++) - if ((waveform[(j + 1) % kNumberOfBins]-waveform[j % kNumberOfBins]) > 400.) - triggerCell = j; - - - if (triggerCell == -1) { - return kInvalidTriggerSignal; - } - fTriggerCell = triggerCell; - return triggerCell; - + if (fDRSType == 4) + return GetStopCell(chipIndex); + + return GetTriggerCell(fWaveforms, chipIndex); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetTriggerCell(unsigned char *waveforms, unsigned int chipIndex) +{ + int j, triggerCell; + bool calib; + unsigned short baseLevel = 1000; + unsigned short triggerChannel[1024]; + + if (fDRSType == 4) + return GetStopCell(chipIndex); + + GetRawWave(waveforms, chipIndex, 8, triggerChannel); + calib = fResponseCalibration->SubtractADCOffset(chipIndex, 8, triggerChannel, triggerChannel, baseLevel); + + triggerCell = -1; + for (j = 0; j < kNumberOfBins; j++) { + if (calib) { + if (triggerChannel[j] <= baseLevel + 200 + && triggerChannel[(j + 1) % kNumberOfBins] > baseLevel + 200) { + triggerCell = j; + break; + } + } else { + if (fDRSType == 3) { + if (triggerChannel[j] <= 2000 && triggerChannel[(j + 1) % kNumberOfBins] > 2000) { + triggerCell = j; + break; + } + } else { + if (triggerChannel[j] >= 2000 && triggerChannel[(j + 1) % kNumberOfBins] < 2000) { + triggerCell = j; + break; + } + } + } + } + if (triggerCell == -1) { + return kInvalidTriggerSignal; + } + fStopCell[0] = triggerCell; + return triggerCell; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetStopCell(unsigned int chipIndex) +{ + return fStopCell[chipIndex]; } @@ -2025,21 +3368,21 @@ void DRSBoard::TestDAC(int channel) { - // Test DAC - int status; - - do { - status = SetDAC(channel, 0); - Sleep(1000); - status = SetDAC(channel, 0.5); - Sleep(1000); - status = SetDAC(channel, 1); - Sleep(1000); - status = SetDAC(channel, 1.5); - Sleep(1000); - status = SetDAC(channel, 2); - Sleep(1000); - status = SetDAC(channel, 2.5); - Sleep(1000); - } while (status); + // Test DAC + int status; + + do { + status = SetDAC(channel, 0); + Sleep(1000); + status = SetDAC(channel, 0.5); + Sleep(1000); + status = SetDAC(channel, 1); + Sleep(1000); + status = SetDAC(channel, 1.5); + Sleep(1000); + status = SetDAC(channel, 2); + Sleep(1000); + status = SetDAC(channel, 2.5); + Sleep(1000); + } while (status); } @@ -2048,34 +3391,34 @@ void DRSBoard::MeasureSpeed() { - // Measure domino sampling speed - FILE *f; - double vdr, vds, freq; - - f = fopen("speed.txt", "wt"); - fprintf(f, "\t"); - printf("\t"); - for (vdr = 0.5; vdr <= 2.501; vdr += 0.05) { - fprintf(f, "%1.2lf\t", vdr); - printf("%1.2lf\t", vdr); - } - fprintf(f, "\n"); - printf("\n"); - - for (vds = 0.5; vds <= 2.501; vds += 0.05) { - fprintf(f, "%1.2lf\t", vds); - printf("%1.2lf\t", vds); - - SetDAC(fDAC_DSA, vds); - StartDomino(); - Sleep(1000); - ReadFrequency(0, &freq); - - fprintf(f, "%1.3lf\t", freq); - printf("%1.3lf\t", freq); - - fprintf(f, "\n"); - printf("\n"); - fflush(f); - } + // Measure domino sampling speed + FILE *f; + double vdr, vds, freq; + + f = fopen("speed.txt", "wt"); + fprintf(f, "\t"); + printf("\t"); + for (vdr = 0.5; vdr <= 2.501; vdr += 0.05) { + fprintf(f, "%1.2lf\t", vdr); + printf("%1.2lf\t", vdr); + } + fprintf(f, "\n"); + printf("\n"); + + for (vds = 0.5; vds <= 2.501; vds += 0.05) { + fprintf(f, "%1.2lf\t", vds); + printf("%1.2lf\t", vds); + + SetDAC(fDAC_DSA, vds); + StartDomino(); + Sleep(1000); + ReadFrequency(0, &freq); + + fprintf(f, "%1.3lf\t", freq); + printf("%1.3lf\t", freq); + + fprintf(f, "\n"); + printf("\n"); + fflush(f); + } } @@ -2084,71 +3427,103 @@ void DRSBoard::InteractSpeed() { - int status, i; - double freq, vds; - - do { - printf("DS: "); - scanf("%lf", &vds); - if (vds == 0) - break; - - SetDAC(fDAC_DSA, vds); - SetDAC(fDAC_DSB, vds); - - StartDomino(); - for (i = 0; i < 4; i++) { + int status, i; + double freq, vds; + + do { + printf("DS: "); + scanf("%lf", &vds); + if (vds == 0) + break; + + SetDAC(fDAC_DSA, vds); + SetDAC(fDAC_DSB, vds); + + StartDomino(); + for (i = 0; i < 4; i++) { + Sleep(1000); + + status = ReadFrequency(0, &freq); + if (!status) + break; + printf("%1.6lf GHz\n", freq); + } + + /* turn BOARD_LED off */ + SetLED(0); + + } while (1); +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::MonitorFrequency() +{ + // Monitor domino sampling frequency + int status; + unsigned int data; + double freq, dac; + FILE *f; + time_t now; + char str[256]; + + f = fopen("DRSBoard.log", "w"); + + do { Sleep(1000); - + status = ReadFrequency(0, &freq); if (!status) - break; - printf("%1.6lf GHz\n", freq); - } - - // Turn CMC_LED off - SetLED(0); - - } while (1); -} - -/*------------------------------------------------------------------*/ - -void DRSBoard::MonitorFrequency() -{ - // Monitor domino sampling frequency - int status; - unsigned int data; - double freq, dac; - FILE *f; - time_t now; - char str[256]; - - f = fopen("DRSBoard.log", "w"); - - do { - Sleep(1000); - - status = ReadFrequency(0, &freq); - if (!status) - break; - - data = 0; - if (fBoardVersion == 1) - Read(T_STATUS, &data, REG_RDAC3, 2); - else if (fBoardVersion == 2 || fBoardVersion == 3) - Read(T_STATUS, &data, REG_RDAC1, 2); - - dac = data / 65536.0 * 2.5; - printf("%1.6lf GHz, %1.4lf V\n", freq, dac); - time(&now); - strcpy(str, ctime(&now) + 11); - str[8] = 0; - - fprintf(f, "%s %1.6lf GHz, %1.4lf V\n", str, freq, dac); - fflush(f); - - } while (!drs_kbhit()); - - fclose(f); + break; + + data = 0; + if (fBoardType == 1) + Read(T_STATUS, &data, REG_RDAC3, 2); + else if (fBoardType == 2 || fBoardType == 3) + Read(T_STATUS, &data, REG_RDAC1, 2); + + dac = data / 65536.0 * 2.5; + printf("%1.6lf GHz, %1.4lf V\n", freq, dac); + time(&now); + strcpy(str, ctime(&now) + 11); + str[8] = 0; + + fprintf(f, "%s %1.6lf GHz, %1.4lf V\n", str, freq, dac); + fflush(f); + + } while (!drs_kbhit()); + + fclose(f); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::TestShift(int n) +{ + // Test shift register + unsigned char buffer[3]; + + memset(buffer, 0, sizeof(buffer)); + +#if 0 + buffer[0] = CMD_TESTSHIFT; + buffer[1] = n; + + status = msend_usb(buffer, 2); + if (status != 2) + return status; + + status = mrecv_usb(buffer, sizeof(buffer)); + if (status != 1) + return status; +#endif + + if (buffer[0] == 1) + printf("Shift register %c works correctly\n", 'A' + n); + else if (buffer[0] == 2) + printf("SROUT%c does hot go high after reset\n", 'A' + n); + else if (buffer[0] == 3) + printf("SROUT%c does hot go low after 1024 clocks\n", 'A' + n); + + return 1; } @@ -2157,8 +3532,18 @@ unsigned int DRSBoard::GetCtrlReg() { - unsigned int status; - - Read(T_CTRL, &status, REG_CTRL, 4); - return status; + unsigned int status; + + Read(T_CTRL, &status, REG_CTRL, 4); + return status; +} + +/*------------------------------------------------------------------*/ + +unsigned short DRSBoard::GetConfigReg() +{ + unsigned short status; + + Read(T_CTRL, &status, REG_CONFIG, 2); + return status; } @@ -2167,23 +3552,72 @@ unsigned int DRSBoard::GetStatusReg() { - unsigned int status; - - Read(T_STATUS, &status, REG_STATUS, 4); - return status; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::EnableTcal(int flag) -{ - // Enable clock channel - if (flag) - fCtrlBits |= BIT_TCAL_EN; - else - fCtrlBits &= ~BIT_TCAL_EN; - - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - return 1; + unsigned int status; + + Read(T_STATUS, &status, REG_STATUS, 4); + return status; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::EnableTcal(int freq, int level, int phase) +{ + fTcalFreq = freq; + fTcalLevel = level; + fTcalPhase = phase; + + if (fBoardType == 6) { + ConfigureLMK(fFrequency, false, freq, phase); + } else { + // Enable clock channel + if (freq) + fCtrlBits |= BIT_TCAL_EN; + else + fCtrlBits &= ~BIT_TCAL_EN; + + // Set output level, needed for gain calibration + if (fDRSType == 4) { + if (level) + fCtrlBits |= BIT_NEG_TRIGGER; + else + fCtrlBits &= ~BIT_NEG_TRIGGER; + } + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SelectClockSource(int source) +{ + fTcalSource = source; + + // Select clock source: + // EVAL1: synchronous (0) or asynchronous (1) (2nd quartz) + if (source) + fCtrlBits |= BIT_TCAL_SOURCE; + else + fCtrlBits &= ~BIT_TCAL_SOURCE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetRefclk(int source) +{ + // Select reference clock source to internal FPGA (0) or external P2 (1) + if (source) + fCtrlBits |= BIT_REFCLK_SOURCE; + else + fCtrlBits &= ~BIT_REFCLK_SOURCE; + + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + return 1; } @@ -2192,56 +3626,64 @@ int DRSBoard::EnableAcal(int mode, double voltage) { - double t1, t2; - - if (mode == 0) { - // Turn calibration off - SetCalibTiming(0, 0); - fCtrlBits &= ~BIT_ACAL_EN; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - } else if (mode == 1) { - // Static calibration - SetCalibVoltage(voltage); - SetCalibTiming(0, 0); - fCtrlBits |= BIT_ACAL_EN; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - } else if (mode == 2) { - // First part calibration: - // stop domino wave after 1.2 revolutions, - // turn on calibration voltage after 0.1 revolutions - - // Ensure circulating domino wave - SetDominoMode(1); - - // Set calibration voltage but do not turn it on now - SetCalibVoltage(voltage); - fCtrlBits &= ~BIT_ACAL_EN; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - // Calculate duration of DENABLE signal as 1.2 revolutions - t1 = 1 / fFrequency * 1024 * 1.2; // ns - t1 = static_cast((t1 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up - t2 = 1 / fFrequency * 1024 * 0.1; // ns - t2 = static_cast((t2 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up - SetCalibTiming(static_cast(t1), static_cast(t2)); - - } else if (mode == 3) { - // Second part calibration: - // stop domino wave after 1.05 revolutions - - // Ensure circulating domino wave - SetDominoMode(1); - - // Turn on and let settle calibration voltage - SetCalibVoltage(voltage); - fCtrlBits |= BIT_ACAL_EN; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - - // Calculate duration of DENABLE signal as 1.1 revolutions - t1 = 1 / fFrequency * 1024 * 1.05; // ns - t1 = static_cast((t1 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up - SetCalibTiming(static_cast(t1), 0); - } - - return 1; + double t1, t2; + + fAcalMode = mode; + fAcalVolt = voltage; + + if (mode == 0) { + /* turn calibration off */ + SetCalibTiming(0, 0); + if (fBoardType == 5 || fBoardType == 6) { + /* turn voltages off (50 Ohm analog switch!) */ + SetDAC(fDAC_CALP, 0); + SetDAC(fDAC_CALN, 0); + } + fCtrlBits &= ~BIT_ACAL_EN; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + } else if (mode == 1) { + /* static calibration */ + SetCalibVoltage(voltage); + SetCalibTiming(0, 0); + fCtrlBits |= BIT_ACAL_EN; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + } else if (mode == 2) { + /* first part calibration: + stop domino wave after 1.2 revolutions + turn on calibration voltage after 0.1 revolutions */ + + /* ensure circulating domino wave */ + SetDominoMode(1); + + /* set calibration voltage but do not turn it on now */ + SetCalibVoltage(voltage); + fCtrlBits &= ~BIT_ACAL_EN; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + /* calculate duration of DENABLE signal as 1.2 revolutions */ + t1 = 1 / fFrequency * 1024 * 1.2; // ns + t1 = static_cast < int >((t1 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up + t2 = 1 / fFrequency * 1024 * 0.1; // ns + t2 = static_cast < int >((t2 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up + SetCalibTiming(static_cast < int >(t1), static_cast < int >(t2)); + + } else if (mode == 3) { + /* second part calibration: + stop domino wave after 1.05 revolutions */ + + /* ensure circulating domino wave */ + SetDominoMode(1); + + /* turn on and let settle calibration voltage */ + SetCalibVoltage(voltage); + fCtrlBits |= BIT_ACAL_EN; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + + /* calculate duration of DENABLE signal as 1.1 revolutions */ + t1 = 1 / fFrequency * 1024 * 1.05; // ns + t1 = static_cast < int >((t1 - 30) / 30 + 1); // 30 ns offset, 30 ns units, rounded up + SetCalibTiming(static_cast < int >(t1), 0); + } + + return 1; } @@ -2250,17 +3692,17 @@ int DRSBoard::SetCalibTiming(int t_enable, int t_cal) { - unsigned short d; - - if (fChipVersion == 2) { - d = t_cal | (t_enable << 8); - Write(T_CTRL, REG_CALIB_TIMING, &d, 2); - } - - if (fChipVersion == 3) { - d = t_cal; - Write(T_CTRL, REG_CALIB_TIMING, &d, 2); - } - - return 1; + unsigned short d; + + if (fDRSType == 2) { + d = t_cal | (t_enable << 8); + Write(T_CTRL, REG_CALIB_TIMING, &d, 2); + } + + if (fDRSType == 3) { + d = t_cal; + Write(T_CTRL, REG_CALIB_TIMING, &d, 2); + } + + return 1; } @@ -2269,7 +3711,46 @@ int DRSBoard::SetCalibVoltage(double value) { - // Set Calibration Voltage - SetDAC(fDAC_ACALIB, value); - return 1; + // Set Calibration Voltage + if (fBoardType == 5 || fBoardType == 6) { + if (fBoardType == 5) + value = value * (1+fFrequency/65); // rough correction factor for input current + SetDAC(fDAC_CALP, fCommonMode + value / 2); + SetDAC(fDAC_CALN, fCommonMode - value / 2); + } else + SetDAC(fDAC_ACALIB, value); + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::StartClearCycle() +{ + /* clear cycle is necessary for DRS4 to reduce noise */ + + fbkAcalVolt = fAcalVolt; + fbkAcalMode = fAcalMode; + fbkTcalFreq = fTcalFreq; + fbkTcalLevel = fTcalLevel; + + /* switch all inputs to zero */ + EnableAcal(1, 0); + + /* start, stop and readout of zero */ + StartDomino(); + SoftTrigger(); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::FinishClearCycle() +{ + while (IsBusy()); + + /* restore old values */ + EnableAcal(fbkAcalMode, fbkAcalVolt); + + return 1; } @@ -2278,15 +3759,15 @@ double DRSBoard::GetTemperature() { - // Read Out Temperature Sensor - unsigned char buffer[2]; - unsigned short d; - double temperature; - - Read(T_STATUS, buffer, REG_TEMPERATURE, 2); - - d = (static_cast(buffer[1]) << 8) + buffer[0]; - temperature = ((d >> 3) & 0x0FFF) * 0.0625; - - return temperature; + // Read Out Temperature Sensor + unsigned char buffer[2]; + unsigned short d; + double temperature; + + Read(T_STATUS, buffer, REG_TEMPERATURE, 2); + + d = (static_cast < unsigned int >(buffer[1]) << 8) +buffer[0]; + temperature = ((d >> 3) & 0x0FFF) * 0.0625; + + return temperature; } @@ -2295,77 +3776,205 @@ int DRSBoard::GetTriggerBus() { - unsigned short status; - - Read(T_STATUS, &status, REG_TRIGGER_BUS, 2); - return static_cast(status); -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::FlashEEPROM(unsigned short serial_cmc) -{ - unsigned short dac; - - // Read current DAC register - Read(T_CTRL, &dac, REG_DAC0, 2); - - // Put serial in DAC register - Write(T_CTRL, REG_DAC0, &serial_cmc, 2); - - // Execute flash - fCtrlBits |= BIT_FLASH_TRIG; - Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); - fCtrlBits &= ~BIT_FLASH_TRIG; - - // Wait 6 ms per word - Sleep(20); - - // Write back old DAC registers - Write(T_CTRL, REG_DAC0, &dac, 2); - - // Read back serial number - ReadSerialNumber(); - - return 1; -} - -/*------------------------------------------------------------------*/ - -int DRSBoard::GetTime(unsigned int chipIndex, int frequencyMHz, float *time,int triggerCell) -{ - int i,irot; - DRSBoard::TimeData * init; - DRSBoard::TimeData::FrequencyData * freq; - - init = GetTimeCalibration(chipIndex); - - if (init == NULL) { - for (i = 0; i < kNumberOfBins; i++) - time[i] = static_cast(i / fFrequency); - return 1; - } - freq = NULL; - for (i = 0; i < init->fNumberOfFrequencies; i++) { - if (init->fFrequency[i]->fFrequency == frequencyMHz) { - freq = init->fFrequency[i]; - break; - } - } - if (freq == NULL) { - for (i = 0; i < kNumberOfBins; i++) - time[i] = static_cast(i / fFrequency); - return 1; - } - for (i = 0; i < kNumberOfBins; i++) { - irot = i; - if (triggerCell>-1) - irot = (triggerCell + i) % kNumberOfBins; - if (triggerCell + i < kNumberOfBins) - time[i] = static_cast((freq->fBin[irot] - freq->fBin[triggerCell]) / fFrequency); - else - time[i] = static_cast((freq->fBin[irot] - freq->fBin[triggerCell] + freq->fBin[kNumberOfBins - 1] - - 2 * freq->fBin[0] + freq->fBin[1]) / fFrequency); - } - return 1; + unsigned short status; + + Read(T_STATUS, &status, REG_TRIGGER_BUS, 2); + return static_cast < int >(status); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::SetBoardSerialNumber(unsigned short serialNumber) +{ + unsigned char buf[32768]; + + unsigned short dac; + + if (fDRSType < 4) { + // read current DAC register + Read(T_CTRL, &dac, REG_DAC0, 2); + + // put serial in DAC register + Write(T_CTRL, REG_DAC0, &serialNumber, 2); + + // execute flash + fCtrlBits |= BIT_EEPROM_WRITE_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_EEPROM_WRITE_TRIG; + + // wait 6ms per word + Sleep(20); + + // write back old DAC registers + Write(T_CTRL, REG_DAC0, &dac, 2); + + // read back serial number + ReadSerialNumber(); + + } else if (fDRSType == 4) { + /* merge serial number into eeprom page #0 */ + ReadEEPROM(0, buf, sizeof(buf)); + buf[0] = serialNumber & 0xFF; + buf[1] = serialNumber >> 8; + WriteEEPROM(0, buf, sizeof(buf)); + + /* erase DPRAM */ + memset(buf, 0, sizeof(buf)); + Write(T_RAM, 0, buf, sizeof(buf)); + + /* read back EEPROM */ + ReadEEPROM(0, buf, sizeof(buf)); + + /* check if correctly set */ + if (((buf[1] << 8) | buf[0]) != serialNumber) + return 0; + + fBoardSerialNumber = serialNumber; + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::ReadEEPROM(unsigned short page, void *buffer, int size) +{ + int i; + unsigned long status; + // write eeprom page number + if (fBoardType == 5) + Write(T_CTRL, REG_EEPROM_PAGE_EVAL, &page, 2); + else if (fBoardType == 6) + Write(T_CTRL, REG_EEPROM_PAGE_MEZZ, &page, 2); + else return -1; + + // execute eeprom read + fCtrlBits |= BIT_EEPROM_READ_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_EEPROM_READ_TRIG; + + // poll on serial_busy flag + for (i=0 ; i<100 ; i++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) break; + Sleep(10); + } + + return Read(T_RAM, buffer, 0, size); +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::WriteEEPROM(unsigned short page, void *buffer, int size) +{ + int i; + unsigned long status; + + // write eeprom page number + if (fBoardType == 5) + Write(T_CTRL, REG_EEPROM_PAGE_EVAL, &page, 2); + else if (fBoardType == 6) + Write(T_CTRL, REG_EEPROM_PAGE_MEZZ, &page, 2); + else + return -1; + + // write eeprom page to RAM + Write(T_RAM, 0, buffer, size); + + // execute eeprom write + fCtrlBits |= BIT_EEPROM_WRITE_TRIG; + Write(T_CTRL, REG_CTRL, &fCtrlBits, 4); + fCtrlBits &= ~BIT_EEPROM_WRITE_TRIG; + + // poll on serail_busy flag + for (i=0 ; i<500 ; i++) { + Read(T_STATUS, &status, REG_STATUS, 4); + if ((status & BIT_SERIAL_BUSY) == 0) + break; + Sleep(10); + } + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetTime(unsigned int chipIndex, float *time, bool tcalibrated, bool rotated) +{ + int i; + + /* for DRS2, please use function below */ + if (fDRSType < 4) + return GetTime(chipIndex, fFrequency, time, tcalibrated, rotated); + + if (!fTimingCalibrationValid || !tcalibrated || fabs(fTimingCalibratedFrequency - fFrequency)>0.01) { + double t0 = fStopCell[chipIndex] / fFrequency; + for (i = 0; i < kNumberOfBins; i++) { + if (rotated) + time[i] = static_cast < float >(((i+fStopCell[chipIndex]) % kNumberOfBins) / fFrequency - t0); + else + time[i] = static_cast < float >(i / fFrequency); + if (time[i] < 0) + time[i] += static_cast < float > (kNumberOfBins / fFrequency); + } + return 1; + } + + double t0 = fCellT[chipIndex][fStopCell[chipIndex]]; + + for (i=0 ; i (fCellT[chipIndex][(i+fStopCell[chipIndex]) % kNumberOfBins] - t0); + else + time[i] = static_cast < float > (fCellT[chipIndex][i]); + if (time[i] < 0) + time[i] += static_cast < float > (kNumberOfBins / fFrequency); + } + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::GetTime(unsigned int chipIndex, double freqGHz, float *time, bool tcalibrated, bool rotated) +{ + /* for DRS4, use function above */ + if (fDRSType == 4) + return GetTime(chipIndex, time, tcalibrated, rotated); + + int i, irot; + DRSBoard::TimeData * init; + DRSBoard::TimeData::FrequencyData * freq; + int frequencyMHz = (int)(freqGHz*1000); + + init = GetTimeCalibration(chipIndex); + + if (init == NULL) { + for (i = 0; i < kNumberOfBins; i++) + time[i] = static_cast < float >(i / fFrequency); + return 1; + } + freq = NULL; + for (i = 0; i < init->fNumberOfFrequencies; i++) { + if (init->fFrequency[i]->fFrequency == frequencyMHz) { + freq = init->fFrequency[i]; + break; + } + } + if (freq == NULL) { + for (i = 0; i < kNumberOfBins; i++) + time[i] = static_cast < float >(i / fFrequency); + return 1; + } + for (i = 0; i < kNumberOfBins; i++) { + irot = (fStopCell[chipIndex] + i) % kNumberOfBins; + if (fStopCell[chipIndex] + i < kNumberOfBins) + time[i] = static_cast < float >((freq->fBin[irot] - freq->fBin[fStopCell[chipIndex]]) / fFrequency); + else + time[i] = + static_cast < + float + >((freq->fBin[irot] - freq->fBin[fStopCell[chipIndex]] + freq->fBin[kNumberOfBins - 1] - 2 * freq->fBin[0] + + freq->fBin[1]) / fFrequency); + } + return 1; } @@ -2374,63 +3983,64 @@ bool DRSBoard::InitTimeCalibration(unsigned int chipIndex) { - return GetTimeCalibration(chipIndex, true) != NULL; -} - -/*------------------------------------------------------------------*/ - -DRSBoard::TimeData *DRSBoard::GetTimeCalibration(unsigned int chipIndex, bool reinit) -{ - int i, l, index; - char *cstop; - char fileName[500]; - char error[240]; - PMXML_NODE node, rootNode, mainNode; - - index = fNumberOfTimeData; - for (i = 0; i < fNumberOfTimeData; i++) { - if (fTimeData[i]->fChip == static_cast < int >(chipIndex)) { - if (!reinit) - return fTimeData[i]; - else { - index = i; - break; - } - } - } - - fTimeData[index] = new DRSBoard::TimeData(); - DRSBoard::TimeData * init = fTimeData[index]; - - init->fChip = chipIndex; - - for (i = 0; i < init->kMaxNumberOfFrequencies; i++) { - if (i <= 499 || (i >= 501 && i <= 999) || (i >= 1001 && i <= 1499) || (i >= 1501 && i <= 1999) || (i >= 2001 && i <= 2499) || i >= 2501) - continue; - sprintf(fileName, "%s/board%d/TimeCalib_board%d_chip%d_%dMHz.xml", fCalibDirectory, fCMCSerialNumber, - fCMCSerialNumber, chipIndex, i); - rootNode = mxml_parse_file(fileName, error, sizeof(error)); - if (rootNode == NULL) - continue; - - init->fFrequency[init->fNumberOfFrequencies] = new DRSBoard::TimeData::FrequencyData(); - init->fFrequency[init->fNumberOfFrequencies]->fFrequency = i; - - mainNode = mxml_find_node(rootNode, "/DRSTimeCalibration"); - - for (l = 0; l < kNumberOfBins; l++) { - node = mxml_subnode(mainNode, l + 2); - init->fFrequency[init->fNumberOfFrequencies]->fBin[l] = strtod(mxml_get_value(node), &cstop); - } - mxml_free_tree(rootNode); - init->fNumberOfFrequencies++; - } - if (init->fNumberOfFrequencies == 0) { - printf("Board %d --> Could not find time calibration file\n", GetCMCSerialNumber()); - } - - if (index == fNumberOfTimeData) - fNumberOfTimeData++; - - return fTimeData[index]; + return GetTimeCalibration(chipIndex, true) != NULL; +} + +/*------------------------------------------------------------------*/ + +DRSBoard::TimeData * DRSBoard::GetTimeCalibration(unsigned int chipIndex, bool reinit) +{ + int i, l, index; + char *cstop; + char fileName[500]; + char error[240]; + PMXML_NODE node, rootNode, mainNode; + + index = fNumberOfTimeData; + for (i = 0; i < fNumberOfTimeData; i++) { + if (fTimeData[i]->fChip == static_cast < int >(chipIndex)) { + if (!reinit) + return fTimeData[i]; + else { + index = i; + break; + } + } + } + + fTimeData[index] = new DRSBoard::TimeData(); + DRSBoard::TimeData * init = fTimeData[index]; + + init->fChip = chipIndex; + + for (i = 0; i < init->kMaxNumberOfFrequencies; i++) { + if (i <= 499 || (i >= 501 && i <= 999) || (i >= 1001 && i <= 1499) || (i >= 1501 && i <= 1999) || + (i >= 2001 && i <= 2499) || i >= 2501) + continue; + sprintf(fileName, "%s/board%d/TimeCalib_board%d_chip%d_%dMHz.xml", fCalibDirectory, fBoardSerialNumber, + fBoardSerialNumber, chipIndex, i); + rootNode = mxml_parse_file(fileName, error, sizeof(error)); + if (rootNode == NULL) + continue; + + init->fFrequency[init->fNumberOfFrequencies] = new DRSBoard::TimeData::FrequencyData(); + init->fFrequency[init->fNumberOfFrequencies]->fFrequency = i; + + mainNode = mxml_find_node(rootNode, "/DRSTimeCalibration"); + + for (l = 0; l < kNumberOfBins; l++) { + node = mxml_subnode(mainNode, l + 2); + init->fFrequency[init->fNumberOfFrequencies]->fBin[l] = strtod(mxml_get_value(node), &cstop); + } + mxml_free_tree(rootNode); + init->fNumberOfFrequencies++; + } + if (init->fNumberOfFrequencies == 0) { + printf("Board %d --> Could not find time calibration file\n", GetBoardSerialNumber()); + } + + if (index == fNumberOfTimeData) + fNumberOfTimeData++; + + return fTimeData[index]; } @@ -2439,6 +4049,6 @@ void DRSBoard::SetCalibrationDirectory(const char *calibrationDirectoryPath) { - strncpy(fCalibDirectory, calibrationDirectoryPath, strlen(calibrationDirectoryPath)); - fCalibDirectory[strlen(calibrationDirectoryPath)] = 0; + strncpy(fCalibDirectory, calibrationDirectoryPath, strlen(calibrationDirectoryPath)); + fCalibDirectory[strlen(calibrationDirectoryPath)] = 0; }; @@ -2447,6 +4057,6 @@ void DRSBoard::GetCalibrationDirectory(char *calibrationDirectoryPath) { - strncpy(calibrationDirectoryPath, fCalibDirectory, strlen(fCalibDirectory)); - calibrationDirectoryPath[strlen(fCalibDirectory)] = 0; + strncpy(calibrationDirectoryPath, fCalibDirectory, strlen(fCalibDirectory)); + calibrationDirectoryPath[strlen(fCalibDirectory)] = 0; }; @@ -2455,17 +4065,1071 @@ void DRSBoard::LinearRegression(double *x, double *y, int n, double *a, double *b) { - int i; - double sx, sxx, sy, sxy; - - sx = sxx = sy = sxy = 0; - for (i = 0; i < n; i++) { - sx += x[i]; - sxx += x[i] * x[i]; - sy += y[i]; - sxy += x[i] * y[i]; - } - - *a = (n * sxy - sx*sy) / (n * sxx - sx * sx); - *b = (sy - *a * sx) / n; + int i; + double sx, sxx, sy, sxy; + + sx = sxx = sy = sxy = 0; + for (i = 0; i < n; i++) { + sx += x[i]; + sxx += x[i] * x[i]; + sy += y[i]; + sxy += x[i] * y[i]; + } + + *a = (n * sxy - sx * sy) / (n * sxx - sx * sx); + *b = (sy - *a * sx) / n; +} + +/*------------------------------------------------------------------*/ + +void DRSBoard::ReadSingleWaveform(int nChip, int nChan, + unsigned short wf[kNumberOfChipsMax][kNumberOfChannelsMax][kNumberOfBins], + bool rotated) +{ + int i, j, k, tc; + + StartDomino(); + SoftTrigger(); + while (IsBusy()); + TransferWaves(); + + for (i=0 ; iProgress(prog1); + + memset(center, 0, sizeof(center)); + + for (i=0 ; i 5) { + /* calculate and subtract common mode */ + for (l=0,cm=0 ; l old_prog) { + old_prog = prog; + if (pcb != NULL) + pcb->Progress(prog); + } + } + + for (i=0 ; iProgress(prog1); + + memset(wfh, 0, sizeof(wfh)); + memset(center, 0, sizeof(center)); + + /* obtain center of histograms */ + for (i=0 ; i<10 ; i++) { + ReadSingleWaveform(nChip, nChan, swf, rotated); + for (j=0 ; j old_prog) { + old_prog = prog; + if (pcb != NULL) + pcb->Progress(prog); + } + } + for (j=0 ; j WFH_SIZE-1) + bin = WFH_SIZE-1; + wfh[j][k][l][bin]++; + } + + /* update progress bar */ + prog = (int)(((double)(i+10)/(n+10))*(prog2-prog1)+prog1); + if (prog > old_prog) { + old_prog = prog; + if (pcb != NULL) + pcb->Progress(prog); + } + } + + /* + FILE *fh = fopen("calib.csv", "wt"); + for (i=40 ; i<60 ; i++) { + for (j=0 ; j max) { + max = wfh[i][j][k][l]; + imax = l; + } + } + for (l=0 ; l WFH_SIZE-1) + htmp[l] = 0; + else + htmp[l] = wfh[i][j][k][bin]; + } + for (l=0 ; lProgress(prog2); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int idx[4][10] = { + { 0, 2, 4, 6, 8, 18, 20, 22, 24, 26 }, + { 1, 3, 5, 7, 39, 19, 21, 23, 25, 39 }, + { 9, 11, 13, 15, 17, 27, 29, 31, 33, 35 }, + { 10, 12, 14, 16, 39, 28, 30, 32, 34, 39 }, +}; + +#define F1(x) ((int) (84.0/24 * (x))) +#define F2(x) ((int) (92.0/8 * (x))) + +static unsigned short wft[kNumberOfChipsMax*kNumberOfChannelsMax*kNumberOfChipsMax][1024], + wf1[kNumberOfChipsMax*kNumberOfChannelsMax*kNumberOfChipsMax][1024], + wf2[kNumberOfChipsMax*kNumberOfChannelsMax*kNumberOfChipsMax][1024], + wf3[kNumberOfChipsMax*kNumberOfChannelsMax*kNumberOfChipsMax][1024]; + +int DRSBoard::CalibrateVolt(DRSCallback *pcb) +{ +int i, j, nChan, timingChan=0, chip, config, p, clkon, refclk, trg1, trg2, n_stuck; +double f, r; +unsigned short buf[kNumberOfBins*kNumberOfCalibChannelsV4*2]; + + f = fFrequency; + r = fRange; + clkon = (GetCtrlReg() & BIT_TCAL_EN) > 0; + refclk = (GetCtrlReg() & BIT_REFCLK_SOURCE) > 0; + trg1 = fTriggerEnable1; + trg2 = fTriggerEnable2; + + Init(); + fFrequency = f; + SetRefclk(refclk); + SetFrequency(fFrequency, true); + SetDominoMode(1); + SetDominoActive(1); + SetReadoutMode(1); + SetInputRange(r); + if (fBoardType == 5) + SelectClockSource(0); + else if (fBoardType == 6) + SetRefclk(refclk); + EnableTrigger(0, 0); + + StartDomino(); + + nChan = 0; + + if (fBoardType == 5) { + nChan = 9; + timingChan = 8; + + /* measure offset */ + EnableAcal(0, 0); // no inputs signal is allowed during calibration! + EnableTcal(0, 0); + Sleep(100); + RobustAverageWaveforms(pcb, 1, nChan, 0, 33, wf1[0], 500, true); + + /* measure gain at upper range */ + EnableAcal(1, fRange+0.4); + EnableTcal(0, 1); + Sleep(100); + RobustAverageWaveforms(pcb, 1, nChan, 33, 66, wf2[0], 500, true); + + } else if (fBoardType == 6) { + if (fTransport == TR_USB2) { + nChan = 36; + timingChan = 8; + memset(wf1, 0, sizeof(wf1)); + memset(wf2, 0, sizeof(wf2)); + memset(wf3, 0, sizeof(wf3)); + for (config=p=0 ; config<4 ; config++) { + SetChannelConfig(config, 8, 8); + + /* measure offset */ + EnableAcal(1, 0); + EnableTcal(0, 0); + Sleep(100); + RobustAverageWaveforms(pcb, 0, 10, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<5 ; i++) + memcpy(wf1[idx[config][i]], wft[i*2], sizeof(float)*kNumberOfBins); + RobustAverageWaveforms(pcb, 2, 10, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<5 ; i++) + memcpy(wf1[idx[config][i+5]], wft[i*2], sizeof(float)*kNumberOfBins); + + /* measure gain at +400 mV */ + EnableAcal(1, 0.4); + EnableTcal(0, 0); + Sleep(100); + RobustAverageWaveforms(pcb, 0, 8, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<4 ; i++) + memcpy(wf2[idx[config][i]], wft[i*2], sizeof(float)*kNumberOfBins); + RobustAverageWaveforms(pcb, 2, 8, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<4 ; i++) + memcpy(wf2[idx[config][i+5]], wft[i*2], sizeof(float)*kNumberOfBins); + + /* measure gain at -400 mV */ + EnableAcal(1, -0.4); + EnableTcal(0, 1); + Sleep(100); + RobustAverageWaveforms(pcb, 0, 8, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<4 ; i++) + memcpy(wf3[idx[config][i]], wft[i], sizeof(float)*kNumberOfBins); + RobustAverageWaveforms(pcb, 2, 8, F1(p), F1(p+1), wft[0], 500, true); p++; + for (i=0 ; i<4 ; i++) + memcpy(wf3[idx[config][i+5]], wft[i], sizeof(float)*kNumberOfBins); + } + } else { + nChan = 36; + timingChan = 8; + + /* measure offset */ + EnableAcal(0, 0); // no inputs signal is allowed during calibration! + EnableTcal(0, 0); + Sleep(100); + RobustAverageWaveforms(pcb, 4, 9, 0, 25, wf1[0], 500, true); + + /* measure gain at upper range */ + EnableAcal(1, fRange+0.4); + EnableTcal(0, 0); + Sleep(100); + RobustAverageWaveforms(pcb, 4, 9, 25, 50, wf2[0], 500, true); + } + } + + /* convert offsets and gains to 16-bit values */ + memset(fCellOffset, 0, sizeof(fCellOffset)); + n_stuck = 0; + for (i=0 ; i 1.1) { + printf("Gain of %6.3lf for channel %2d, cell %4d out of range 0.5 ... 1.1\n", + fCellGain[i][j], i, j); + fCellGain[i][j] = 1; + } + } + } + + /* + FILE *fh = fopen("calib.txt", "wt"); + for (i=0 ; iProgress(75+chip*4); + } + + /* write calibration A/B/C/D/CLK to EEPROM page 5 */ + ReadEEPROM(5, buf, 1024*4*4); + for (chip=0 ; chip<4 ; chip++) { + for (j=0 ; j<1024; j++) { + buf[j*2+chip*0x0800] = fCellOffset[8+chip*9][j]; + buf[j*2+1+chip*0x0800] = (unsigned short) ((fCellGain[8+chip*9][j] - 0.7) / 0.4 * 65535); + } + } + WriteEEPROM(5, buf, 1024*4*4); + if (pcb != NULL) + pcb->Progress(90); + + /* write secondary calibration to EEPROM page 7 and 8 */ + for (i=0 ; i<8 ; i++) { + for (j=0 ; j<1024; j++) { + buf[i*0x800 + j*2] = fCellOffset2[i][j]; + buf[i*0x800 + j*2+1] = fCellOffset2[i+9][j]; + } + } + WriteEEPROM(7, buf, 1024*32); + if (pcb != NULL) + pcb->Progress(94); + + for (i=0 ; i<8 ; i++) { + for (j=0 ; j<1024; j++) { + buf[i*0x800 + j*2] = fCellOffset2[i+18][j]; + buf[i*0x800 + j*2+1] = fCellOffset2[i+27][j]; + } + } + WriteEEPROM(8, buf, 1024*32); + if (pcb != NULL) + pcb->Progress(98); + + /* write calibration method and range */ + ReadEEPROM(0, buf, 2048); // 0-0x0FFF + buf[2] = VCALIB_METHOD | ((signed char)(fRange * 100)) << 8; + WriteEEPROM(0, buf, 2048); + fCellCalibratedRange = fRange; + if (pcb != NULL) + pcb->Progress(100); + } + + if (n_stuck) + printf("\nFound %d stuck pixels on this board\n", n_stuck); + + fCellCalibrationValid = true; + + /* remove calibration voltage */ + EnableAcal(0, 0); + EnableTcal(0, 0); + EnableTrigger(trg1, trg2); + + return 1; +} + +/*------------------------------------------------------------------*/ + +int DRSBoard::AnalyzeWF(int nIter, float wf[kNumberOfBins], int tCell, double cellT[kNumberOfBins]) +{ +int i, i1, i2, j, k, nzx, zeroXing[1000], edge, n_correct; +double damping, zeroLevel, ta, tb, dt, corr, inv_corr; + + /* calculate zero level */ + for (i=0,zeroLevel=0 ; i<1024 ; i++) + zeroLevel += wf[i]; + zeroLevel /= 1024; + + /* correct for zero common mode */ + for (i=0 ; i<1024 ; i++) + wf[i] -= (float)zeroLevel; + + /* estimate damping factor */ + damping = fFrequency / nIter * 40; + + for (edge = 0 ; edge < 2 ; edge ++) { + + /* find edge zero crossing with wrap-around */ + for (i=tCell+3,nzx=0 ; i 0) // falling edge + zeroXing[nzx++] = i; + } else { + if (wf[(i+1) % 1024] > 0 && wf[i % 1024] < 0) // rising edge + zeroXing[nzx++] = i; + } + } + + if (nzx < 20) + return 0; + + for (i=n_correct=0 ; i 0.5) + continue; + + /* remeber number of valid corrections */ + n_correct++; + + /* apply damping factor */ + corr *= damping; + + /* calculate inverse correction */ + inv_corr = -corr; + + /* apply from (i1+1)+1 to i2 inclusive */ + i1 = zeroXing[i]+2; + i2 = zeroXing[i+1]; + + /* distribute correciton equally into bins inside the region ... */ + corr = corr / (i2-i1+1); + + /* ... and inverse correction into the outside bins */ + inv_corr = inv_corr / (1024 - (i2-i1+1)); + + i1 = i1 % 1024; + i2 = i2 % 1024; + + double oldT[kNumberOfBins]; + memcpy(oldT, cellT, sizeof(double)*1024); + for (j=0,ta=0 ; j<1024 ; j++) { + if (j < 1023) + dt = cellT[j+1] - cellT[j]; + else + dt = 1/fFrequency*1024 - cellT[j]; + if ((i2 > i1 && (j >= i1 && j<= i2)) || + (i2 < i1 && (j >= i1 || j<= i2)) ) + dt += corr; + else + dt += inv_corr; + + cellT[j] = ta; + ta += dt; + } + + /* check and correct for too narrow bin widths */ + for (j=0 ; j<1023 ; j++) { + dt = cellT[j+1] - cellT[j]; + if (dt < 1/fFrequency*0.1) { + /* if width is smaller than 10% of nominal width, "undo" 5x that correction, + otherwise next iteration would cause this problem again */ + corr = 5*(1/fFrequency*0.1-dt); + inv_corr = -corr; + + /* distribute inverse correction equally into the outside bins */ + inv_corr = inv_corr / 1022; + + for (k=0,ta=0 ; k<1024 ; k++) { + if (k < 1023) + dt = cellT[k+1] - cellT[k]; + else + dt = 1/fFrequency*1024 - cellT[k]; + if (k == j) + dt += corr; + else + dt += inv_corr; + + cellT[k] = ta; + ta += dt; + } + } + } + } + + if (n_correct < nzx/3) + return 0; + } + + return 1; +} + +/*------------------------------------------------------------------*/ + + +int DRSBoard::CalibrateTiming(DRSCallback *pcb) +{ +int index, status, tCell, i, c, chip, mode, nIter, clkon, phase, refclk, trg1, trg2; +double f, range, t1[4], t2[4]; +unsigned short buf[1024*4]; +float wf[1024]; + + nIter = 1000; + f = fFrequency; + range = fRange; + clkon = (GetCtrlReg() & BIT_TCAL_EN) > 0; + refclk = (GetCtrlReg() & BIT_REFCLK_SOURCE) > 0; + trg1 = fTriggerEnable1; + trg2 = fTriggerEnable2; + + Init(); + fFrequency = f; + SetRefclk(refclk); + SetFrequency(fFrequency, true); + if (fBoardType == 5) + fTCALFrequency = 240; // 240 MHz, for MEZZ this is set by ConfigureLMK + SetDominoMode(1); + SetDominoActive(1); + SetReadoutMode(1); + EnableTrigger(0, 0); + EnableTcal(1, 0, 0); + if (fBoardType == 5) + SelectClockSource(1); // 2nd quartz + StartDomino(); + + /* initialize time array */ + for (i=0 ; i<1024 ; i++) + for (chip=0 ; chip<4 ; chip++) + fCellT[chip][i] = (float)1/fFrequency*i; // [ns] + + for (index = 0 ; index < nIter ; index++) { + if (index % 10 == 0) + pcb->Progress(100*index/nIter); + + if (fTransport == TR_VME) { + SoftTrigger(); + while (IsBusy()); + + /* select random phase */ + phase = (rand() % 30) - 15; + if (phase == 0) + phase = 15; + EnableTcal(1, 0, phase); + + StartDomino(); + TransferWaves(); + + for (chip=0 ; chip<4 ; chip++) { + tCell = GetStopCell(chip); + GetWave(chip, 8, wf, true, tCell, true); + status = AnalyzeWF(nIter, wf, tCell, fCellT[chip]); + + if (!status) + return 0; + } + } else { + if (fBoardType == 5) { // DRS4 Evaluation board: 1 Chip + SoftTrigger(); + while (IsBusy()); + + StartDomino(); + TransferWaves(); + + tCell = GetStopCell(0); + GetWave(0, 8, wf, true, tCell, true); + status = AnalyzeWF(nIter, wf, tCell, fCellT[0]); + + if (!status) + return 0; + + } else { // DRS4 Mezzanine board: 4 Chips + for (mode=0 ; mode<2 ; mode++) { + SetChannelConfig(mode*2, 8, 8); + SoftTrigger(); + while (IsBusy()); + + /* select random phase */ + phase = (rand() % 30) - 15; + if (phase == 0) + phase = 15; + EnableTcal(1, 0, phase); + + StartDomino(); + TransferWaves(); + + for (chip=0 ; chip<4 ; chip+=2) { + tCell = GetStopCell(chip+mode); + GetWave(chip+mode, 8, wf, true, tCell, true); + status = AnalyzeWF(nIter, wf, tCell, fCellT[chip+mode]); + + if (!status) + return 0; + } + } + } + } + } + + pcb->Progress(100); + + // use following lines to save calibration into an ASCII file +#if 1 + FILE *fh; + + fh = fopen("cellt.csv", "wt"); + if (!fh) + printf("Cannot open file \"cellt.csv\"\n"); + else { + fprintf(fh, "index;d_ch1;d_ch2;d_ch3;d_ch4\n"); + for (i=0 ; i<1024 ; i++) + fprintf(fh, "%4d;%5.3lf;%5.3lf;%5.3lf;%5.3lf\n", i, + fCellT[0][i]-i/fFrequency, + fCellT[1][i]-i/fFrequency, + fCellT[2][i]-i/fFrequency, + fCellT[3][i]-i/fFrequency); + fclose(fh); + } +#endif + + if (fBoardType == 5) { + /* write timing calibration to EEPROM page 0 */ + ReadEEPROM(0, buf, sizeof(buf)); + for (i=0,t1[0]=0 ; i<1024; i++) { + t2[0] = fCellT[0][i] - t1[0]; + t2[0] = (unsigned short) (t2[0] * 10000 + 0.5); + t1[0] += t2[0] / 10000.0; + buf[i*2+1] = (unsigned short) t2[0]; + } + + /* write calibration method and frequency */ + buf[4] = TCALIB_METHOD; + buf[6] = (unsigned short) (fFrequency / 6.0 * 65535.0); + fTimingCalibratedFrequency = buf[6] / 65535.0 * 6.0; + WriteEEPROM(0, buf, sizeof(buf)); + } else { + /* write timing calibration to EEPROM page 6 */ + ReadEEPROM(6, buf, sizeof(buf)); + for (c=0 ; c<4 ; c++) + t1[c] = 0; + for (i=0 ; i<1024; i++) { + for (c=0 ; c<4 ; c++) { + t2[c] = fCellT[c][i] - t1[c]; + t2[c] = (unsigned short) (t2[c] * 10000 + 0.5); + t1[c] += t2[c] / 10000.0; + } + buf[i*2] = (unsigned short) t2[0]; + buf[i*2+1] = (unsigned short) t2[1]; + buf[i*2+0x800] = (unsigned short) t2[2]; + buf[i*2+0x800+1] = (unsigned short) t2[3]; + } + WriteEEPROM(6, buf, sizeof(buf)); + + /* write calibration method and frequency */ + ReadEEPROM(0, buf, 16); + buf[4] = TCALIB_METHOD; + buf[6] = (unsigned short) (fFrequency / 6.0 * 65535.0); + fTimingCalibratedFrequency = buf[6] / 65535.0 * 6.0; + WriteEEPROM(0, buf, 16); + } + + fTimingCalibrationValid = true; + + /* remove calibration voltage */ + EnableAcal(0, 0); + EnableTcal(clkon, 0); + SetInputRange(range); + EnableTrigger(trg1, trg2); + + return 1; +} + + +/*------------------------------------------------------------------*/ + + +void DRSBoard::RemoveSymmetricSpikes(short **wf, int nwf, + short diffThreshold, int spikeWidth, + short maxPeakToPeak, short spikeVoltage, + int nTimeRegionThreshold) +{ + // Remove a specific kind of spike on DRS4. + // This spike has some features, + // - Common on all the channels on a chip + // - Constant heigh and width + // - Two spikes per channel + // - Symmetric to cell #0. + // + // This is not general purpose spike-removing function. + // + // wf : Waveform data. cell#0 must be at bin0, + // and number of bins must be kNumberOfBins. + // nwf : Number of channels which "wf" holds. + // diffThreshold : Amplitude threshold to find peak + // spikeWidth : Width of spike + // maxPeakToPeak : When peak-to-peak is larger than this, the channel + // is not used to find spikes. + // spikeVoltage : Amplitude of spikes. When it is 0, it is calculated in this function + // from voltage difference from neighboring bins. + // nTimeRegionThreshold : Requirement of number of time regions having spike at common position. + // Total number of time regions is 2*"nwf". + + if (!wf || !nwf || !diffThreshold || !spikeWidth) { + return; + } + + int ibin, jbin, kbin; + double v; + int nbin; + int iwf; + short maximum, minimum; + int spikeCount[kNumberOfBins / 2]; + int spikeCountSum[kNumberOfBins / 2] = {0}; + bool largePulse[kNumberOfChannelsMax * 2] = {0}; + const short diffThreshold2 = diffThreshold + diffThreshold; + + const short maxShort = 0xFFFF>>1; + const short minShort = -maxShort - 1; + + // search spike + for (iwf = 0; iwf < nwf; iwf++) { + // first half + memset(spikeCount, 0, sizeof(spikeCount)); + maximum = minShort; + minimum = maxShort; + for (ibin = 0; ibin < kNumberOfBins / 2; ibin++) { + jbin = ibin; + maximum = max(maximum, wf[iwf][jbin]); + minimum = min(minimum, wf[iwf][jbin]); + if (jbin - 1 >= 0 && jbin + spikeWidth < kNumberOfBins) { + v = 0; + nbin = 0; + for (kbin = 0; kbin < spikeWidth; kbin++) { + v += wf[iwf][jbin + kbin]; + nbin++; + } + if ((nbin == 2 && v - (wf[iwf][jbin - 1] + wf[iwf][jbin + spikeWidth]) > diffThreshold2) || + (nbin != 2 && nbin && v / nbin - (wf[iwf][jbin - 1] + wf[iwf][jbin + spikeWidth]) / 2 > diffThreshold)) { + spikeCount[ibin]++; + } + } + } + if (maximum != minShort && minimum != maxShort && + (!maxPeakToPeak || maximum - minimum < maxPeakToPeak)) { + for (ibin = 0; ibin < kNumberOfBins / 2; ibin++) { + spikeCountSum[ibin] += spikeCount[ibin]; + } + largePulse[iwf] = false; +#if 0 /* this part can be enabled to skip checking other channels */ + if (maximum != minShort && minimum != maxShort && + maximum - minimum < diffThreshold) { + return; + } +#endif + } else { + largePulse[iwf] = true; + } + + // second half + memset(spikeCount, 0, sizeof(spikeCount)); + maximum = minShort; + minimum = maxShort; + for (ibin = 0; ibin < kNumberOfBins / 2; ibin++) { + jbin = kNumberOfBins - 1 - ibin; + maximum = max(maximum, wf[iwf][jbin]); + minimum = min(minimum, wf[iwf][jbin]); + if (jbin + 1 < kNumberOfBins && jbin - spikeWidth >= 0) { + v = 0; + nbin = 0; + for (kbin = 0; kbin < spikeWidth; kbin++) { + v += wf[iwf][jbin - kbin]; + nbin++; + } + if ((nbin == 2 && v - (wf[iwf][jbin + 1] + wf[iwf][jbin - spikeWidth]) > diffThreshold2) || + (nbin != 2 && nbin && v / nbin - (wf[iwf][jbin + 1] + wf[iwf][jbin - spikeWidth]) / 2 > diffThreshold)) { + spikeCount[ibin]++; + } + } + } + if (maximum != minShort && minimum != maxShort && + maximum - minimum < maxPeakToPeak) { + for (ibin = 0; ibin < kNumberOfBins / 2; ibin++) { + spikeCountSum[ibin] += spikeCount[ibin]; + } + largePulse[iwf + nwf] = false; +#if 0 /* this part can be enabled to skip checking other channels */ + if (maximum != minShort && minimum != maxShort && + maximum - minimum < diffThreshold) { + return; + } +#endif + } else { + largePulse[iwf + nwf] = true; + } + } + + // Find common spike + int commonSpikeBin = -1; + int commonSpikeMax = -1; + for (ibin = 0; ibin < kNumberOfBins / 2; ibin++) { + if (commonSpikeMax < spikeCountSum[ibin]) { + commonSpikeMax = spikeCountSum[ibin]; + commonSpikeBin = ibin; + } + } + + if (spikeCountSum[commonSpikeBin] >= nTimeRegionThreshold) { + if (spikeVoltage == 0) { + // Estimate spike amplitude + double baseline = 0; + int nBaseline = 0; + double peakAmplitude = 0; + int nPeakAmplitude = 0; + for (iwf = 0; iwf < nwf; iwf++) { + // first half + if (!largePulse[iwf]) { + // baseline + if ((jbin = commonSpikeBin - 1) >= 0 && jbin < kNumberOfBins) { + baseline += wf[iwf][jbin]; + nBaseline++; + } + if ((jbin = commonSpikeBin + spikeWidth + 1) >= 0 && jbin < kNumberOfBins) { + baseline += wf[iwf][jbin]; + nBaseline++; + } + // spike + for (ibin = 0; ibin < spikeWidth; ibin++) { + if ((jbin = commonSpikeBin + ibin) >= 0 && jbin < kNumberOfBins) { + peakAmplitude += wf[iwf][jbin]; + nPeakAmplitude++; + } + } + } + + // second half + if (!largePulse[iwf + nwf]) { + // baseline + if ((jbin = kNumberOfBins - 1 - commonSpikeBin + 1) >= 0 && jbin < kNumberOfBins) { + baseline += wf[iwf][jbin]; + nBaseline++; + } + if ((jbin = kNumberOfBins - 1 - commonSpikeBin - spikeWidth - 1) >= 0 && jbin < kNumberOfBins) { + baseline += wf[iwf][jbin]; + nBaseline++; + } + // spike + for (ibin = 0; ibin < spikeWidth; ibin++) { + if ((jbin = kNumberOfBins - 1 - commonSpikeBin - ibin) >= 0 && jbin < kNumberOfBins) { + peakAmplitude += wf[iwf][jbin]; + nPeakAmplitude++; + } + } + } + } + if (nBaseline && nPeakAmplitude) { + baseline /= nBaseline; + peakAmplitude /= nPeakAmplitude; + spikeVoltage = static_cast(peakAmplitude - baseline); + } else { + spikeVoltage = 0; + } + } + + // Remove spike + if (spikeVoltage > 0) { + for (iwf = 0; iwf < nwf; iwf++) { + for (ibin = 0; ibin < spikeWidth; ibin++) { + if ((jbin = commonSpikeBin + ibin) >= 0 && jbin < kNumberOfBins) { + wf[iwf][jbin] -= spikeVoltage; + } + if ((jbin = kNumberOfBins - 1 - commonSpikeBin - ibin) >= 0 && jbin < kNumberOfBins) { + wf[iwf][jbin] -= spikeVoltage; + } + } + } + } + } } @@ -2478,7 +5142,7 @@ int showStatistics) { - DeleteFields(); - InitFields(numberOfPointsLowVolt, numberOfPoints, numberOfMode2Bins, numberOfSamples, numberOfGridPoints, - numberOfXConstPoints, numberOfXConstGridPoints, triggerFrequency, showStatistics); + DeleteFields(); + InitFields(numberOfPointsLowVolt, numberOfPoints, numberOfMode2Bins, numberOfSamples, numberOfGridPoints, + numberOfXConstPoints, numberOfXConstGridPoints, triggerFrequency, showStatistics); } @@ -2487,15 +5151,15 @@ void ResponseCalibration::ResetCalibration() { - int i; - for (i = 0; i < kNumberOfChips; i++) - fCalibrationData[i]->fRead = false; - fCurrentPoint = 0; - fCurrentLowVoltPoint = 0; - fCurrentSample = 0; - fCurrentFitChannel = 0; - fCurrentFitBin = 0; - fRecorded = false; - fFitted = false; - fOffset = false; + int i; + for (i = 0; i < kNumberOfChipsMax; i++) + fCalibrationData[i]->fRead = false; + fCurrentPoint = 0; + fCurrentLowVoltPoint = 0; + fCurrentSample = 0; + fCurrentFitChannel = 0; + fCurrentFitBin = 0; + fRecorded = false; + fFitted = false; + fOffset = false; }; @@ -2504,10 +5168,10 @@ bool ResponseCalibration::WriteCalibration(unsigned int chipIndex) { - if (!fOffset) - return false; - if (fBoard->GetChipVersion() == 3) - return WriteCalibrationV4(chipIndex); - else - return WriteCalibrationV3(chipIndex); + if (!fOffset) + return false; + if (fBoard->GetDRSType() == 3) + return WriteCalibrationV4(chipIndex); + else + return WriteCalibrationV3(chipIndex); } @@ -2516,58 +5180,58 @@ bool ResponseCalibration::WriteCalibrationV3(unsigned int chipIndex) { - if (!fOffset) - return false; - - int ii, j, k; - char str[1000]; - char strt[1000]; - short tempShort; - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - - // Open File - fBoard->GetCalibrationDirectory(strt); - sprintf(str, "%s/board%d", strt, fBoard->GetCMCSerialNumber()); - if (MakeDir(str) == -1) { - printf("Error: Cannot create directory \"%s\"\n", str); - return false; - } - sprintf(str, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", strt, fBoard->GetCMCSerialNumber(), - fBoard->GetCMCSerialNumber(), chipIndex, static_cast(fBoard->GetFrequency() * 1000)); - fCalibFile = fopen(str, "wb"); - if (fCalibFile == NULL) { - printf("Error: Cannot write to file \"%s\"\n", str); - return false; - } - // Write File - fwrite(&data->fNumberOfGridPoints, 1, 1, fCalibFile); - tempShort = static_cast(data->fStartTemperature) * 10; - fwrite(&tempShort, 2, 1, fCalibFile); - tempShort = static_cast(data->fEndTemperature) * 10; - fwrite(&tempShort, 2, 1, fCalibFile); - fwrite(&data->fMin, 4, 1, fCalibFile); - fwrite(&data->fMax, 4, 1, fCalibFile); - fwrite(&data->fNumberOfLimitGroups, 1, 1, fCalibFile); - - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - chn = data->fChannel[ii]; - for (j = 0; j < kNumberOfBins; j++) { - fwrite(&chn->fLimitGroup[j], 1, 1, fCalibFile); - fwrite(&chn->fLookUpOffset[j], 2, 1, fCalibFile); - fwrite(&chn->fNumberOfLookUpPoints[j], 1, 1, fCalibFile); - for (k = 0; k < chn->fNumberOfLookUpPoints[j]; k++) { - fwrite(&chn->fLookUp[j][k], 1, 1, fCalibFile); - } - for (k = 0; k < data->fNumberOfGridPoints; k++) { - fwrite(&chn->fData[j][k], 2, 1, fCalibFile); - } - fwrite(&chn->fOffsetADC[j], 2, 1, fCalibFile); - fwrite(&chn->fOffset[j], 2, 1, fCalibFile); - } - } - fclose(fCalibFile); - - printf("Calibration successfully written to\n\"%s\"\n", str); - return true; + if (!fOffset) + return false; + + int ii, j, k; + char str[1000]; + char strt[1000]; + short tempShort; + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + + // Open File + fBoard->GetCalibrationDirectory(strt); + sprintf(str, "%s/board%d", strt, fBoard->GetBoardSerialNumber()); + if (MakeDir(str) == -1) { + printf("Error: Cannot create directory \"%s\"\n", str); + return false; + } + sprintf(str, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", strt, fBoard->GetBoardSerialNumber(), + fBoard->GetBoardSerialNumber(), chipIndex, static_cast < int >(fBoard->GetFrequency() * 1000)); + fCalibFile = fopen(str, "wb"); + if (fCalibFile == NULL) { + printf("Error: Cannot write to file \"%s\"\n", str); + return false; + } + // Write File + fwrite(&data->fNumberOfGridPoints, 1, 1, fCalibFile); + tempShort = static_cast < short >(data->fStartTemperature) * 10; + fwrite(&tempShort, 2, 1, fCalibFile); + tempShort = static_cast < short >(data->fEndTemperature) * 10; + fwrite(&tempShort, 2, 1, fCalibFile); + fwrite(&data->fMin, 4, 1, fCalibFile); + fwrite(&data->fMax, 4, 1, fCalibFile); + fwrite(&data->fNumberOfLimitGroups, 1, 1, fCalibFile); + + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + chn = data->fChannel[ii]; + for (j = 0; j < kNumberOfBins; j++) { + fwrite(&chn->fLimitGroup[j], 1, 1, fCalibFile); + fwrite(&chn->fLookUpOffset[j], 2, 1, fCalibFile); + fwrite(&chn->fNumberOfLookUpPoints[j], 1, 1, fCalibFile); + for (k = 0; k < chn->fNumberOfLookUpPoints[j]; k++) { + fwrite(&chn->fLookUp[j][k], 1, 1, fCalibFile); + } + for (k = 0; k < data->fNumberOfGridPoints; k++) { + fwrite(&chn->fData[j][k], 2, 1, fCalibFile); + } + fwrite(&chn->fOffsetADC[j], 2, 1, fCalibFile); + fwrite(&chn->fOffset[j], 2, 1, fCalibFile); + } + } + fclose(fCalibFile); + + printf("Calibration successfully written to\n\"%s\"\n", str); + return true; } @@ -2576,40 +5240,39 @@ bool ResponseCalibration::WriteCalibrationV4(unsigned int chipIndex) { - if (!fOffset) - return false; - - int ii, j; - char str[1000]; - char strt[1000]; - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - - // Open File - fBoard->GetCalibrationDirectory(strt); - sprintf(str, "%s/board%d", strt, fBoard->GetCMCSerialNumber()); - if (MakeDir(str) == -1) { - printf("Error: Cannot create directory \"%s\"\n", str); - return false; - } - sprintf(str, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", strt, fBoard->GetCMCSerialNumber(), - fBoard->GetCMCSerialNumber(), chipIndex, static_cast(fBoard->GetFrequency() * 1000)); - fCalibFile = fopen(str, "wb"); - if (fCalibFile == NULL) { - printf("Error: Cannot write to file \"%s\"\n", str); - return false; - } - - // Write File - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - chn = data->fChannel[ii]; - for (j = 0; j < kNumberOfBins; j++) { - fwrite(&chn->fOffset[j], 2, 1, fCalibFile); - fwrite(&chn->fGain[j], 2, 1, fCalibFile); - } - } - fclose(fCalibFile); - - printf("Calibration successfully written to\n\"%s\"\n", str); - return true; + if (!fOffset) + return false; + + int ii, j; + char str[1000]; + char strt[1000]; + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + + // Open File + fBoard->GetCalibrationDirectory(strt); + sprintf(str, "%s/board%d", strt, fBoard->GetBoardSerialNumber()); + if (MakeDir(str) == -1) { + printf("Error: Cannot create directory \"%s\"\n", str); + return false; + } + sprintf(str, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", strt, fBoard->GetBoardSerialNumber(), + fBoard->GetBoardSerialNumber(), chipIndex, static_cast < int >(fBoard->GetFrequency() * 1000)); + fCalibFile = fopen(str, "wb"); + if (fCalibFile == NULL) { + printf("Error: Cannot write to file \"%s\"\n", str); + return false; + } + // Write File + for (ii = 0; ii < kNumberOfCalibChannelsV4; ii++) { + chn = data->fChannel[ii]; + for (j = 0; j < kNumberOfBins; j++) { + fwrite(&chn->fOffset[j], 2, 1, fCalibFile); + fwrite(&chn->fGain[j], 2, 1, fCalibFile); + } + } + fclose(fCalibFile); + + printf("Calibration successfully written to\n\"%s\"\n", str); + return true; } @@ -2618,10 +5281,10 @@ void ResponseCalibration::CalibrationTrigger(int mode, double voltage) { - fBoard->Reinit(); - fBoard->EnableAcal(mode, voltage); - fBoard->StartDomino(); - fBoard->SoftTrigger(); - while (fBoard->IsBusy()) { - } + fBoard->Reinit(); + fBoard->EnableAcal(mode, voltage); + fBoard->StartDomino(); + fBoard->SoftTrigger(); + while (fBoard->IsBusy()) { + } } @@ -2630,10 +5293,10 @@ void ResponseCalibration::CalibrationStart(double voltage) { - fBoard->SetDominoMode(1); - fBoard->EnableAcal(0, voltage); - fBoard->StartDomino(); - fBoard->IsBusy(); - fBoard->IsBusy(); - fBoard->IsBusy(); + fBoard->SetDominoMode(1); + fBoard->EnableAcal(0, voltage); + fBoard->StartDomino(); + fBoard->IsBusy(); + fBoard->IsBusy(); + fBoard->IsBusy(); } @@ -2642,10 +5305,10 @@ bool ResponseCalibration::RecordCalibrationPoints(int chipNumber) { - if (!fInitialized) - return true; - if (fBoard->GetChipVersion() == 3) - return RecordCalibrationPointsV4(chipNumber); - else - return RecordCalibrationPointsV3(chipNumber); + if (!fInitialized) + return true; + if (fBoard->GetDRSType() == 3) + return RecordCalibrationPointsV4(chipNumber); + else + return RecordCalibrationPointsV3(chipNumber); } @@ -2654,12 +5317,11 @@ bool ResponseCalibration::RecordCalibrationPointsV3(int chipNumber) { - - int j, k, ii; - int notdone, nsample; - double voltage; - float mean; - const double minVolt = 0.006; - const double xpos[50] = - { 0.010, 0.027, 0.052, 0.074, 0.096, 0.117, 0.136, 0.155, 0.173, 0.191, 0.208, 0.226, 0.243, 0.260, + int j, k, ii; + int notdone, nsample; + double voltage; + float mean; + const double minVolt = 0.006; + const double xpos[50] = + { 0.010, 0.027, 0.052, 0.074, 0.096, 0.117, 0.136, 0.155, 0.173, 0.191, 0.208, 0.226, 0.243, 0.260, 0.277, 0.294, 0.310, 0.325, 0.342, 0.358, 0.374, 0.390, 0.406, 0.422, 0.439, 0.457, 0.477, 0.497, 0.520, 0.546, 0.577, 0.611, @@ -2667,86 +5329,88 @@ 0.772, 0.842, 0.916, 0.995, 1.075, 1.157, 1.240, 1.323, 1.407, 1.490, 1.575, 1.659, 1.744, 1.829, 1.914, 2.000 - }; - - // Initialisations - if (fCurrentLowVoltPoint == 0) { - fBoard->SetDAC(fBoard->fDAC_CLKOFS, 0); - // Record Temperature - fCalibrationData[chipNumber]->fStartTemperature = static_cast(fBoard->GetTemperature()); - } - // Record current Voltage - if (fCurrentLowVoltPoint < fNumberOfPointsLowVolt) - voltage = (xpos[0] - minVolt) * fCurrentLowVoltPoint / static_cast(fNumberOfPointsLowVolt) + minVolt; - else - voltage = xpos[fCurrentPoint]; - fBoard->SetCalibVoltage(voltage); - fResponseY[fCurrentPoint + fCurrentLowVoltPoint] = static_cast(voltage) * 1000; - - // Loop Over Number Of Samples For Statistics - for (j = 0; j < fNumberOfSamples; j++) { - // Read Out Second Part of the Waveform - CalibrationTrigger(3, voltage); - fBoard->TransferWaves(); - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - fBoard->GetADCWave(chipNumber, ii, fWaveFormMode3[ii][j]); - } - // Read Out First Part of the Waveform - CalibrationStart(voltage); - CalibrationTrigger(2, voltage); - fBoard->TransferWaves(); - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - fBoard->GetADCWave(chipNumber, ii, fWaveFormMode2[ii][j]); - } - CalibrationStart(voltage); - } - // Average Sample Points - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - for (k = 0; k < kNumberOfBins; k++) { - fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] = 0; - for (j = 0; j < fNumberOfSamples; j++) { - fSampleUsed[j] = 1; - if (k < fNumberOfMode2Bins) - fSamples[j] = fWaveFormMode2[ii][j][k]; - else - fSamples[j] = fWaveFormMode3[ii][j][k]; - fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] += fSamples[j]; - } - mean = fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] / fNumberOfSamples; - notdone = 1; - nsample = fNumberOfSamples; - while (notdone) { - notdone = 0; - for (j = 0; j < fNumberOfSamples; j++) { - if (fSampleUsed[j] && abs(static_cast(fSamples[j] - mean)) > 3) { - notdone = 1; - fSampleUsed[j] = 0; - nsample--; - fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] -= fSamples[j]; - mean = fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] / nsample; - } - } - } - fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] = mean; - } - } - if (fCurrentLowVoltPoint < fNumberOfPointsLowVolt) - fCurrentLowVoltPoint++; - else - fCurrentPoint++; - - if (fCurrentPoint == fNumberOfPoints) { - fCalibrationData[chipNumber]->fEndTemperature = static_cast(fBoard->GetTemperature()); - fRecorded = true; - fFitted = false; - fOffset = false; - fCalibrationData[chipNumber]->fRead = false; - fCalibrationData[chipNumber]->fHasOffsetCalibration = false; - fBoard->SetCalibVoltage(0.0); - fBoard->EnableAcal(1, 0.0); - fBoard->SetDAC(fBoard->fDAC_CLKOFS, 0.0); - return true; - } - - return false; + }; + + // Initialisations + if (fCurrentLowVoltPoint == 0) { + fBoard->SetDAC(fBoard->fDAC_CLKOFS, 0); + // Record Temperature + fCalibrationData[chipNumber]->fStartTemperature = static_cast < float >(fBoard->GetTemperature()); + } + // Record current Voltage + if (fCurrentLowVoltPoint < fNumberOfPointsLowVolt) + voltage = + (xpos[0] - minVolt) * fCurrentLowVoltPoint / static_cast < + double >(fNumberOfPointsLowVolt) + minVolt; + else + voltage = xpos[fCurrentPoint]; + fBoard->SetCalibVoltage(voltage); + fResponseY[fCurrentPoint + fCurrentLowVoltPoint] = static_cast < float >(voltage) * 1000; + + // Loop Over Number Of Samples For Statistics + for (j = 0; j < fNumberOfSamples; j++) { + // Read Out Second Part of the Waveform + CalibrationTrigger(3, voltage); + fBoard->TransferWaves(); + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + fBoard->GetRawWave(chipNumber, ii, fWaveFormMode3[ii][j]); + } + // Read Out First Part of the Waveform + CalibrationStart(voltage); + CalibrationTrigger(2, voltage); + fBoard->TransferWaves(); + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + fBoard->GetRawWave(chipNumber, ii, fWaveFormMode2[ii][j]); + } + CalibrationStart(voltage); + } + // Average Sample Points + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + for (k = 0; k < kNumberOfBins; k++) { + fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] = 0; + for (j = 0; j < fNumberOfSamples; j++) { + fSampleUsed[j] = 1; + if (k < fNumberOfMode2Bins) + fSamples[j] = fWaveFormMode2[ii][j][k]; + else + fSamples[j] = fWaveFormMode3[ii][j][k]; + fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] += fSamples[j]; + } + mean = fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] / fNumberOfSamples; + notdone = 1; + nsample = fNumberOfSamples; + while (notdone) { + notdone = 0; + for (j = 0; j < fNumberOfSamples; j++) { + if (fSampleUsed[j] && abs(static_cast < int >(fSamples[j] - mean)) > 3) { + notdone = 1; + fSampleUsed[j] = 0; + nsample--; + fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] -= fSamples[j]; + mean = fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] / nsample; + } + } + } + fResponseX[ii][k][fCurrentPoint + fCurrentLowVoltPoint] = mean; + } + } + if (fCurrentLowVoltPoint < fNumberOfPointsLowVolt) + fCurrentLowVoltPoint++; + else + fCurrentPoint++; + + if (fCurrentPoint == fNumberOfPoints) { + fCalibrationData[chipNumber]->fEndTemperature = static_cast < float >(fBoard->GetTemperature()); + fRecorded = true; + fFitted = false; + fOffset = false; + fCalibrationData[chipNumber]->fRead = false; + fCalibrationData[chipNumber]->fHasOffsetCalibration = false; + fBoard->SetCalibVoltage(0.0); + fBoard->EnableAcal(1, 0.0); + fBoard->SetDAC(fBoard->fDAC_CLKOFS, 0.0); + return true; + } + + return false; } @@ -2755,352 +5419,389 @@ bool ResponseCalibration::RecordCalibrationPointsV4(int chipNumber) { - int i, j, k, n; - double voltage, s, s2, average, sigma; - - if (fCurrentPoint == 0) { - fBoard->SetDominoMode(1); - fBoard->EnableAcal(1,0); - fBoard->SoftTrigger(); - while (fBoard->IsBusy()); - fBoard->StartDomino(); - fCalibrationData[chipNumber]->fStartTemperature = static_cast(fBoard->GetTemperature()); - } - voltage = 1.0 * fCurrentPoint / (static_cast(fNumberOfPoints) - 1) + 0.1; - fBoard->SetCalibVoltage(voltage); - Sleep(10); - fBoard->SetCalibVoltage(voltage); - Sleep(10); - - // One dummy cycle for unknown reasons - fBoard->SoftTrigger(); - while (fBoard->IsBusy()); - fBoard->StartDomino(); - //Sleep(50); - fBoard->TransferWaves(); - - // Loop over number of samples for statistics - for (i = 0; i < fNumberOfSamples; i++) { + int i, j, k, n; + double voltage, s, s2, average, sigma; + + if (fCurrentPoint == 0) { + fBoard->SetDominoMode(1); + fBoard->EnableAcal(1, 0); + fBoard->SoftTrigger(); + while (fBoard->IsBusy()); + fBoard->StartDomino(); + fCalibrationData[chipNumber]->fStartTemperature = static_cast < float >(fBoard->GetTemperature()); + } + voltage = 1.0 * fCurrentPoint / (static_cast < double >(fNumberOfPoints) - 1) +0.1; + fBoard->SetCalibVoltage(voltage); + Sleep(10); + fBoard->SetCalibVoltage(voltage); + Sleep(10); + + // One dummy cycle for unknown reasons + fBoard->SoftTrigger(); + while (fBoard->IsBusy()); + fBoard->StartDomino(); + Sleep(50); + fBoard->TransferWaves(); + + // Loop over number of samples for statistics + for (i = 0; i < fNumberOfSamples; i++) { + if (fBoard->Debug()) { + printf("%02d:%02d\r", fNumberOfPoints - fCurrentPoint, fNumberOfSamples - i); + fflush(stdout); + } + + + fBoard->SoftTrigger(); + while (fBoard->IsBusy()); + fBoard->StartDomino(); + Sleep(50); + fBoard->TransferWaves(); + for (j = 0; j < kNumberOfCalibChannelsV4; j++) { + fBoard->GetRawWave(chipNumber, j, fWaveFormMode3[j][i]); + } + } + + // Calculate averages + for (i = 0; i < kNumberOfCalibChannelsV4; i++) { + for (k = 0; k < kNumberOfBins; k++) { + s = s2 = 0; + + for (j = 0; j < fNumberOfSamples; j++) { + s += fWaveFormMode3[i][j][k]; + s2 += fWaveFormMode3[i][j][k] * fWaveFormMode3[i][j][k]; + } + n = fNumberOfSamples; + average = s / n; + sigma = sqrt((n * s2 - s * s) / (n * (n - 1))); + + fResponseX[i][k][fCurrentPoint] = static_cast < float >(average); + } + } + #ifdef DEBUG_CALIB - printf("%d \r", fNumberOfSamples-i); + for (j = 0; j < fNumberOfSamples; j++) + printf("%d ", fWaveFormMode3[1][j][10]); + + s = s2 = 0; + for (j = 0; j < fNumberOfSamples; j++) { + s += fWaveFormMode3[i][j][k]; + s2 += fWaveFormMode3[i][j][k] * fWaveFormMode3[i][j][k]; + } + n = fNumberOfSamples; + average = s / n; + sigma = sqrt((n * s2 - s * s) / (n * (n - 1))); + + printf("\n"); + printf("%1.2lf V: %6.1lf (%1.4lf)\n", voltage, + fResponseX[1][10][fCurrentPoint], fResponseX[1][10][fCurrentPoint] / 4096.0); #endif - fBoard->SoftTrigger(); - while (fBoard->IsBusy()); - fBoard->StartDomino(); - //Sleep(50); - fBoard->TransferWaves(); - for (j = 0; j < kNumberOfCalibChannels; j++) { - fBoard->GetADCWave(chipNumber, j, fWaveFormMode3[j][i]); - } - } - - for (i = 0; i < kNumberOfCalibChannels; i++) { - for (k = 0; k < kNumberOfBins; k++) { - s = s2 = 0; - - for (j=0 ; j(average); - } - } - -#ifdef DEBUG_CALIB - for (j = 0; j < fNumberOfSamples; j++) - printf("%d ", fWaveFormMode3[1][j][10]); - - s = s2 = 0; - for (j = 0; j < fNumberOfSamples; j++) { - s += fWaveFormMode3[i][j][k]; - s2 += fWaveFormMode3[i][j][k] * fWaveFormMode3[i][j][k]; - } - n = fNumberOfSamples; - average = s / n; - sigma = sqrt( (n*s2 - s*s) / (n*(n - 1)) ); - - printf("\n"); - printf("%1.2lf V: %6.1lf (%1.4lf)\n", voltage, - fResponseX[1][10][fCurrentPoint], - fResponseX[1][10][fCurrentPoint]/4096.0); + + fCurrentPoint++; + if (fCurrentPoint == fNumberOfPoints) { + fCalibrationData[chipNumber]->fEndTemperature = static_cast < float >(fBoard->GetTemperature()); + fRecorded = true; + return true; + } + + return false; +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::FitCalibrationPoints(int chipNumber) +{ + if (!fRecorded || fFitted) + return true; + if (fBoard->GetDRSType() == 3) + return FitCalibrationPointsV4(chipNumber); + else + return FitCalibrationPointsV3(chipNumber); +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::FitCalibrationPointsV3(int chipNumber) +{ + int i, j, k; + float x1, x2, y1, y2; + float uu; + float yc, yr; + float xminExt, xrangeExt; + float xmin, xrange; + float average, averageError, averageExt, averageErrorExt; + unsigned short i0, i1; + + CalibrationData *data = fCalibrationData[chipNumber]; + CalibrationData::CalibrationDataChannel * chn = data->fChannel[fCurrentFitChannel]; + + data->DeletePreCalculatedBSpline(); + + if (fCurrentFitBin == 0 && fCurrentFitChannel == 0) { + data->fNumberOfLimitGroups = 0; + data->fMin = 100000; + data->fMax = -100000; + for (i = 0; i < kNumberOfCalibChannelsV3; i++) { + for (j = 0; j < kNumberOfBins; j++) { + if (data->fMin > fResponseX[i][j][fNumberOfPointsLowVolt + fNumberOfPoints - 1]) + data->fMin = fResponseX[i][j][fNumberOfPointsLowVolt + fNumberOfPoints - 1]; + if (data->fMax < fResponseX[i][j][fNumberOfPointsLowVolt]) + data->fMax = fResponseX[i][j][fNumberOfPointsLowVolt]; + } + } + } + // Low Volt + i0 = static_cast < unsigned short >(fResponseX[fCurrentFitChannel][fCurrentFitBin][0]); + i1 = static_cast < + unsigned short >(fResponseX[fCurrentFitChannel][fCurrentFitBin][fNumberOfPointsLowVolt]) + 1; + chn->fLookUpOffset[fCurrentFitBin] = i0; + delete chn->fLookUp[fCurrentFitBin]; + if (i0 - i1 + 1 < 2) { + chn->fNumberOfLookUpPoints[fCurrentFitBin] = 2; + chn->fLookUp[fCurrentFitBin] = new unsigned char[2]; + chn->fLookUp[fCurrentFitBin][0] = 0; + chn->fLookUp[fCurrentFitBin][1] = 0; + } else { + chn->fNumberOfLookUpPoints[fCurrentFitBin] = i0 - i1 + 1; + chn->fLookUp[fCurrentFitBin] = new unsigned char[i0 - i1 + 1]; + for (i = 0; i < i0 - i1 + 1; i++) { + for (j = 0; j < fNumberOfPointsLowVolt; j++) { + if (i0 - i >= fResponseX[fCurrentFitChannel][fCurrentFitBin][j + 1]) { + x1 = fResponseX[fCurrentFitChannel][fCurrentFitBin][j]; + x2 = fResponseX[fCurrentFitChannel][fCurrentFitBin][j + 1]; + y1 = fResponseY[j]; + y2 = fResponseY[j + 1]; + chn->fLookUp[fCurrentFitBin][i] = + static_cast < unsigned char >(((y2 - y1) * (i0 - i - x1) / (x2 - x1) + y1) / fPrecision); + break; + } + } + } + } + + // Copy Points + for (i = 0; i < fNumberOfPoints; i++) { + fPntX[0][i] = fResponseX[fCurrentFitChannel][fCurrentFitBin][fNumberOfPointsLowVolt + i]; + fPntY[0][i] = fResponseY[fNumberOfPointsLowVolt + i]; + } + // Fit BSpline + for (i = 0; i < fNumberOfPoints; i++) { + fUValues[0][i] = static_cast < float >(1 - i / (fNumberOfPoints - 1.)); + } + if (!Approx(fPntX[0], fUValues[0], fNumberOfPoints, fNumberOfGridPoints, fResX[fCurrentFitBin])) + return true; + if (!Approx(fPntY[0], fUValues[0], fNumberOfPoints, fNumberOfGridPoints, fRes[fCurrentFitBin])) + return true; + + // X constant fit + for (k = 0; k < fNumberOfXConstPoints - 2; k++) { + fPntX[1][k + 1] = + GetValue(fResX[fCurrentFitBin], + static_cast < float >(1 - k / static_cast < float >(fNumberOfXConstPoints - 3)), + fNumberOfGridPoints); + fPntY[1][k + 1] = + GetValue(fRes[fCurrentFitBin], + static_cast < float >(1 - k / static_cast < float >(fNumberOfXConstPoints - 3)), + fNumberOfGridPoints); + } + xmin = fPntX[1][fNumberOfXConstPoints - 2]; + xrange = fPntX[1][1] - xmin; + + for (i = 0; i < fNumberOfXConstPoints - 2; i++) { + fUValues[1][i + 1] = (fPntX[1][i + 1] - xmin) / xrange; + } + + if (!Approx + (&fPntY[1][1], &fUValues[1][1], fNumberOfXConstPoints - 2, fNumberOfXConstGridPoints, chn->fTempData)) + return true; + + // error statistics + if (fShowStatistics) { + for (i = 0; i < fNumberOfPoints; i++) { + uu = (fPntX[0][i] - xmin) / xrange; + yc = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); + yr = fPntY[0][i]; + fStatisticsApprox[i][fCurrentFitBin + fCurrentFitChannel * kNumberOfBins] = yc - yr; + } + } + // Add min and max point + chn->fLimitGroup[fCurrentFitBin] = 0; + while (xmin - kBSplineXMinOffset > data->fMin + kBSplineXMinOffset * chn->fLimitGroup[fCurrentFitBin]) { + chn->fLimitGroup[fCurrentFitBin]++; + } + if (data->fNumberOfLimitGroups <= chn->fLimitGroup[fCurrentFitBin]) + data->fNumberOfLimitGroups = chn->fLimitGroup[fCurrentFitBin] + 1; + xminExt = data->fMin + kBSplineXMinOffset * chn->fLimitGroup[fCurrentFitBin]; + xrangeExt = data->fMax - xminExt; + + fPntX[1][0] = data->fMax; + uu = (fPntX[1][0] - xmin) / xrange; + fPntY[1][0] = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); + + fPntX[1][fNumberOfXConstPoints - 1] = xminExt; + uu = (fPntX[1][fNumberOfXConstPoints - 1] - xmin) / xrange; + fPntY[1][fNumberOfXConstPoints - 1] = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); + + for (i = 0; i < fNumberOfXConstPoints; i++) { + fUValues[1][i] = (fPntX[1][i] - xminExt) / xrangeExt; + } + + if (!Approx(fPntY[1], fUValues[1], fNumberOfXConstPoints, fNumberOfXConstGridPoints, chn->fTempData)) + return true; + + // error statistics + if (fShowStatistics) { + for (i = 0; i < fNumberOfPoints; i++) { + uu = (fPntX[0][i] - xminExt) / xrangeExt; + yc = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); + yr = fPntY[0][i]; + fStatisticsApproxExt[i][fCurrentFitBin + fCurrentFitChannel * kNumberOfBins] = yc - yr; + } + } + for (i = 0; i < fNumberOfXConstGridPoints; i++) { + chn->fData[fCurrentFitBin][i] = static_cast < short >(chn->fTempData[i] / fPrecision); + } + + // write end of file + fCurrentFitBin++; + if (fCurrentFitBin == kNumberOfBins) { + fCurrentFitChannel++; + fCurrentFitBin = 0; + } + if (fCurrentFitChannel == kNumberOfCalibChannelsV3) { + if (fShowStatistics) { + for (i = 0; i < fNumberOfPoints; i++) { + average = 0; + averageError = 0; + averageExt = 0; + averageErrorExt = 0; + for (j = 0; j < kNumberOfCalibChannelsV3 * kNumberOfBins; j++) { + average += fStatisticsApprox[i][j]; + averageError += fStatisticsApprox[i][j] * fStatisticsApprox[i][j]; + averageExt += fStatisticsApproxExt[i][j]; + averageErrorExt += fStatisticsApproxExt[i][j] * fStatisticsApproxExt[i][j]; + } + average /= kNumberOfCalibChannelsV3 * kNumberOfBins; + averageError = + sqrt((averageError - + average * average / kNumberOfCalibChannelsV3 * kNumberOfBins) / + (kNumberOfCalibChannelsV3 * kNumberOfBins - 1)); + averageExt /= kNumberOfCalibChannelsV3 * kNumberOfBins; + averageErrorExt = + sqrt((averageErrorExt - + averageExt * averageExt / kNumberOfCalibChannelsV3 * kNumberOfBins) / + (kNumberOfCalibChannelsV3 * kNumberOfBins - 1)); + printf("Error at %3.1f V : % 2.3f +- % 2.3f ; % 2.3f +- % 2.3f\n", fPntY[0][i], average, + averageError, averageExt, averageErrorExt); + } + } + fFitted = true; + fOffset = false; + fCalibrationData[chipNumber]->fRead = true; + fCalibrationData[chipNumber]->fHasOffsetCalibration = false; + data->PreCalculateBSpline(); + return true; + } + return false; +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::FitCalibrationPointsV4(int chipNumber) +{ + if (!fRecorded || fFitted) + return true; + int i; + double par[2]; + static int error; + + CalibrationData *data = fCalibrationData[chipNumber]; + CalibrationData::CalibrationDataChannel * chn = data->fChannel[fCurrentFitChannel]; + + if (fCurrentFitBin == 0 && fCurrentFitChannel == 0) { + error = 0; + for (i = 0; i < fNumberOfPoints; i++) + fWWFit[i] = 1; + } + + for (i = 0; i < fNumberOfPoints; i++) { + fXXFit[i] = 1.0 * i / (static_cast < double >(fNumberOfPoints) - 1) +0.1; + fYYFit[i] = fResponseX[fCurrentFitChannel][fCurrentFitBin][i]; + if (fCurrentFitBin == 10 && fCurrentFitChannel == 1) { + fXXSave[i] = fXXFit[i]; + fYYSave[i] = fYYFit[i]; + } + } + + // DRSBoard::LinearRegression(fXXFit, fYYFit, fNumberOfPoints, &par[1], &par[0]); + // exclude first two points (sometimes are on limit of FADC) + DRSBoard::LinearRegression(fXXFit + 2, fYYFit + 2, fNumberOfPoints - 2, &par[1], &par[0]); + + chn->fOffset[fCurrentFitBin] = static_cast < unsigned short >(par[0] + 0.5); + chn->fGain[fCurrentFitBin] = static_cast < unsigned short >(par[1] + 0.5); + + // Remember min/max of gain + if (fCurrentFitBin == 0 && fCurrentFitChannel == 0) + fGainMin = fGainMax = chn->fGain[0]; + if (chn->fGain[fCurrentFitBin] < fGainMin) + fGainMin = chn->fGain[fCurrentFitBin]; + if (chn->fGain[fCurrentFitBin] > fGainMax) + fGainMax = chn->fGain[fCurrentFitBin]; + + // abort if outside normal region + if (chn->fGain[fCurrentFitBin] / 4096.0 < 0.8 || chn->fGain[fCurrentFitBin] / 4096.0 > 1) { + error++; + + if (error < 20) + printf("Gain=%1.3lf for bin %d on channel %d on chip %d outside valid region\n", + chn->fGain[fCurrentFitBin] / 4096.0, fCurrentFitBin, fCurrentFitChannel, chipNumber); + } + + if (fCurrentFitChannel == 1 && fCurrentFitBin == 10) { + for (i = 0; i < fNumberOfPoints; i++) { + fXXSave[i] = fXXFit[i]; + fYYSave[i] = (fYYFit[i] - chn->fOffset[10]) / chn->fGain[10] - fXXFit[i]; + } + } + + fCurrentFitBin++; + if (fCurrentFitBin == kNumberOfBins) { + fCurrentFitChannel++; + fCurrentFitBin = 0; + } + if (fCurrentFitChannel == kNumberOfCalibChannelsV4) { + + if (fBoard->Debug()) { + printf("Gain min=%1.3lf max=%1.3lf\n", fGainMin / 4096.0, fGainMax / 4096.0); + fflush(stdout); + } + // allow up to three bad bins + if (error > 3) { + printf("Aborting calibration!\n"); + return true; + } + + fFitted = true; + fOffset = false; + fCalibrationData[chipNumber]->fRead = true; + fCalibrationData[chipNumber]->fHasOffsetCalibration = false; + return true; + } + + return false; +} + +unsigned int millitime() +{ +#ifdef _MSC_VER + + return (int) GetTickCount(); + +#else + struct timeval tv; + + gettimeofday(&tv, NULL); + + return tv.tv_sec * 1000 + tv.tv_usec / 1000; #endif - - fCurrentPoint++; - if (fCurrentPoint == fNumberOfPoints) { - fCalibrationData[chipNumber]->fEndTemperature = static_cast(fBoard->GetTemperature()); - fRecorded = true; - return true; - } - - return false; -} - -/*------------------------------------------------------------------*/ - -bool ResponseCalibration::FitCalibrationPoints(int chipNumber) -{ - if (!fRecorded || fFitted) - return true; - if (fBoard->GetChipVersion() == 3) - return FitCalibrationPointsV4(chipNumber); - else - return FitCalibrationPointsV3(chipNumber); -} - -/*------------------------------------------------------------------*/ - -bool ResponseCalibration::FitCalibrationPointsV3(int chipNumber) -{ - int i, j, k; - float x1, x2, y1, y2; - float uu; - float yc, yr; - float xminExt, xrangeExt; - float xmin, xrange; - float average, averageError, averageExt, averageErrorExt; - unsigned short i0, i1; - - CalibrationData *data = fCalibrationData[chipNumber]; - CalibrationData::CalibrationDataChannel * chn = data->fChannel[fCurrentFitChannel]; - - data->DeletePreCalculatedBSpline(); - - if (fCurrentFitBin == 0 && fCurrentFitChannel == 0) { - data->fNumberOfLimitGroups = 0; - data->fMin = 100000; - data->fMax = -100000; - for (i = 0; i < kNumberOfCalibChannels; i++) { - for (j = 0; j < kNumberOfBins; j++) { - if (data->fMin > fResponseX[i][j][fNumberOfPointsLowVolt + fNumberOfPoints - 1]) - data->fMin = fResponseX[i][j][fNumberOfPointsLowVolt + fNumberOfPoints - 1]; - if (data->fMax < fResponseX[i][j][fNumberOfPointsLowVolt]) - data->fMax = fResponseX[i][j][fNumberOfPointsLowVolt]; - } - } - } - - // Low Volt - i0 = static_cast(fResponseX[fCurrentFitChannel][fCurrentFitBin][0]); - i1 = static_cast(fResponseX[fCurrentFitChannel][fCurrentFitBin][fNumberOfPointsLowVolt]) + 1; - chn->fLookUpOffset[fCurrentFitBin] = i0; - delete chn->fLookUp[fCurrentFitBin]; - if (i0 - i1 + 1 < 2) { - chn->fNumberOfLookUpPoints[fCurrentFitBin] = 2; - chn->fLookUp[fCurrentFitBin] = new unsigned char[2]; - chn->fLookUp[fCurrentFitBin][0] = 0; - chn->fLookUp[fCurrentFitBin][1] = 0; - } else { - chn->fNumberOfLookUpPoints[fCurrentFitBin] = i0 - i1 + 1; - chn->fLookUp[fCurrentFitBin] = new unsigned char[i0 - i1 + 1]; - for (i = 0; i < i0 - i1 + 1; i++) { - for (j = 0; j < fNumberOfPointsLowVolt; j++) { - if (i0 - i >= fResponseX[fCurrentFitChannel][fCurrentFitBin][j + 1]) { - x1 = fResponseX[fCurrentFitChannel][fCurrentFitBin][j]; - x2 = fResponseX[fCurrentFitChannel][fCurrentFitBin][j + 1]; - y1 = fResponseY[j]; - y2 = fResponseY[j + 1]; - chn->fLookUp[fCurrentFitBin][i] = static_cast(((y2 - y1) * (i0 - i - x1) / (x2 - x1) + y1)/fPrecision); - break; - } - } - } - } - - - // Copy Points - for (i = 0; i < fNumberOfPoints; i++) { - fPntX[0][i] = fResponseX[fCurrentFitChannel][fCurrentFitBin][fNumberOfPointsLowVolt + i]; - fPntY[0][i] = fResponseY[fNumberOfPointsLowVolt + i]; - } - // Fit BSpline - for (i = 0; i < fNumberOfPoints; i++) { - fUValues[0][i] = static_cast(1 - i / (fNumberOfPoints - 1.)); - } - if (!Approx(fPntX[0], fUValues[0], fNumberOfPoints, fNumberOfGridPoints, fResX[fCurrentFitBin])) - return true; - if (!Approx(fPntY[0], fUValues[0], fNumberOfPoints, fNumberOfGridPoints, fRes[fCurrentFitBin])) - return true; - - - // X constant fit - for (k = 0; k < fNumberOfXConstPoints - 2; k++) { - fPntX[1][k + 1] = - GetValue(fResX[fCurrentFitBin], static_cast(1 - k / static_cast(fNumberOfXConstPoints - 3)), - fNumberOfGridPoints); - fPntY[1][k + 1] = - GetValue(fRes[fCurrentFitBin], static_cast(1 - k / static_cast(fNumberOfXConstPoints - 3)), - fNumberOfGridPoints); - } - xmin = fPntX[1][fNumberOfXConstPoints - 2]; - xrange = fPntX[1][1] - xmin; - - for (i = 0; i < fNumberOfXConstPoints - 2; i++) { - fUValues[1][i + 1] = (fPntX[1][i + 1] - xmin) / xrange; - } - - if (!Approx - (&fPntY[1][1], &fUValues[1][1], fNumberOfXConstPoints - 2, fNumberOfXConstGridPoints, - chn->fTempData)) - return true; - - - // Error statistics - if (fShowStatistics) { - for (i = 0; i < fNumberOfPoints; i++) { - uu = (fPntX[0][i] - xmin) / xrange; - yc = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); - yr = fPntY[0][i]; - fStatisticsApprox[i][fCurrentFitBin + fCurrentFitChannel * kNumberOfBins] = yc - yr; - } - } - // Add min and max point - chn->fLimitGroup[fCurrentFitBin] = 0; - while (xmin - kBSplineXMinOffset > data->fMin + kBSplineXMinOffset * chn->fLimitGroup[fCurrentFitBin]) { - chn->fLimitGroup[fCurrentFitBin]++; - } - if (data->fNumberOfLimitGroups <= chn->fLimitGroup[fCurrentFitBin]) - data->fNumberOfLimitGroups = chn->fLimitGroup[fCurrentFitBin] + 1; - xminExt = data->fMin + kBSplineXMinOffset * chn->fLimitGroup[fCurrentFitBin]; - xrangeExt = data->fMax - xminExt; - - fPntX[1][0] = data->fMax; - uu = (fPntX[1][0] - xmin) / xrange; - fPntY[1][0] = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); - - fPntX[1][fNumberOfXConstPoints - 1] = xminExt; - uu = (fPntX[1][fNumberOfXConstPoints - 1] - xmin) / xrange; - fPntY[1][fNumberOfXConstPoints - 1] = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); - - for (i = 0; i < fNumberOfXConstPoints; i++) { - fUValues[1][i] = (fPntX[1][i] - xminExt) / xrangeExt; - } - - if (!Approx - (fPntY[1], fUValues[1], fNumberOfXConstPoints, fNumberOfXConstGridPoints, chn->fTempData)) - return true; - - // Error statistics - if (fShowStatistics) { - for (i = 0; i < fNumberOfPoints; i++) { - uu = (fPntX[0][i] - xminExt) / xrangeExt; - yc = GetValue(chn->fTempData, uu, fNumberOfXConstGridPoints); - yr = fPntY[0][i]; - fStatisticsApproxExt[i][fCurrentFitBin + fCurrentFitChannel * kNumberOfBins] = yc - yr; - } - } - for (i = 0; i < fNumberOfXConstGridPoints; i++) { - chn->fData[fCurrentFitBin][i] = static_cast(chn->fTempData[i] / fPrecision); - } - - - // Write end of file - fCurrentFitBin++; - if (fCurrentFitBin == kNumberOfBins) { - fCurrentFitChannel++; - fCurrentFitBin = 0; - } - if (fCurrentFitChannel == kNumberOfCalibChannels) { - if (fShowStatistics) { - for (i = 0; i < fNumberOfPoints; i++) { - average = 0; - averageError = 0; - averageExt = 0; - averageErrorExt = 0; - for (j = 0; j < kNumberOfCalibChannels * kNumberOfBins; j++) { - average += fStatisticsApprox[i][j]; - averageError += fStatisticsApprox[i][j] * fStatisticsApprox[i][j]; - averageExt += fStatisticsApproxExt[i][j]; - averageErrorExt += fStatisticsApproxExt[i][j] * fStatisticsApproxExt[i][j]; - } - average /= kNumberOfCalibChannels * kNumberOfBins; - averageError = - sqrt((averageError - - average * average / kNumberOfCalibChannels * kNumberOfBins) / (kNumberOfCalibChannels * - kNumberOfBins - 1)); - averageExt /= kNumberOfCalibChannels * kNumberOfBins; - averageErrorExt = - sqrt((averageErrorExt - - averageExt * averageExt / kNumberOfCalibChannels * kNumberOfBins) / - (kNumberOfCalibChannels * kNumberOfBins - 1)); - printf("Error at %3.1f V : % 2.3f +- % 2.3f ; % 2.3f +- % 2.3f\n", fPntY[0][i], average, - averageError, averageExt, averageErrorExt); - } - } - fFitted = true; - fOffset = false; - fCalibrationData[chipNumber]->fRead = true; - fCalibrationData[chipNumber]->fHasOffsetCalibration = false; - data->PreCalculateBSpline(); - return true; - } - return false; -} - -/*------------------------------------------------------------------*/ - -bool ResponseCalibration::FitCalibrationPointsV4(int chipNumber) -{ - if (!fRecorded || fFitted) - return true; - int i; - double par[2]; - - CalibrationData *data = fCalibrationData[chipNumber]; - CalibrationData::CalibrationDataChannel * chn = data->fChannel[fCurrentFitChannel]; - - if (fCurrentFitBin == 0 && fCurrentFitChannel == 0) { - for (i = 0; i < fNumberOfPoints; i++) - fWWFit[i] = 1; - } - - for (i = 0; i < fNumberOfPoints; i++) { - fXXFit[i] = 1.0 * i / (static_cast(fNumberOfPoints) - 1) + 0.1; - fYYFit[i] = fResponseX[fCurrentFitChannel][fCurrentFitBin][i]; - if (fCurrentFitBin == 10 && fCurrentFitChannel == 1) { - fXXSave[i] = fXXFit[i]; - fYYSave[i] = fYYFit[i]; - } - } - - DRSBoard::LinearRegression(fXXFit, fYYFit, fNumberOfPoints, &par[1], &par[0]); - chn->fOffset[fCurrentFitBin] = static_cast(par[0] + 0.5); - chn->fGain[fCurrentFitBin] = static_cast(par[1] + 0.5); - - if (fCurrentFitChannel == 1 && fCurrentFitBin == 10) { -#ifdef DEBUG_CALIB - printf("gain:%d, offset:%d\n", chn->fGain[10], chn->fOffset[10]); -#endif - for (i = 0; i < fNumberOfPoints; i++) { - fXXSave[i] = fXXFit[i]; - fYYSave[i] = (fYYFit[i] - chn->fOffset[10]) / chn->fGain[10] - fXXFit[i]; - } - } - - fCurrentFitBin++; - if (fCurrentFitBin == kNumberOfBins) { - fCurrentFitChannel++; - fCurrentFitBin = 0; - } - if (fCurrentFitChannel == kNumberOfCalibChannels) { - fFitted = true; - fOffset = true; - fCalibrationData[chipNumber]->fRead = true; - fCalibrationData[chipNumber]->fHasOffsetCalibration = false; - return true; - } - - return false; -} - -unsigned int millitime() -{ - struct timeval tv; - - gettimeofday(&tv, NULL); - - return tv.tv_sec * 1000 + tv.tv_usec / 1000; + return 0; } @@ -3109,61 +5810,128 @@ bool ResponseCalibration::OffsetCalibration(int chipNumber) { - if (!fFitted || fOffset) - return true; - int k, ii, j; - int t1, t2; - float mean,error; - CalibrationData *data = fCalibrationData[chipNumber]; - CalibrationData::CalibrationDataChannel * chn; - - if (fCurrentSample == 0) { - data->fHasOffsetCalibration = false; - fBoard->SetCalibVoltage(0.0); - fBoard->EnableAcal(1, 0.0); - } - // Loop Over Number Of Samples For Statistics - t1 = millitime(); - fBoard->SoftTrigger(); - while (fBoard->IsBusy()) { - } - fBoard->TransferWaves(); - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - fBoard->GetADCWave(chipNumber, ii, fWaveFormOffsetADC[ii][fCurrentSample]); - fBoard->CalibrateWaveform(chipNumber, ii, fWaveFormOffsetADC[ii][fCurrentSample], fWaveFormOffset[ii][fCurrentSample], - true, false, false, 0); - } - fBoard->StartDomino(); - fBoard->IsBusy(); - fBoard->IsBusy(); - fBoard->IsBusy(); - t2 = millitime(); - while (t2 - t1 < (1000 / fTriggerFrequency)) { - t2 = millitime(); - } - fCurrentSample++; - - if (fCurrentSample == fNumberOfSamples) { - // Average Sample Points - float *sample = new float[fNumberOfSamples]; - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - chn = data->fChannel[ii]; - for (k = 0; k < kNumberOfBins; k++) { - for (j = 0; j < fNumberOfSamples; j++) - sample[j] = static_cast(fWaveFormOffset[ii][j][k]); - Average(1, sample, fNumberOfSamples, mean, error, 2); - chn->fOffset[k] = static_cast(mean); - for (j = 0; j < fNumberOfSamples; j++) - sample[j] = fWaveFormOffsetADC[ii][j][k]; - Average(1, sample, fNumberOfSamples, mean, error, 2); - chn->fOffsetADC[k] = static_cast(mean); - } - } - fOffset = true; - fCalibrationData[chipNumber]->fHasOffsetCalibration = true; - delete sample; - return true; - } - - return false; + if (!fFitted || fOffset) + return true; + if (fBoard->GetDRSType() == 3) + return OffsetCalibrationV4(chipNumber); + else + return OffsetCalibrationV3(chipNumber); +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::OffsetCalibrationV3(int chipNumber) +{ + int k, ii, j; + int t1, t2; + float mean, error; + CalibrationData *data = fCalibrationData[chipNumber]; + CalibrationData::CalibrationDataChannel * chn; + + if (fCurrentSample == 0) { + data->fHasOffsetCalibration = false; + fBoard->SetCalibVoltage(0.0); + fBoard->EnableAcal(0, 0.0); + } + // Loop Over Number Of Samples For Statistics + t1 = millitime(); + fBoard->SoftTrigger(); + while (fBoard->IsBusy()) { + } + fBoard->TransferWaves(); + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + fBoard->GetRawWave(chipNumber, ii, fWaveFormOffsetADC[ii][fCurrentSample]); + fBoard->CalibrateWaveform(chipNumber, ii, fWaveFormOffsetADC[ii][fCurrentSample], + fWaveFormOffset[ii][fCurrentSample], true, false, false, 0, true); + } + fBoard->StartDomino(); + fBoard->IsBusy(); + fBoard->IsBusy(); + fBoard->IsBusy(); + t2 = millitime(); + while (t2 - t1 < (1000 / fTriggerFrequency)) { + t2 = millitime(); + } + fCurrentSample++; + + if (fCurrentSample == fNumberOfSamples) { + // Average Sample Points + float *sample = new float[fNumberOfSamples]; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + chn = data->fChannel[ii]; + for (k = 0; k < kNumberOfBins; k++) { + for (j = 0; j < fNumberOfSamples; j++) + sample[j] = static_cast < float >(fWaveFormOffset[ii][j][k]); + Average(1, sample, fNumberOfSamples, mean, error, 2); + chn->fOffset[k] = static_cast < short >(mean); + for (j = 0; j < fNumberOfSamples; j++) + sample[j] = fWaveFormOffsetADC[ii][j][k]; + Average(1, sample, fNumberOfSamples, mean, error, 2); + chn->fOffsetADC[k] = static_cast < unsigned short >(mean); + } + } + fOffset = true; + fCalibrationData[chipNumber]->fHasOffsetCalibration = true; + delete sample; + return true; + } + + return false; +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::OffsetCalibrationV4(int chipNumber) +{ + int k, ii, j; + float mean, error; + CalibrationData *data = fCalibrationData[chipNumber]; + CalibrationData::CalibrationDataChannel * chn; + + /* switch DRS to input, hope that no real signal occurs */ + if (fCurrentSample == 0) { + data->fHasOffsetCalibration = false; + fBoard->SetCalibVoltage(0.0); + fBoard->EnableAcal(0, 0.0); + /* one dummy trigger for unknown reasons */ + fBoard->SoftTrigger(); + while (fBoard->IsBusy()); + fBoard->StartDomino(); + Sleep(50); + } + // Loop Over Number Of Samples For Statistics + fBoard->SoftTrigger(); + while (fBoard->IsBusy()); + fBoard->TransferWaves(); + for (ii = 0; ii < kNumberOfCalibChannelsV4; ii++) + fBoard->GetRawWave(chipNumber, ii, fWaveFormOffsetADC[ii][fCurrentSample]); + + fBoard->StartDomino(); + Sleep(50); + fCurrentSample++; + + if (fBoard->Debug()) { + printf("%02d\r", fNumberOfSamples - fCurrentSample); + fflush(stdout); + } + + if (fCurrentSample == fNumberOfSamples) { + // Average Sample Points + float *sample = new float[fNumberOfSamples]; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + chn = data->fChannel[ii]; + for (k = 0; k < kNumberOfBins; k++) { + for (j = 0; j < fNumberOfSamples; j++) + sample[j] = static_cast < float >(fWaveFormOffsetADC[ii][j][k]); + Average(1, sample, fNumberOfSamples, mean, error, 2); + chn->fOffset[k] = static_cast < unsigned short >(mean); + } + } + fOffset = true; + fCalibrationData[chipNumber]->fHasOffsetCalibration = true; + delete sample; + return true; + } + + return false; } @@ -3175,65 +5943,65 @@ int showStatistics) { - int ii, j, i; - fInitialized = true; - fNumberOfPointsLowVolt = numberOfPointsLowVolt; - fNumberOfPoints = numberOfPoints; - fNumberOfMode2Bins = numberOfMode2Bins; - fNumberOfSamples = numberOfSamples; - fNumberOfGridPoints = numberOfGridPoints; - fNumberOfXConstPoints = numberOfXConstPoints; - fNumberOfXConstGridPoints = numberOfXConstGridPoints; - fTriggerFrequency = triggerFrequency; - fShowStatistics = showStatistics; - fCurrentPoint = 0; - fCurrentSample = 0; - fCurrentFitChannel = 0; - fCurrentFitBin = 0; - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - for (j = 0; j < kNumberOfBins; j++) { - fResponseX[ii][j] = new float[fNumberOfPoints + fNumberOfPointsLowVolt]; - } - } - fResponseY = new float[fNumberOfPoints + fNumberOfPointsLowVolt]; - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - fWaveFormMode3[ii] = new unsigned short *[fNumberOfSamples]; - fWaveFormMode2[ii] = new unsigned short *[fNumberOfSamples]; - fWaveFormOffset[ii] = new short *[fNumberOfSamples]; - fWaveFormOffsetADC[ii] = new unsigned short *[fNumberOfSamples]; - for (i = 0; i < fNumberOfSamples; i++) { - fWaveFormMode3[ii][i] = new unsigned short[kNumberOfBins]; - fWaveFormMode2[ii][i] = new unsigned short[kNumberOfBins]; - fWaveFormOffset[ii][i] = new short[kNumberOfBins]; - fWaveFormOffsetADC[ii][i] = new unsigned short[kNumberOfBins]; - } - } - fSamples = new unsigned short[fNumberOfSamples]; - fSampleUsed = new int[fNumberOfSamples]; - - for (j = 0; j < kNumberOfBins; j++) { - fRes[j] = new float[fNumberOfGridPoints]; - fResX[j] = new float[fNumberOfGridPoints]; - } - for (i = 0; i < 2; i++) { - fPntX[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; - fPntY[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; - fUValues[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; - } - fXXFit = new double[fNumberOfPoints]; - fYYFit = new double[fNumberOfPoints]; - fWWFit = new double[fNumberOfPoints]; - fYYFitRes = new double[fNumberOfPoints]; - fYYSave = new double[fNumberOfPoints]; - fXXSave = new double[fNumberOfPoints]; - - fStatisticsApprox = new float *[fNumberOfPoints]; - fStatisticsApproxExt = new float *[fNumberOfPoints]; - for (i = 0; i < fNumberOfPoints; i++) { - fStatisticsApprox[i] = new float[kNumberOfCalibChannels * kNumberOfBins]; - fStatisticsApproxExt[i] = new float[kNumberOfCalibChannels * kNumberOfBins]; - } - for (i = 0; i < kNumberOfChips; i++) { - fCalibrationData[i] = new CalibrationData(numberOfXConstGridPoints); - } + int ii, j, i; + fInitialized = true; + fNumberOfPointsLowVolt = numberOfPointsLowVolt; + fNumberOfPoints = numberOfPoints; + fNumberOfMode2Bins = numberOfMode2Bins; + fNumberOfSamples = numberOfSamples; + fNumberOfGridPoints = numberOfGridPoints; + fNumberOfXConstPoints = numberOfXConstPoints; + fNumberOfXConstGridPoints = numberOfXConstGridPoints; + fTriggerFrequency = triggerFrequency; + fShowStatistics = showStatistics; + fCurrentPoint = 0; + fCurrentSample = 0; + fCurrentFitChannel = 0; + fCurrentFitBin = 0; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + for (j = 0; j < kNumberOfBins; j++) { + fResponseX[ii][j] = new float[fNumberOfPoints + fNumberOfPointsLowVolt]; + } + } + fResponseY = new float[fNumberOfPoints + fNumberOfPointsLowVolt]; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + fWaveFormMode3[ii] = new unsigned short *[fNumberOfSamples]; + fWaveFormMode2[ii] = new unsigned short *[fNumberOfSamples]; + fWaveFormOffset[ii] = new short *[fNumberOfSamples]; + fWaveFormOffsetADC[ii] = new unsigned short *[fNumberOfSamples]; + for (i = 0; i < fNumberOfSamples; i++) { + fWaveFormMode3[ii][i] = new unsigned short[kNumberOfBins]; + fWaveFormMode2[ii][i] = new unsigned short[kNumberOfBins]; + fWaveFormOffset[ii][i] = new short[kNumberOfBins]; + fWaveFormOffsetADC[ii][i] = new unsigned short[kNumberOfBins]; + } + } + fSamples = new unsigned short[fNumberOfSamples]; + fSampleUsed = new int[fNumberOfSamples]; + + for (j = 0; j < kNumberOfBins; j++) { + fRes[j] = new float[fNumberOfGridPoints]; + fResX[j] = new float[fNumberOfGridPoints]; + } + for (i = 0; i < 2; i++) { + fPntX[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; + fPntY[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; + fUValues[i] = new float[fNumberOfPoints * (1 - i) + fNumberOfXConstPoints * i]; + } + fXXFit = new double[fNumberOfPoints]; + fYYFit = new double[fNumberOfPoints]; + fWWFit = new double[fNumberOfPoints]; + fYYFitRes = new double[fNumberOfPoints]; + fYYSave = new double[fNumberOfPoints]; + fXXSave = new double[fNumberOfPoints]; + + fStatisticsApprox = new float *[fNumberOfPoints]; + fStatisticsApproxExt = new float *[fNumberOfPoints]; + for (i = 0; i < fNumberOfPoints; i++) { + fStatisticsApprox[i] = new float[kNumberOfCalibChannelsV3 * kNumberOfBins]; + fStatisticsApproxExt[i] = new float[kNumberOfCalibChannelsV3 * kNumberOfBins]; + } + for (i = 0; i < kNumberOfChipsMax; i++) { + fCalibrationData[i] = new CalibrationData(numberOfXConstGridPoints); + } } @@ -3242,57 +6010,57 @@ void ResponseCalibration::DeleteFields() { - if (!fInitialized) - return; - fInitialized = false; - int ii, j, i; - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - for (j = 0; j < kNumberOfBins; j++) { - delete fResponseX[ii][j]; - } - } - delete fResponseY; - for (ii = 0; ii < kNumberOfCalibChannels; ii++) { - for (i = 0; i < fNumberOfSamples; i++) { - if (fWaveFormMode3[ii] != NULL) - delete fWaveFormMode3[ii][i]; - if (fWaveFormMode2[ii] != NULL) - delete fWaveFormMode2[ii][i]; - if (fWaveFormOffset[ii] != NULL) - delete fWaveFormOffset[ii][i]; - if (fWaveFormOffsetADC[ii] != NULL) - delete fWaveFormOffsetADC[ii][i]; - } - delete fWaveFormMode3[ii]; - delete fWaveFormMode2[ii]; - delete fWaveFormOffset[ii]; - delete fWaveFormOffsetADC[ii]; - } - delete fSamples; - delete fSampleUsed; - - for (j = 0; j < kNumberOfBins; j++) { - delete fRes[j]; - delete fResX[j]; - } - for (i = 0; i < 2; i++) { - delete fPntX[i]; - delete fPntY[i]; - delete fUValues[i]; - } - delete fXXFit; - delete fYYFit; - delete fWWFit; - delete fYYFitRes; - delete fYYSave; - delete fXXSave; - - for (i = 0; i < fNumberOfPoints; i++) { - delete fStatisticsApprox[i]; - delete fStatisticsApproxExt[i]; - } - delete fStatisticsApprox; - delete fStatisticsApproxExt; - for (i = 0; i < kNumberOfChips; i++) - delete fCalibrationData[i]; + if (!fInitialized) + return; + fInitialized = false; + int ii, j, i; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + for (j = 0; j < kNumberOfBins; j++) { + delete fResponseX[ii][j]; + } + } + delete fResponseY; + for (ii = 0; ii < kNumberOfCalibChannelsV3; ii++) { + for (i = 0; i < fNumberOfSamples; i++) { + if (fWaveFormMode3[ii] != NULL) + delete fWaveFormMode3[ii][i]; + if (fWaveFormMode2[ii] != NULL) + delete fWaveFormMode2[ii][i]; + if (fWaveFormOffset[ii] != NULL) + delete fWaveFormOffset[ii][i]; + if (fWaveFormOffsetADC[ii] != NULL) + delete fWaveFormOffsetADC[ii][i]; + } + delete fWaveFormMode3[ii]; + delete fWaveFormMode2[ii]; + delete fWaveFormOffset[ii]; + delete fWaveFormOffsetADC[ii]; + } + delete fSamples; + delete fSampleUsed; + + for (j = 0; j < kNumberOfBins; j++) { + delete fRes[j]; + delete fResX[j]; + } + for (i = 0; i < 2; i++) { + delete fPntX[i]; + delete fPntY[i]; + delete fUValues[i]; + } + delete fXXFit; + delete fYYFit; + delete fWWFit; + delete fYYFitRes; + delete fYYSave; + delete fXXSave; + + for (i = 0; i < fNumberOfPoints; i++) { + delete fStatisticsApprox[i]; + delete fStatisticsApproxExt[i]; + } + delete fStatisticsApprox; + delete fStatisticsApproxExt; + for (i = 0; i < kNumberOfChipsMax; i++) + delete fCalibrationData[i]; } @@ -3301,9 +6069,9 @@ double ResponseCalibration::GetTemperature(unsigned int chipIndex) { - if (fCalibrationData[chipIndex]==NULL) - return 0; - if (!fCalibrationData[chipIndex]->fRead) - return 0; - return (fCalibrationData[chipIndex]->fStartTemperature + fCalibrationData[chipIndex]->fEndTemperature) / 2; + if (fCalibrationData[chipIndex] == NULL) + return 0; + if (!fCalibrationData[chipIndex]->fRead) + return 0; + return (fCalibrationData[chipIndex]->fStartTemperature + fCalibrationData[chipIndex]->fEndTemperature) / 2; } @@ -3311,94 +6079,120 @@ bool ResponseCalibration::Calibrate(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, - short *uWaveform, int triggerCell, float threshold) -{ - int i; - int hasOffset; - bool aboveThreshold; - float wave, v; - int j,irot; - - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - - if (channel > kNumberOfCalibChannels || data == NULL) { - for (i = 0; i < kNumberOfBins; i++) { - uWaveform[i] = adcWaveform[i]; - } - return true; - } - if (!data->fRead) { - for (i = 0; i < kNumberOfBins; i++) { - uWaveform[i] = adcWaveform[i]; - } - return true; - } - - chn = data->fChannel[channel]; - - hasOffset = data->fHasOffsetCalibration; - aboveThreshold = (threshold == 0); // If threshold equal zero, always return true - - // Calibrate - for (i = 0; i < kNumberOfBins; i++) { - if (fBoard->GetChipVersion() != 3) { - irot = i; - if (triggerCell > -1) - irot = (triggerCell + i) % kNumberOfBins; - if (adcWaveform[irot] > chn->fLookUpOffset[irot]) { - uWaveform[i] = - ((chn->fLookUp[irot][0] - chn->fLookUp[irot][1]) * (adcWaveform[irot] - chn->fLookUpOffset[irot]) + - chn->fLookUp[irot][0]); - } else if (adcWaveform[irot] <= chn->fLookUpOffset[irot] - && adcWaveform[irot] > chn->fLookUpOffset[irot] - chn->fNumberOfLookUpPoints[irot]) { - uWaveform[i] = chn->fLookUp[irot][chn->fLookUpOffset[irot] - adcWaveform[irot]]; + short *uWaveform, int triggerCell, float threshold, bool offsetCalib) +{ + int i; + unsigned int NumberOfCalibChannels; + int hasOffset; + bool aboveThreshold; + float wave, v; + int j, irot; + + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + + if (fBoard->GetDRSType() == 3) + NumberOfCalibChannels = kNumberOfCalibChannelsV4; + else + NumberOfCalibChannels = kNumberOfCalibChannelsV3; + + if (channel >= NumberOfCalibChannels || data == NULL) { + for (i = 0; i < kNumberOfBins; i++) { + irot = i; + if (triggerCell > -1) + irot = (triggerCell + i) % kNumberOfBins; + + uWaveform[i] = adcWaveform[irot]; + } + return true; + } + if (!data->fRead) { + for (i = 0; i < kNumberOfBins; i++) { + uWaveform[i] = adcWaveform[i]; + } + return true; + } + + chn = data->fChannel[channel]; + + hasOffset = data->fHasOffsetCalibration; + aboveThreshold = (threshold == 0); // if threshold equal zero, always return true + + short offset; + + // Calibrate + for (i = 0; i < kNumberOfBins; i++) { + if (fBoard->GetDRSType() != 3) { + irot = i; + if (triggerCell > -1) + irot = (triggerCell + i) % kNumberOfBins; + offset = offsetCalib ? chn->fOffset[irot] : 0; + if (adcWaveform[irot] > chn->fLookUpOffset[irot]) { + uWaveform[i] = + ((chn->fLookUp[irot][0] - chn->fLookUp[irot][1]) * (adcWaveform[irot] - + chn->fLookUpOffset[irot]) + + chn->fLookUp[irot][0]); + } else if (adcWaveform[irot] <= chn->fLookUpOffset[irot] + && adcWaveform[irot] > chn->fLookUpOffset[irot] - chn->fNumberOfLookUpPoints[irot]) { + uWaveform[i] = chn->fLookUp[irot][chn->fLookUpOffset[irot] - adcWaveform[irot]]; + } else { + wave = 0; + for (j = 0; j < kBSplineOrder; j++) { + wave += + chn->fData[irot][data->fBSplineOffsetLookUp[adcWaveform[irot]][chn->fLimitGroup[irot]] + j] + * data->fBSplineLookUp[adcWaveform[irot]][chn->fLimitGroup[irot]][j]; + } + uWaveform[i] = static_cast < short >(wave); + } + // Offset Calibration + if (hasOffset) + uWaveform[i] -= offset; } else { - wave = 0; - for (j = 0; j < kBSplineOrder; j++) { - wave += chn->fData[irot][data->fBSplineOffsetLookUp[adcWaveform[irot]][chn->fLimitGroup[irot]] + j] - * data->fBSplineLookUp[adcWaveform[irot]][chn->fLimitGroup[irot]][j]; - } - uWaveform[i] = static_cast(wave); - } - // Offset Calibration - if (hasOffset) - uWaveform[i] -= chn->fOffset[irot]; - } else { - if (chn->fGain[i] > 3800) { - //if (channel == 1 && i == 10) - // printf("gain:%d offset:%d value:%d\n", chn->fGain[i], chn->fOffset[i], adcWaveform[i]); - v = static_cast(adcWaveform[i] - chn->fOffset[i]) / chn->fGain[i]; - uWaveform[i] = static_cast(v * 1000 / GetPrecision() + 0.5); - } else - uWaveform[i] = 0; - } - - // Check for Threshold - if (!aboveThreshold) { - if (uWaveform[i] >= threshold) - aboveThreshold = true; - } - } - return aboveThreshold; -} - -/*------------------------------------------------------------------*/ - -bool ResponseCalibration::SubtractADCOffset(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, - unsigned short *adcCalibratedWaveform, unsigned short newBaseLevel) -{ - int i; - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - - if (channel >= kNumberOfCalibChannels || data == NULL) - return false; - if (!data->fRead || !data->fHasOffsetCalibration) - return false; - - chn = data->fChannel[channel]; - for (i = 0; i < kNumberOfBins; i++) - adcCalibratedWaveform[i] = adcWaveform[i]-chn->fOffsetADC[i]+newBaseLevel; - return true; + irot = i; + if (triggerCell > -1) + irot = (triggerCell + i) % kNumberOfBins; +#if 0 /* not enabled yet for DRS3 */ + offset = offsetCalib ? chn->fOffset[irot] : 0; +#else + offset = chn->fOffset[irot]; +#endif + v = static_cast < float >(adcWaveform[irot] - offset) / chn->fGain[irot]; + uWaveform[i] = static_cast < short >(v * 1000 / GetPrecision() + 0.5); + } + + // Check for Threshold + if (!aboveThreshold) { + if (uWaveform[i] >= threshold) + aboveThreshold = true; + } + } + return aboveThreshold; +} + +/*------------------------------------------------------------------*/ + +bool ResponseCalibration::SubtractADCOffset(unsigned int chipIndex, unsigned int channel, + unsigned short *adcWaveform, + unsigned short *adcCalibratedWaveform, + unsigned short newBaseLevel) +{ + int i; + unsigned int NumberOfCalibChannels; + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + + if (fBoard->GetDRSType() == 3) + NumberOfCalibChannels = kNumberOfCalibChannelsV4; + else + NumberOfCalibChannels = kNumberOfCalibChannelsV3; + + if (channel >= NumberOfCalibChannels || data == NULL) + return false; + if (!data->fRead || !data->fHasOffsetCalibration) + return false; + + chn = data->fChannel[channel]; + for (i = 0; i < kNumberOfBins; i++) + adcCalibratedWaveform[i] = adcWaveform[i] - chn->fOffsetADC[i] + newBaseLevel; + return true; } @@ -3408,8 +6202,6 @@ bool ResponseCalibration::ReadCalibration(unsigned int chipIndex) { - if (fBoard->GetChipVersion() == 3) - return ReadCalibrationV4(chipIndex); - else - return ReadCalibrationV3(chipIndex); + if (fBoard->GetDRSType() == 3) return ReadCalibrationV4(chipIndex); + else return ReadCalibrationV3(chipIndex); } @@ -3418,160 +6210,160 @@ bool ResponseCalibration::ReadCalibrationV3(unsigned int chipIndex) { - int k, l, m, num; - unsigned char ng; - short tempShort; - char fileName[2000]; - FILE *fileHandle; - char calibDir[1000]; - - // Read Response Calibration - delete fCalibrationData[chipIndex]; - fCalibrationData[chipIndex] = NULL; - - fBoard->GetCalibrationDirectory(calibDir); - sprintf(fileName, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", calibDir, - fBoard->GetCMCSerialNumber(), fBoard->GetCMCSerialNumber(), chipIndex, - static_cast(fBoard->GetFrequency() * 1000)); - - fileHandle = fopen(fileName, "rb"); - if (fileHandle == NULL) { - printf("Board %d --> Could not find response calibration file:\n", fBoard->GetCMCSerialNumber()); - printf("%s\n", fileName); - return false; - } - // Number Of Grid Points - num = fread(&ng, 1, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'NumberOfGridPoints'.\n"); - return false; - } - - fCalibrationData[chipIndex] = new CalibrationData(ng); - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - data->fRead = true; - data->fHasOffsetCalibration = 1; - data->DeletePreCalculatedBSpline(); - fCalibrationValid[chipIndex] = true; - - // Start Temperature - num = fread(&tempShort, 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'StartTemperature'.\n"); - return false; - } - data->fStartTemperature = static_cast(tempShort) / 10; - // End Temperature - num = fread(&tempShort, 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'EndTemperature'.\n"); - return false; - } - data->fEndTemperature = static_cast(tempShort) / 10; - if (fBoard->GetChipVersion() != 3) { - // Min - num = fread(&data->fMin, 4, 1, fileHandle); - if (num != 1) { + int k, l, m, num; + unsigned char ng; + short tempShort; + char fileName[2000]; + FILE *fileHandle; + char calibDir[1000]; + + // Read Response Calibration + delete fCalibrationData[chipIndex]; + fCalibrationData[chipIndex] = NULL; + + fBoard->GetCalibrationDirectory(calibDir); + sprintf(fileName, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", calibDir, + fBoard->GetBoardSerialNumber(), fBoard->GetBoardSerialNumber(), chipIndex, + static_cast < int >(fBoard->GetFrequency() * 1000)); + + fileHandle = fopen(fileName, "rb"); + if (fileHandle == NULL) { + printf("Board %d --> Could not find response calibration file:\n", fBoard->GetBoardSerialNumber()); + printf("%s\n", fileName); + return false; + } + // Number Of Grid Points + num = fread(&ng, 1, 1, fileHandle); + if (num != 1) { printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Min'.\n"); + printf(" at 'NumberOfGridPoints'.\n"); return false; - } - // Max - num = fread(&data->fMax, 4, 1, fileHandle); - if (num != 1) { + } + + fCalibrationData[chipIndex] = new CalibrationData(ng); + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + data->fRead = true; + data->fHasOffsetCalibration = 1; + data->DeletePreCalculatedBSpline(); + fCalibrationValid[chipIndex] = true; + + // Start Temperature + num = fread(&tempShort, 2, 1, fileHandle); + if (num != 1) { printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Max'.\n"); + printf(" at 'StartTemperature'.\n"); return false; - } - // Number Of Limit Groups - num = fread(&data->fNumberOfLimitGroups, 1, 1, fileHandle); - if (num != 1) { + } + data->fStartTemperature = static_cast < float >(tempShort) / 10; + // End Temperature + num = fread(&tempShort, 2, 1, fileHandle); + if (num != 1) { printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'NumberOfLimitGroups'.\n"); + printf(" at 'EndTemperature'.\n"); return false; - } - } - // Read channel - for (k = 0; k < kNumberOfCalibChannels; k++) { - chn = data->fChannel[k]; - for (l = 0; l < kNumberOfBins; l++) { - if (fBoard->GetChipVersion() != 3) { - // Range Group - num = fread(&chn->fLimitGroup[l], 1, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'RangeGroup' of channel %d bin %d.\n", k, l); - return false; - } - // Look Up Offset - num = fread(&chn->fLookUpOffset[l], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'LookUpOffset' of channel %d bin %d.\n", k, l); - return false; - } - // Number Of Look Up Points - num = fread(&chn->fNumberOfLookUpPoints[l], 1, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'NumberOfLookUpPoints' of channel %d bin %d.\n", k, l); - return false; - } - // Look Up Points - delete chn->fLookUp[l]; - chn->fLookUp[l] = new unsigned char[chn->fNumberOfLookUpPoints[l]]; - for (m = 0; m < chn->fNumberOfLookUpPoints[l]; m++) { - num = fread(&chn->fLookUp[l][m], 1, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'LookUp %d' of channel %d bin %d.\n", m, k, l); - return false; - } - } - // Points - for (m = 0; m < data->fNumberOfGridPoints; m++) { - num = fread(&chn->fData[l][m], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Point %d' of channel %d bin %d.\n", m, k, l); - return false; - } - } - // ADC Offset - num = fread(&chn->fOffsetADC[l], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'ADC Offset' of channel %d bin %d.\n", k, l); - return false; - } - } - // Offset - num = fread(&chn->fOffset[l], 2, 1, fileHandle); + } + data->fEndTemperature = static_cast < float >(tempShort) / 10; + if (fBoard->GetDRSType() != 3) { + // Min + num = fread(&data->fMin, 4, 1, fileHandle); if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Offset' of channel %d bin %d.\n", k, l); - return false; - } - if (fBoard->GetChipVersion() == 3) { - // Gain - num = fread(&chn->fGain[l], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Gain' of channel %d bin %d.\n", k, l); - return false; - } - } - } - } - fclose(fileHandle); - - if (fBoard->GetChipVersion() != 3) { - data->PreCalculateBSpline(); - } - - return true; + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Min'.\n"); + return false; + } + // Max + num = fread(&data->fMax, 4, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Max'.\n"); + return false; + } + // Number Of Limit Groups + num = fread(&data->fNumberOfLimitGroups, 1, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'NumberOfLimitGroups'.\n"); + return false; + } + } + // read channel + for (k = 0; k < kNumberOfCalibChannelsV3; k++) { + chn = data->fChannel[k]; + for (l = 0; l < kNumberOfBins; l++) { + if (fBoard->GetDRSType() != 3) { + // Range Group + num = fread(&chn->fLimitGroup[l], 1, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'RangeGroup' of channel %d bin %d.\n", k, l); + return false; + } + // Look Up Offset + num = fread(&chn->fLookUpOffset[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'LookUpOffset' of channel %d bin %d.\n", k, l); + return false; + } + // Number Of Look Up Points + num = fread(&chn->fNumberOfLookUpPoints[l], 1, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'NumberOfLookUpPoints' of channel %d bin %d.\n", k, l); + return false; + } + // Look Up Points + delete chn->fLookUp[l]; + chn->fLookUp[l] = new unsigned char[chn->fNumberOfLookUpPoints[l]]; + for (m = 0; m < chn->fNumberOfLookUpPoints[l]; m++) { + num = fread(&chn->fLookUp[l][m], 1, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'LookUp %d' of channel %d bin %d.\n", m, k, l); + return false; + } + } + // Points + for (m = 0; m < data->fNumberOfGridPoints; m++) { + num = fread(&chn->fData[l][m], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Point %d' of channel %d bin %d.\n", m, k, l); + return false; + } + } + // ADC Offset + num = fread(&chn->fOffsetADC[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'ADC Offset' of channel %d bin %d.\n", k, l); + return false; + } + } + // Offset + num = fread(&chn->fOffset[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Offset' of channel %d bin %d.\n", k, l); + return false; + } + if (fBoard->GetDRSType() == 3) { + // Gain + num = fread(&chn->fGain[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Gain' of channel %d bin %d.\n", k, l); + return false; + } + } + } + } + fclose(fileHandle); + + if (fBoard->GetDRSType() != 3) { + data->PreCalculateBSpline(); + } + + return true; } @@ -3580,59 +6372,59 @@ bool ResponseCalibration::ReadCalibrationV4(unsigned int chipIndex) { - int k, l, num; - char fileName[2000]; - FILE *fileHandle; - char calibDir[1000]; - - // Read Response Calibration - - fBoard->GetCalibrationDirectory(calibDir); - sprintf(fileName, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", calibDir, - fBoard->GetCMCSerialNumber(), fBoard->GetCMCSerialNumber(), chipIndex, - static_cast(fBoard->GetFrequency() * 1000)); - - fileHandle = fopen(fileName, "rb"); - if (fileHandle == NULL) { - printf("Board %d --> Could not find response calibration file:\n", fBoard->GetCMCSerialNumber()); - printf("%s\n", fileName); - return false; - } - - if (fInitialized) - delete fCalibrationData[chipIndex]; - fCalibrationData[chipIndex] = new CalibrationData(1); - CalibrationData *data = fCalibrationData[chipIndex]; - CalibrationData::CalibrationDataChannel * chn; - data->fRead = true; - data->fHasOffsetCalibration = 1; - fCalibrationValid[chipIndex] = true; - data->fStartTemperature = 0; - data->fEndTemperature = 0; - - // read channel - for (k = 0; k < kNumberOfCalibChannels; k++) { - chn = data->fChannel[k]; - for (l = 0; l < kNumberOfBins; l++) { - // Offset - num = fread(&chn->fOffset[l], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Offset' of channel %d bin %d.\n", k, l); - return false; - } - if (fBoard->GetChipVersion() == 3) { - // Gain - num = fread(&chn->fGain[l], 2, 1, fileHandle); - if (num != 1) { - printf("Error while reading response calibration file '%s'\n", fileName); - printf(" at 'Gain' of channel %d bin %d.\n", k, l); - return false; - } - } - } - } - - fclose(fileHandle); - return true; + int k, l, num; + char fileName[2000]; + FILE *fileHandle; + char calibDir[1000]; + + // Read Response Calibration + + fBoard->GetCalibrationDirectory(calibDir); + sprintf(fileName, "%s/board%d/ResponseCalib_board%d_chip%d_%dMHz.bin", calibDir, + fBoard->GetBoardSerialNumber(), fBoard->GetBoardSerialNumber(), chipIndex, + static_cast < int >(fBoard->GetFrequency() * 1000)); + + fileHandle = fopen(fileName, "rb"); + if (fileHandle == NULL) { + printf("Board %d --> Could not find response calibration file:\n", fBoard->GetBoardSerialNumber()); + printf("%s\n", fileName); + return false; + } + + if (fInitialized) + delete fCalibrationData[chipIndex]; + fCalibrationData[chipIndex] = new CalibrationData(1); + CalibrationData *data = fCalibrationData[chipIndex]; + CalibrationData::CalibrationDataChannel * chn; + data->fRead = true; + data->fHasOffsetCalibration = 1; + fCalibrationValid[chipIndex] = true; + data->fStartTemperature = 0; + data->fEndTemperature = 0; + + // read channel + for (k = 0; k < kNumberOfCalibChannelsV4; k++) { + chn = data->fChannel[k]; + for (l = 0; l < kNumberOfBins; l++) { + // Offset + num = fread(&chn->fOffset[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Offset' of channel %d bin %d.\n", k, l); + return false; + } + if (fBoard->GetDRSType() == 3) { + // Gain + num = fread(&chn->fGain[l], 2, 1, fileHandle); + if (num != 1) { + printf("Error while reading response calibration file '%s'\n", fileName); + printf(" at 'Gain' of channel %d bin %d.\n", k, l); + return false; + } + } + } + } + + fclose(fileHandle); + return true; } @@ -3641,13 +6433,13 @@ float ResponseCalibration::GetValue(float *coefficients, float u, int n) { - int j, ii; - float bsplines[4]; - ii = CalibrationData::CalculateBSpline(n, u, bsplines); - - float s = 0; - for (j = 0; j < kBSplineOrder; j++) { - s += coefficients[ii + j] * bsplines[j]; - } - return s; + int j, ii; + float bsplines[4]; + ii = CalibrationData::CalculateBSpline(n, u, bsplines); + + float s = 0; + for (j = 0; j < kBSplineOrder; j++) { + s += coefficients[ii + j] * bsplines[j]; + } + return s; } @@ -3656,51 +6448,51 @@ int ResponseCalibration::Approx(float *p, float *uu, int np, int nu, float *coef) { - int i, iu, j; - - const int mbloc = 50; - int ip = 0; - int ir = 0; - int mt = 0; - int ileft, irow; - float bu[kBSplineOrder]; - float *matrix[kBSplineOrder + 2]; - for (i = 0; i < kBSplineOrder + 2; i++) - matrix[i] = new float[mbloc + nu + 1]; - for (iu = kBSplineOrder - 1; iu < nu; iu++) { - for (i = 0; i < np; i++) { - if (1 <= uu[i]) - ileft = nu - 1; - else if (uu[i] < 0) - ileft = kBSplineOrder - 2; - else - ileft = kBSplineOrder - 1 + static_cast(uu[i] * (nu - kBSplineOrder + 1)); - if (ileft != iu) - continue; - irow = ir + mt; - mt++; - CalibrationData::CalculateBSpline(nu, uu[i], bu); - for (j = 0; j < kBSplineOrder; j++) { - matrix[j][irow] = bu[j]; - } - matrix[kBSplineOrder][irow] = p[i]; - if (mt < mbloc) - continue; + int i, iu, j; + + const int mbloc = 50; + int ip = 0; + int ir = 0; + int mt = 0; + int ileft, irow; + float bu[kBSplineOrder]; + float *matrix[kBSplineOrder + 2]; + for (i = 0; i < kBSplineOrder + 2; i++) + matrix[i] = new float[mbloc + nu + 1]; + for (iu = kBSplineOrder - 1; iu < nu; iu++) { + for (i = 0; i < np; i++) { + if (1 <= uu[i]) + ileft = nu - 1; + else if (uu[i] < 0) + ileft = kBSplineOrder - 2; + else + ileft = kBSplineOrder - 1 + static_cast < int >(uu[i] * (nu - kBSplineOrder + 1)); + if (ileft != iu) + continue; + irow = ir + mt; + mt++; + CalibrationData::CalculateBSpline(nu, uu[i], bu); + for (j = 0; j < kBSplineOrder; j++) { + matrix[j][irow] = bu[j]; + } + matrix[kBSplineOrder][irow] = p[i]; + if (mt < mbloc) + continue; + LeastSquaresAccumulation(matrix, kBSplineOrder, &ip, &ir, mt, iu - kBSplineOrder + 1); + mt = 0; + } + if (mt == 0) + continue; LeastSquaresAccumulation(matrix, kBSplineOrder, &ip, &ir, mt, iu - kBSplineOrder + 1); mt = 0; - } - if (mt == 0) - continue; - LeastSquaresAccumulation(matrix, kBSplineOrder, &ip, &ir, mt, iu - kBSplineOrder + 1); - mt = 0; - } - if (!LeastSquaresSolving(matrix, kBSplineOrder, ip, ir, coef, nu)) { - for (i = 0; i < kBSplineOrder + 2; i++) + } + if (!LeastSquaresSolving(matrix, kBSplineOrder, ip, ir, coef, nu)) { + for (i = 0; i < kBSplineOrder + 2; i++) + delete matrix[i]; + return 0; + } + + for (i = 0; i < kBSplineOrder + 2; i++) delete matrix[i]; - return 0; - } - - for (i = 0; i < kBSplineOrder + 2; i++) - delete matrix[i]; - return 1; + return 1; } @@ -3709,50 +6501,50 @@ void ResponseCalibration::LeastSquaresAccumulation(float **matrix, int nb, int *ip, int *ir, int mt, int jt) { - int i, j, l, mu, k, kh; - float rho; - - if (mt <= 0) - return; - if (jt != *ip) { - if (jt > (*ir)) { - for (i = 0; i < mt; i++) { - for (j = 0; j < nb + 1; j++) { - matrix[j][jt + mt - i] = matrix[j][(*ir) + mt - i]; - } - } - for (i = 0; i < jt - (*ir); i++) { - for (j = 0; j < nb + 1; j++) { - matrix[j][(*ir) + i] = 0; - } - } - *ir = jt; - } - mu = min(nb - 1, (*ir) - (*ip) - 1); - if (mu != 0) { - for (l = 0; l < mu; l++) { - k = min(l + 1, jt - (*ip)); - for (i = l + 1; i < nb; i++) { - matrix[i - k][(*ip) + l + 1] = matrix[i][(*ip) + l + 1]; - } - for (i = 0; i < k; i++) { - matrix[nb - i - 1][(*ip) + l + 1] = 0; - } - } - } - *ip = jt; - } - kh = min(nb + 1, (*ir) + mt - (*ip)); - - for (i = 0; i < kh; i++) { - Housholder(i, max(i + 1, (*ir) - (*ip)), (*ir) + mt - (*ip), matrix, i, (*ip), &rho, matrix, i + 1, - (*ip), 1, nb - i); - } - - *ir = (*ip) + kh; - if (kh < nb + 1) - return; - for (i = 0; i < nb; i++) { - matrix[i][(*ir) - 1] = 0; - } + int i, j, l, mu, k, kh; + float rho; + + if (mt <= 0) + return; + if (jt != *ip) { + if (jt > (*ir)) { + for (i = 0; i < mt; i++) { + for (j = 0; j < nb + 1; j++) { + matrix[j][jt + mt - i] = matrix[j][(*ir) + mt - i]; + } + } + for (i = 0; i < jt - (*ir); i++) { + for (j = 0; j < nb + 1; j++) { + matrix[j][(*ir) + i] = 0; + } + } + *ir = jt; + } + mu = min(nb - 1, (*ir) - (*ip) - 1); + if (mu != 0) { + for (l = 0; l < mu; l++) { + k = min(l + 1, jt - (*ip)); + for (i = l + 1; i < nb; i++) { + matrix[i - k][(*ip) + l + 1] = matrix[i][(*ip) + l + 1]; + } + for (i = 0; i < k; i++) { + matrix[nb - i - 1][(*ip) + l + 1] = 0; + } + } + } + *ip = jt; + } + kh = min(nb + 1, (*ir) + mt - (*ip)); + + for (i = 0; i < kh; i++) { + Housholder(i, max(i + 1, (*ir) - (*ip)), (*ir) + mt - (*ip), matrix, i, (*ip), &rho, matrix, i + 1, + (*ip), 1, nb - i); + } + + *ir = (*ip) + kh; + if (kh < nb + 1) + return; + for (i = 0; i < nb; i++) { + matrix[i][(*ir) - 1] = 0; + } } @@ -3761,32 +6553,32 @@ int ResponseCalibration::LeastSquaresSolving(float **matrix, int nb, int ip, int ir, float *x, int n) { - int i, j, l, ii; - float s, rsq; - for (j = 0; j < n; j++) { - x[j] = matrix[nb][j]; - } - rsq = 0; - if (n <= ir - 1) { - for (j = n; j < ir; j++) { - rsq += pow(matrix[nb][j], 2); - } - } - - for (ii = 0; ii < n; ii++) { - i = n - ii - 1; - s = 0; - l = max(0, i - ip); - if (i != n - 1) { - for (j = 1; j < min(n - i, nb); j++) { - s += matrix[j + l][i] * x[i + j]; - } - } - if (matrix[l][i] == 0) { - printf("Error in LeastSquaresSolving.\n"); - return 0; - } - x[i] = (x[i] - s) / matrix[l][i]; - } - return 1; + int i, j, l, ii; + float s, rsq; + for (j = 0; j < n; j++) { + x[j] = matrix[nb][j]; + } + rsq = 0; + if (n <= ir - 1) { + for (j = n; j < ir; j++) { + rsq += pow(matrix[nb][j], 2); + } + } + + for (ii = 0; ii < n; ii++) { + i = n - ii - 1; + s = 0; + l = max(0, i - ip); + if (i != n - 1) { + for (j = 1; j < min(n - i, nb); j++) { + s += matrix[j + l][i] * x[i + j]; + } + } + if (matrix[l][i] == 0) { + printf("Error in LeastSquaresSolving.\n"); + return 0; + } + x[i] = (x[i] - s) / matrix[l][i]; + } + return 1; } @@ -3796,52 +6588,52 @@ float **c, int iC1, int iC2, int ice, int ncv) { - int i, j, incr; - float tol = static_cast(1e-20); - float tolb = static_cast(1e-24); - float cl, clinv, sm, b; - - if (lpivot < 0 || lpivot >= l1 || l1 > m - 1) - return; - cl = fabs(u[iU1][iU2 + lpivot]); - - // Construct the transformation - for (j = l1 - 1; j < m; j++) - cl = max(fabsf(u[iU1][iU2 + j]), cl); - if (cl < tol) - return; - clinv = 1 / cl; - sm = pow(u[iU1][iU2 + lpivot] * clinv, 2); - for (j = l1; j < m; j++) { - sm = sm + pow(u[iU1][iU2 + j] * clinv, 2); - } - cl *= sqrt(sm); - if (u[iU1][iU2 + lpivot] > 0) - cl = -cl; - *up = u[iU1][iU2 + lpivot] - cl; - u[iU1][iU2 + lpivot] = cl; - - if (ncv <= 0) - return; - b = (*up) * u[iU1][iU2 + lpivot]; - if (fabs(b) < tolb) - return; - if (b >= 0) - return; - b = 1 / b; - incr = ice * (l1 - lpivot); - for (j = 0; j < ncv; j++) { - sm = c[iC1 + j][iC2 + lpivot] * (*up); - for (i = l1; i < m; i++) { - sm = sm + c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] * u[iU1][iU2 + i]; - } - if (sm == 0) - continue; - sm *= b; - c[iC1 + j][iC2 + lpivot] = c[iC1 + j][iC2 + lpivot] + sm * (*up); - for (i = l1; i < m; i++) { - c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] = - c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] + sm * u[iU1][iU2 + i]; - } - } + int i, j, incr; + float tol = static_cast < float >(1e-20); + float tolb = static_cast < float >(1e-24); + float cl, clinv, sm, b; + + if (lpivot < 0 || lpivot >= l1 || l1 > m - 1) + return; + cl = fabs(u[iU1][iU2 + lpivot]); + + // Construct the transformation + for (j = l1 - 1; j < m; j++) + cl = max(fabsf(u[iU1][iU2 + j]), cl); + if (cl < tol) + return; + clinv = 1 / cl; + sm = pow(u[iU1][iU2 + lpivot] * clinv, 2); + for (j = l1; j < m; j++) { + sm = sm + pow(u[iU1][iU2 + j] * clinv, 2); + } + cl *= sqrt(sm); + if (u[iU1][iU2 + lpivot] > 0) + cl = -cl; + *up = u[iU1][iU2 + lpivot] - cl; + u[iU1][iU2 + lpivot] = cl; + + if (ncv <= 0) + return; + b = (*up) * u[iU1][iU2 + lpivot]; + if (fabs(b) < tolb) + return; + if (b >= 0) + return; + b = 1 / b; + incr = ice * (l1 - lpivot); + for (j = 0; j < ncv; j++) { + sm = c[iC1 + j][iC2 + lpivot] * (*up); + for (i = l1; i < m; i++) { + sm = sm + c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] * u[iU1][iU2 + i]; + } + if (sm == 0) + continue; + sm *= b; + c[iC1 + j][iC2 + lpivot] = c[iC1 + j][iC2 + lpivot] + sm * (*up); + for (i = l1; i < m; i++) { + c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] = + c[iC1 + j][iC2 + lpivot + incr + (i - l1) * ice] + sm * u[iU1][iU2 + i]; + } + } } @@ -3850,8 +6642,13 @@ int ResponseCalibration::MakeDir(const char *path) { - struct stat buf; - if (stat(path, &buf)) - return mkdir(path, 0711); - return 0; + struct stat buf; + if (stat(path, &buf)) { +#ifdef _MSC_VER + return mkdir(path); +#else + return mkdir(path, 0711); +#endif // R__UNIX + } + return 0; } @@ -3859,49 +6656,51 @@ ResponseCalibration::ResponseCalibration(DRSBoard *board) - :fBoard(board) - ,fPrecision(0.1) // mV - ,fInitialized(false) - ,fRecorded(false) - ,fFitted(false) - ,fOffset(false) - ,fNumberOfPointsLowVolt(0) - ,fNumberOfPoints(0) - ,fNumberOfMode2Bins(0) - ,fNumberOfSamples(0) - ,fNumberOfGridPoints(0) - ,fNumberOfXConstPoints(0) - ,fNumberOfXConstGridPoints(0) - ,fTriggerFrequency(0) - ,fShowStatistics(0) - ,fCalibFile(0) - ,fCurrentLowVoltPoint(0) - ,fCurrentPoint(0) - ,fCurrentSample(0) - ,fCurrentFitChannel(0) - ,fCurrentFitBin(0) - ,fResponseY(0) - ,fSamples(0) - ,fSampleUsed(0) - ,fXXFit(0) - ,fYYFit(0) - ,fWWFit(0) - ,fYYFitRes(0) - ,fYYSave(0) - ,fXXSave(0) - ,fStatisticsApprox(0) - ,fStatisticsApproxExt(0) -{ - int i; - // Initializing the Calibration Class - CalibrationData::fIntRevers[0] = 0; - for (i = 1; i < 2 * kBSplineOrder - 2; i++) { - CalibrationData::fIntRevers[i] = static_cast(1.) / i; - } - for (i = 0; i < kNumberOfChips; i++) { - fCalibrationData[i] = NULL; - } - // Initializing the Calibration Creation - fCalibrationValid[0] = false; - fCalibrationValid[1] = false; +: fBoard(board) + , fPrecision(0.1) // mV + , fInitialized(false) + , fRecorded(false) + , fFitted(false) + , fOffset(false) + , fNumberOfPointsLowVolt(0) + , fNumberOfPoints(0) + , fNumberOfMode2Bins(0) + , fNumberOfSamples(0) + , fNumberOfGridPoints(0) + , fNumberOfXConstPoints(0) + , fNumberOfXConstGridPoints(0) + , fTriggerFrequency(0) + , fShowStatistics(0) + , fCalibFile(0) + , fCurrentLowVoltPoint(0) + , fCurrentPoint(0) + , fCurrentSample(0) + , fCurrentFitChannel(0) + , fCurrentFitBin(0) + , fResponseY(0) + , fSamples(0) + , fSampleUsed(0) + , fXXFit(0) + , fYYFit(0) + , fWWFit(0) + , fYYFitRes(0) + , fYYSave(0) + , fXXSave(0) + , fStatisticsApprox(0) + , fStatisticsApproxExt(0) +{ + int i; + // Initializing the Calibration Class + CalibrationData::fIntRevers[0] = 0; + for (i = 1; i < 2 * kBSplineOrder - 2; i++) { + CalibrationData::fIntRevers[i] = static_cast < float >(1.) / i; + } + for (i = 0; i < kNumberOfChipsMax; i++) { + fCalibrationData[i] = NULL; + } + // Initializing the Calibration Creation + fCalibrationValid[0] = false; + fCalibrationValid[1] = false; + + fBoard = board; } @@ -3910,6 +6709,10 @@ ResponseCalibration::~ResponseCalibration() { - // Deleting the Calibration Creation - DeleteFields(); + // Delete the Calibration + for (int i=0 ; i xrange) { - uu = 1; - } - fBSplineOffsetLookUp[i][j] = static_cast(uu * nk); - CalculateBSpline(fNumberOfGridPoints, uu, fBSplineLookUp[i][j]); - } - } + int i, j; + float uu; + float xmin, xrange; + int nk = fNumberOfGridPoints - kBSplineOrder + 1; + for (i = 0; i < kNumberOfADCBins; i++) { + fBSplineLookUp[i] = new float *[fNumberOfLimitGroups]; + fBSplineOffsetLookUp[i] = new int[fNumberOfLimitGroups]; + for (j = 0; j < fNumberOfLimitGroups; j++) { + fBSplineLookUp[i][j] = new float[kBSplineOrder]; + xmin = fMin + j * kBSplineXMinOffset; + xrange = fMax - xmin; + uu = (i - xmin) / xrange; + if (i < xmin) { + uu = 0; + } + if (i - xmin > xrange) { + uu = 1; + } + fBSplineOffsetLookUp[i][j] = static_cast < int >(uu * nk); + CalculateBSpline(fNumberOfGridPoints, uu, fBSplineLookUp[i][j]); + } + } } @@ -3969,13 +6772,13 @@ void ResponseCalibration::CalibrationData::DeletePreCalculatedBSpline() { - int i, j; - for (i = 0; i < kNumberOfADCBins; i++) { - if (fBSplineLookUp[i]!=NULL) { - for (j = 0; j < fNumberOfLimitGroups; j++) - delete fBSplineLookUp[i][j]; - } - delete fBSplineLookUp[i]; - delete fBSplineOffsetLookUp[i]; - } + int i, j; + for (i = 0; i < kNumberOfADCBins; i++) { + if (fBSplineLookUp[i] != NULL) { + for (j = 0; j < fNumberOfLimitGroups; j++) + delete fBSplineLookUp[i][j]; + } + delete fBSplineLookUp[i]; + delete fBSplineOffsetLookUp[i]; + } } @@ -3984,17 +6787,17 @@ ResponseCalibration::CalibrationData::~CalibrationData() { - int i, j; - for (i = 0; i < kNumberOfCalibChannels; i++) { - delete fChannel[i]; - } - for (i = 0; i < kNumberOfADCBins; i++) { - if (fBSplineLookUp[i]!=NULL) { - for (j = 0; j < fNumberOfLimitGroups; j++) { - delete fBSplineLookUp[i][j]; - } - } - delete fBSplineLookUp[i]; - delete fBSplineOffsetLookUp[i]; - } + int i, j; + for (i = 0; i < kNumberOfCalibChannelsV3; i++) { + delete fChannel[i]; + } + for (i = 0; i < kNumberOfADCBins; i++) { + if (fBSplineLookUp[i] != NULL) { + for (j = 0; j < fNumberOfLimitGroups; j++) { + delete fBSplineLookUp[i][j]; + } + } + delete fBSplineLookUp[i]; + delete fBSplineOffsetLookUp[i]; + } }; @@ -4003,91 +6806,90 @@ int ResponseCalibration::CalibrationData::CalculateBSpline(int nGrid, float value, float *bsplines) { - int minimum; - int maximum; - float xl; - - int nk = nGrid - kBSplineOrder + 1; - float vl = value * nk; - int ivl = static_cast(vl); - - if (1 <= value) { - xl = vl - nk + 1; - minimum = 1 - nk; - } else if (value < 0) { - xl = vl; - minimum = 0; - } else { - xl = vl - ivl; - minimum = -ivl; - } - maximum = nk + minimum; - - // printf("xl = %f\n",xl); - float vm, vmprev; - int jl, ju; - int nb = 0; - - bsplines[0] = 1; - for (int i = 0; i < kBSplineOrder - 1; i++) { - vmprev = 0; - for (int j = 0; j < nb + 1; j++) { - jl = max(minimum, j - nb); - ju = min(maximum, j + 1); - vm = bsplines[j] * fIntRevers[ju - jl]; - bsplines[j] = vm * (ju - xl) + vmprev; - vmprev = vm * (xl - jl); - } - nb++; - bsplines[nb] = vmprev; - } - return -minimum; -} - -/*------------------------------------------------------------------*/ - -void ResponseCalibration::Average(int method,float *points,int numberOfPoints,float &mean,float &error,float sigmaBoundary) -{ - // Methods : - // 0 : Average - // 1 : Average inside sigmaBoundary*sigma - int i; - float sum = 0; - float sumSquare = 0; - - if (method == 0 || method == 1) { - for (i = 0; i < numberOfPoints; i++) { - sum += points[i]; - sumSquare += points[i]*points[i]; - } - - mean = sum / numberOfPoints; - error = sqrt((sumSquare - sum * sum / numberOfPoints) / (numberOfPoints - 1)); - } - if (method == 1) { - int numberOfGoodPoints = numberOfPoints; - bool found = true; - bool *goodSample = new bool[numberOfGoodPoints]; - for (i = 0; i < numberOfGoodPoints; i++) - goodSample[i] = true; - - while (found) { - found = false; + int minimum; + int maximum; + float xl; + + int nk = nGrid - kBSplineOrder + 1; + float vl = value * nk; + int ivl = static_cast < int >(vl); + + if (1 <= value) { + xl = vl - nk + 1; + minimum = 1 - nk; + } else if (value < 0) { + xl = vl; + minimum = 0; + } else { + xl = vl - ivl; + minimum = -ivl; + } + maximum = nk + minimum; + +// printf("xl = %f\n",xl); + float vm, vmprev; + int jl, ju; + int nb = 0; + + bsplines[0] = 1; + for (int i = 0; i < kBSplineOrder - 1; i++) { + vmprev = 0; + for (int j = 0; j < nb + 1; j++) { + jl = max(minimum, j - nb); + ju = min(maximum, j + 1); + vm = bsplines[j] * fIntRevers[ju - jl]; + bsplines[j] = vm * (ju - xl) + vmprev; + vmprev = vm * (xl - jl); + } + nb++; + bsplines[nb] = vmprev; + } + return -minimum; +} + +/*------------------------------------------------------------------*/ + +void ResponseCalibration::Average(int method, float *points, int numberOfPoints, float &mean, float &error, + float sigmaBoundary) +{ + // Methods : + // 0 : Average + // 1 : Average inside sigmaBoundary*sigma + int i; + float sum = 0; + float sumSquare = 0; + + if (method == 0 || method == 1) { for (i = 0; i < numberOfPoints; i++) { - if (goodSample[i] && fabs(points[i] - mean) > sigmaBoundary * error) { - found = true; - goodSample[i] = false; - numberOfGoodPoints--; - sum -= points[i]; - sumSquare -= points[i]*points[i]; - mean = sum/numberOfGoodPoints; - error = sqrt((sumSquare - sum * sum / numberOfGoodPoints) / (numberOfGoodPoints - 1)); - } - } - } - delete goodSample; - } -} - - + sum += points[i]; + sumSquare += points[i] * points[i]; + } + + mean = sum / numberOfPoints; + error = sqrt((sumSquare - sum * sum / numberOfPoints) / (numberOfPoints - 1)); + } + if (method == 1) { + int numberOfGoodPoints = numberOfPoints; + bool found = true; + bool *goodSample = new bool[numberOfGoodPoints]; + for (i = 0; i < numberOfGoodPoints; i++) + goodSample[i] = true; + + while (found) { + found = false; + for (i = 0; i < numberOfPoints; i++) { + if (goodSample[i] && fabs(points[i] - mean) > sigmaBoundary * error) { + found = true; + goodSample[i] = false; + numberOfGoodPoints--; + sum -= points[i]; + sumSquare -= points[i] * points[i]; + mean = sum / numberOfGoodPoints; + error = sqrt((sumSquare - sum * sum / numberOfGoodPoints) / (numberOfGoodPoints - 1)); + } + } + } + delete goodSample; + } +} Index: drsdaq/DRS/DRS.h =================================================================== --- drsdaq/DRS/DRS.h (revision 175) +++ drsdaq/DRS/DRS.h (revision 176) @@ -1,20 +1,26 @@ - +/******************************************************************** + DRS.h, S.Ritt, M. Schneebeli - PSI + + $Id: DRS.h 14428 2009-10-19 12:59:46Z ritt $ + +********************************************************************/ #ifndef DRS_H #define DRS_H - #include -#include #include -#include -#include -#include -#include -#include -#include -#include -#include - -#include "mxml.h" -#include "strlcpy.h" + +#ifdef HAVE_LIBUSB +# ifndef HAVE_USB +# define HAVE_USB +# endif +#endif + +#ifdef HAVE_USB +# include +#endif // HAVE_USB + +#ifdef HAVE_VME +# include +#endif // HAVE_VME // Concurrent Technologies VME single board computer @@ -23,304 +29,448 @@ #include "vme_rcc/vme_rcc.h" // VME access #include "cmem_rcc/cmem_rcc.h" // Allocation of contiguous memory - #include "rcc_time_stamp/tstamp.h" // Time stamp library -#endif - -// Struck VME interface -#ifdef STRUCK_VME - #include "mvmestd.h" -#endif - -// Control register bit definitions -#define BIT_START_TRIG (1<<0) // Write a "1" to start domino wave -#define BIT_REINIT_TRIG (1<<1) // Write a "1" to stop & reset DRS -#define BIT_SOFT_TRIG (1<<2) // Write a "1" to stop and read data to RAM -#define BIT_FLASH_TRIG (1<<3) // Write a "1" to write DAC0 & DAC1 into serial EEPROM +#endif + +/* disable "deprecated" warning */ +#ifdef _MSC_VER +#pragma warning(disable: 4996) +#endif + +#ifndef NULL +#define NULL 0 +#endif + +/* transport mode */ +#define TR_VME 1 +#define TR_USB 2 +#define TR_USB2 3 + +/* address types */ +#ifndef T_CTRL +#define T_CTRL 1 +#define T_STATUS 2 +#define T_RAM 3 +#define T_FIFO 4 +#endif + +/*---- Register addresses ------------------------------------------*/ + +#define REG_CTRL 0x00000 /* 32 bit control reg */ +#define REG_DAC_OFS 0x00004 +#define REG_DAC0 0x00004 +#define REG_DAC1 0x00006 +#define REG_DAC2 0x00008 +#define REG_DAC3 0x0000A +#define REG_DAC4 0x0000C +#define REG_DAC5 0x0000E +#define REG_DAC6 0x00010 +#define REG_DAC7 0x00012 +#define REG_CHANNEL_CONFIG 0x00014 // low byte +#define REG_CONFIG 0x00014 // high byte +#define REG_CHANNEL_MODE 0x00016 +#define REG_ADCCLK_PHASE 0x00016 +#define REG_FREQ_SET_HI 0x00018 // DRS2 +#define REG_FREQ_SET_LO 0x0001A // DRS2 +#define REG_TRG_DELAY 0x00018 // DRS4 +#define REG_FREQ_SET 0x0001A // DRS4 +#define REG_TRIG_DELAY 0x0001C +#define REG_LMK_MSB 0x0001C // DRS4 Mezz +#define REG_CALIB_TIMING 0x0001E // DRS2 +#define REG_EEPROM_PAGE_EVAL 0x0001E // DRS4 Eval +#define REG_EEPROM_PAGE_MEZZ 0x0001A // DRS4 Mezz +#define REG_LMK_LSB 0x0001E // DRS4 Mezz +#define REG_WARMUP 0x00020 // DRS4 Mezz +#define REG_COOLDOWN 0x00022 // DRS4 Mezz + +#define REG_MAGIC 0x00000 +#define REG_BOARD_TYPE 0x00002 +#define REG_STATUS 0x00004 +#define REG_RDAC_OFS 0x0000E +#define REG_RDAC0 0x00008 +#define REG_STOP_CELL0 0x00008 +#define REG_RDAC1 0x0000A +#define REG_STOP_CELL1 0x0000A +#define REG_RDAC2 0x0000C +#define REG_STOP_CELL2 0x0000C +#define REG_RDAC3 0x0000E +#define REG_STOP_CELL3 0x0000E +#define REG_RDAC4 0x00000 +#define REG_RDAC5 0x00002 +#define REG_RDAC6 0x00014 +#define REG_RDAC7 0x00016 +#define REG_EVENTS_IN_FIFO 0x00018 +#define REG_EVENT_COUNT 0x0001A +#define REG_FREQ1 0x0001C +#define REG_FREQ2 0x0001E +#define REG_TEMPERATURE 0x00020 +#define REG_TRIGGER_BUS 0x00022 +#define REG_SERIAL_BOARD 0x00024 +#define REG_VERSION_FW 0x00026 + +/*---- Control register bit definitions ----------------------------*/ + +#define BIT_START_TRIG (1<<0) // write a "1" to start domino wave +#define BIT_REINIT_TRIG (1<<1) // write a "1" to stop & reset DRS +#define BIT_SOFT_TRIG (1<<2) // write a "1" to stop and read data to RAM +#define BIT_EEPROM_WRITE_TRIG (1<<3) // write a "1" to write into serial EEPROM +#define BIT_EEPROM_READ_TRIG (1<<4) // write a "1" to read from serial EEPROM #define BIT_AUTOSTART (1<<16) -#define BIT_DMODE (1<<17) // 0: single shot, 1: circular +#define BIT_DMODE (1<<17) // (*DRS2*) 0: single shot, 1: circular #define BIT_LED (1<<18) // 1=on, 0=blink during readout -#define BIT_TCAL_EN (1<<19) // Switch on (1) / off (0) for 33 MHz calib signal -#define BIT_ZERO_SUPP (1<<20) -#define BIT_FREQ_AUTO_ADJ (1<<21) -#define BIT_ENABLE_TRIGGER (1<<22) -#define BIT_LONG_START_PULSE (1<<23) // (*DRS2*) 0:short start pulse (> 0.8 GHz), 1:long start pulse (< 0.8 GHz) -#define BIT_READOUT_MODE (1<<23) // (*DRS3*) 0:start from first bin, 1:start from domino stop -#define BIT_DELAYED_START (1<<24) // Start domino wave 400 ns after soft trigger, used for waveform - // Generator startup -#define BIT_ACAL_EN (1<<25) // Connect DRS to inputs (0) or to DAC6 (1) -#define BIT_TRIGGER_DELAYED (1<<26) // Select delayed trigger from trigger bus -#define BIT_DACTIVE (1<<27) // Keep domino wave running during readout - -// Status register bit definitions -#define BIT_RUNNING (1<<0) // One if domino wave running or readout in progress -#define BIT_NEW_FREQ1 (1<<1) // One if new frequency measurement available +#define BIT_TCAL_EN (1<<19) // switch on (1) / off (0) for 33 MHz calib signal +#define BIT_TCAL_SOURCE (1<<20) +#define BIT_REFCLK_SOURCE (1<<20) +#define BIT_FREQ_AUTO_ADJ (1<<21) // DRS2/3 +#define BIT_TRANSP_MODE (1<<21) // DRS4 +#define BIT_ENABLE_TRIGGER1 (1<<22) // External LEMO/FP/TRBUS trigger +#define BIT_LONG_START_PULSE (1<<23) // (*DRS2*) 0:short start pulse (>0.8GHz), 1:long start pulse (<0.8GHz) +#define BIT_READOUT_MODE (1<<23) // (*DRS3*,*DRS4*) 0:start from first bin, 1:start from domino stop +#define BIT_DELAYED_START (1<<24) // DRS2: start domino wave 400ns after soft trigger, used for waveform + // generator startup +#define BIT_NEG_TRIGGER (1<<24) // DRS4: use high-to-low trigger if set +#define BIT_ACAL_EN (1<<25) // connect DRS to inputs (0) or to DAC6 (1) +#define BIT_TRIGGER_DELAYED (1<<26) // select delayed trigger from trigger bus +#define BIT_ADCCLK_INVERT (1<<26) // invert ADC clock +#define BIT_DACTIVE (1<<27) // keep domino wave running during readout +#define BIT_STANDBY_MODE (1<<28) // put chip in standby mode +#define BIT_TR_SOURCE1 (1<<29) // trigger source selection bits +#define BIT_TR_SOURCE2 (1<<30) // trigger source selection bits +#define BIT_ENABLE_TRIGGER2 (1<<31) // analog threshold (internal) trigger + +/* DRS4 configuration register bit definitions */ +#define BIT_CONFIG_DMODE (1<<8) // 0: single shot, 1: circular +#define BIT_CONFIG_PLLEN (1<<9) // write a "1" to enable the internal PLL +#define BIT_CONFIG_WSRLOOP (1<<10) // write a "1" to connect WSROUT to WSRIN internally + +/*---- Status register bit definitions -----------------------------*/ + +#define BIT_RUNNING (1<<0) // one if domino wave running or readout in progress +#define BIT_NEW_FREQ1 (1<<1) // one if new frequency measurement available #define BIT_NEW_FREQ2 (1<<2) +#define BIT_PLL_LOCKED0 (1<<1) // 1 if PLL has locked (DRS4 evaluation board only) +#define BIT_PLL_LOCKED1 (1<<2) // 1 if PLL DRS4 B has locked (DRS4 mezzanine board only) +#define BIT_PLL_LOCKED2 (1<<3) // 1 if PLL DRS4 C has locked (DRS4 mezzanine board only) +#define BIT_PLL_LOCKED3 (1<<4) // 1 if PLL DRS4 D has locked (DRS4 mezzanine board only) +#define BIT_SERIAL_BUSY (1<<5) // 1 if EEPROM operation in progress +#define BIT_LMK_LOCKED (1<<6) // 1 if PLL of LMK chip has locked (DRS4 mezzanine board only) enum DRSBoardConstants { - kNumberOfChannels = 10, - kNumberOfCalibChannels = 10, - kNumberOfBins = 1024, - kNumberOfChips = 2, - kFrequencyCacheSize = 10, - kBSplineOrder = 4, - kPreCaliculatedBSplines = 1000, - kPreCaliculatedBSplineGroups = 5, - kNumberOfADCBins = 4096, - kBSplineXMinOffset = 20, - kMaxNumberOfClockCycles = 100, + kNumberOfChannelsMax = 10, + kNumberOfCalibChannelsV3 = 10, + kNumberOfCalibChannelsV4 = 8, + kNumberOfBins = 1024, + kNumberOfChipsMax = 4, + kFrequencyCacheSize = 10, + kBSplineOrder = 4, + kPreCaliculatedBSplines = 1000, + kPreCaliculatedBSplineGroups = 5, + kNumberOfADCBins = 4096, + kBSplineXMinOffset = 20, + kMaxNumberOfClockCycles = 100, }; enum DRSErrorCodes { - kSuccess = 0, - kInvalidTriggerSignal = -1, - kWrongChannelOrChip = -2, - kInvalidTransport = -3, - kZeroSuppression = -4, - kWaveNotAvailable = -5 + kSuccess = 0, + kInvalidTriggerSignal = -1, + kWrongChannelOrChip = -2, + kInvalidTransport = -3, + kZeroSuppression = -4, + kWaveNotAvailable = -5 }; +/*---- callback class ----*/ + +class DRSCallback +{ +public: + virtual void Progress(int value) = 0; + virtual ~DRSCallback() {}; +}; + +/*------------------------*/ + class DRSBoard; - class ResponseCalibration { - protected: - - class CalibrationData { - public: - class CalibrationDataChannel { - public: - unsigned char fLimitGroup[kNumberOfBins]; //! - float fMin[kNumberOfBins]; //! - float fRange[kNumberOfBins]; //! - short fOffset[kNumberOfBins]; //! - short fGain[kNumberOfBins]; //! - unsigned short fOffsetADC[kNumberOfBins]; //! - short *fData[kNumberOfBins]; //! - unsigned char *fLookUp[kNumberOfBins]; //! - unsigned short fLookUpOffset[kNumberOfBins]; //! - unsigned char fNumberOfLookUpPoints[kNumberOfBins]; //! - float *fTempData; //! - - private: - CalibrationDataChannel(const CalibrationDataChannel &c); // Not implemented - CalibrationDataChannel &operator=(const CalibrationDataChannel &rhs); // Not implemented - - public: - CalibrationDataChannel(int numberOfGridPoints) - :fTempData(new float[numberOfGridPoints]) { - int i; - for (i = 0; i < kNumberOfBins; i++) { - fData[i] = new short[numberOfGridPoints]; - fLookUp[i] = NULL; - } - } - ~CalibrationDataChannel() { - int i; - delete fTempData; - for (i = 0; i < kNumberOfBins; i++) { - delete fData[i]; - delete fLookUp[i]; - } - } - }; - - bool fRead; //! - CalibrationDataChannel *fChannel[kNumberOfCalibChannels]; //! - unsigned char fNumberOfGridPoints; //! - int fHasOffsetCalibration; //! - float fStartTemperature; //! - float fEndTemperature; //! - int *fBSplineOffsetLookUp[kNumberOfADCBins]; //! - float **fBSplineLookUp[kNumberOfADCBins]; //! - float fMin; //! - float fMax; //! - unsigned char fNumberOfLimitGroups; //! - static float fIntRevers[2 * kBSplineOrder - 2]; - - private: - CalibrationData(const CalibrationData &c); // Not implemented - CalibrationData &operator=(const CalibrationData &rhs); // Not implemented - - public: - CalibrationData(int numberOfGridPoints); - ~CalibrationData(); - static int CalculateBSpline(int nGrid, float value, float *bsplines); - void PreCalculateBSpline(); - void DeletePreCalculatedBSpline(); - }; - - // General Fields - DRSBoard *fBoard; - - double fPrecision; - - // Fields for creating the Calibration - bool fInitialized; - bool fRecorded; - bool fFitted; - bool fOffset; - bool fCalibrationValid[2]; - - int fNumberOfPointsLowVolt; - int fNumberOfPoints; - int fNumberOfMode2Bins; - int fNumberOfSamples; - int fNumberOfGridPoints; - int fNumberOfXConstPoints; - int fNumberOfXConstGridPoints; - double fTriggerFrequency; - int fShowStatistics; - FILE *fCalibFile; - - int fCurrentLowVoltPoint; - int fCurrentPoint; - int fCurrentSample; - int fCurrentFitChannel; - int fCurrentFitBin; - - float *fResponseX[kNumberOfCalibChannels][kNumberOfBins]; - float *fResponseY; - unsigned short **fWaveFormMode3[kNumberOfCalibChannels]; - unsigned short **fWaveFormMode2[kNumberOfCalibChannels]; - short **fWaveFormOffset[kNumberOfCalibChannels]; - unsigned short **fWaveFormOffsetADC[kNumberOfCalibChannels]; // Is this used? - unsigned short *fSamples; - int *fSampleUsed; - - float *fPntX[2]; - float *fPntY[2]; - float *fUValues[2]; - float *fRes[kNumberOfBins]; - float *fResX[kNumberOfBins]; - - double *fXXFit; - double *fYYFit; - double *fWWFit; - double *fYYFitRes; - double *fYYSave; - double *fXXSave; - - float **fStatisticsApprox; - float **fStatisticsApproxExt; - - // Fields for applying the Calibration - CalibrationData *fCalibrationData[kNumberOfChips]; - - private: - ResponseCalibration(const ResponseCalibration &c); // Not implemented - ResponseCalibration &operator=(const ResponseCalibration &rhs); // Not implemented - - public: - ResponseCalibration(DRSBoard* board); - ~ResponseCalibration(); - - void SetCalibrationParameters(int numberOfPointsLowVolt, int numberOfPoints, int numberOfMode2Bins, - int numberOfSamples, int numberOfGridPoints, int numberOfXConstPoints, - int numberOfXConstGridPoints, double triggerFrequency, int showStatistics = 0); - void ResetCalibration(); - bool RecordCalibrationPoints(int chipNumber); - bool RecordCalibrationPointsV3(int chipNumber); - bool RecordCalibrationPointsV4(int chipNumber); - bool FitCalibrationPoints(int chipNumber); - bool FitCalibrationPointsV3(int chipNumber); - bool FitCalibrationPointsV4(int chipNumber); - bool OffsetCalibration(int chipNumber); - double GetTemperature(unsigned int chipIndex); - - bool WriteCalibration(unsigned int chipIndex); - bool WriteCalibrationV3(unsigned int chipIndex); - bool WriteCalibrationV4(unsigned int chipIndex); - bool ReadCalibration(unsigned int chipIndex); - bool ReadCalibrationV3(unsigned int chipIndex); - bool ReadCalibrationV4(unsigned int chipIndex); - bool Calibrate(unsigned int chipIndex, unsigned int channel, float *adcWaveform, - float *uWaveform, float threshold); - bool Calibrate(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, short *uWaveform, - int triggerCell, float threshold); - bool SubtractADCOffset(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, - unsigned short *adcCalibratedWaveform, unsigned short newBaseLevel); - bool IsRead(int chipIndex) const { return fCalibrationValid[chipIndex]; } - double GetPrecision() const { return fPrecision; }; - - double GetOffsetAt(int chip,int chn,int bin) const { return fCalibrationData[chip]->fChannel[chn]->fOffset[bin]; }; - double GetGainAt(int chip,int chn,int bin) const { return fCalibrationData[chip]->fChannel[chn]->fGain[bin]; }; - double GetMeasPointXAt(int ip) const { return fXXSave[ip]; }; - double GetMeasPointYAt(int ip) const { return fYYSave[ip]; }; - - protected: - void InitFields(int numberOfPointsLowVolt, int numberOfPoints, int numberOfMode2Bins, int numberOfSamples, - int numberOfGridPoints, int numberOfXConstPoints, int numberOfXConstGridPoints, - double triggerFrequency, int showStatistics); - void DeleteFields(); - void CalibrationTrigger(int mode, double voltage); - void CalibrationStart(double voltage); - - static float GetValue(float *coefficients, float u, int n); - static int Approx(float *p, float *uu, int np, int nu, float *coef); - static void LeastSquaresAccumulation(float **matrix, int nb, int *ip, int *ir, int mt, int jt); - static int LeastSquaresSolving(float **matrix, int nb, int ip, int ir, float *x, int n); - static void Housholder(int lpivot, int l1, int m, float **u, int iU1, int iU2, float *up, float **c, int iC1, - int iC2, int ice, int ncv); - - static int MakeDir(const char *path); - static void Average(int method,float *samples,int numberOfSamples,float &mean,float &error,float sigmaBoundary); +protected: + + class CalibrationData { + public: + class CalibrationDataChannel { + public: + unsigned char fLimitGroup[kNumberOfBins]; //! + float fMin[kNumberOfBins]; //! + float fRange[kNumberOfBins]; //! + short fOffset[kNumberOfBins]; //! + short fGain[kNumberOfBins]; //! + unsigned short fOffsetADC[kNumberOfBins]; //! + short *fData[kNumberOfBins]; //! + unsigned char *fLookUp[kNumberOfBins]; //! + unsigned short fLookUpOffset[kNumberOfBins]; //! + unsigned char fNumberOfLookUpPoints[kNumberOfBins]; //! + float *fTempData; //! + + private: + CalibrationDataChannel(const CalibrationDataChannel &c); // not implemented + CalibrationDataChannel &operator=(const CalibrationDataChannel &rhs); // not implemented + + public: + CalibrationDataChannel(int numberOfGridPoints) + :fTempData(new float[numberOfGridPoints]) { + int i; + for (i = 0; i < kNumberOfBins; i++) { + fData[i] = new short[numberOfGridPoints]; + } + memset(fLimitGroup, 0, sizeof(fLimitGroup)); + memset(fMin, 0, sizeof(fMin)); + memset(fRange, 0, sizeof(fRange)); + memset(fOffset, 0, sizeof(fOffset)); + memset(fGain, 0, sizeof(fGain)); + memset(fOffsetADC, 0, sizeof(fOffsetADC)); + memset(fLookUp, 0, sizeof(fLookUp)); + memset(fLookUpOffset, 0, sizeof(fLookUpOffset)); + memset(fNumberOfLookUpPoints, 0, sizeof(fNumberOfLookUpPoints)); + } + ~CalibrationDataChannel() { + int i; + delete fTempData; + for (i = 0; i < kNumberOfBins; i++) { + delete fData[i]; + delete fLookUp[i]; + } + } + }; + + bool fRead; //! + CalibrationDataChannel *fChannel[10]; //! + unsigned char fNumberOfGridPoints; //! + int fHasOffsetCalibration; //! + float fStartTemperature; //! + float fEndTemperature; //! + int *fBSplineOffsetLookUp[kNumberOfADCBins]; //! + float **fBSplineLookUp[kNumberOfADCBins]; //! + float fMin; //! + float fMax; //! + unsigned char fNumberOfLimitGroups; //! + static float fIntRevers[2 * kBSplineOrder - 2]; + + private: + CalibrationData(const CalibrationData &c); // not implemented + CalibrationData &operator=(const CalibrationData &rhs); // not implemented + + public: + CalibrationData(int numberOfGridPoints); + ~CalibrationData(); + static int CalculateBSpline(int nGrid, float value, float *bsplines); + void PreCalculateBSpline(); + void DeletePreCalculatedBSpline(); + }; + + // General Fields + DRSBoard *fBoard; + + double fPrecision; + + // Fields for creating the Calibration + bool fInitialized; + bool fRecorded; + bool fFitted; + bool fOffset; + bool fCalibrationValid[2]; + + int fNumberOfPointsLowVolt; + int fNumberOfPoints; + int fNumberOfMode2Bins; + int fNumberOfSamples; + int fNumberOfGridPoints; + int fNumberOfXConstPoints; + int fNumberOfXConstGridPoints; + double fTriggerFrequency; + int fShowStatistics; + FILE *fCalibFile; + + int fCurrentLowVoltPoint; + int fCurrentPoint; + int fCurrentSample; + int fCurrentFitChannel; + int fCurrentFitBin; + + float *fResponseX[10][kNumberOfBins]; + float *fResponseY; + unsigned short **fWaveFormMode3[10]; + unsigned short **fWaveFormMode2[10]; + short **fWaveFormOffset[10]; + unsigned short **fWaveFormOffsetADC[10]; + unsigned short *fSamples; + int *fSampleUsed; + + float *fPntX[2]; + float *fPntY[2]; + float *fUValues[2]; + float *fRes[kNumberOfBins]; + float *fResX[kNumberOfBins]; + + double *fXXFit; + double *fYYFit; + double *fWWFit; + double *fYYFitRes; + double *fYYSave; + double *fXXSave; + double fGainMin; + double fGainMax; + + float **fStatisticsApprox; + float **fStatisticsApproxExt; + + // Fields for applying the Calibration + CalibrationData *fCalibrationData[kNumberOfChipsMax]; + +private: + ResponseCalibration(const ResponseCalibration &c); // not implemented + ResponseCalibration &operator=(const ResponseCalibration &rhs); // not implemented + +public: + ResponseCalibration(DRSBoard* board); + ~ResponseCalibration(); + + void SetCalibrationParameters(int numberOfPointsLowVolt, int numberOfPoints, int numberOfMode2Bins, + int numberOfSamples, int numberOfGridPoints, int numberOfXConstPoints, + int numberOfXConstGridPoints, double triggerFrequency, int showStatistics = 0); + void ResetCalibration(); + bool RecordCalibrationPoints(int chipNumber); + bool RecordCalibrationPointsV3(int chipNumber); + bool RecordCalibrationPointsV4(int chipNumber); + bool FitCalibrationPoints(int chipNumber); + bool FitCalibrationPointsV3(int chipNumber); + bool FitCalibrationPointsV4(int chipNumber); + bool OffsetCalibration(int chipNumber); + bool OffsetCalibrationV3(int chipNumber); + bool OffsetCalibrationV4(int chipNumber); + double GetTemperature(unsigned int chipIndex); + + bool WriteCalibration(unsigned int chipIndex); + bool WriteCalibrationV3(unsigned int chipIndex); + bool WriteCalibrationV4(unsigned int chipIndex); + bool ReadCalibration(unsigned int chipIndex); + bool ReadCalibrationV3(unsigned int chipIndex); + bool ReadCalibrationV4(unsigned int chipIndex); + bool Calibrate(unsigned int chipIndex, unsigned int channel, float *adcWaveform, + float *uWaveform, float threshold, bool offsetCalib); + bool Calibrate(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, short *uWaveform, + int triggerCell, float threshold, bool offsetCalib); + bool SubtractADCOffset(unsigned int chipIndex, unsigned int channel, unsigned short *adcWaveform, + unsigned short *adcCalibratedWaveform, unsigned short newBaseLevel); + bool IsRead(int chipIndex) const { return fCalibrationValid[chipIndex]; } + double GetPrecision() const { return fPrecision; }; + + double GetOffsetAt(int chip,int chn,int bin) const { return fCalibrationData[chip]->fChannel[chn]->fOffset[bin]; }; + double GetGainAt(int chip,int chn,int bin) const { return fCalibrationData[chip]->fChannel[chn]->fGain[bin]; }; + double GetMeasPointXAt(int ip) const { return fXXSave[ip]; }; + double GetMeasPointYAt(int ip) const { return fYYSave[ip]; }; + +protected: + void InitFields(int numberOfPointsLowVolt, int numberOfPoints, int numberOfMode2Bins, int numberOfSamples, + int numberOfGridPoints, int numberOfXConstPoints, int numberOfXConstGridPoints, + double triggerFrequency, int showStatistics); + void DeleteFields(); + void CalibrationTrigger(int mode, double voltage); + void CalibrationStart(double voltage); + + static float GetValue(float *coefficients, float u, int n); + static int Approx(float *p, float *uu, int np, int nu, float *coef); + static void LeastSquaresAccumulation(float **matrix, int nb, int *ip, int *ir, int mt, int jt); + static int LeastSquaresSolving(float **matrix, int nb, int ip, int ir, float *x, int n); + static void Housholder(int lpivot, int l1, int m, float **u, int iU1, int iU2, float *up, float **c, int iC1, + int iC2, int ice, int ncv); + + static int MakeDir(const char *path); + static void Average(int method,float *samples,int numberOfSamples,float &mean,float &error,float sigmaBoundary); }; - class DRSBoard { - protected: - class TimeData { - public: - class FrequencyData { - public: - int fFrequency; - double fBin[kNumberOfBins]; - }; - - enum { - kMaxNumberOfFrequencies = 4000 - }; - int fChip; - int fNumberOfFrequencies; - FrequencyData *fFrequency[kMaxNumberOfFrequencies]; - - private: - TimeData(const TimeData &c); // Not implemented - TimeData &operator=(const TimeData &rhs); // Not implemented - - public: - TimeData() +protected: + class TimeData { + public: + class FrequencyData { + public: + int fFrequency; + double fBin[kNumberOfBins]; + }; + + enum { + kMaxNumberOfFrequencies = 4000 + }; + int fChip; + int fNumberOfFrequencies; + FrequencyData *fFrequency[kMaxNumberOfFrequencies]; + + private: + TimeData(const TimeData &c); // not implemented + TimeData &operator=(const TimeData &rhs); // not implemented + + public: + TimeData() :fChip(0) ,fNumberOfFrequencies(0) { - } - ~TimeData() { - int i; - for (i = 0; i < fNumberOfFrequencies; i++) { - delete fFrequency[i]; } - } - }; - - public: - // DAC channels (CMC Version 1 : DAC_COFSA,DAC_COFSB,DAC_DRA,DAC_DSA,DAC_TLEVEL,DAC_ACALIB,DAC_DSB,DAC_DRB) - unsigned int fDAC_COFSA; - unsigned int fDAC_COFSB; - unsigned int fDAC_DRA; - unsigned int fDAC_DSA; - unsigned int fDAC_TLEVEL; - unsigned int fDAC_ACALIB; - unsigned int fDAC_DSB; - unsigned int fDAC_DRB; - // DAC channels (CMC Version 2+3 : DAC_COFS,DAC_DSA,DAC_DSB,DAC_TLEVEL,DAC_ADCOFS,DAC_CLKOFS,DAC_ACALIB) - unsigned int fDAC_COFS; - unsigned int fDAC_ADCOFS; - unsigned int fDAC_CLKOFS; - // DAC channels (CMC Version 4 : DAC_ROFS_1,DAC_DSA,DAC_DSB,DAC_ROFS_2,DAC_ADCOFS,DAC_ACALIB,DAC_INOFS,DAC_BIAS) - unsigned int fDAC_ROFS_1; - unsigned int fDAC_ROFS_2; - unsigned int fDAC_INOFS; - unsigned int fDAC_BIAS; - - private: + ~TimeData() { + int i; + for (i = 0; i < fNumberOfFrequencies; i++) { + delete fFrequency[i]; + } + } + }; + +public: + // DAC channels (CMC Version 1 : DAC_COFSA,DAC_COFSB,DAC_DRA,DAC_DSA,DAC_TLEVEL,DAC_ACALIB,DAC_DSB,DAC_DRB) + unsigned int fDAC_COFSA; + unsigned int fDAC_COFSB; + unsigned int fDAC_DRA; + unsigned int fDAC_DSA; + unsigned int fDAC_TLEVEL; + unsigned int fDAC_ACALIB; + unsigned int fDAC_DSB; + unsigned int fDAC_DRB; + // DAC channels (CMC Version 2+3 : DAC_COFS,DAC_DSA,DAC_DSB,DAC_TLEVEL,DAC_ADCOFS,DAC_CLKOFS,DAC_ACALIB) + unsigned int fDAC_COFS; + unsigned int fDAC_ADCOFS; + unsigned int fDAC_CLKOFS; + // DAC channels (CMC Version 4 : DAC_ROFS_1,DAC_DSA,DAC_DSB,DAC_ROFS_2,DAC_ADCOFS,DAC_ACALIB,DAC_INOFS,DAC_BIAS) + unsigned int fDAC_ROFS_1; + unsigned int fDAC_ROFS_2; + unsigned int fDAC_INOFS; + unsigned int fDAC_BIAS; + // DAC channels (USB EVAL1 (Version 5) : DAC_ROFS_1,DAC_CMOFS,DAC_CALN,DAC_CALP,DAC_BIAS,DAC_TLEVEL,DAC_ONOFS) + unsigned int fDAC_CMOFS; + unsigned int fDAC_CALN; + unsigned int fDAC_CALP; + unsigned int fDAC_ONOFS; + // DAC channels (DRS4 MEZZ1 (Version 6) : DAC_ONOFS,DAC_CMOFSP,DAC_CALN,DAC_CALP,DAC_BIAS,DAC_CMOFSN,DAC_ROFS_1) + unsigned int fDAC_CMOFSP; + unsigned int fDAC_CMOFSN; + +protected: + // Fields for DRS + int fDRSType; + int fBoardType; + int fNumberOfChips; + int fNumberOfChannels; + int fRequiredFirmwareVersion; + int fFirmwareVersion; + int fBoardSerialNumber; + unsigned int fTransport; + unsigned int fCtrlBits; + int fNumberOfReadoutChannels; + int fReadoutChannelConfig; + int fADCClkPhase; + bool fADCClkInvert; + double fExternalClockFrequency; +#ifdef HAVE_USB + MUSB_INTERFACE *fUsbInterface; +#endif +#ifdef HAVE_VME + MVME_INTERFACE *fVmeInterface; + mvme_addr_t fBaseAddress; +#endif #ifdef CT_VME VME_ErrorCode_t ErrorCode; @@ -342,212 +492,263 @@ int FreeSegmentCMEM(int CMEM_SegIdentifier); #endif -#ifdef STRUCK_VME - mvme_addr_t fBaseAddress; - MVME_INTERFACE *fVMEInterface; -#endif - - protected: - // Fields for DRS - int fRequiredFirmwareVersion; - int fFirmwareVersion; - int fChipVersion; - int fBoardVersion; - int fCMCSerialNumber; - unsigned int fTransport; - unsigned int fCtrlBits; - int fNumberOfReadoutChannels; - double fExternalClockFrequency; - - int fSlotNumber; - double fFrequency; - int fDominoMode; - int fReadoutMode; - int fTriggerEnable; - int fDelayedStart; - int fTriggerCell; - unsigned char fWaveforms[kNumberOfChips * kNumberOfChannels * 2 * kNumberOfBins]; - - // Fields for Calibration - int fMaxChips; - char fCalibDirectory[1000]; - - // Fields for Response Calibration - ResponseCalibration *fResponseCalibration; - - // Fields for Time Calibration - TimeData **fTimeData; - int fNumberOfTimeData; - - // General debugging flag - int fDebug; - - // Fields for wave transfer - bool fWaveTransferred[kNumberOfChips * kNumberOfChannels]; - - // Waveform Rotation - int fTriggerStartBin; // Start bin of the trigger - bool kRotateWave; - - public: - ~DRSBoard(); - - void SetCMCSerialNumber(unsigned int serialNumber) { fCMCSerialNumber = serialNumber; } - int GetCMCSerialNumber() const { return fCMCSerialNumber; } - int GetFirmwareVersion() const { return fFirmwareVersion; } - int GetRequiredFirmwareVersion() const { return fRequiredFirmwareVersion; } - int GetChipVersion() const { return fChipVersion; } - int GetCMCVersion() const { return fBoardVersion; } - - // VME - int GetSlotNumber() const { return fSlotNumber; } - int Read(int type, void *data, unsigned int addr, int size); - int Write(int type, unsigned int addr, void *data, int size); - - void RegisterTest(void); - int RAMTest(int flag); - unsigned int GetCtrlReg(void); - unsigned int GetStatusReg(void); - - void SetLED(int state); - - void SetChannelConfig(int firstChannel, int lastChannel, int nConfigChannels); - void SetNumberOfChannels(int nChannels); - int EnableTrigger(int mode); - int SetDelayedStart(int flag); - int IsBusy(void); - int IsNewFreq(unsigned char chipIndex); - int SetDAC(unsigned char channel, double value); - int ReadDAC(unsigned char channel, double *value); - int GetRegulationDAC(double *value); - - int StartDomino(); - int Reinit(); - int Init(); - - void SetDebug(int debug) { fDebug = debug; } - - int SetDominoMode(unsigned char mode); - - int SetDominoActive(unsigned char mode); - int SetReadoutMode(unsigned char mode); - - int SoftTrigger(void); - int ReadFrequency(unsigned char chipIndex, double *f); - int SetFrequency(double freq); - double VoltToFreq(double volt); - double FreqToVolt(double freq); - double GetFrequency() const { return fFrequency; } - - int RegulateFrequency(double freq); - int SetExternalClockFrequency(double frequencyMHz); - double GetExternalClockFrequency(); - - void SetVoltageOffset(double offset1, double offset2); - - - int TestRead(unsigned int n, int type); - - int TransferWaves(int numberOfChannels = kNumberOfChips * kNumberOfChannels); - int TransferWaves(unsigned char *p, int numberOfChannels = kNumberOfChips * kNumberOfChannels); - int TransferWaves(unsigned char *p, int firstChannel, int lastChannel); - int TransferWaves(int firstChannel, int lastChannel); - - int DecodeWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, - unsigned short *waveform); - int DecodeWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform); - - int GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, short *waveform, - bool responseCalib = false, int triggerCell = -1, bool adjustToClock = false, - float threshold = 0); - int GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, float *waveform, - bool responseCalib = false, int triggerCell = -1, bool adjustToClock = false, - float threshold = 0); - int GetWave(unsigned int chipIndex, unsigned char channel, short *waveform, bool responseCalib = false, - int triggerCell = -1, bool adjustToClock = false, float threshold = 0); - int GetWave(unsigned int chipIndex, unsigned char channel, float *waveform, bool responseCalib = false, - int triggerCell = -1, bool adjustToClock = false, float threshold = 0); - int GetADCWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform); - int GetADCWave(unsigned char *waveforms,unsigned int chipIndex, unsigned char channel, - unsigned short *waveform); - - void RotateWave(int triggerCell, short *waveform); - void RotateWave(int triggerCell, float *waveform); - void SetRotation(bool r) {kRotateWave = r;} - - int GetTime(unsigned int chipIndex, int frequencyMHz, float *time, int triggerCell); - int GetTriggerCell(unsigned int chipIndex); - int GetTriggerCell(unsigned char *waveforms,unsigned int chipIndex); - int GetTriggerCell(float *waveform); - - void TestDAC(int channel); - void MeasureSpeed(); - void InteractSpeed(); - void MonitorFrequency(); - int EnableTcal(int flag); - int EnableAcal(int mode, double voltage); - int SetCalibVoltage(double value); - int SetCalibTiming(int t1, int t2); - double GetTemperature(); - int GetTriggerBus(); - int FlashEEPROM(unsigned short serial_cmc); - bool HasCorrectFirmware(); - - bool InitTimeCalibration(unsigned int chipIndex); - void SetCalibrationDirectory(const char *calibrationDirectoryPath); - void GetCalibrationDirectory(char *calibrationDirectoryPath); - - ResponseCalibration *GetResponseCalibration() const { return fResponseCalibration; } - - int GetStoredTriggerCell() const { return fTriggerCell; } - double GetPrecision() const { return fResponseCalibration->GetPrecision(); } - int CalibrateWaveform(unsigned int chipIndex, unsigned char channel, unsigned short *adcWaveform, - short *waveform, bool responseCalib, int triggerCell, bool adjustToClock, - float threshold); - - static void LinearRegression(double *x, double *y, int n, double *a, double *b); - - protected: - void ConstructBoard(); - void ReadSerialNumber(); - - TimeData *GetTimeCalibration(unsigned int chipIndex, bool reinit = false); - int GetStretchedTime(float *time, float *measurement, int numberOfMeasurements, float period); - - public: + + int fSlotNumber; + double fFrequency; + double fTCALFrequency; + double fRefClock; + int fDominoMode; + int fDominoActive; + int fChannelConfig; + int fWSRLoop; + int fReadoutMode; + int fTriggerEnable1; + int fTriggerEnable2; + int fTriggerSource; + int fTriggerDelay; + int fDelayedStart; + int fTranspMode; + unsigned short fStopCell[4]; + double fROFS; + double fRange; + double fCommonMode; + int fAcalMode; + int fbkAcalMode; + double fAcalVolt; + double fbkAcalVolt; + int fTcalFreq; + int fbkTcalFreq; + int fTcalLevel; + int fbkTcalLevel; + int fTcalPhase; + int fTcalSource; + + unsigned char fWaveforms[kNumberOfChipsMax * kNumberOfChannelsMax * 2 * kNumberOfBins]; + + // Fields for Calibration + int fMaxChips; + char fCalibDirectory[1000]; + + // Fields for Response Calibration old method + ResponseCalibration *fResponseCalibration; + + // Fields for Calibration new method + bool fCellCalibrationValid; + double fCellCalibratedRange; + unsigned short fCellOffset[kNumberOfChipsMax * kNumberOfChannelsMax][kNumberOfBins]; + unsigned short fCellOffset2[kNumberOfChipsMax * kNumberOfChannelsMax][kNumberOfBins]; + double fCellGain[kNumberOfChipsMax * kNumberOfChannelsMax][kNumberOfBins]; + + bool fTimingCalibrationValid; + double fTimingCalibratedFrequency; + double fCellT[kNumberOfChipsMax][kNumberOfBins]; + signed short fCellDT[kNumberOfChipsMax * kNumberOfChannelsMax][kNumberOfBins]; + + // Fields for Time Calibration + TimeData **fTimeData; + int fNumberOfTimeData; + + // General debugging flag + int fDebug; + + // Fields for wave transfer + bool fWaveTransferred[kNumberOfChipsMax * kNumberOfChannelsMax]; + + // Waveform Rotation + int fTriggerStartBin; // Start Bin of the trigger + +private: + DRSBoard(const DRSBoard &c); // not implemented + DRSBoard &operator=(const DRSBoard &rhs); // not implemented + +public: + // Public Methods +#ifdef HAVE_USB + DRSBoard(MUSB_INTERFACE * musb_interface, int usb_slot); +#endif +#ifdef HAVE_VME + DRSBoard(MVME_INTERFACE * mvme_interface, mvme_addr_t base_address, int slot_number); + + MVME_INTERFACE *GetVMEInterface() const { return fVmeInterface; }; +#endif #ifdef CT_VME DRSBoard(int MasterMapping, unsigned int BaseAddress, unsigned int BoardAddress, int SlotNumber); #endif -#ifdef STRUCK_VME - DRSBoard(MVME_INTERFACE * MVME_Interface, mvme_addr_t BaseAddress, int SlotNumber); - MVME_INTERFACE *GetVMEInterface() const { return fVMEInterface; }; -#endif - - void PrintBinary32(unsigned int i); - long int GetMicroSeconds(); - + + ~DRSBoard(); + + int SetBoardSerialNumber(unsigned short serialNumber); + int GetBoardSerialNumber() const { return fBoardSerialNumber; } + int GetFirmwareVersion() const { return fFirmwareVersion; } + int GetRequiredFirmwareVersion() const { return fRequiredFirmwareVersion; } + int GetDRSType() const { return fDRSType; } + int GetBoardType() const { return fBoardType; } + int GetNumberOfChips() const { return fNumberOfChips; } + int GetNumberOfChannels() const { return fNumberOfChannels; } + int GetSlotNumber() const { return fSlotNumber; } + int InitFPGA(void); + int Write(int type, unsigned int addr, void *data, int size); + int Read(int type, void *data, unsigned int addr, int size); + int GetTransport() const { return fTransport; } + void RegisterTest(void); + int RAMTest(int flag); + int ChipTest(); + unsigned int GetCtrlReg(void); + unsigned short GetConfigReg(void); + unsigned int GetStatusReg(void); + void SetLED(int state); + void SetChannelConfig(int firstChannel, int lastChannel, int nConfigChannels); + void SetADCClkPhase(int phase, bool invert); + void SetWarmup(unsigned int ticks); + void SetCooldown(unsigned int ticks); + int GetReadoutChannelConfig() { return fReadoutChannelConfig; } + void SetNumberOfChannels(int nChannels); + int EnableTrigger(int flag1, int flag2); + int GetTriggerEnable(int i) { return i?fTriggerEnable2:fTriggerEnable1; } + int SetDelayedTrigger(int flag); + int SetTriggerDelay(int delay); + int GetTriggerDelay() { return fTriggerDelay; } + int SetTriggerLevel(double value, bool negative); + int SetTriggerSource(int source); + int GetTriggerSource() { return fTriggerSource; } + int SetDelayedStart(int flag); + int SetTranspMode(int flag); + int SetStandbyMode(int flag); + int IsBusy(void); + int IsPLLLocked(void); + int IsLMKLocked(void); + int IsNewFreq(unsigned char chipIndex); + int SetDAC(unsigned char channel, double value); + int ReadDAC(unsigned char channel, double *value); + int GetRegulationDAC(double *value); + int StartDomino(); + int StartClearCycle(); + int FinishClearCycle(); + int Reinit(); + int Init(); + void SetDebug(int debug) { fDebug = debug; } + int Debug() { return fDebug; } + int SetDominoMode(unsigned char mode); + int SetDominoActive(unsigned char mode); + int SetReadoutMode(unsigned char mode); + int SoftTrigger(void); + int ReadFrequency(unsigned char chipIndex, double *f); + int SetFrequency(double freq, bool wait); + double VoltToFreq(double volt); + double FreqToVolt(double freq); + double GetFrequency() const { return fFrequency; } + int RegulateFrequency(double freq); + int SetExternalClockFrequency(double frequencyMHz); + double GetExternalClockFrequency(); + void SetVoltageOffset(double offset1, double offset2); + int SetInputRange(double center); + double GetInputRange(void) { return fRange; } + double GetCalibratedInputRange(void) { return fCellCalibratedRange; } + double GetCalibratedFrequency(void) { return fTimingCalibratedFrequency; } + int TransferWaves(int numberOfChannels = kNumberOfChipsMax * kNumberOfChannelsMax); + int TransferWaves(unsigned char *p, int numberOfChannels = kNumberOfChipsMax * kNumberOfChannelsMax); + int TransferWaves(int firstChannel, int lastChannel); + int TransferWaves(unsigned char *p, int firstChannel, int lastChannel); + int DecodeWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, + unsigned short *waveform); + int DecodeWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform); + int GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, short *waveform, + bool responseCalib = false, int triggerCell = -1, bool adjustToClock = false, + float threshold = 0, bool offsetCalib = true); + int GetWave(unsigned char *waveforms, unsigned int chipIndex, unsigned char channel, float *waveform, + bool responseCalib = false, int triggerCell = -1, bool adjustToClock = false, + float threshold = 0, bool offsetCalib = true); + int GetWave(unsigned int chipIndex, unsigned char channel, short *waveform, bool responseCalib = false, + int triggerCell = -1, bool adjustToClock = false, float threshold = 0, bool offsetCalib = true); + int GetWave(unsigned int chipIndex, unsigned char channel, float *waveform, bool responseCalib, + int triggerCell = -1, bool adjustToClock = false, float threshold = 0, bool offsetCalib = true); + int GetWave(unsigned int chipIndex, unsigned char channel, float *waveform); + int GetRawWave(unsigned int chipIndex, unsigned char channel, unsigned short *waveform, bool adjustToClock = false); + int GetRawWave(unsigned char *waveforms,unsigned int chipIndex, unsigned char channel, + unsigned short *waveform, bool adjustToClock = false); + int GetTime(unsigned int chipIndex, double freq, float *time, bool tcalibrated=true, bool rotated=true); + int GetTime(unsigned int chipIndex, float *time, bool tcalibrated=true, bool rotated=true); + int GetTriggerCell(unsigned int chipIndex); + int GetStopCell(unsigned int chipIndex); + int GetTriggerCell(unsigned char *waveforms,unsigned int chipIndex); + void TestDAC(int channel); + void MeasureSpeed(); + void InteractSpeed(); + void MonitorFrequency(); + int TestShift(int n); + int EnableAcal(int mode, double voltage); + int GetAcalMode() { return fAcalMode; } + double GetAcalVolt() { return fAcalVolt; } + int EnableTcal(int freq, int level=0, int phase=0); + int SelectClockSource(int source); + int SetRefclk(int source); + int GetTcalFreq() { return fTcalFreq; } + int GetTcalLevel() { return fTcalLevel; } + int GetTcalPhase() { return fTcalPhase; } + int GetTcalSource() { return fTcalSource; } + int SetCalibVoltage(double value); + int SetCalibTiming(int t1, int t2); + double GetTemperature(); + int GetTriggerBus(); + int ReadEEPROM(unsigned short page, void *buffer, int size); + int WriteEEPROM(unsigned short page, void *buffer, int size); + bool HasCorrectFirmware(); + int ConfigureLMK(double sampFreq, bool freqChange, int calFreq, int calPhase); + + bool InitTimeCalibration(unsigned int chipIndex); + void SetCalibrationDirectory(const char *calibrationDirectoryPath); + void GetCalibrationDirectory(char *calibrationDirectoryPath); + + ResponseCalibration *GetResponseCalibration() const { return fResponseCalibration; } + + double GetPrecision() const { return fResponseCalibration ? fResponseCalibration->GetPrecision() : 0.1; } + int CalibrateWaveform(unsigned int chipIndex, unsigned char channel, unsigned short *adcWaveform, + short *waveform, bool responseCalib, int triggerCell, bool adjustToClock, + float threshold, bool offsetCalib); + + static void LinearRegression(double *x, double *y, int n, double *a, double *b); + + void ReadSingleWaveform(int nChips, int nChan, + unsigned short wfu[kNumberOfChipsMax][kNumberOfChannelsMax][kNumberOfBins], bool rotated); + int AverageWaveforms(DRSCallback *pcb, int chipIndex, int nChan, int prog1, int prog2, unsigned short *awf, int n, bool rotated); + int RobustAverageWaveforms(DRSCallback *pcb, int chipIndex, int nChan, int prog1, int prog2, unsigned short *awf, int n, bool rotated); + int CalibrateVolt(DRSCallback *pcb); + int AnalyzeWF(int nIter, float wf[kNumberOfBins], int tCell, double cellT[kNumberOfBins]); + int CalibrateTiming(DRSCallback *pcb); + bool IsCalibrationValid() { return fCellCalibrationValid; } + bool IsTimingCalibrationValid() { return fTimingCalibrationValid; } + static void RemoveSymmetricSpikes(short **wf, int nwf, + short diffThreshold, int spikeWidth, + short maxPeakToPeak, short spikeVoltage, + int nTimeRegionThreshold); +protected: + // Protected Methods + void ConstructBoard(); + void ReadSerialNumber(); + void ReadCalibration(void); + + TimeData *GetTimeCalibration(unsigned int chipIndex, bool reinit = false); + + int GetStretchedTime(float *time, float *measurement, int numberOfMeasurements, float period); }; - - class DRS { - - protected: - enum { - kMaxNumberOfBoards = 40 - }; - - protected: - - DRSBoard *fBoard[kMaxNumberOfBoards]; - int fNumberOfBoards; - -#ifdef STRUCK_VME - MVME_INTERFACE *fVMEInterface; -#endif - - private: - DRS(const DRS &c); // Not implemented - DRS &operator=(const DRS &rhs); // Not implemented - +protected: + // constants + enum { + kMaxNumberOfBoards = 40 + }; + +protected: + DRSBoard *fBoard[kMaxNumberOfBoards]; + int fNumberOfBoards; + char fError[256]; +#ifdef HAVE_VME + MVME_INTERFACE *fVmeInterface; +#endif + +private: + DRS(const DRS &c); // not implemented + DRS &operator=(const DRS &rhs); // not implemented + #ifdef CT_VME VME_MasterMap_t MasterMap; @@ -564,26 +765,17 @@ #endif - int First_VME_Slot; - int Last_VME_Slot; - - public: - // Public Methods - DRS(); - ~DRS(); - - DRSBoard *GetBoard(int i) { return fBoard[i]; } - DRSBoard **GetBoards() { return fBoard; } - int GetNumberOfBoards() const { return fNumberOfBoards; } - -#ifdef STRUCK_VME - MVME_INTERFACE *GetVMEInterface() const { return fVMEInterface; }; -#endif - - void InitialScan(); - void SetFirstVMESlot(int s) { First_VME_Slot = s; } - void SetLastVMESlot(int s) { Last_VME_Slot = s; } - int GetFirstVMESlot() { return First_VME_Slot; } - int GetLastVMESlot() { return Last_VME_Slot; } +public: + // Public Methods + DRS(); + ~DRS(); + + DRSBoard *GetBoard(int i) { return fBoard[i]; } + DRSBoard **GetBoards() { return fBoard; } + int GetNumberOfBoards() const { return fNumberOfBoards; } + bool GetError(char *str, int size); +#ifdef HAVE_VME + MVME_INTERFACE *GetVMEInterface() const { return fVmeInterface; }; +#endif }; -#endif // DRS_H +#endif // DRS_H Index: drsdaq/HVFeedback.cc =================================================================== --- drsdaq/HVFeedback.cc (revision 175) +++ drsdaq/HVFeedback.cc (revision 176) @@ -29,9 +29,8 @@ m = DAQClass; - //fNumberOfChannels = m->fNumberOfChannels; - //fNumberOfChips = m->fNumberOfChips; - fNumberOfChannels = 10; - fNumberOfChips = 2; - + + fNumberOfChannels = m->fNumberOfChannels; + fNumberOfChips = m->fNumberOfChips; + PixMap = new PixelMap(PIXMAP_LOCATION, false); @@ -117,5 +116,5 @@ for (k=0; kWaveForm[i][j][k][(fLedSignalSample+q+m->TriggerCell[i][j])%kNumberOfBins] - m->WaveForm[i][j][k][(fLedBaselineSample+q+m->TriggerCell[i][j])%kNumberOfBins])*m->drs->GetBoard(i)->GetPrecision(); + Integral += (m->WaveForm[i][j][k][(fLedSignalSample+q+m->TriggerCell[i][j])%kNumberOfBins] - m->WaveForm[i][j][k][(fLedBaselineSample+q+m->TriggerCell[i][j])%kNumberOfBins])*m->GetBoard(i)->GetPrecision(); } Integral /= 2*fIntHalfWidth+1; @@ -283,4 +282,5 @@ // void HVFeedback::SetTarget(int Board, int Chip, int Channel, float TargetVal) { + if(BoardNumBoards && Chip