#include "exlib.conf"
#include "daclib.conf"
#include "exlib.h"
#include "daclib.h"
#include "esw.h"
Data Structures | |
| union | SPCHDR |
Defines | |
| #define | CPNAME "ESW" |
| #define | CPTITL "Elektron-Stoss-WQ-Absolut" |
| #define | CPDATE "(15Jan03/Hu)" |
| #define | CIDPRG "ESW " |
| #define | CVERSION "21may02" |
| #define | MFILNA 70 |
| #define | useDATAROUT |
| #define | useCTRLROUT |
| #define | CLKRATE sysClkRateGet() |
| #define | BASEPRIO 40 |
| #define | MAXLEN 0xffff |
| #define | INISTACK 5000 |
| #define | INICHCK VX_FP_TASK |
| #define | INIOPT VX_FP_TASK |
| #define | MSTRTASK "tEswMstr" |
| #define | MSTRPRIO (BASEPRIO+1) |
| #define | MSTRSTACK 7000 |
| #define | MSTROPT VX_FP_TASK |
| #define | MSTROPT VX_FP_TASK |
| #define | RLTTASK "tEswRlt" |
| #define | RLTPRIO (BASEPRIO+0) |
| #define | RLTSTACK 5000 |
| #define | RLTOPT 0 |
| #define | DATATASK "tEswData" |
| #define | DATAPRIO (BASEPRIO+2) |
| #define | DATASTACK 5000 |
| #define | DATAOPT VX_FP_TASK |
| #define | DATATIME 9 |
| #define | DATAPAUSE 1 |
| #define | CTRLTASK "tEswCtrl" |
| #define | CTRLPRIO (BASEPRIO+2) |
| #define | CTRLSTACK 5000 |
| #define | CTRLOPT 0 |
| #define | CTRLPAUSE 1 |
| #define | CTRLECF ".ecf" |
| #define | SAVBGDATA |
| #define | CBGTASK "tEswBg" |
| #define | CBGPRIO 100 |
| #define | CBGFILE "~/ex_home/ex_prog/wqav.o" |
| #define | CBGSYM "_wqa" |
| #define | CBGSTACK 12000 |
| #define | CBGOPT VX_FP_TASK |
| #define | CBGARG1 ",,\"wqa_esw.vxw\",,'I'" |
| #define | BGARGS |
| #define | CBGCHECK FALSE |
| #define | CBGUNLD TRUE |
| #define | CIDPAR "STRZ-VXW" |
| #define | CPARNA "bootHost:/ex_home/ex_param/eswpar.vxw" |
| #define | CDFNAM "data:/spectrum.esw" |
| #define | CHLPNA "bootHost:/ex_home/ex_help/eswhlp.txt" |
| #define | CISERV "servix" |
| #define | CIUSER "vme-info" |
| #define | CIFILE "esw/esw.info" |
| #define | ffPARFILE parfile |
| #define | ffPARMTR parfile.parmtr |
| #define | ffROUTPAR parfile.routpar |
| #define | ffDACLIBPAR parfile.daclibpar |
| #define | ffEXLIBPAR parfile.exlibpar |
| #define | HEADER0 parfile.header0 |
| #define | ccCOMMON common |
| #define | ccPARMTR common.parmtr |
| #define | ccDACLIBCOM common.daclibcom |
| #define | ccEXLIBCOM common.exlibcom |
| #define | IDPAR ffPARMTR.idpar |
| #define | PIDPRG ffPARMTR.idprg |
| #define | PVERSION ffPARMTR.version |
| #define | DFLTPAR ffPARMTR.dflts |
| #define | PEXPMNT ffPARMTR.pexpmnt |
| #define | SP0NAM ffPARMTR.sp0nam |
| #define | ZZZZZZ ffPARMTR.zzzzzz |
| #define | ECOFAC ffPARMTR.ecofac |
| #define | ICOFAC ffPARMTR.icofac |
| #define | GUNLMTS ffPARMTR.gunlmts |
| #define | GUNOVRD ffPARMTR.gunovrd |
| #define | POSID ffPARMTR.posid |
| #define | LFTID ffPARMTR.lftid |
| #define | CT1ID ffPARMTR.ct1id |
| #define | CT2ID ffPARMTR.ct2id |
| #define | CT3ID ffPARMTR.ct3id |
| #define | CT4ID ffPARMTR.ct4id |
| #define | DRMENU ffROUTPAR.drmenu |
| #define | DRTYPE ffROUTPAR.drtype |
| #define | DRBASE ffROUTPAR.drbase |
| #define | DROFFS ffROUTPAR.droffs |
| #define | STOPRT ffROUTPAR.stoprt |
| #define | RDSTAT ffROUTPAR.rdstat |
| #define | RDSTCL ffROUTPAR.rdstcl |
| #define | RDDATA ffROUTPAR.rddata |
| #define | RDDACL ffROUTPAR.rddacl |
| #define | RDIDNT ffROUTPAR.rdidnt |
| #define | CRMENU ffROUTPAR.crmenu |
| #define | CRMENU2 ffROUTPAR.crmenu2 |
| #define | CRTYPE ffROUTPAR.crtype |
| #define | CRBASE ffROUTPAR.crbase |
| #define | CROFFS ffROUTPAR.croffs |
| #define | CRCTRL ffROUTPAR.crctrl |
| #define | CRSTAT ffROUTPAR.crstat |
| #define | CRADDR ffROUTPAR.craddr |
| #define | CRDATA ffROUTPAR.crdata |
| #define | CRINTR ffROUTPAR.crintr |
| #define | CRIDNT ffROUTPAR.cridnt |
| #define | CRPRIO ffROUTPAR.crprio |
| #define | CHDLEN "1" |
| #define | CEXPMNT "??????" |
| #define | CSPTYPE "MCA2" |
| #define | CROWS " 5" |
| #define | CBYTES "4" |
| #define | CLTXT " 80" |
| #define | CDFTXT "ESW Spectrum --- Strahlenzentrum Universitaet Giessen" |
| #define | CSLEN 512 |
| #define | CERRKF .01 |
| #define | CERREC .05 |
| #define | CERRIC .05 |
| #define | CERRCW .01 |
| #define | CERRDE .03 |
| #define | CS5SCAL 32768.e+5 |
| #define | INITSPCHDR |
| #define | SPSTAT XSPHDR->hdata.spcdat.status |
| #define | RLTCNT XSPHDR->hdata.spcdat.rltcnt |
| #define | LFTCNT XSPHDR->hdata.spcdat.lftcnt |
| #define | DATCNT XSPHDR->hdata.spcdat.datcnt |
| #define | OUTCNT XSPHDR->hdata.spcdat.outcnt |
| #define | CT1CNT XSPHDR->hdata.spcdat.ct1cnt |
| #define | CT2CNT XSPHDR->hdata.spcdat.ct2cnt |
| #define | CT3CNT XSPHDR->hdata.spcdat.ct3cnt |
| #define | CT4CNT XSPHDR->hdata.spcdat.ct4cnt |
| #define | SEQCNT XSPHDR->hdata.spcdat.seqcnt |
| #define | FULCNT XSPHDR->hdata.spcdat.fulcnt |
| #define | REJCNT XSPHDR->hdata.spcdat.rejcnt |
| #define | ERRCNT XSPHDR->hdata.spcdat.errcnt |
| #define | HDATID XSPHDR->hdata.spcdat.hdatid |
| #define | SLEN XSPHDR->hdata.spcdat.slen |
| #define | EXPAR XSPHDR->hdata.spcdat.expar |
| #define | ECFPRG XSPHDR->hdata.spcdat.ecfprg |
| #define | GUNTYP XSPHDR->hdata.spcdat.guntyp |
| #define | GUNPAR XSPHDR->hdata.spcdat.gunpar |
| #define | DEADTM XSPHDR->hdata.spcdat.deadtm |
| #define | DTMERR XSPHDR->hdata.spcdat.dtmerr |
| #define | ERRKF XSPHDR->hdata.spcdat.errkf |
| #define | ERREC XSPHDR->hdata.spcdat.errec |
| #define | ERRIC XSPHDR->hdata.spcdat.erric |
| #define | ERRCW XSPHDR->hdata.spcdat.errcw |
| #define | ERRDE XSPHDR->hdata.spcdat.errde |
| #define | S5SCAL XSPHDR->hdata.spcdat.s5scal |
| #define | RUNTIM XSPHDR->hdata.spcdat.runtim |
| #define | MAXSPECS 1 |
| #define | MAXHTYPS 1 |
| #define | USHMAX 4 |
| #define | HDSCR_ESW "208i1 1i2 13i4 1i2 13f4 12i1 1i2 10f4 8f4 1i4" |
| #define | INITHTYPES |
| #define | INITSPEPNTR |
| #define | SHOWHDR |
| #define | SHOWXHDR |
| #define | EXTPAR2ASCII |
| #define | INPUTPARS1 |
| #define | INPUTPARS2 |
| #define | INPUTPARS5 |
| #define | INPUTXPARS1 |
| #define | INPUTXPARS2 |
| #define | INPUTXPARS5 |
| #define | INITPARS |
| #define | SPECONFm |
| #define | SPECONFi |
| #define | SPECONFp |
| #define | SPECONFf |
| #define | DATAVARS |
| #define | DATAMACRO |
Enumerations | |
| enum | headertypes { MTX_HEADER, MCA_HEADER, MCT_HEADER, MS2_HEADER, MSC_HEADER, PCM_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, DRM_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_VAX_HEADER, ECF_0_HEADER, ECF_1_HEADER, ECF_1_HEADER, ESI_VAX_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER, ESS_HEADER, ECF_HEADER, ESW_HEADER, MASS_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER } |
modification history -------------------- 15aug08 kHu DOXYGEN comments added 28may03 kHu CIFILE geaendert 29apr03 kHu *.conf, *.h Files neu geordnet 16apr03 kHu Fit gemacht fuer -Wall GCC-Option 15apr03 kHu Help mit INFO auf Server 04apr03 kHu define CPDATE EMKSTR(SIGNAT) 15jan03 kHu dac10.c: stets File-Name abfragen 14jan03 kHu dac10/25.c: neu: Edit header of spectrum 16aug02 kHu BGARGS um (int)&HEADER0 erweitert 21may02 kHu Set data ID bits 07may02 kHu "Update parameters" in inxgun..() 30apr02 kHu Init task -> Master task 28feb02 kHu Parameters for background program 18feb02 kHu Argumente beim Start: PNAME,PTITLE,PARNAM,HLPNAM 28aug01 kHu BGARGS/Z ...,(int)xCntrl,... 03apr01 kHu EXTPAR2ASCII macro 17jan01 kHu Set e-gun soft limit Setlimit 08jan01 kHu ERRCNTo, ERRCNTd, ERRCNTf 19dec00 kHu Ion-/Elektr.-Strom Konversionsfaktoren veraenderbar 04oct00 kHu eigener Parameter-File bei BG-Programm (BGPNAM) 13sep00 kHu tReadp() -> tMenu 07sep00 kHu DRMENU, DRTYPE, CRMENU, CRTYPE, CRPRIO neu 29mar00 kHu MSTRSTACK = 6000 20mar00 kHu IHDLEN, IBYTES 23feb00 kHu Header Typen Beschreibung geaendert 18feb00 kHu staplo raus aus header 24jan00 kHu guntyp, gunpar[10] in header 19nov99 kHu Zero spectrum if test run 11nov99 kHu Newprog Standard 22okt99 kHu mit ESS abgeglichen 21sep99 kHu neu aus esw.h
| #define BASEPRIO 40 |
| #define BGARGS |
| #define CBGARG1 ",,\"wqa_esw.vxw\",,'I'" |
| #define CBGCHECK FALSE |
| #define CBGFILE "~/ex_home/ex_prog/wqav.o" |
| #define CBGOPT VX_FP_TASK |
| #define CBGPRIO 100 |
| #define CBGSTACK 12000 |
| #define CBGSYM "_wqa" |
| #define CBGTASK "tEswBg" |
| #define CBGUNLD TRUE |
| #define CBYTES "4" |
| #define ccCOMMON common |
| #define ccDACLIBCOM common.daclibcom |
| #define ccEXLIBCOM common.exlibcom |
| #define ccPARMTR common.parmtr |
| #define CDFNAM "data:/spectrum.esw" |
| #define CDFTXT "ESW Spectrum --- Strahlenzentrum Universitaet Giessen" |
| #define CERRCW .01 |
| #define CERRDE .03 |
| #define CERREC .05 |
| #define CERRIC .05 |
| #define CERRKF .01 |
| #define CEXPMNT "??????" |
| #define CHDLEN "1" |
| #define CHLPNA "bootHost:/ex_home/ex_help/eswhlp.txt" |
| #define CIDPAR "STRZ-VXW" |
| #define CIDPRG "ESW " |
| #define CIFILE "esw/esw.info" |
| #define CISERV "servix" |
| #define CIUSER "vme-info" |
| #define CLKRATE sysClkRateGet() |
| #define CLTXT " 80" |
| #define CPARNA "bootHost:/ex_home/ex_param/eswpar.vxw" |
| #define CPDATE "(15Jan03/Hu)" |
| #define CPNAME "ESW" |
| #define CPTITL "Elektron-Stoss-WQ-Absolut" |
| #define CRADDR ffROUTPAR.craddr |
| #define CRBASE ffROUTPAR.crbase |
| #define CRCTRL ffROUTPAR.crctrl |
| #define CRDATA ffROUTPAR.crdata |
| #define CRIDNT ffROUTPAR.cridnt |
| #define CRINTR ffROUTPAR.crintr |
| #define CRMENU ffROUTPAR.crmenu |
| #define CRMENU2 ffROUTPAR.crmenu2 |
| #define CROFFS ffROUTPAR.croffs |
| #define CROWS " 5" |
| #define CRPRIO ffROUTPAR.crprio |
| #define CRSTAT ffROUTPAR.crstat |
| #define CRTYPE ffROUTPAR.crtype |
| #define CS5SCAL 32768.e+5 |
| #define CSLEN 512 |
| #define CSPTYPE "MCA2" |
| #define CT1CNT XSPHDR->hdata.spcdat.ct1cnt |
| #define CT1ID ffPARMTR.ct1id |
| #define CT2CNT XSPHDR->hdata.spcdat.ct2cnt |
| #define CT2ID ffPARMTR.ct2id |
| #define CT3CNT XSPHDR->hdata.spcdat.ct3cnt |
| #define CT3ID ffPARMTR.ct3id |
| #define CT4CNT XSPHDR->hdata.spcdat.ct4cnt |
| #define CT4ID ffPARMTR.ct4id |
| #define CTRLECF ".ecf" |
| #define CTRLOPT 0 |
| #define CTRLPAUSE 1 |
| #define CTRLPRIO (BASEPRIO+2) |
| #define CTRLSTACK 5000 |
| #define CTRLTASK "tEswCtrl" |
| #define CVERSION "21may02" |
| #define DATAMACRO |
| #define DATAOPT VX_FP_TASK |
| #define DATAPAUSE 1 |
| #define DATAPRIO (BASEPRIO+2) |
| #define DATASTACK 5000 |
| #define DATATASK "tEswData" |
| #define DATATIME 9 |
| #define DATAVARS |
Value:
int eswstat = 0; \ unsigned short savpos, savct1, savct2, savct3, savct4; \ DATAC *pchnl, *pchnl1, *pchnl2;
| #define DATCNT XSPHDR->hdata.spcdat.datcnt |
| #define DEADTM XSPHDR->hdata.spcdat.deadtm |
| #define DFLTPAR ffPARMTR.dflts |
| #define DRBASE ffROUTPAR.drbase |
| #define DRMENU ffROUTPAR.drmenu |
| #define DROFFS ffROUTPAR.droffs |
| #define DRTYPE ffROUTPAR.drtype |
| #define DTMERR XSPHDR->hdata.spcdat.dtmerr |
| #define ECFPRG XSPHDR->hdata.spcdat.ecfprg |
| #define ECOFAC ffPARMTR.ecofac |
| #define ERRCNT XSPHDR->hdata.spcdat.errcnt |
| #define ERRCW XSPHDR->hdata.spcdat.errcw |
| #define ERRDE XSPHDR->hdata.spcdat.errde |
| #define ERREC XSPHDR->hdata.spcdat.errec |
| #define ERRIC XSPHDR->hdata.spcdat.erric |
| #define ERRKF XSPHDR->hdata.spcdat.errkf |
| #define EXPAR XSPHDR->hdata.spcdat.expar |
| #define ffDACLIBPAR parfile.daclibpar |
| #define ffEXLIBPAR parfile.exlibpar |
| #define ffPARFILE parfile |
| #define ffPARMTR parfile.parmtr |
| #define ffROUTPAR parfile.routpar |
| #define FULCNT XSPHDR->hdata.spcdat.fulcnt |
| #define GUNLMTS ffPARMTR.gunlmts |
| #define GUNOVRD ffPARMTR.gunovrd |
| #define GUNPAR XSPHDR->hdata.spcdat.gunpar |
| #define GUNTYP XSPHDR->hdata.spcdat.guntyp |
| #define HDATID XSPHDR->hdata.spcdat.hdatid |
| #define HDSCR_ESW "208i1 1i2 13i4 1i2 13f4 12i1 1i2 10f4 8f4 1i4" |
| #define HEADER0 parfile.header0 |
| #define ICOFAC ffPARMTR.icofac |
| #define IDPAR ffPARMTR.idpar |
| #define INICHCK VX_FP_TASK |
| #define INIOPT VX_FP_TASK |
| #define INISTACK 5000 |
| #define INITHTYPES |
Value:
/* ESW-type, spectrum 0 */ \ {{TRUE}, /* Type valid for spectrum 0 */ \ CIDHDRvxw, /* Required header ID in IDHDR */ \ "ESW", /* Required program ID in IDPRG */ \ HDSCR_ESW, /* Header descriptor string */ \ ESW_HEADER}
| #define INITPARS |
| #define INITSPCHDR |
Value:
{0, \
0,0,0,0,0,0,0,0,0,0,0,0,0, \
CSLEN, /* Length of single spectrum */\
{0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.}, \
"", \
0, \
{0.,0.,0.,0.,0.,0.,0.,0.,0.,0.}, \
0.,0., \
CERRKF, /* Error Kinematic factor */ \
CERREC, /* Error Electron current */ \
CERRIC, /* Error Ion current */ \
CERRCW, /* Error Channel width */ \
CERRDE, /* Error Detector efficiency */ \
CS5SCAL, /* Scaling factor spectrum 5 */ \
0}
| #define INITSPEPNTR |
| #define INPUTPARS1 |
| #define INPUTPARS2 |
| #define INPUTPARS5 |
| #define LFTCNT XSPHDR->hdata.spcdat.lftcnt |
| #define LFTID ffPARMTR.lftid |
| #define MAXHTYPS 1 |
| #define MAXLEN 0xffff |
| #define MAXSPECS 1 |
| #define MFILNA 70 |
| #define MSTROPT VX_FP_TASK |
| #define MSTROPT VX_FP_TASK |
| #define MSTRPRIO (BASEPRIO+1) |
| #define MSTRSTACK 7000 |
| #define MSTRTASK "tEswMstr" |
| #define OUTCNT XSPHDR->hdata.spcdat.outcnt |
| #define PEXPMNT ffPARMTR.pexpmnt |
| #define PIDPRG ffPARMTR.idprg |
| #define POSID ffPARMTR.posid |
| #define PVERSION ffPARMTR.version |
| #define RDDACL ffROUTPAR.rddacl |
| #define RDDATA ffROUTPAR.rddata |
| #define RDIDNT ffROUTPAR.rdidnt |
| #define RDSTAT ffROUTPAR.rdstat |
| #define RDSTCL ffROUTPAR.rdstcl |
| #define REJCNT XSPHDR->hdata.spcdat.rejcnt |
| #define RLTCNT XSPHDR->hdata.spcdat.rltcnt |
| #define RLTOPT 0 |
| #define RLTPRIO (BASEPRIO+0) |
| #define RLTSTACK 5000 |
| #define RLTTASK "tEswRlt" |
| #define RUNTIM XSPHDR->hdata.spcdat.runtim |
| #define S5SCAL XSPHDR->hdata.spcdat.s5scal |
| #define SAVBGDATA |
| #define SEQCNT XSPHDR->hdata.spcdat.seqcnt |
| #define SHOWHDR |
Value:
{ \
long datcnt, ct1cnt, ct2cnt, ct3cnt, ct4cnt; \
\
/* Snapshot to avaid asynchronous counters */ \
/* on slow output (VT200) */ \
datcnt = DATCNT; \
ct1cnt = CT1CNT; \
ct2cnt = CT2CNT; \
ct3cnt = CT3CNT; \
ct4cnt = CT4CNT; \
\
printf("Length: %lu * %lu\n", IROWS, ICOLS); \
printf("Timer : %lus\n", RUNTIM); \
putchar('\n'); \
printf("%10lu Realtime\n", RLTCNT); \
printf("%10lu Lifetime\n", LFTCNT); \
printf("%10lu Positions received\n", DATCNT); \
printf("%10lu Positions out of range\n", OUTCNT); \
printf("%10lu Counter 1 received\n", CT1CNT); \
printf("%10lu Counter 2 received\n", CT2CNT); \
printf("%10lu Counter 3 received\n", CT3CNT); \
printf("%10lu Counter 4 received\n", CT4CNT); \
printf("%10lu Data sequence errors\n", SEQCNT); \
printf("%10lu Rejected data\n", REJCNT); \
printf("%10lu Fifo overflows\n", FULCNT); \
printf("%10lu Data errors\n", ERRCNT); \
}
| #define SLEN XSPHDR->hdata.spcdat.slen |
| #define SP0NAM ffPARMTR.sp0nam |
| #define SPECONFf |
Value:
/* Special configuration */ \ /* !=======> Set data ID bits */ \ void SetIDs(void) { \ Termnl(2, 0, " "); /* Reset scrolling region */ \ tMenu("Set data identifications", 1, \ " ESW Position Counter = 0x%@2.2hx\n" \ " Counter 1 = 0x%@2.2hx\n" \ " Counter 2 = 0x%@2.2hx\n" \ " Counter 3 = 0x%@2.2hx\n" \ " Counter 4 = 0x%@2.2hx\n" \ " Lifetime = 0x%@2.2hx\n", \ &POSID, 0, 0x3f, \ &CT1ID, 0, 0x3f, \ &CT2ID, 0, 0x3f, \ &CT3ID, 0, 0x3f, \ &CT4ID, 0, 0x3f, \ &LFTID, 0, 0x3f); \ return; \ }
| #define SPECONFi |
| #define SPECONFm |
Value:
/* Special configuration */ \ " %$m Data identification bits\n" \ " %$m Ion current converter\n" \ " %$m Electron current converter\n" \ " %$m Limits for e-gun voltage\n"
| #define SPECONFp |
| #define SPSTAT XSPHDR->hdata.spcdat.status |
| #define STOPRT ffROUTPAR.stoprt |
| #define useCTRLROUT |
| #define useDATAROUT |
| #define USHMAX 4 |
| #define ZZZZZZ ffPARMTR.zzzzzz |
| enum headertypes |
1.5.6