00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012 #include <stdio.h>
00013 #include <dos.h>
00014 #include <string.h>
00015
00016 #include "midas.h"
00017 #include "mcstd.h"
00018
00019 #include "lrs2365.h"
00020
00021
00022
00023 int lrs2365_set(int crate, int slot, WORD coeff[18])
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033 {
00034 int i, status;
00035 WORD data;
00036
00037
00038 camc(crate, slot, 0, 9);
00039
00040
00041 camo(crate, slot, 3, 16, 0);
00042
00043
00044 for (i = 0; i < 18; i++)
00045 camo(crate, slot, 0, 16, coeff[i]);
00046
00047
00048 status = SUCCESS;
00049 for (i = 0; i < 18; i++) {
00050 cami(crate, slot, 0, 0, &data);
00051 if (data != coeff[i]) {
00052 cm_msg(MERROR, "lrs2365_set",
00053 "Error verifying coefficients: should be %d, read %d", coeff[i], data);
00054 status = 0;
00055 }
00056 }
00057
00058 return status;
00059 }