linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new versions

Browse Source
This commit is contained in:
cvs
2002-01-24 13:24:43 +00:00
parent c7347e4129
commit e3c9ba56e6
4 changed files with 303 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

401
tecs/tecs.c
View File

@@ -33,6 +33,7 @@ typedef struct {
float t, t0, t1, t2, min, max, band; /* temperatures */
float scale; /* scale for extreme ranges */
float lim; /* range limit (used when two sensors present) */
float alarm;
int stat1, stat2; /* reading status summary */
int present; /* 0: sensor inactive, 1: sensor configured, -1: sensor parameters read */
int readStat; /* reading status */
@@ -82,7 +83,9 @@ static float
set, /* set T */
setH, /* set T on heat exchanger */
htr, power=DATA_UNDEF, /* heater current percentage, heater power */
tLimit, maxPower, /* heater parameters */
tLimit, /* temperature limit */
maxPower, /* max. Power */
powFact=1, /* power factor (for external power supplies) */
tShift=0, /* setpoint shift */
full, /* full value for helium level */
prop, integ, deriv, /* pid */
@@ -95,6 +98,7 @@ static float
aux=DATA_UNDEF, /* auxiliary value */
ramp=0,
slope=0,
smooth=0,
fbuf, /* float buffer */
r1, r2, /* temporary values */
tInt=0; /* integral time (sec.) for setpoint shift */
@@ -127,6 +131,7 @@ static int
tim0, /* msec Time */
per, /* effective period */
mmInt, mmTime, /* interval and time for next min-max logging */
lockAlarm,
cntError,
tableTime; /* last time when table was read */
@@ -142,9 +147,10 @@ static char
head[64], /* curve header */
intype[64], /* input configuration */
chan[2], /* actual channel */
alarms[20], /* alarm status */
alarmChannels[4]=" ",
alarmList[4], /* alarm list */
alarmStatus[20], /* alarm status */
alarmChannels[8]="",
alarmList[8], /* enabled alarms */
alarmHistory[8]="",
config[256], /* special configuration commands */
helium[80], /* helium level status */
heUnits[4], /* helium level units */
@@ -253,13 +259,17 @@ int InstalCurve(SensorT *sensor, char *dev) {
sens=sensor;
str_copy(chan, sens->ch);
sens->present=0;
if (sens->type=='x' || sens->type=='h') {
if (sens->type=='x' || sens->type=='h' || sens->type=='f') {
if (chan[0]>='C') {
ERR_P(LscCmd(ser, "INTYPE [chan]:0,1,2,1,13;MNMX [chan]:1,3")); /* 7.5 V Range */
ERR_P(LscCmd(ser, "INTYPE [chan]:0,1,2,1,13")); /* 7.5 V Range */
} else {
ERR_P(LscCmd(ser, "INTYPE [chan]:0,1,2,1,12;MNMX [chan]:1,3")); /* 5 V Range */
ERR_P(LscCmd(ser, "INTYPE [chan]:0,1,2,1,12")); /* 5 V Range */
}
if (sens->type=='f') {
ERR_P(LscCmd(ser, "MNMX [chan]:1,4;INCRV [chan]:0"));
} else {
ERR_P(LscCmd(ser, "MNMX [chan]:1,3;INCRV [chan]:0"));
}
ERR_P(LscCmd(ser, "INCRV [chan]:0"));
if (settingsFlag==0) sens->present=1;
return 0;
}
@@ -356,6 +366,7 @@ int InstalCurve(SensorT *sensor, char *dev) {
} else { /* header does not match -> download */
logfileOut(LOG_MAIN, "%s\n%s\n", head, chead);
if (num<=20) ERR_MSG("standard curve does not match");
if (busy) ERR_MSG("busy");
logfileOut(LOG_MAIN+LOG_STAT, "download curve %d\n", num);
@@ -479,8 +490,14 @@ int PrepInput(char *label) {
sensB.scale=1;
sensA.lim=0;
sensB.lim=0;
sensA.alarm=0;
sensB.alarm=0;
slope=0;
ramp=0;
controlMode=0;
powFact=1;
config[0]='\0';
tLimit=310;
} else {
sensC.present=0;
sensD.present=0;
@@ -488,6 +505,8 @@ int PrepInput(char *label) {
sensD.scale=1;
sensC.lim=0;
sensD.lim=0;
sensC.alarm=0;
sensD.alarm=0;
}
loop=1;
resist=10;
@@ -524,13 +543,14 @@ int PrepInput(char *label) {
s=sensors[i];
typ=chans[i];
if (typ=='_') typ='\0';
if (NULL==strchr("mnslhxt", typ)) ERR_MSG("unknown channel type code");
if (NULL==strchr("mnslhxft", typ)) ERR_MSG("unknown channel type code");
if (typ!='\0') {
s->present=-1;
}
s->type=typ;
s->band=10;
if (s->scale==0.0) s->scale=1.0;
if (s->alarm==0.0 && typ=='m' || typ=='s') s->alarm=tLimit;
}
if (!plug->manual) { /* set device name */
@@ -728,28 +748,33 @@ int ReadTemp(void) {
s->stat1=0;
s->stat2=0;
if (s->present) {
if (s->type=='h' || s->type=='x') {
typ='S';
} else {
typ='K';
}
if (doit) ERR_P(LscCmd(ser, buf));
str_substitute(buf
, "KRDG?#>sens#.t0;MDAT?#>sens#.t1,sens#.t2;MDATST?#>sens#.stat1,sens#.stat2"
, "#", s->ch);
buf[0]=typ; /* change KRDG to SRDG */
if (s->type=='h' || s->type=='x') {
buf[0]='S'; /* change KRDG to SRDG */
typ='S';
} else if (s->type=='f') {
buf[0]='L'; /* change KRDG to LDAT */
buf[1]='D';
buf[2]='A';
buf[3]='T';
}
doit=1;
}
}
if (doit) {
if (ramp!=0) {
str_append(buf, ";SETP?[loop]>tr");
tr=tr*CtlScale();
} else {
tr=set;
str_append(buf, ";SETP?[loop]>fbuf");
}
str_append(buf, ";MNMXRST");
ERR_P(LscCmd(ser, buf));
if (ramp!=0) {
tr=fbuf*CtlScale();
} else {
tr=setH;
}
if (tr==0) tr=DATA_UNDEF;
}
@@ -763,7 +788,7 @@ int ReadTemp(void) {
logfileOut(LOG_MAIN, "magic %s: %g %g %g\n", s->ch, s->t1, s->t2, s->t0);
}
stat=(s->stat1 | s->stat2) & (255-2); /* ignore "old reading" */
stat=(s->stat1 | s->stat2) & (255-3); /* ignore "old reading" and "invalid reading" */
if (stat != s->readStat) {
s->readStat=stat;
err=LscReadStat(stat);
@@ -849,7 +874,12 @@ int ReadTemp(void) {
int ReadHeater(void) {
if (loop==1) {
ERR_P(LscCmd(ser, "HTR?>htr;HTRST?>htrst;RELAYST?1>relay"));
if (relay) {
ERR_P(LscCmd(ser, "HTRST?>htrst"));
htr=0;
} else {
ERR_P(LscCmd(ser, "HTR?>htr;HTRST?>htrst;RELAYST?1>relay"));
}
} else {
ERR_P(LscCmd(ser, "AOUT?2>htr"));
htrst=0;
@@ -923,9 +953,9 @@ int SetTemp(int switchOn) {
}
if (ramp > 0 && set != 0) {
/* take ramp from actual temperature if more than 1 % deviation */
ERR_P(LscCmd(ser, "CSET?[loop]>,,cod1;SETP?[loop]>tr"));
tr=tr*scale;
if (cod1 == 0 || fabsf(ctlSens->t - tr) >= 0.01 * ctlSens->t) {
ERR_P(LscCmd(ser, "CSET?[loop]>,,cod1;SETP?[loop]>fbuf"));
tr=fbuf*scale;
if (cod1 == 0 || fabsf(ctlSens->t - tr) >= 0.1 * ctlSens->t) {
fbuf = ctlSens->t;
tr = fbuf * scale;
ERR_P(LscCmd(ser, "SETP [loop],[fbuf];RAMP [loop],0,0;SETP [loop],[fbuf]"));
@@ -940,7 +970,7 @@ int SetTemp(int switchOn) {
ERR_P(LscCmd(ser, "ANALOG 2:0,0"));
}
setH=0;
} else if (switchOn) { /* switch on also when bad heater message and no alarms: || (htrst>=5 && relay==0)) */
} else if (switchOn) { /* switch on also when bad heater message and no alarms: || (htrst>=5 && !relay)) */
ERR_P(LscCmd(ser, "CSET [loop]:[chan],1,1,0"));
if (loop==1) {
ERR_P(LscCmd(ser, "RANGE:[iRange]"));
@@ -948,16 +978,23 @@ int SetTemp(int switchOn) {
ERR_P(LscCmd(ser, "ANALOG 2:0,3"));
}
} else {
ERR_P(LscCmd(ser, "CSET [loop]:[chan],1"));
ERR_P(LscCmd(ser, "CSET?[loop]>,buf1,"));
if (buf1[0] != '1') {
ERR_P(LscCmd(ser, "CSET [loop]:[chan],1"));
}
}
showSet=(0!=strcmp(ctlSens->ch, controlChannel) || switchOn);
str_copy(controlChannel, ctlSens->ch);
if (ramp==0 || set==0) {
ERR_P(LscCmd(ser, "RAMP [loop],0,[ramp];SETP?[loop]>fbuf"));
ERR_P(LscCmd(ser, "RAMP?[loop]>buf1,"));
if (buf1[0] != '0') {
ERR_P(LscCmd(ser, "RAMP [loop]:0,[ramp]"));
}
ERR_P(LscCmd(ser, "SETP?[loop]>fbuf"));
if (fabsf(setH-fbuf) >= (fbuf+setH)*1.0e-5) {
ERR_P(LscCmd(ser, "SETP [loop]:[setH]"));
if (controlMode!=2 && !showSet) {
logfileOut(LOG_MAIN, "set %g (on %s) (was changed)\n", set, ctlSens->ch);
logfileOut(LOG_MAIN, "set %g (on %s) (was changed %g -> %g)\n", set, ctlSens->ch, fbuf, setH);
}
} else {
setH=fbuf;
@@ -969,15 +1006,27 @@ int SetTemp(int switchOn) {
} else {
if (ramp < 0) ramp=-ramp;
if (ramp < 0.1) ramp=0.1;
ERR_P(LscCmd(ser, "RAMP [loop]:1,[ramp];SETP [loop],[setH];SETP?[loop]>tr"));
tr=tr*scale;
if (showSet) {
ERR_P(LscCmd(ser, "RAMP [loop]:1,[ramp];SETP [loop],[setH];SETP?[loop]>fbuf"));
} else {
ERR_P(LscCmd(ser, "SETP?[loop]>fbuf"));
if (fabs(fbuf-setH) >= ramp*smooth) {
fbuf=ramp;
} else {
fbuf=sqrt(fabs(fbuf-setH)*ramp/smooth);
if (fbuf<0.1) fbuf=0.1;
}
ERR_P(LscCmd(ser, "RAMP [loop]:1,[fbuf];SETP [loop],[setH]"));
ERR_P(LscCmd(ser, "SETP?[loop]>fbuf"));
}
tr=fbuf*scale;
if (showSet) {
logfileOut(LOG_MAIN, "set %g (on %s) %g K/min, starting from %g\n", set, ctlSens->ch, ramp, tr);
}
}
if (tr==0) tr=DATA_UNDEF;
if (showSet) {
relay=0;
/* relay=0; */
ERR_I(ReadHeater());
}
return 0;
@@ -986,27 +1035,28 @@ int SetTemp(int switchOn) {
int SetMaxPower(void) {
int i, j;
float pa, pr, pw, dif;
float pa, pr, pw, dif, p;
if (loop == 1) {
iAmp=1; iRange=0;
if (maxPower>0) {
p=maxPower/powFact;
pa=resist*4; /* max. maxPower */
pw=0; dif=1.0e6;
for (i=4; i>0; i--) {
pr=pa;
for (j=5; j>0; j--) {
if (pr>maxPower) {
if (pr/maxPower<dif) { dif=pr/maxPower; pw=pr; iAmp=i; iRange=j; }
if (pr>p) {
if (pr/p<dif) { dif=pr/p; pw=pr; iAmp=i; iRange=j; }
} else {
if (maxPower/pr<dif) { dif=maxPower/pr; pw=pr; iAmp=i; iRange=j; }
if (p/pr<dif) { dif=p/pr; pw=pr; iAmp=i; iRange=j; }
}
pr=pr/10;
}
pa=pa/4;
}
}
maxPower=pw;
maxPower=pw*powFact;
}
logfileOut(LOG_MAIN, "maxPower %g\n", maxPower, iAmp, iRange);
ERR_P(LscCmd(ser, "CDISP 1:[loop],[resist],1;MOUT [loop]:0;CMODE [loop]:1"));
@@ -1026,6 +1076,8 @@ char DisplayFmt(SensorT *s) {
if (s==NULL || s->present<=0 || s->type=='h') return '\0';
if (s->type=='x') {
return '3';
} else if (s->type=='f') {
return '4';
} else {
if (s->scale==1.0) {
return '1';
@@ -1035,6 +1087,30 @@ char DisplayFmt(SensorT *s) {
}
}
int ConfigAlarms(void) {
int i, k;
SensorT *s;
ERR_P(LscCmd(ser, "RELAY 1:1;BEEP:0"));
relay=0;
k=0;
for (i=0;i<4;i++) {
s=sensors[i];
str_copy(buf1, s->ch);
if (s->present==1 && s->alarm>0) {
r1=s->alarm/s->scale;
ERR_P(LscCmd(ser, "ALARM [buf1]:1,1,[r1],0,1,1"));
alarmList[k]=s->ch[0];
k++;
} else {
ERR_P(LscCmd(ser, "ALARM [buf1]:0")); /* switch off unused alarms */
}
}
alarmList[k]='\0';
return 0;
OnError: return -1;
}
int Settings(void) {
char buf[256], typ;
char flds[6], fmt[6];
@@ -1042,10 +1118,14 @@ int Settings(void) {
int i,k,l;
SensorT *s;
remoteMode=2; /* set to remote mode */
ERR_P(LscCmd(ser, "MODE:[remoteMode]"));
ERR_P(LscCmd(ser, "PID?[loop]>prop,integ,deriv"));
ERR_P(LscCmd(ser, "RAMP?[loop]>,ramp"));
if (remoteMode!=2) {
remoteMode=2; /* set to remote mode */
ERR_P(LscCmd(ser, "PID?[loop]>prop,integ,deriv"));
ERR_P(LscCmd(ser, "RAMP?[loop]>,ramp"));
ERR_P(LscCmd(ser, "MODE:[remoteMode]"));
} else {
ERR_P(LscCmd(ser, "PID [loop],[prop],[integ],[deriv]"));
}
for (i=0; i<4; i++) {
s=sensors[i];
plug=plugs[i/2];
@@ -1080,7 +1160,7 @@ int Settings(void) {
samp.sensor2=s;
} else if ('h'==typ) {
heliumSens=s;
} else if ('x'==typ) {
} else if ('x'==typ || 'f'==typ) {
auxSens=s;
} else if ('t'==typ) {
testSens=s;
@@ -1097,38 +1177,19 @@ int Settings(void) {
}
if (settingsFlag) return 0;
str_copy(statusBuf, "alarms");
/* alarms */
alarmList[0]='\0';
alarmList[1]='\0';
alarmList[2]='\0';
s=cryo.sensor1;
if (s!=NULL) {
ERR_I(SetMaxPower());
r1=tLimit/s->scale;
str_copy(buf1, s->ch);
str_copy(buf, "ALARM [buf1]:1,1,[r1],0,1,1;RELAY 1:1;BEEP:0");
alarmList[0]=s->ch[0];
if (samp.sensor1!=cryo.sensor1) {
s=samp.sensor1;
r2=tLimit/s->scale;
str_copy(buf2, s->ch);
str_append(buf, ";ALARM [buf2]:1,1,[r2],0,1,1");
alarmList[1]=s->ch[0];
}
ERR_P(LscCmd(ser, buf));
}
/* switch off alarm of unused channels */
buf[0]='\0';
if (NULL==strchr(alarmList, 'A')) str_append(buf, ";ALARM A:0");
if (NULL==strchr(alarmList, 'B')) str_append(buf, ";ALARM B:0");
if (NULL==strchr(alarmList, 'C')) str_append(buf, ";ALARM C:0");
if (NULL==strchr(alarmList, 'D')) str_append(buf, ";ALARM D:0");
if (buf[0]!='\0') ERR_P(LscCmd(ser, buf+1)); /* send without leading semicolon */
if (settingsFlag) return 0;
str_copy(statusBuf, "alarms");
ERR_I(ConfigAlarms());
if (settingsFlag) return 0;
str_copy(statusBuf, "display");
/* display */
@@ -1194,7 +1255,7 @@ int Settings(void) {
logfileOut(LOG_MAIN, "load %s\n", config);
p=cfg;
while (p!=NULL) {
str_split(buf, p, '\n');
p=str_split(buf, p, '\n');
ERR_P(LscCmd(ser, buf));
}
FREE(cfg);
@@ -1331,45 +1392,62 @@ int PeriodicTask(void) {
if (relay || loop !=1) {
if (alarmList[0]!='\0') {
str_copy(buf, "ALARMST?*");
buf[8]=alarmList[0];
if (alarmList[1]!='\0') {
str_append(buf,";ALARMST?*");
buf[18]=alarmList[1];
buf[0]='\0';
for (k=0;(k<4) && alarmList[k]!='\0';k++) {
str_copy(buf1,";ALARMST?*");
buf1[9]=alarmList[k];
str_append(buf, buf1);
}
str_append(buf, ";ALMRST");
ERR_P(alms=LscCmd(ser, buf));
if (0!=strcmp(alarms, alms)) {
str_copy(alarmChannels, " ");
if (alms[ 0]!='0' || alms[ 2]!='0') alarmChannels[0]=alarmList[0];
if (alms[ 4]!='0' || alms[ 6]!='0') alarmChannels[1]=alarmList[1];
if (0==strcmp(alarmChannels," ")) {
if (loop == 1) {
logfileOut(LOG_MAIN, "No more alarms, but relay is on!\n");
ERR_P(alms=LscCmd(ser, buf+1)); /* send without leading semicolon */
if (0!=strcmp(alarmStatus, alms)) {
str_copy(alarmStatus, alms);
alarmChannels[0]='\0';
i=0;
for (k=0;(k<4) && alarmList[k]!='\0';k++) {
if (alms[k*4] != '0' || alms[k*4+2] != '0') {
alarmChannels[i]=alarmList[k];
i++;
alarmChannels[i]='\0';
if (NULL==strchr(alarmHistory, alarmList[k])) { /* if not yet in history */
str_append(alarmHistory, alarmChannels+i-1); /* add to history */
}
}
}
if (i==0) {
if (lockAlarm) {
logfileOut(LOG_MAIN, "No more active alarms, latching alarms: %s!\n", alarmHistory);
} else {
logfileOut(LOG_MAIN, "No more alarms\n");
alarmHistory[0]='\0';
alarmChannels[0]='\0';
logfileOut(LOG_MAIN, "No more active alarms\n");
ERR_P(LscCmd(ser, "ALMRST"));
relay=0;
}
} else {
logfileOut(LOG_MAIN, "Alarm on channel %s\n", alarmChannels);
if (loop != 1) {
ERR_P(LscCmd(ser, "CSET 2:[chan],1,0,0"));
if (!relay) {
logfileOut(LOG_MAIN, "Switch off heater\n");
if (!relay0 && set!=0) {
lockAlarm=1;
logfileOut(LOG_MAIN, "Switch off heater\n");
if (loop==1) { /* turn on high relay manually, switch off heater and reset alarms */
ERR_P(LscCmd(ser, "RELAY 1:2,1;RANGE:0;ALMRST"));
} else {
ERR_P(LscCmd(ser, "RELAY 1:2,1;ANALOG 2:0,0;ALMRST"));
relay=1;
}
} else {
ERR_P(LscCmd(ser, "ALMRST"));
}
}
str_copy(alarms, alms);
} else {
ERR_P(LscCmd(ser, "ALMRST"));
}
} else if (loop == 1) {
if (!relay0) logfileOut(LOG_MAIN, "Relay is on!\n");
alarms[0]='\0';
alarmStatus[0]='\0';
}
} else if (loop == 1) {
str_copy(alarmChannels, " ");
if (relay0) logfileOut(LOG_MAIN, "No more alarms, relay is off\n");
alarms[0]='\0';
alarmChannels[0]='\0';
alarmStatus[0]='\0';
}
relay0=relay;
@@ -1393,11 +1471,11 @@ int PeriodicTask(void) {
if (set!=0 && remoteMode==2) {
if (cryo.sensor1!=samp.sensor1 && controlMode==2) {
t=ctlSens->t;
d=(setH-t)/t-1.0; /* relative difference */
d=(setH-t)/t; /* relative difference */
w=exp(-d*d*230); /* gaussian */
if (w<0.1) tInt=0; /* reset when far from setpoint (more than 10 %) */
/* if (w<0.1) tInt=0; reset when far from setpoint (more than 10 %) */
if (int2<1) int2=1;
if (tInt<int2*1000/per) tInt+=w; /* increase integral time until int2 sec. */
if (tInt<int2) tInt+=w*per/1000; /* increase integral time until int2 sec. */
if (tInt>w) {
p=w/tInt;
} else {
@@ -1533,7 +1611,13 @@ int DeviceHdl(int mode, void *base) {
int SetHdl(int mode, void *base) {
if (mode==COC_WR) {
if (remoteMode!=2) {
ERR_MSG("controller is in local mode, set to remote first");
ERR_MSG("controller is in local mode, enter 'remote' first");
} else if (relay && set!=0) {
if (alarmChannels[0]!='\0') {
ERR_MSG("alarm is active, set prohibited");
} else {
ERR_MSG("alarm was active, enter 'reset' first");
}
} else if (set<0) {
set=0;
} else if (set>tLimit) {
@@ -1561,14 +1645,29 @@ int PidHdl(int mode, void *base) {
OnError: return -1;
}
int AlarmHdl(int mode, void *base) {
if (mode==COC_WR) {
return COC_DWR;
} else if (mode==COC_DWR) {
ERR_I(ConfigAlarms());
}
return 0;
OnError: return -1;
}
int MaxPowerHdl(int mode, void *base) {
if (mode==COC_WR) {
if (remoteMode==2) {
return COC_DWR;
if (remoteMode!=2) {
ERR_MSG("controller is in local mode, enter 'remote' first");
} else if (relay) {
if (alarmChannels[0]!='\0') {
ERR_MSG("alarm is active, maxPower prohibited");
} else {
ERR_MSG("alarm was active, enter 'reset' first");
}
}
ERR_MSG("controller is in local mode, set to remote first");
return 0;
} else if (mode==COC_DWR && remoteMode!=2) {
return COC_DWR;
} else if (mode==COC_DWR && remoteMode==2) {
ERR_I(SetMaxPower());
ERR_I(SetTemp(1));
}
@@ -1655,9 +1754,13 @@ int ShowSensor(StrBuf *buf, SensorT *s, char *name, char *units, char lim) {
} else {
ERR_I(StrPut(buf, LscReadStat(s->readStat), StrNONE));
}
if (s==ctlSens && tr!=DATA_UNDEF) {
if (s==ctlSens) {
ERR_I(StrPut(buf, ", setpoint", '='));
ERR_I(PutFloat(buf, 5, tr));
if (tr==DATA_UNDEF) {
ERR_I(PutFloat(buf, 5, 0.0));
} else {
ERR_I(PutFloat(buf, 5, tr));
}
ERR_I(StrPut(buf, " ", StrNONE));
ERR_I(StrPut(buf, units, StrNONE));
}
@@ -1704,45 +1807,51 @@ int StatusHdl(int mode, void *base) {
goto EndStatus;
}
if (remoteMode==1) {
ERR_I(StrPut(&buf, "LOCAL mode, use command 'remote' to enable remote control", '\n'));
ERR_I(StrPut(&buf, "LOCAL mode, enter 'remote' to enable remote control", '\n'));
}
ERR_I(StrPut(&buf, "device:", ' '));
ERR_I(StrPut(&buf, device, StrNONE));
if (set==0) {
ERR_I(StrPut(&buf, "\nheater off (set=0)", StrNONE));
ERR_I(StrPut(&buf, "\nheater off,",' '));
} else {
ERR_I(StrPut(&buf, "\ntarget", '='));
ERR_I(PutFloat(&buf, 5, set));
if (ramp==0 || tr==setH) {
ERR_I(StrPut(&buf, " K", StrNONE));
ERR_I(StrPut(&buf, " K,", ' '));
} else {
ERR_I(StrPut(&buf, " K ramping at", ' '));
ERR_I(PutFloat(&buf, 4, ramp));
ERR_I(StrPut(&buf, " K/min", StrNONE));
}
if (relay) {
ERR_I(StrPut(&buf, ", heater off (alarm)", StrNONE));
} else if (htrst!=0) {
ERR_I(StrPut(&buf, ",", ' '));
ERR_I(StrPut(&buf, LscHtrStat(htrst), StrNONE));
} else {
if (power!=DATA_UNDEF) {
ERR_I(StrPut(&buf, ", htr power", '='));
if (power>=0.5) {
ERR_I(PutFloat(&buf, 3, power));
ERR_I(StrPut(&buf, " W, htr current", '='));
} else {
ERR_I(PutFloat(&buf, 3, power*1000));
ERR_I(StrPut(&buf, " mW, htr current", '='));
}
ERR_I(PutFloat(&buf, 4, htr));
ERR_I(StrPut(&buf, " ", '%'));
}
ERR_I(StrPut(&buf, " K/min,", ' '));
}
}
if (0!=strcmp(alarmChannels," ")) {
ERR_I(StrPut(&buf, "\nalarm on channel",' '));
ERR_I(StrPut(&buf, alarmChannels, StrNONE));
if (relay) {
if (alarmChannels[0]!='\0') {
ERR_I(StrPut(&buf, "alarm on channel",' '));
ERR_I(StrPut(&buf, alarmChannels, StrNONE));
} else if (alarmHistory[0]!='\0') {
ERR_I(StrPut(&buf, "alarm was on channel", ' '));
ERR_I(StrPut(&buf, alarmHistory, ','));
ERR_I(StrPut(&buf, " (enter 'reset' to confirm)", StrNONE));
} else {
ERR_I(StrPut(&buf, "alarm",' '));
}
} else if (htrst!=0) {
ERR_I(StrPut(&buf, LscHtrStat(htrst), StrNONE));
} else {
if (power!=DATA_UNDEF) {
ERR_I(StrPut(&buf, "htr power", '='));
if (power>=0.5) {
ERR_I(PutFloat(&buf, 3, power));
ERR_I(StrPut(&buf, " W, htr current", '='));
} else {
ERR_I(PutFloat(&buf, 3, power*1000));
ERR_I(StrPut(&buf, " mW, htr current", '='));
}
ERR_I(PutFloat(&buf, 4, htr));
ERR_I(StrPut(&buf, " ", '%'));
} else {
ERR_I(StrPut(&buf, "set=0", StrNONE));
}
}
tM=0; tS=0;
if (cryo.sensor1!=NULL) {
@@ -1786,16 +1895,39 @@ EndStatus:
int RemoteHdl(int mode, void *base) {
if (mode==COC_WR) {
return COC_DRD;
} else if (mode==COC_DRD) {
return COC_DWR;
} else if (mode==COC_DWR) {
ERR_P(LscCmd(ser, "MODE:[remoteMode]"));
}
return 0;
OnError: return -1;
}
int ExecuteRequest(void) {
int RelayHdl(int mode, void *base) {
if (mode==COC_WR) {
if (alarmChannels[0]!='\0') ERR_MSG("alarm is still active");
return COC_DWR;
} else if (mode==COC_DWR) {
if (relay) {
ERR_P(LscCmd(ser, "RELAY 1:2,1"));
if (alarmHistory[0]=='\0') {
str_copy(alarmHistory, "X");
}
} else {
alarmHistory[0]='\0';
alarmStatus[0]='\0';
ERR_P(LscCmd(ser, "ALMRST;RELAY 1:1"));
logfileOut(LOG_MAIN, "reset alarms\n");
relay0=0;
lockAlarm=0;
set=0;
}
}
return 0;
OnError: return -1;
}
int ExecuteRequest(void) {
if (readTemp) ERR_I(ReadTemp());
ERR_I(CocCallHandlers());
while (settingsFlag==1) {
@@ -1844,7 +1976,7 @@ int MainBody(void) {
per=1000; /* 1 sec */
cryo.temp=0;
samp.temp=0;
remoteMode=1;
/* remoteMode=1; */
noResp=3;
} else if (noResp < 2) {
logfileOut(LOG_ALL ,"no response\n");
@@ -1953,6 +2085,7 @@ int main(int argc, char *argv[]) {
CocFltFld(SensorT, t2, RD);
CocFltFld(SensorT, lim, RD);
CocFltFld(SensorT, scale, RD);
CocFltFld(SensorT, alarm, RW); CocHdl(AlarmHdl);
CocIntFld(SensorT, readStat, RD);
CocIntFld(SensorT, stat1, RD);
CocIntFld(SensorT, stat2, RD);
@@ -1965,6 +2098,8 @@ int main(int argc, char *argv[]) {
CocDefFlt(deriv, RW); CocHdl(PidHdl);
CocDefFlt(set, RW); CocHdl(SetHdl);
CocDefFlt(ramp, RW); CocHdl(SetHdl);
CocDefFlt(smooth, RW);
CocDefFlt(powFact, RW);
CocDefFlt(htr, RD);
CocDefFlt(power, RD);
CocDefFlt(setH, RD);
@@ -1980,6 +2115,8 @@ int main(int argc, char *argv[]) {
CocDefFlt(fbuf, RD);
CocDefFlt(r1, RD);
CocDefFlt(r2, RD);
CocDefFlt(tShift, RW);
CocDefFlt(tInt, RW);
CocDefPtr(clData, ClientData);
CocStrFld(ClientData, cmd, RW); CocHdl(SendHdl);
@@ -2017,6 +2154,7 @@ int main(int argc, char *argv[]) {
CocDefInt(iAmp, RD);
CocDefInt(iRange, RD);
CocDefInt(remoteMode, RW); CocHdl(RemoteHdl);
CocDefInt(relay, RW); CocHdl(RelayHdl);
CocDefInt(htrst, RD);
CocDefInt(loop, RD);
CocDefInt(rdTim, RD);
@@ -2027,7 +2165,6 @@ int main(int argc, char *argv[]) {
CocDefInt(controlMode, RW);
CocDefInt(int2, RW);
CocDefInt(busy, RD);
CocDefInt(relay, RD);
CocDefInt(serialNo, RD);
CocDefInt(quit, RW);