IOCINFRAApp/Db/Bronkhorst.db
author Heinz Junkes <junkes@fhi-berlin.mpg.de>
Wed, 15 Jul 2020 08:12:22 +0200
changeset 2 320de4b4c9ee
parent 0 77d8eafe2a07
permissions -rw-r--r--
Add 2nd moxa XGS600 and TPG256
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     1
#################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     2
#
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     3
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     4
record(stringin, "$(IOC):$(NAME)-NAME")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     5
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     6
	field(DESC, "Name of the device")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     7
	field(VAL, "$(NAME) Device")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     8
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
     9
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    10
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    11
record(stringin, "$(IOC):$(NAME)-IDN")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    12
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    13
	field(DESC, "Name of the device")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    14
	field(INP, "@devBronkhorst.proto identity $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    15
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    16
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    17
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    18
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    19
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    20
#INTEGER PARAMETERS
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    21
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    22
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    23
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    24
# Read; Measure will return a value between -23593 and 41942
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    25
# Record $(IOC):$(NAME)-MEASURE recomputes this value to percentages. NOTE that percentage
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    26
# can be larger than 100% (max value: 131.07%) and even negative for bipolar
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    27
# ADC mode. (min value: -73.73%)
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    28
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    29
record(ai, "$(IOC):$(NAME)-GET-MEASURE_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    30
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    31
	field(DESC, "Read measure")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    32
	field(SCAN, "$(SCAN2)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    33
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    34
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    35
	field(INP, "@devBronkhorst.proto readInt(01,20) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    36
	field(FLNK, "$(IOC):$(NAME)-GET-MEASURE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    37
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    38
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    39
record(calc, "$(IOC):$(NAME)-GET-MEASURE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    40
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    41
	field(DESC, "Measure to percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    42
	field(INPA, "$(IOC):$(NAME)-GET-MEASURE_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    43
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    44
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    45
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    46
	field(FLNK, "$(IOC):$(NAME)-COMM-STATUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    47
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    48
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    49
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    50
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    51
# Read; $(IOC):$(NAME)-GET-SETPOINT_ fetches the value from the device, 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    52
# $(IOC):$(NAME)-GET-SETPOINT recalculates the value to percentages.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    53
#
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    54
# $(IOC):$(NAME)-GET-SETPOINT_ is scanned periodically, because setpoint value can be 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    55
# changed on ALARM or when the Counter reaches it's limit - this is configured
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    56
# by the user
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    57
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    58
record(ai, "$(IOC):$(NAME)-GET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    59
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    60
	field(DESC, "Read setpoint in raw [0,32000]")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    61
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    62
	field(SCAN, "$(SCAN2)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    63
	field(INP, "@devBronkhorst.proto readInt(01,21) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    64
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    65
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    66
	field(FLNK, "$(IOC):$(NAME)-GET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    67
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    68
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    69
record(calc, "$(IOC):$(NAME)-GET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    70
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    71
	field(DESC, "Setpoint to percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    72
	field(INPA, "$(IOC):$(NAME)-GET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    73
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    74
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    75
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    76
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    77
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    78
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    79
# Write; User writes the flow percentage to $(IOC):$(NAME)-SET-SETPOINT.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    80
# $(IOC):$(NAME)-SET-SETPOINT_ recalculates the percentage to interval [0, 32000] and 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    81
# writes the new setpoint to the device
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    82
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    83
record(ao, "$(IOC):$(NAME)-SET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    84
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    85
	field(DESC, "Setpoint in percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    86
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    87
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    88
	field(FLNK, "$(IOC):$(NAME)-SET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    89
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    90
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    91
record(calcout, "$(IOC):$(NAME)-SET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    92
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    93
	field(DESC, "Write setpoint in raw [0,32000]")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    94
	field(INPA, "$(IOC):$(NAME)-SET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    95
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    96
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    97
	field(CALC, "A*32000/100")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    98
	field(OUT, "@devBronkhorst.proto writeInt(01,21) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
    99
	field(FLNK, "$(IOC):$(NAME)-GET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   100
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   101
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   102
record(calcout, "$(IOC):$(NAME)-SET-SP-INIT_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   103
	field(INPA, "$(IOC):$(NAME)-SET-SETPOINT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   104
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   105
	field(OUT, "$(IOC):$(NAME)-SET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   106
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   107
	field(FLNK, "$(IOC):$(NAME)-SET-SETPOINT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   108
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   109
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   110
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   111
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   112
# Read/Write: Setpoint is ramped from 0% to 100% in slope*0.1 seconds
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   113
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   114
record(ai, "$(IOC):$(NAME)-GET-SETPOINT-SLOPE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   115
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   116
	field(DESC, "Read setpoint slope")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   117
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   118
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   119
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   120
	field(INP, "@devBronkhorst.proto readInt(01,22) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   121
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   122
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   123
record(ao, "$(IOC):$(NAME)-SET-SETPOINT-SLOPE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   124
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   125
	field(DESC, "Write setpoint slope")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   126
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   127
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   128
	field(OUT, "@devBronkhorst.proto writeInt(01,22) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   129
	field(FLNK, "$(IOC):$(NAME)-GET-SETPOINT-SLOPE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   130
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   131
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   132
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   133
# Read/Write: Get control mode from device. One of $(IOC):$(NAME)-CTRL-MODE-1/2_ will
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   134
# be in illegal value state. The GUI screen will show the one which is not in 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   135
# illegal value state by checking the severity of the state
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   136
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   137
record(ai, "$(IOC):$(NAME)-GET-CTRL-MODE_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   138
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   139
	field(DESC,"")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   140
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   141
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   142
	field(INP, "@devBronkhorst.proto readChar(01,04) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   143
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   144
	field(FLNK, "$(IOC):$(NAME)-CTRL-MODE-1_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   145
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   146
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   147
record(mbbi, "$(IOC):$(NAME)-CTRL-MODE-1_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   148
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   149
	field(DESC, "Control modes 0-15")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   150
	field(DTYP, "Raw Soft Channel")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   151
	field(INP, "$(IOC):$(NAME)-GET-CTRL-MODE_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   152
	field(UNSV, "MAJOR")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   153
	field(ZRVL, "0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   154
	field(ZRST, "BUS/RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   155
	field(ONVL, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   156
	field(ONST, "Analog input")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   157
	field(TWVL, "2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   158
	field(TWST, "FLOWBUS*FLOWBUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   159
	field(THVL, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   160
	field(THST, "Close valve")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   161
	field(FRVL, "4")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   162
	field(FRST, "Controller idle")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   163
	field(FVVL, "5")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   164
	field(FVST, "Testmode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   165
	field(SXVL, "6")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   166
	field(SXST, "Tuning mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   167
	field(SVVL, "7")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   168
	field(SVST, "Setpoint=100%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   169
	field(EIVL, "8")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   170
	field(EIST, "Purge valve")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   171
	field(NIVL, "9")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   172
	field(NIST, "Calibration mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   173
	field(TEVL, "10")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   174
	field(TEST, "analogIn*FLOWBUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   175
	field(ELVL, "11")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   176
	field(ELST, "Keyboard||FLOWBUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   177
	field(TVVL, "12")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   178
	field(TVST, "Setpoint=0%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   179
	field(TTVL, "13")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   180
	field(TTST, "FLOWBUS*analogIn")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   181
	field(FTVL, "14")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   182
	field(FTST, "Range select mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   183
	field(FFVL, "15")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   184
	field(FFST, "Manual start, auto end")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   185
	field(FLNK, "$(IOC):$(NAME)-CTRL-MODE-2_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   186
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   187
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   188
record(mbbi, "$(IOC):$(NAME)-CTRL-MODE-2_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   189
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   190
	field(DESC, "Control modes 0-15")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   191
	field(DTYP, "Raw Soft Channel")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   192
	field(INP, "$(IOC):$(NAME)-GET-CTRL-MODE_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   193
	field(UNSV, "MAJOR")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   194
	field(ZRSV, "MAJOR")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   195
	field(ONVL, "16")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   196
	field(ONST, "Auto start, manual end")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   197
	field(TWVL, "17")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   198
	field(TWST, "Auto start/end")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   199
	field(THVL, "18")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   200
	field(THST, "RS232 setpoint")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   201
	field(FRVL, "19")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   202
	field(FRST, "RS232 broadcast")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   203
	field(FVVL, "20")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   204
	field(FVST, "Valve stearing")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   205
	field(SXVL, "21")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   206
	field(SXST, "Analog valve stearing")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   207
	field(SVVL, "22")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   208
	field(SVST, "Valve safe state")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   209
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   210
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   211
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   212
# Read/Write: Set control mode. GUI screen will contain strings representing
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   213
# the values on the interval [0, 22]. These values correspond to states in mbbi 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   214
# records $(IOC):$(NAME)-CTRL-MODE-1,2_
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   215
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   216
record(ao, "$(IOC):$(NAME)-SET-CTRL-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   217
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   218
	field(DESC,"Set the control mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   219
	field(DTYP, "stream")	
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   220
	field(OUT, "@devBronkhorst.proto writeChar(01,04) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   221
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   222
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   223
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   224
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   225
# Read/Write: Get/Set fluid number.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   226
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   227
record(ai, "$(IOC):$(NAME)-GET-FLUID-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   228
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   229
	field(DESC, "Read fluid number")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   230
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   231
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   232
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   233
	field(INP, "@devBronkhorst.proto readChar(01,10) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   234
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   235
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   236
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   237
record(ao, "$(IOC):$(NAME)-SET-FLUID-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   238
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   239
	field(DESC, "Set fluid number")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   240
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   241
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   242
	field(OUT, "@devBronkhorst.proto writeChar(01,10) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   243
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   244
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   245
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   246
# Read: Read sensor type
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   247
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   248
record(mbbi, "$(IOC):$(NAME)-GET-SENSOR-TYPE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   249
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   250
	field(DESC,"Read sensor type")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   251
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   252
	field(SCAN, "$(SCAN1)")	
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   253
	field(INP, "@devBronkhorst.proto readChar(01,0E) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   254
	field(ZRVL, "0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   255
	field(ONVL, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   256
	field(TWVL, "2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   257
	field(THVL, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   258
	field(FRVL, "4")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   259
	field(FVVL, "128")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   260
	field(SXVL, "129")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   261
	field(SVVL, "130")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   262
	field(EIVL, "131")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   263
	field(NIVL, "132")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   264
	field(ZRST, "Pressure controller")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   265
	field(ONST, "Liquid volume controller")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   266
	field(TWST, "Liquid/gas controller")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   267
	field(THST, "Gas volume controller")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   268
	field(FRST, "Other controller")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   269
	field(FVST, "Pressure sensor")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   270
	field(SXST, "Liquid volume sensor")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   271
	field(SVST, "Liquid/gas mass sensor")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   272
	field(EIST, "Gas volume sensor")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   273
	field(NIST, "Other sensor")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   274
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   275
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   276
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   277
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   278
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   279
# Read: Get readout unit
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   280
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   281
record(mbbi, "$(IOC):$(NAME)-GET-CAP-UNIT-IDX")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   282
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   283
	field(DESC, "Capacity unit index")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   284
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   285
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   286
	field(INP, "@devBronkhorst.proto readChar(01,0F) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   287
	field(ZRST, "ln/min")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   288
	field(ONST, "mln/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   289
	field(TWST, "mln/min")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   290
	field(THST, "ln/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   291
	field(FRST, "m3n/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   292
	field(FFST, "mls/min")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   293
	field(SXST, "mls/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   294
	field(SVST, "ls/min")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   295
	field(EIST, "ls/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   296
	field(NIST, "m3s/h")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   297
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   298
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   299
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   300
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   301
# Read: Valve will go into the safe state if buss communication is lost and
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   302
# control mode is in BUS/RS232 state or if initreset = 73 or if control mode
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   303
# is 22.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   304
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   305
record(mbbi, "$(IOC):$(NAME)-GET-VALVE-STATE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   306
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   307
	field(DESC, "Capacity unit index")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   308
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   309
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   310
	field(INP, "@devBronkhorst.proto readChar(72,1A) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   311
	field(ZRST, "Deactivate")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   312
	field(ONST, "Activate")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   313
	field(TWST, "Close")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   314
	field(THST, "Open")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   315
	field(FRST, "Current position")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   316
	field(FFST, "Safe Value")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   317
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   318
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   319
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   320
record(mbbo, "$(IOC):$(NAME)-SET-VALVE-STATE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   321
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   322
	field(DESC, "Capacity unit index")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   323
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   324
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   325
	field(OUT, "@devBronkhorst.proto writeChar(72,1A) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   326
	field(ZRST, "Deactivate")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   327
	field(ONST, "Activate")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   328
	field(TWST, "Close")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   329
	field(THST, "Open")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   330
	field(FRST, "Current position")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   331
	field(FFST, "Safe Value")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   332
	field(FLNK, "$(IOC):$(NAME)-GET-VALVE-STATE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   333
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   334
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   335
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   336
# Read: Alarm info. mbbiDirect record checks which flags are set and then 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   337
# starts (forward links) the process chain of bi records representing the value
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   338
# of each alarm state. 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   339
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   340
record(mbbiDirect, "$(IOC):$(NAME)-GET-ALARM-INFO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   341
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   342
	field(DESC, "Read alarm flags")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   343
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   344
	field(INP, "@devBronkhorst.proto readChar(01,14) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   345
	field(SCAN, "$(SCAN2)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   346
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   347
	field(FLNK, "$(IOC):$(NAME)-ERROR-MSG-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   348
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   349
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   350
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   351
# Read: Alarm mode
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   352
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   353
record(mbbi, "$(IOC):$(NAME)-GET-ALARM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   354
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   355
	field(DESC, "Read alarm mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   356
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   357
	field(INP, "@devBronkhorst.proto readChar(61,03) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   358
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   359
	field(ZRST, "Off")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   360
	field(ONST, "Absolute Limits")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   361
	field(TWST, "Setpoint Limits")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   362
	field(THST, "Power up")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   363
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   364
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   365
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   366
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   367
# Write; Set Alarm mode
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   368
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   369
record(mbbo, "$(IOC):$(NAME)-SET-ALARM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   370
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   371
	field(DESC, "Set alarm mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   372
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   373
	field(OUT, "@devBronkhorst.proto writeChar(61,03) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   374
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   375
	field(ZRST, "Off")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   376
	field(ONST, "Absolute Limits")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   377
	field(TWST, "Setpoint Limits")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   378
	field(THST, "Power up")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   379
	field(FLNK, "$(IOC):$(NAME)-GET-ALARM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   380
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   381
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   382
# Read-Write; Get/Set maximum alarm limit. User specifies percentage which is 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   383
# converted to interval [0, 32000]
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   384
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   385
record(calc, "$(IOC):$(NAME)-GET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   386
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   387
	field(DESC, "Get alarm maximum limit in %")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   388
	field(INPA, "$(IOC):$(NAME)-GET-ALM-MAX-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   389
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   390
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   391
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   392
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   393
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   394
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   395
record(ai, "$(IOC):$(NAME)-GET-ALM-MAX-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   396
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   397
	field(DESC, "Get alarm maximum limit in raw")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   398
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   399
	field(INP, "@devBronkhorst.proto readInt(61,21) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   400
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   401
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   402
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   403
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   404
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   405
record(ai, "$(IOC):$(NAME)-SET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   406
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   407
	field(DESC, "Set alarm maximum limit in %")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   408
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-MAX-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   409
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   410
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   411
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   412
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   413
record(calcout, "$(IOC):$(NAME)-SET-ALM-MAX-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   414
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   415
	field(DESC, "Set alarm maximum limit in raw")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   416
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   417
	field(INPA, "$(IOC):$(NAME)-SET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   418
	field(CALC, "A*32000/100")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   419
	field(OUT, "@devBronkhorst.proto writeInt(61,21) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   420
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-MAX-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   421
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   422
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   423
record(calcout, "$(IOC):$(NAME)-SET-ALM-MAX-LIM-INIT_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   424
	field(INPA, "$(IOC):$(NAME)-SET-ALM-MAX-LIMT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   425
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   426
	field(OUT, "$(IOC):$(NAME)-SET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   427
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   428
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-MAX-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   429
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   430
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   431
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   432
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   433
# Read-Write; Get/Set minimum alarm limit. User specifies percentage which is 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   434
# converted to interval [0, 32000]
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   435
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   436
record(calc, "$(IOC):$(NAME)-GET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   437
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   438
	field(DESC, "Get alarm minimum limit in %")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   439
	field(INPA, "$(IOC):$(NAME)-GET-ALM-MIN-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   440
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   441
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   442
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   443
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   444
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   445
record(ai, "$(IOC):$(NAME)-GET-ALM-MIN-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   446
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   447
	field(DESC, "Get alarm minimum limit in raw")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   448
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   449
	field(INP, "@devBronkhorst.proto readInt(61,22) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   450
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   451
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   452
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   453
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   454
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   455
record(ai, "$(IOC):$(NAME)-SET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   456
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   457
	field(DESC, "Set alarm minimum limit in %")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   458
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   459
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   460
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-MIN-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   461
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   462
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   463
record(calcout, "$(IOC):$(NAME)-SET-ALM-MIN-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   464
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   465
	field(DESC, "Set alarm minimum limit in raw")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   466
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   467
	field(INPA, "$(IOC):$(NAME)-SET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   468
	field(CALC, "A*32000/100")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   469
	field(OUT, "@devBronkhorst.proto writeInt(61,22) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   470
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-MIN-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   471
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   472
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   473
record(calcout, "$(IOC):$(NAME)-SET-ALM-MIN-LIM-INIT_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   474
	field(INPA, "$(IOC):$(NAME)-SET-ALM-MIN-LIMT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   475
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   476
	field(OUT, "$(IOC):$(NAME)-SET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   477
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   478
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-MIN-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   479
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   480
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   481
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   482
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   483
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   484
# Read-Write; Get/Set alarm setpoint mode. If device goes into an alarm state,
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   485
# a new setpoint (stored in the record $(IOC):$(NAME)-GET/SET-ALM-NEW-SP) will be set, 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   486
# but only if device ($(IOC):$(NAME)-GET/SET-ALM-SP-MODE) is in state 1.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   487
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   488
record(bi, "$(IOC):$(NAME)-GET-ALM-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   489
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   490
	field(DESC, "Get alarm setpoint mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   491
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   492
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   493
	field(ZNAM, "NO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   494
	field(ONAM, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   495
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   496
	field(INP, "@devBronkhorst.proto readChar(61,05) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   497
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   498
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   499
record(bo, "$(IOC):$(NAME)-SET-ALM-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   500
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   501
	field(DESC, "Set alarm setpoint mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   502
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   503
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   504
	field(ZNAM, "NO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   505
	field(ONAM, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   506
	field(OUT, "@devBronkhorst.proto writeChar(61,05) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   507
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   508
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   509
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   510
record(ai, "$(IOC):$(NAME)-GET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   511
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   512
	field(DESC, "Read alarm setpoint")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   513
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   514
	field(INP, "@devBronkhorst.proto readInt(61,26) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   515
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   516
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   517
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   518
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   519
record(calc, "$(IOC):$(NAME)-GET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   520
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   521
	field(DESC, "Alarm setpoint to percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   522
	field(INPA, "$(IOC):$(NAME)-GET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   523
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   524
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   525
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   526
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   527
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   528
record(ao, "$(IOC):$(NAME)-SET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   529
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   530
	field(DESC, "Alarm setpoint in percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   531
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   532
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   533
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   534
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   535
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   536
record(calcout, "$(IOC):$(NAME)-SET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   537
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   538
	field(DESC, "Write alarm setpoint")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   539
	field(INPA, "$(IOC):$(NAME)-SET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   540
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   541
	field(CALC, "A*32000/100")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   542
	field(OUT, "@devBronkhorst.proto writeInt(61,26) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   543
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   544
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   545
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   546
record(calcout, "$(IOC):$(NAME)-SET-ALM-NEW-SP-INIT_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   547
	field(INPA, "$(IOC):$(NAME)-SET-ALM-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   548
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   549
	field(OUT, "$(IOC):$(NAME)-SET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   550
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   551
	field(FLNK, "$(IOC):$(NAME)-SET-ALM-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   552
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   553
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   554
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   555
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   556
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   557
# Read-Write; Alarm delay time seconds. Alarm action will be delayed when alarm
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   558
# limit has been exceeded. Automatic reset will be delayed when sensor signal
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   559
# reaches safe level again.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   560
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   561
record(ai, "$(IOC):$(NAME)-GET-ALM-DELAY")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   562
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   563
	field(DESC, "Get alarm delay")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   564
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   565
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   566
	field(EGU, "s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   567
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   568
	field(INP, "@devBronkhorst.proto readChar(61,07) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   569
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   570
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   571
record(ao, "$(IOC):$(NAME)-SET-ALM-DELAY")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   572
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   573
	field(DESC, "Get alarm delay")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   574
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   575
	field(EGU, "s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   576
	field(OUT, "@devBronkhorst.proto writeChar(61,07) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   577
	field(FLNK, "$(IOC):$(NAME)-GET-ALM-DELAY")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   578
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   579
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   580
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   581
# Read-Write; Enable reset alarm for different reset triggers.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   582
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   583
record(mbbi, "$(IOC):$(NAME)-GET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   584
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   585
	field(DESC, "Get reset alarm mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   586
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   587
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   588
	field(INP, "@devBronkhorst.proto readChar(61,09) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   589
	field(ZRST, "OFF")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   590
	field(ONST, "Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   591
	field(TWST, "External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   592
	field(THST, "External,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   593
	field(FRST, "RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   594
	field(FVST, "RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   595
	field(SXST, "RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   596
	field(SVST, "RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   597
	field(EIST, "Auto")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   598
	field(NIST, "Auto,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   599
	field(TEST, "Auto,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   600
	field(ELST, "Auto,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   601
	field(TVST, "Auto,RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   602
	field(TTST, "Auto,RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   603
	field(FTST, "Auto,RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   604
	field(FFST, "Auto,RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   605
	#field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   606
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   607
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   608
record(mbboDirect, "$(IOC):$(NAME)-SET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   609
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   610
	field(DESC, "Set alarm reset mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   611
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   612
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   613
	field(B0, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   614
	field(B2, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   615
	field(OUT, "@devBronkhorst.proto writeChar(61,09) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   616
#	field(ZRST, "OFF")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   617
#	field(ONST, "Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   618
#	field(TWST, "External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   619
#	field(THST, "Switch,External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   620
#	field(FRST, "RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   621
#	field(FVST, "RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   622
#	field(SXST, "RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   623
#	field(SVST, "RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   624
#	field(EIST, "Auto")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   625
#	field(NIST, "Auto,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   626
#	field(TEST, "Auto,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   627
#	field(ELST, "Auto,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   628
#	field(TVST, "Auto,RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   629
#	field(TTST, "Auto,RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   630
#	field(FTST, "Auto,RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   631
#	field(FFST, "Auto,RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   632
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   633
	field(FLNK, "$(IOC):$(NAME)-GET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   634
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   635
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   636
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-SWITCH")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   637
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   638
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   639
	field(OUT, "$(IOC):$(NAME)-SET-RESET-ALM-MODE.B0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   640
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   641
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   642
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   643
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   644
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-EXT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   645
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   646
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   647
	field(OUT, "$(IOC):$(NAME)-SET-RESET-ALM-MODE.B1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   648
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   649
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   650
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   651
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   652
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   653
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   654
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   655
	field(OUT, "$(IOC):$(NAME)-SET-RESET-ALM-MODE.B2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   656
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   657
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   658
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   659
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   660
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-AUTO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   661
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   662
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   663
	field(OUT, "$(IOC):$(NAME)-SET-RESET-ALM-MODE.B3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   664
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-ALM-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   665
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   666
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   667
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   668
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   669
# Read-Write; Counter mode.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   670
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   671
record(mbbi, "$(IOC):$(NAME)-GET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   672
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   673
	field(DESC, "Get counter mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   674
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   675
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   676
	field(INP, "@devBronkhorst.proto readChar(68,08) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   677
	field(ZRST, "Off")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   678
	field(ONST, "Continuous")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   679
	field(TWST, "To limit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   680
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   681
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   682
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   683
record(mbbo, "$(IOC):$(NAME)-SET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   684
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   685
	field(DESC, "Set counter mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   686
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   687
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   688
	field(OUT, "@devBronkhorst.proto writeChar(68,08) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   689
	field(ZRST, "Off")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   690
	field(ONST, "Continuous")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   691
	field(TWST, "To limit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   692
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   693
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   694
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   695
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   696
# Read-Write; Counter setpoint mode. 0 - No setpoint change when limit is 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   697
# reached. 1 - setpoint change when limit is reached
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   698
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   699
record(bi, "$(IOC):$(NAME)-GET-CNT-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   700
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   701
	field(DESC, "Get counter mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   702
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   703
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   704
	field(INP, "@devBronkhorst.proto readChar(68,05) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   705
	field(ZNAM, "NO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   706
	field(ONAM, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   707
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   708
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   709
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   710
record(bo, "$(IOC):$(NAME)-SET-CNT-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   711
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   712
	field(DESC, "Set counter mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   713
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   714
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   715
	field(OUT, "@devBronkhorst.proto writeChar(68,05) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   716
	field(ZNAM, "NO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   717
	field(ONAM, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   718
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-SP-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   719
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   720
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   721
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   722
# Read-Write; Get/Set new counter setpoint which will apply f GET-CNT-SP-MODE is
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   723
# YES when limit is reached.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   724
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   725
record(ai, "$(IOC):$(NAME)-GET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   726
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   727
	field(DESC, "Read counter new setpoint")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   728
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   729
	field(INP, "@devBronkhorst.proto readInt(68,26) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   730
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   731
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   732
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   733
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   734
record(calc, "$(IOC):$(NAME)-GET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   735
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   736
	field(DESC, "Counter new setpoint to percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   737
	field(INPA, "$(IOC):$(NAME)-GET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   738
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   739
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   740
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   741
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   742
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   743
record(ao, "$(IOC):$(NAME)-SET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   744
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   745
	field(DESC, "Counter new setpoint in percentage")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   746
	field(EGU, "%")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   747
	field(PREC, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   748
	field(FLNK, "$(IOC):$(NAME)-SET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   749
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   750
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   751
record(calcout, "$(IOC):$(NAME)-SET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   752
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   753
	field(DESC, "Write counter new setpoint")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   754
	field(INPA, "$(IOC):$(NAME)-SET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   755
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   756
	field(CALC, "A*32000/100")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   757
	field(OUT, "@devBronkhorst.proto writeInt(68,26) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   758
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   759
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   760
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   761
record(calcout, "$(IOC):$(NAME)-SET-CNT-NEW-SP-INIT_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   762
	field(INPA, "$(IOC):$(NAME)-SET-CNT-NEW-SP_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   763
	field(CALC, "A*100/32000")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   764
	field(OUT, "$(IOC):$(NAME)-SET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   765
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   766
	field(FLNK, "$(IOC):$(NAME)-SET-CNT-NEW-SP")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   767
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   768
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   769
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   770
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   771
# Read-Write; Counter unit
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   772
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   773
record(mbbi, "$(IOC):$(NAME)-GET-CNT-UNIT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   774
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   775
	field(DESC, "Read counter unit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   776
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   777
	field(INP, "@devBronkhorst.proto readChar(68,02) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   778
	field(ZRST, "ln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   779
	field(ONST, "mm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   780
	field(TWST, "mln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   781
	field(THST, "cm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   782
	field(FRST, "uln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   783
	field(FVST, "dm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   784
	field(SXST, "m3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   785
	field(SVST, "uls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   786
	field(EIST, "mm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   787
	field(NIST, "mls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   788
	field(TEST, "cm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   789
	field(ELST, "ls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   790
	field(TVST, "dm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   791
	field(TTST, "m3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   792
#	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   793
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   794
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   795
record(mbbo, "$(IOC):$(NAME)-SET-CNT-UNIT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   796
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   797
	field(DESC, "Read counter unit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   798
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   799
	field(OUT, "@devBronkhorst.proto writeChar(68,02) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   800
	field(VAL, "0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   801
	field(ZRST, "ln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   802
	field(ONST, "mm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   803
	field(TWST, "mln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   804
	field(THST, "cm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   805
	field(FRST, "uln")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   806
	field(FVST, "dm3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   807
	field(SXST, "m3n")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   808
	field(SVST, "uls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   809
	field(EIST, "mm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   810
	field(NIST, "mls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   811
	field(TEST, "cm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   812
	field(ELST, "ls")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   813
	field(TVST, "dm3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   814
	field(TTST, "m3s")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   815
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   816
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-UNIT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   817
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   818
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   819
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   820
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   821
# Read-Write; Enable reset counter for different reset triggers.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   822
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   823
record(mbbi, "$(IOC):$(NAME)-GET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   824
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   825
	field(DESC, "Get reset alarm mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   826
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   827
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   828
	field(INP, "@devBronkhorst.proto readChar(68,09) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   829
	field(ZRST, "OFF")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   830
	field(ONST, "Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   831
	field(TWST, "External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   832
	field(THST, "Switch,External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   833
	field(FRST, "RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   834
	field(FVST, "RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   835
	field(SXST, "RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   836
	field(SVST, "RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   837
	field(EIST, "Auto")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   838
	field(NIST, "Auto,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   839
	field(TEST, "Auto,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   840
	field(ELST, "Auto,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   841
	field(TVST, "Auto,RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   842
	field(TTST, "Auto,RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   843
	field(FTST, "Auto,RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   844
	field(FFST, "Auto,RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   845
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   846
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   847
record(mbboDirect, "$(IOC):$(NAME)-SET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   848
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   849
	field(DESC, "Set alarm reset mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   850
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   851
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   852
	field(B0, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   853
	field(B2, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   854
	field(OUT, "@devBronkhorst.proto writeChar(68,09) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   855
#	field(ZRST, "OFF")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   856
#	field(ONST, "Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   857
#	field(TWST, "External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   858
#	field(THST, "Switch,External")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   859
#	field(FRST, "RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   860
#	field(FVST, "RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   861
#	field(SXST, "RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   862
#	field(SVST, "RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   863
#	field(EIST, "Auto")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   864
#	field(NIST, "Auto,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   865
#	field(TEST, "Auto,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   866
#	field(ELST, "Auto,Ext;Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   867
#	field(TVST, "Auto,RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   868
#	field(TTST, "Auto,RS232,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   869
#	field(FTST, "Auto,RS232,Ext")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   870
#	field(FFST, "Auto,RS232,Ext,Switch")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   871
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   872
	field(FLNK, "$(IOC):$(NAME)-GET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   873
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   874
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   875
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-CNT-SWITCH")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   876
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   877
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   878
	field(OUT, "$(IOC):$(NAME)-SET-RESET-CNT-MODE.B0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   879
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   880
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   881
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   882
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-CNT-EXT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   883
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   884
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   885
	field(OUT, "$(IOC):$(NAME)-SET-RESET-CNT-MODE.B1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   886
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   887
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   888
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   889
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-CNT-RS232")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   890
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   891
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   892
	field(OUT, "$(IOC):$(NAME)-SET-RESET-CNT-MODE.B2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   893
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   894
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   895
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   896
record(bo, "$(IOC):$(NAME)-TOGGLE-RESET-CNT-AUTO")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   897
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   898
	field(DESC, "")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   899
	field(OUT, "$(IOC):$(NAME)-SET-RESET-CNT-MODE.B3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   900
	field(FLNK, "$(IOC):$(NAME)-SET-RESET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   901
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   902
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   903
# Write. RESET
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   904
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   905
record(mbbo, "$(IOC):$(NAME)-RESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   906
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   907
	field(DESC, "Set alarm reset mode")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   908
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   909
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   910
	field(OUT, "@devBronkhorst.proto writeChar(73,08) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   911
	field(ZRST, "NO RESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   912
	field(ONST, "Counter")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   913
	field(TWST, "Alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   914
	field(THST, "Limit counter")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   915
	field(FRST, "Counter reset & OFF")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   916
	field(FVST, "Module")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   917
	field(SXST, "Alarm info error")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   918
	field(SVST, "Alarm info warning")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   919
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-MODE")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   920
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   921
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   922
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   923
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   924
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   925
#FLOAT PARAMETERS
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   926
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   927
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   928
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   929
# Read; Counter value
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   930
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   931
record(ai, "$(IOC):$(NAME)-GET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   932
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   933
	field(DESC, "Read counter")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   934
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   935
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   936
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   937
record(aSub, "$(IOC):$(NAME)-GET-CNT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   938
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   939
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   940
	field(INPA, "$(IOC):$(NAME)-GET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   941
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   942
	field(OUTA, "$(IOC):$(NAME)-GET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   943
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   944
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   945
	field(FLNK, "$(IOC):$(NAME)-GET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   946
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   947
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   948
record(ai, "$(IOC):$(NAME)-GET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   949
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   950
	field(DESC, "Read counter as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   951
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   952
	field(INP, "@devBronkhorst.proto readFloat(68,41) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   953
	field(SCAN, "$(SCAN2)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   954
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   955
	field(FLNK, "$(IOC):$(NAME)-GET-CNT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   956
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   957
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   958
record(ao, "$(IOC):$(NAME)-SET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   959
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   960
	field(DESC, "Set counter")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   961
	field(FLNK, "$(IOC):$(NAME)-SET-CNT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   962
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   963
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   964
record(aSub, "$(IOC):$(NAME)-SET-CNT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   965
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   966
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   967
	field(INPA, "$(IOC):$(NAME)-SET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   968
	field(FTA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   969
	field(OUTA, "$(IOC):$(NAME)-SET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   970
	field(FTVA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   971
	field(SNAM, "writeFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   972
	field(FLNK, "$(IOC):$(NAME)-SET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   973
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   974
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   975
record(ao, "$(IOC):$(NAME)-SET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   976
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   977
	field(DESC, "Set counter as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   978
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   979
	field(OUT, "@devBronkhorst.proto writeFloat(68,41) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   980
	field(FLNK, "$(IOC):$(NAME)-GET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   981
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   982
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   983
record(aSub, "$(IOC):$(NAME)-SET-CNT-INIT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   984
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   985
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   986
	field(INPA, "$(IOC):$(NAME)-SET-CNT__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   987
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   988
	field(OUTA, "$(IOC):$(NAME)-SET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   989
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   990
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   991
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   992
	field(FLNK, "$(IOC):$(NAME)-SET-CNT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   993
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   994
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   995
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   996
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   997
# Read; Counter limit
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   998
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
   999
record(ai, "$(IOC):$(NAME)-GET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1000
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1001
	field(DESC, "Read counter limit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1002
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1003
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1004
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1005
record(aSub, "$(IOC):$(NAME)-GET-CNT-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1006
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1007
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1008
	field(INPA, "$(IOC):$(NAME)-GET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1009
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1010
	field(OUTA, "$(IOC):$(NAME)-GET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1011
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1012
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1013
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1014
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1015
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1016
record(ai, "$(IOC):$(NAME)-GET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1017
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1018
	field(DESC, "Read counter limit as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1019
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1020
	field(INP, "@devBronkhorst.proto readFloat(68,43) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1021
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1022
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1023
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1024
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1025
record(ao, "$(IOC):$(NAME)-SET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1026
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1027
	field(DESC, "Set counter limit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1028
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1029
	field(FLNK, "$(IOC):$(NAME)-SET-CNT-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1030
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1031
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1032
record(aSub, "$(IOC):$(NAME)-SET-CNT-LIM_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1033
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1034
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1035
	field(INPA, "$(IOC):$(NAME)-SET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1036
	field(FTA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1037
	field(OUTA, "$(IOC):$(NAME)-SET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1038
	field(FTVA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1039
	field(SNAM, "writeFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1040
	field(FLNK, "$(IOC):$(NAME)-SET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1041
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1042
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1043
record(ao, "$(IOC):$(NAME)-SET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1044
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1045
	field(DESC, "Set counter limit as INPlong")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1046
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1047
	field(OUT, "@devBronkhorst.proto writeFloat(68,43) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1048
	field(FLNK, "$(IOC):$(NAME)-GET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1049
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1050
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1051
record(aSub, "$(IOC):$(NAME)-SET-CNT-LIM-INIT_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1052
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1053
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1054
	field(INPA, "$(IOC):$(NAME)-SET-CNT-LIM__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1055
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1056
	field(OUTA, "$(IOC):$(NAME)-SET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1057
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1058
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1059
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1060
	field(FLNK, "$(IOC):$(NAME)-SET-CNT-LIM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1061
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1062
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1063
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1064
# Read/write PID parameters
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1065
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1066
record(ai, "$(IOC):$(NAME)-GET-P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1067
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1068
	field(DESC, "Read P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1069
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1070
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1071
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1072
record(aSub, "$(IOC):$(NAME)-GET-P_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1073
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1074
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1075
	field(INPA, "$(IOC):$(NAME)-GET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1076
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1077
	field(OUTA, "$(IOC):$(NAME)-GET-P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1078
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1079
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1080
	field(FLNK, "$(IOC):$(NAME)-GET-P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1081
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1082
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1083
record(ai, "$(IOC):$(NAME)-GET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1084
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1085
	field(DESC, "Read P as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1086
	field(SCAN, "Passive")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1087
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1088
	field(INP, "@devBronkhorst.proto readFloat(72,55) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1089
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1090
	field(FLNK, "$(IOC):$(NAME)-GET-P_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1091
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1092
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1093
record(ao, "$(IOC):$(NAME)-SET-P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1094
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1095
	field(DESC, "Set P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1096
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1097
	field(FLNK, "$(IOC):$(NAME)-SET-P_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1098
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1099
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1100
record(aSub, "$(IOC):$(NAME)-SET-P_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1101
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1102
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1103
	field(INPA, "$(IOC):$(NAME)-SET-P")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1104
	field(FTA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1105
	field(OUTA, "$(IOC):$(NAME)-SET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1106
	field(FTVA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1107
	field(SNAM, "writeFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1108
	field(FLNK, "$(IOC):$(NAME)-SET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1109
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1110
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1111
record(ao, "$(IOC):$(NAME)-SET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1112
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1113
	field(DESC, "Set P as INPlong")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1114
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1115
	field(OUT, "@devBronkhorst.proto writeFloat(72,55) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1116
	field(FLNK, "$(IOC):$(NAME)-GET-P__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1117
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1118
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1119
record(ai, "$(IOC):$(NAME)-GET-I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1120
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1121
	field(DESC, "Read I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1122
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1123
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1124
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1125
record(aSub, "$(IOC):$(NAME)-GET-I_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1126
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1127
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1128
	field(INPA, "$(IOC):$(NAME)-GET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1129
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1130
	field(OUTA, "$(IOC):$(NAME)-GET-I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1131
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1132
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1133
	field(FLNK, "$(IOC):$(NAME)-GET-I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1134
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1135
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1136
record(ai, "$(IOC):$(NAME)-GET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1137
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1138
	field(DESC, "Read I as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1139
	field(SCAN, "Passive")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1140
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1141
	field(INP, "@devBronkhorst.proto readFloat(72,56) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1142
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1143
	field(FLNK, "$(IOC):$(NAME)-GET-I_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1144
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1145
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1146
record(ao, "$(IOC):$(NAME)-SET-I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1147
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1148
	field(DESC, "Set I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1149
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1150
	field(FLNK, "$(IOC):$(NAME)-SET-I_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1151
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1152
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1153
record(aSub, "$(IOC):$(NAME)-SET-I_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1154
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1155
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1156
	field(INPA, "$(IOC):$(NAME)-SET-I")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1157
	field(FTA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1158
	field(OUTA, "$(IOC):$(NAME)-SET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1159
	field(FTVA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1160
	field(SNAM, "writeFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1161
	field(FLNK, "$(IOC):$(NAME)-SET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1162
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1163
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1164
record(ao, "$(IOC):$(NAME)-SET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1165
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1166
	field(DESC, "Set I as INPlong")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1167
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1168
	field(OUT, "@devBronkhorst.proto writeFloat(72,56) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1169
	field(FLNK, "$(IOC):$(NAME)-GET-I__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1170
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1171
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1172
record(ai, "$(IOC):$(NAME)-GET-D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1173
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1174
	field(DESC, "Read D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1175
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1176
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1177
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1178
record(aSub, "$(IOC):$(NAME)-GET-D_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1179
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1180
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1181
	field(INPA, "$(IOC):$(NAME)-GET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1182
	field(FTA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1183
	field(OUTA, "$(IOC):$(NAME)-GET-D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1184
	field(FTVA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1185
	field(SNAM, "readFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1186
	field(FLNK, "$(IOC):$(NAME)-GET-D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1187
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1188
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1189
record(ai, "$(IOC):$(NAME)-GET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1190
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1191
	field(DESC, "Read D as long")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1192
	field(SCAN, "Passive")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1193
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1194
	field(INP, "@devBronkhorst.proto readFloat(72,57) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1195
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1196
	field(FLNK, "$(IOC):$(NAME)-GET-D_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1197
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1198
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1199
record(ao, "$(IOC):$(NAME)-SET-D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1200
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1201
	field(DESC, "Set D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1202
	field(PREC, "3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1203
	field(FLNK, "$(IOC):$(NAME)-SET-D_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1204
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1205
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1206
record(aSub, "$(IOC):$(NAME)-SET-D_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1207
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1208
	field(DESC, "Interpret long as float")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1209
	field(INPA, "$(IOC):$(NAME)-SET-D")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1210
	field(FTA, "FLOAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1211
	field(OUTA, "$(IOC):$(NAME)-SET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1212
	field(FTVA, "LONG")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1213
	field(SNAM, "writeFloat")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1214
	field(FLNK, "$(IOC):$(NAME)-SET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1215
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1216
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1217
record(ao, "$(IOC):$(NAME)-SET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1218
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1219
	field(DESC, "Set D as INPlong")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1220
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1221
	field(OUT, "@devBronkhorst.proto writeFloat(72,57) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1222
	field(FLNK, "$(IOC):$(NAME)-GET-D__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1223
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1224
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1225
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1226
#STATUS PARAMETERS
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1227
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1228
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1229
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1230
# Read:Number of error messages. 0 - no error message, 1 - at least 1 error
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1231
# message
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1232
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1233
record(bi, "$(IOC):$(NAME)-ERROR-MSG-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1234
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1235
	field(DESC, "Number of error mesgs")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1236
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1237
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1238
	field(ZNAM, "No error")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1239
	field(ONAM, "Error")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1240
	field(FLNK, "$(IOC):$(NAME)-WARNING-MSG-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1241
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1242
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1243
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1244
# Read:Number of warning messages. 0 - no warning message, 1 - at least 1 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1245
# warning message
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1246
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1247
record(bi, "$(IOC):$(NAME)-WARNING-MSG-NUM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1248
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1249
	field(DESC, "Number of warning msgs")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1250
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1251
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1252
	field(ZNAM, "No warning")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1253
	field(ONAM, "Warning")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1254
	field(FLNK, "$(IOC):$(NAME)-MIN-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1255
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1256
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1257
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1258
# Read:Number of minimum alarm messages for measured signal. 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1259
# 0 - no minimum alarm message, 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1260
# 1 - at least 1 minumum alarm message
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1261
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1262
record(bi, "$(IOC):$(NAME)-MIN-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1263
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1264
	field(DESC, "Number of min alarm msgs")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1265
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1266
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1267
	field(ZNAM, "No min alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1268
	field(ONAM, "Min alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1269
	field(FLNK, "$(IOC):$(NAME)-MAX-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1270
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1271
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1272
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1273
# Read:Number of maximum alarm messages for measured signal. 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1274
# 0 - no maximum alarm message, 
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1275
# 1 - at least 1 maximum alarm message
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1276
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1277
record(bi, "$(IOC):$(NAME)-MAX-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1278
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1279
	field(DESC, "Number of max alar msgs")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1280
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1281
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1282
	field(ZNAM, "No max alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1283
	field(ONAM, "Max alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1284
	field(FLNK, "$(IOC):$(NAME)-BATCH-CNT-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1285
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1286
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1287
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1288
# Read: 0 - Batch counter has not reached it's limit
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1289
#       1 - Batch counter has reached it's limit
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1290
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1291
record(bi, "$(IOC):$(NAME)-BATCH-CNT-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1292
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1293
	field(DESC, "Batch counter alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1294
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B4")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1295
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1296
	field(ZNAM, "OK")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1297
	field(ONAM, "Limit")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1298
	field(FLNK, "$(IOC):$(NAME)-RESPONSE-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1299
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1300
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1301
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1302
# Read: 0 - Response OK (setpoint-measure within limit)
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1303
#       1 - Response alarm message: setpoint-measure is too high
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1304
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1305
record(bi, "$(IOC):$(NAME)-RESPONSE-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1306
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1307
	field(DESC, "Response alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1308
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B5")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1309
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1310
	field(ZNAM, "OK")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1311
	field(ONAM, "SP to high")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1312
	field(FLNK, "$(IOC):$(NAME)-MASTER-OUT-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1313
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1314
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1315
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1316
# Read: 0 - Master output signal OK (or unused)
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1317
#       1 - Master output signal not received: check master instrument
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1318
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1319
record(bi, "$(IOC):$(NAME)-MASTER-OUT-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1320
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1321
	field(DESC, "Master output alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1322
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B6")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1323
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1324
	field(ZNAM, "OK")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1325
	field(ONAM, "Not received")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1326
	field(FLNK, "$(IOC):$(NAME)-HARDWARE-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1327
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1328
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1329
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1330
# Read: 0 - Hardware OK
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1331
#       1 - Hardware error message: check your hardware
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1332
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1333
record(bi, "$(IOC):$(NAME)-HARDWARE-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1334
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1335
	field(DESC, "Response alarm")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1336
	field(INP, "$(IOC):$(NAME)-GET-ALARM-INFO.B7")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1337
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1338
	field(ZNAM, "OK")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1339
	field(ONAM, "Error")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1340
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1341
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1342
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1343
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1344
# Read: Check if communication is OK
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1345
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1346
record(calc, "$(IOC):$(NAME)-COMM-STATUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1347
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1348
	field(DESC, "Communication status")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1349
	field(INPA, "$(IOC):$(NAME)-GET-MEASURE_.STAT")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1350
	field(CALC, "A>0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1351
	field(FLNK, "$(IOC):$(NAME)-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1352
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1353
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1354
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1355
# Read; Sum of communication and device errors. If either device or comm. is in
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1356
# error, value is 1. LED on the main screen uses this to determine if everything
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1357
# is ok.
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1358
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1359
record(calc, "$(IOC):$(NAME)-ALARM")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1360
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1361
	field(DESC, "Communication status")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1362
	field(INPA, "$(IOC):$(NAME)-COMM-STATUS")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1363
	field(INPB, "$(IOC):$(NAME)-GET-ALARM-INFO.B0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1364
	field(INPC, "$(IOC):$(NAME)-GET-ALARM-INFO.B1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1365
	field(INPD, "$(IOC):$(NAME)-GET-ALARM-INFO.B2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1366
	field(INPE, "$(IOC):$(NAME)-GET-ALARM-INFO.B3")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1367
	field(INPF, "$(IOC):$(NAME)-GET-ALARM-INFO.B5")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1368
	field(INPG, "$(IOC):$(NAME)-GET-ALARM-INFO.B6")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1369
	field(INPH, "$(IOC):$(NAME)-GET-ALARM-INFO.B7")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1370
	field(CALC, "(A+B+C+D+E+F+G+H)>0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1371
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1372
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1373
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1374
# Lock/unlock secured parameters, e.g. PID parameters
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1375
################################################################################
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1376
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1377
record(ai, "$(IOC):$(NAME)-GET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1378
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1379
	field(DESC, "Get locked/unlocked")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1380
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1381
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1382
	field(INP, "@devBronkhorst.proto readChar(00,0A) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1383
	field(PINI, "YES")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1384
	field(FLNK, "$(IOC):$(NAME)-GET-INITRESET_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1385
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1386
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1387
record(calcout, "$(IOC):$(NAME)-GET-INITRESET_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1388
	field(CALC, "(A=82)?0:(A=64)?1:2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1389
	field(INPA, "$(IOC):$(NAME)-GET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1390
	field(OUT, "$(IOC):$(NAME)-GET-INITRESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1391
	field(FLNK, "$(IOC):$(NAME)-GET-INITRESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1392
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1393
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1394
record(mbbo, "$(IOC):$(NAME)-GET-INITRESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1395
{	
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1396
	field(DESC, "Locked/unlocked")	
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1397
	field(ZRVL, "0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1398
	field(ZRST, "Lock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1399
	field(ONVL, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1400
	field(ONST, "Unlock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1401
	field(TWVL, "2")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1402
	field(TWST, "Unknown")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1403
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1404
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1405
record(mbbo, "$(IOC):$(NAME)-SET-INITRESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1406
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1407
	field(DESC, "Lock/unlock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1408
	field(ZRVL, "0")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1409
	field(ZRST, "Lock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1410
	field(ONVL, "1")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1411
	field(ONST, "Unlock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1412
	field(OUT, "$(IOC):$(NAME)-SET-INITRESET_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1413
	field(FLNK, "$(IOC):$(NAME)-SET-INITRESET_")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1414
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1415
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1416
record(calcout, "$(IOC):$(NAME)-SET-INITRESET_"){
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1417
	field(CALC, "(A=1)?64:82")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1418
	field(INPA, "$(IOC):$(NAME)-SET-INITRESET")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1419
	field(OUT, "$(IOC):$(NAME)-SET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1420
	field(FLNK, "$(IOC):$(NAME)-SET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1421
}
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1422
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1423
record(ao, "$(IOC):$(NAME)-SET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1424
{
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1425
	field(DESC, "Send Lock/unlock")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1426
	field(DTYP, "stream")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1427
	field(SCAN, "$(SCAN1)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1428
	field(OUT, "@devBronkhorst.proto writeChar(00,0A) $(PORT)")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1429
	field(FLNK, "$(IOC):$(NAME)-GET-INITRESET__")
77d8eafe2a07 Initial repo
Heinz Junkes <junkes@fhi-berlin.mpg.de>
parents:
diff changeset
  1430
}