#include "exlib.conf"
#include "daclib.conf"
#include "exlib.h"
#include "daclib.h"
#include "drm.h"
Data Structures | |
union | SPCHDR |
Defines | |
#define | CPNAME "DRM" |
#define | CPTITL "Position Computer Matrix" |
#define | CPDATE "(15Jan03/Hu)" |
#define | CIDPRG "DRM " |
#define | CVERSION "07sep00" |
#define | MFILNA 70 |
#define | useDATAROUT |
#define | CLKRATE sysClkRateGet() |
#define | BASEPRIO 40 |
#define | MAXLEN 0x10000 |
#define | INISTACK 5000 |
#define | INICHCK VX_FP_TASK |
#define | INIOPT VX_FP_TASK |
#define | MSTRTASK "tDrmMstr" |
#define | MSTRPRIO (BASEPRIO+1) |
#define | MSTRSTACK 7000 |
#define | MSTROPT VX_FP_TASK |
#define | MSTROPT VX_FP_TASK |
#define | RLTTASK "tDrmRlt" |
#define | RLTPRIO (BASEPRIO+0) |
#define | RLTSTACK 5000 |
#define | RLTOPT 0 |
#define | DATATASK "tDrmData" |
#define | DATAPRIO (BASEPRIO+2) |
#define | DATASTACK 5000 |
#define | DATAOPT VX_FP_TASK |
#define | DATATIME 9 |
#define | DATAPAUSE 1 |
#define | CTRLTASK "tDrmCtrl" |
#define | CTRLPRIO (BASEPRIO+2) |
#define | CTRLSTACK 5000 |
#define | CTRLOPT 0 |
#define | CTRLPAUSE 1 |
#define | CTRLECF ".ecf" |
#define | SAVBGDATA |
#define | CBGTASK "tDrmBg" |
#define | CBGPRIO 100 |
#define | CBGFILE "~/ex_home/ex_prog/peakv.o" |
#define | CBGSYM "_peak" |
#define | CBGSTACK 11000 |
#define | CBGOPT VX_FP_TASK |
#define | CBGARG1 ",,\"peak_drm.vxw\",,'M'" |
#define | BGARGS |
#define | CBGCHECK FALSE |
#define | CBGUNLD TRUE |
#define | CIDPAR "STRZ-VXW" |
#define | CPARNA "bootHost:/ex_home/ex_param/drmpar.vxw" |
#define | CDFNAM "data:/spectrum.drm" |
#define | CHLPNA "bootHost:/ex_home/ex_help/drmhlp.txt" |
#define | CISERV "servix" |
#define | CIUSER "vme-info" |
#define | CIFILE "drm/drm.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 | DATID ccPARMTR.datid |
#define | LFTID ccPARMTR.lftid |
#define | PILID ccPARMTR.pilid |
#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 " 256" |
#define | CCOLS " 256" |
#define | CBYTES "4" |
#define | CLTXT " 80" |
#define | CDFTXT "DRM Spectrum --- Strahlenzentrum Universitaet Giessen" |
#define | INITSPCHDR |
#define | SPSTAT XSPHDR->hdata.spcdat.status |
#define | XLEN XSPHDR->hdata.spcdat.xlen |
#define | YLEN XSPHDR->hdata.spcdat.ylen |
#define | RLTCNT XSPHDR->hdata.spcdat.rltcnt |
#define | LFTCNT XSPHDR->hdata.spcdat.lftcnt |
#define | DATCNT XSPHDR->hdata.spcdat.datcnt |
#define | PILCNT XSPHDR->hdata.spcdat.pilcnt |
#define | REJCNT XSPHDR->hdata.spcdat.rejcnt |
#define | FULCNT XSPHDR->hdata.spcdat.fulcnt |
#define | HDATID XSPHDR->hdata.spcdat.hdatid |
#define | HPILID XSPHDR->hdata.spcdat.hpilid |
#define | ERRCNT XSPHDR->hdata.spcdat.errcnt |
#define | RUNTIM XSPHDR->hdata.spcdat.runtim |
#define | MAXSPECS 1 |
#define | MAXHTYPS 1 |
#define | USHMAX 4 |
#define | HDSCR_DRM "208i1 3i2 7i4 2i2 1i4" |
#define | INITHTYPES |
#define | INITSPEPNTR |
#define | SHOWHDR |
#define | INPUTPARS1 |
#define | INPUTPARS2 |
#define | INPUTPARS5 |
#define | INPUTXPARS1 |
#define | INPUTXPARS2 |
#define | INPUTXPARS5 |
#define | INITPARS |
#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 } |
Position Computer Matrix Program for Lab 017 (A. Mueller, K3)
modification history -------------------- 15aug08 kHu DOXYGEN comments added 25jun03 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 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,... 08jan01 kHu ERRCNTo, ERRCNTd, ERRCNTf 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 neu aus mca.conf
#define BASEPRIO 40 |
#define BGARGS |
#define CBGARG1 ",,\"peak_drm.vxw\",,'M'" |
#define CBGCHECK FALSE |
#define CBGFILE "~/ex_home/ex_prog/peakv.o" |
#define CBGOPT VX_FP_TASK |
#define CBGPRIO 100 |
#define CBGSTACK 11000 |
#define CBGSYM "_peak" |
#define CBGTASK "tDrmBg" |
#define CBGUNLD TRUE |
#define CBYTES "4" |
#define ccCOMMON common |
#define ccDACLIBCOM common.daclibcom |
#define ccEXLIBCOM common.exlibcom |
#define CCOLS " 256" |
#define ccPARMTR common.parmtr |
#define CDFNAM "data:/spectrum.drm" |
#define CDFTXT "DRM Spectrum --- Strahlenzentrum Universitaet Giessen" |
#define CEXPMNT "??????" |
#define CHDLEN "1" |
#define CHLPNA "bootHost:/ex_home/ex_help/drmhlp.txt" |
#define CIDPAR "STRZ-VXW" |
#define CIDPRG "DRM " |
#define CIFILE "drm/drm.info" |
#define CISERV "servix" |
#define CIUSER "vme-info" |
#define CLKRATE sysClkRateGet() |
#define CLTXT " 80" |
#define CPARNA "bootHost:/ex_home/ex_param/drmpar.vxw" |
#define CPDATE "(15Jan03/Hu)" |
#define CPNAME "DRM" |
#define CPTITL "Position Computer Matrix" |
#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 " 256" |
#define CRPRIO ffROUTPAR.crprio |
#define CRSTAT ffROUTPAR.crstat |
#define CRTYPE ffROUTPAR.crtype |
#define CSPTYPE "MCA2" |
#define CTRLECF ".ecf" |
#define CTRLOPT 0 |
#define CTRLPAUSE 1 |
#define CTRLPRIO (BASEPRIO+2) |
#define CTRLSTACK 5000 |
#define CTRLTASK "tDrmCtrl" |
#define CVERSION "07sep00" |
#define DATAMACRO |
Value:
/* Test data ID */ \ if((nstat & 0x003f) == DATID) { /* Data ID OK*/ \ /* Compute data */ \ DATCNT++; /* Count data */ \ (*(SPEDATA+ndata))++; /* Increment channel in spectrum */ \ } else if((nstat & 0x003f) == LFTID) { /* Lifetime */ \ LFTCNT++; /* Count lifetime */ \ } else if((nstat & 0x003f) == PILID) { /* Pile up counter */ \ PILCNT += ndata; /* Count pile ups */ \ } else { \ REJCNT++; /* Count rejected data */ \ }
#define DATAOPT VX_FP_TASK |
#define DATAPAUSE 1 |
#define DATAPRIO (BASEPRIO+2) |
#define DATASTACK 5000 |
#define DATATASK "tDrmData" |
#define DATATIME 9 |
#define DATAVARS |
#define DATCNT XSPHDR->hdata.spcdat.datcnt |
#define DATID ccPARMTR.datid |
#define DFLTPAR ffPARMTR.dflts |
#define DRBASE ffROUTPAR.drbase |
#define DRMENU ffROUTPAR.drmenu |
#define DROFFS ffROUTPAR.droffs |
#define DRTYPE ffROUTPAR.drtype |
#define ERRCNT XSPHDR->hdata.spcdat.errcnt |
#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 HDATID XSPHDR->hdata.spcdat.hdatid |
#define HDSCR_DRM "208i1 3i2 7i4 2i2 1i4" |
#define HEADER0 parfile.header0 |
#define HPILID XSPHDR->hdata.spcdat.hpilid |
#define IDPAR ffPARMTR.idpar |
#define INICHCK VX_FP_TASK |
#define INIOPT VX_FP_TASK |
#define INISTACK 5000 |
#define INITHTYPES |
Value:
/* DRM-type, spectrum 0 */ \ {{TRUE}, /* Type valid for spectrum 0 */ \ CIDHDRvxw, /* Required header ID in IDHDR */ \ "DRM", /* Required program ID in IDPRG */ \ HDSCR_DRM, /* Header descriptor string */ \ DRM_HEADER}
#define INITPARS |
#define INITSPCHDR |
Value:
{0,0,0, \ 0,0,0,0,0,0,0, \ 0,0, \ 0}
#define INITSPEPNTR |
#define INPUTPARS1 |
Value:
{ \ \ short shortpar, shortpar2; \ \ TEXT[lTEXT-1] = '\0'; /* Title of spectrum */ \ IHDLEN = 1; /* Blocks of header */ \ IBYTES = 4; /* Bytes per channel */ \ /* XLEN and YLEN only for upward compatibility? */ \ XLEN = IROWS = atol(CROWS); /* Number of lines */ \ YLEN = ICOLS = atol(CCOLS); /* Number of columns */ \ shortpar = HDATID >> 1; /* ID of data */ \ shortpar2 = HPILID >> 1; /* ID of pile ups */ \ \ tMenu(NULL, 1, \ "%$-"lTEXTs"s\n\n" \ " Data ident. = 0x%@2.2hx\n" \ " Pile up ident. = 0x%@2.2hx\n" \ " Timer = %$10lu s\n", \ TEXT, \ &shortpar, 0, 0x003f, \ &shortpar2, 0, 0x003f, \ &RUNTIM \ ); \ \ /* ID of data */ \ DATID = HDATID = shortpar << 1; \ LFTID = DATID | 0x21; \ PILID = HPILID = shortpar2 << 1; \ }
#define INPUTPARS2 |
Value:
{ \ \ short shortpar, shortpar2; \ \ TEXT[lTEXT-1] = '\0'; /* Title of spectrum */ \ IHDLEN = 1; /* Blocks of header */ \ IBYTES = 4; /* Bytes per channel */ \ shortpar = HDATID >> 1; /* ID of data */ \ shortpar2 = HPILID >> 1; /* ID of pile ups */ \ \ tMenu(NULL, 1, \ "%$-"lTEXTs"s\n\n" \ " Data ident. = 0x%@2.2hx\n" \ " Pile up ident. = 0x%@2.2hx\n" \ " Timer = %$10lu s\n", \ TEXT, \ &shortpar, 0, 0x003f, \ &shortpar2, 0, 0x003f, \ &RUNTIM); \ \ /* ID of data */ \ DATID = HDATID = shortpar << 1; \ LFTID = DATID | 0x21; \ PILID = HPILID = shortpar2 << 1; \ }
#define INPUTPARS5 |
#define INPUTXPARS1 |
#define INPUTXPARS2 |
#define INPUTXPARS5 |
#define LFTCNT XSPHDR->hdata.spcdat.lftcnt |
#define LFTID ccPARMTR.lftid |
#define MAXHTYPS 1 |
#define MAXLEN 0x10000 |
#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 "tDrmMstr" |
#define PEXPMNT ffPARMTR.pexpmnt |
#define PIDPRG ffPARMTR.idprg |
#define PILCNT XSPHDR->hdata.spcdat.pilcnt |
#define PILID ccPARMTR.pilid |
#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 "tDrmRlt" |
#define RUNTIM XSPHDR->hdata.spcdat.runtim |
#define SAVBGDATA |
#define SHOWHDR |
Value:
printf("Length: %3lu * %3lu\n", ICOLS, IROWS); \ printf("Timer : %6lus\n", RUNTIM); \ putchar('\n'); \ printf("%10lu Realtime\n", RLTCNT); \ printf("%10lu Lifetime\n", LFTCNT); \ printf("%10lu Processed data\n", DATCNT); \ printf("%10lu Pile up counter\n", PILCNT); \ printf("%10lu Rejected data\n", REJCNT); \ printf("%10lu Fifo overflows\n", FULCNT); \ printf("%10lu Data errors\n", ERRCNT);
#define SP0NAM ffPARMTR.sp0nam |
#define SPSTAT XSPHDR->hdata.spcdat.status |
#define STOPRT ffROUTPAR.stoprt |
#define useDATAROUT |
#define USHMAX 4 |
#define XLEN XSPHDR->hdata.spcdat.xlen |
#define YLEN XSPHDR->hdata.spcdat.ylen |
#define ZZZZZZ ffPARMTR.zzzzzz |
enum headertypes |