#************************************************************************* # Copyright (c) 2012 The University of Chicago, as Operator of Argonne # National Laboratory. # Copyright (c) 2002 The Regents of the University of California, as # Operator of Los Alamos National Laboratory. # EPICS BASE is distributed subject to a Software License Agreement found # in file LICENSE that is included with this distribution. #************************************************************************* =title Array Subroutine Record (aSub) ... =head2 Record-specific Menus =head3 Menu aSubLFLG The LFLG field uses this menu to ... =menu aSubLFLG =head3 Menu aSubEFLG The EFLG field uses this menu to ... =menu aSubEFLG ... =head2 Parameter Fields The record-specific fields are described below. =recordtype aSub ... =cut menu(aSubLFLG) { choice(aSubLFLG_IGNORE,"IGNORE") choice(aSubLFLG_READ,"READ") } menu(aSubEFLG) { choice(aSubEFLG_NEVER,"NEVER") choice(aSubEFLG_ON_CHANGE,"ON CHANGE") choice(aSubEFLG_ALWAYS,"ALWAYS") } recordtype(aSub) { include "dbCommon.dbd" field(VAL,DBF_LONG) { prompt("Subr. return value") asl(ASL0) } field(OVAL,DBF_LONG) { prompt("Old return value") special(SPC_NOMOD) interest(3) } field(INAM,DBF_STRING) { prompt("Initialize Subr. Name") promptgroup("30 - Action") special(SPC_NOMOD) interest(1) size(41) } field(LFLG,DBF_MENU) { prompt("Subr. Input Enable") promptgroup("30 - Action") interest(1) menu(aSubLFLG) } field(SUBL,DBF_INLINK) { prompt("Subroutine Name Link") promptgroup("30 - Action") special(SPC_NOMOD) interest(1) } field(SNAM,DBF_STRING) { prompt("Process Subr. Name") promptgroup("30 - Action") special(SPC_MOD) interest(1) size(41) } field(ONAM,DBF_STRING) { prompt("Old Subr. Name") promptgroup("30 - Action") special(SPC_NOMOD) interest(3) size(41) } %struct aSubRecord; field(SADR,DBF_NOACCESS) { prompt("Subroutine Address") special(SPC_NOMOD) interest(2) extra("long (*sadr)(struct aSubRecord *)") } field(CADR,DBF_NOACCESS) { prompt("Subroutine Cleanup Address") special(SPC_NOMOD) interest(2) extra("void (*cadr)(struct aSubRecord *)") } field(BRSV,DBF_MENU) { prompt("Bad Return Severity") promptgroup("70 - Alarm") pp(TRUE) interest(1) menu(menuAlarmSevr) } field(PREC,DBF_SHORT) { prompt("Display Precision") promptgroup("80 - Display") interest(1) prop(YES) } field(EFLG,DBF_MENU) { prompt("Output Event Flag") promptgroup("50 - Output") interest(1) menu(aSubEFLG) initial("1") } field(INPA,DBF_INLINK) { prompt("Input Link A") promptgroup("41 - Input A-G") interest(1) } field(INPB,DBF_INLINK) { prompt("Input Link B") promptgroup("41 - Input A-G") interest(1) } field(INPC,DBF_INLINK) { prompt("Input Link C") promptgroup("41 - Input A-G") interest(1) } field(INPD,DBF_INLINK) { prompt("Input Link D") promptgroup("41 - Input A-G") interest(1) } field(INPE,DBF_INLINK) { prompt("Input Link E") promptgroup("41 - Input A-G") interest(1) } field(INPF,DBF_INLINK) { prompt("Input Link F") promptgroup("41 - Input A-G") interest(1) } field(INPG,DBF_INLINK) { prompt("Input Link G") promptgroup("41 - Input A-G") interest(1) } field(INPH,DBF_INLINK) { prompt("Input Link H") promptgroup("42 - Input H-N") interest(1) } field(INPI,DBF_INLINK) { prompt("Input Link I") promptgroup("42 - Input H-N") interest(1) } field(INPJ,DBF_INLINK) { prompt("Input Link J") promptgroup("42 - Input H-N") interest(1) } field(INPK,DBF_INLINK) { prompt("Input Link K") promptgroup("42 - Input H-N") interest(1) } field(INPL,DBF_INLINK) { prompt("Input Link L") promptgroup("42 - Input H-N") interest(1) } field(INPM,DBF_INLINK) { prompt("Input Link M") promptgroup("42 - Input H-N") interest(1) } field(INPN,DBF_INLINK) { prompt("Input Link N") promptgroup("42 - Input H-N") interest(1) } field(INPO,DBF_INLINK) { prompt("Input Link O") promptgroup("43 - Input O-U") interest(1) } field(INPP,DBF_INLINK) { prompt("Input Link P") promptgroup("43 - Input O-U") interest(1) } field(INPQ,DBF_INLINK) { prompt("Input Link Q") promptgroup("43 - Input O-U") interest(1) } field(INPR,DBF_INLINK) { prompt("Input Link R") promptgroup("43 - Input O-U") interest(1) } field(INPS,DBF_INLINK) { prompt("Input Link S") promptgroup("43 - Input O-U") interest(1) } field(INPT,DBF_INLINK) { prompt("Input Link T") promptgroup("43 - Input O-U") interest(1) } field(INPU,DBF_INLINK) { prompt("Input Link U") promptgroup("43 - Input O-U") interest(1) } =head3 Input Fields ... =fields A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U =cut field(A,DBF_NOACCESS) { prompt("Input value A") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *a") #=read Yes #=write Yes #=type Set by FTA } field(B,DBF_NOACCESS) { prompt("Input value B") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *b") #=read Yes #=write Yes #=type Set by FTB } field(C,DBF_NOACCESS) { prompt("Input value C") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *c") #=read Yes #=write Yes #=type Set by FTC } field(D,DBF_NOACCESS) { prompt("Input value D") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *d") #=read Yes #=write Yes #=type Set by FTD } field(E,DBF_NOACCESS) { prompt("Input value E") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *e") #=read Yes #=write Yes #=type Set by FTE } field(F,DBF_NOACCESS) { prompt("Input value F") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *f") #=read Yes #=write Yes #=type Set by FTF } field(G,DBF_NOACCESS) { prompt("Input value G") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *g") #=read Yes #=write Yes #=type Set by FTG } field(H,DBF_NOACCESS) { prompt("Input value H") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *h") #=read Yes #=write Yes #=type Set by FTH } field(I,DBF_NOACCESS) { prompt("Input value I") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *i") #=read Yes #=write Yes #=type Set by FTI } field(J,DBF_NOACCESS) { prompt("Input value J") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *j") #=read Yes #=write Yes #=type Set by FTJ } field(K,DBF_NOACCESS) { prompt("Input value K") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *k") #=read Yes #=write Yes #=type Set by FTK } field(L,DBF_NOACCESS) { prompt("Input value L") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *l") #=read Yes #=write Yes #=type Set by FTL } field(M,DBF_NOACCESS) { prompt("Input value M") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *m") #=read Yes #=write Yes #=type Set by FTM } field(N,DBF_NOACCESS) { prompt("Input value N") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *n") #=read Yes #=write Yes #=type Set by FTN } field(O,DBF_NOACCESS) { prompt("Input value O") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *o") #=read Yes #=write Yes #=type Set by FTO } field(P,DBF_NOACCESS) { prompt("Input value P") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *p") #=read Yes #=write Yes #=type Set by FTP } field(Q,DBF_NOACCESS) { prompt("Input value Q") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *q") #=read Yes #=write Yes #=type Set by FTQ } field(R,DBF_NOACCESS) { prompt("Input value R") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *r") #=read Yes #=write Yes #=type Set by FTR } field(S,DBF_NOACCESS) { prompt("Input value S") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *s") #=read Yes #=write Yes #=type Set by FTS } field(T,DBF_NOACCESS) { prompt("Input value T") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *t") #=read Yes #=write Yes #=type Set by FTT } field(U,DBF_NOACCESS) { prompt("Input value U") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *u") #=read Yes #=write Yes #=type Set by FTU } field(FTA,DBF_MENU) { prompt("Type of A") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTB,DBF_MENU) { prompt("Type of B") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTC,DBF_MENU) { prompt("Type of C") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTD,DBF_MENU) { prompt("Type of D") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTE,DBF_MENU) { prompt("Type of E") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTF,DBF_MENU) { prompt("Type of F") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTG,DBF_MENU) { prompt("Type of G") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTH,DBF_MENU) { prompt("Type of H") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTI,DBF_MENU) { prompt("Type of I") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTJ,DBF_MENU) { prompt("Type of J") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTK,DBF_MENU) { prompt("Type of K") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTL,DBF_MENU) { prompt("Type of L") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTM,DBF_MENU) { prompt("Type of M") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTN,DBF_MENU) { prompt("Type of N") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTO,DBF_MENU) { prompt("Type of O") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTP,DBF_MENU) { prompt("Type of P") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTQ,DBF_MENU) { prompt("Type of Q") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTR,DBF_MENU) { prompt("Type of R") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTS,DBF_MENU) { prompt("Type of S") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTT,DBF_MENU) { prompt("Type of T") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTU,DBF_MENU) { prompt("Type of U") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(NOA,DBF_ULONG) { prompt("Max. elements in A") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOB,DBF_ULONG) { prompt("Max. elements in B") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOC,DBF_ULONG) { prompt("Max. elements in C") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOD,DBF_ULONG) { prompt("Max. elements in D") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOE,DBF_ULONG) { prompt("Max. elements in E") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOF,DBF_ULONG) { prompt("Max. elements in F") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOG,DBF_ULONG) { prompt("Max. elements in G") promptgroup("41 - Input A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOH,DBF_ULONG) { prompt("Max. elements in H") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOI,DBF_ULONG) { prompt("Max. elements in I") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOJ,DBF_ULONG) { prompt("Max. elements in J") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOK,DBF_ULONG) { prompt("Max. elements in K") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOL,DBF_ULONG) { prompt("Max. elements in L") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOM,DBF_ULONG) { prompt("Max. elements in M") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NON,DBF_ULONG) { prompt("Max. elements in N") promptgroup("42 - Input H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOO,DBF_ULONG) { prompt("Max. elements in O") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOP,DBF_ULONG) { prompt("Max. elements in P") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOQ,DBF_ULONG) { prompt("Max. elements in Q") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOR,DBF_ULONG) { prompt("Max. elements in R") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOS,DBF_ULONG) { prompt("Max. elements in S") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOT,DBF_ULONG) { prompt("Max. elements in T") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOU,DBF_ULONG) { prompt("Max. elements in U") promptgroup("43 - Input O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NEA,DBF_ULONG) { prompt("Num. elements in A") special(SPC_NOMOD) interest(3) initial("1") } field(NEB,DBF_ULONG) { prompt("Num. elements in B") special(SPC_NOMOD) interest(3) initial("1") } field(NEC,DBF_ULONG) { prompt("Num. elements in C") special(SPC_NOMOD) interest(3) initial("1") } field(NED,DBF_ULONG) { prompt("Num. elements in D") special(SPC_NOMOD) interest(3) initial("1") } field(NEE,DBF_ULONG) { prompt("Num. elements in E") special(SPC_NOMOD) interest(3) initial("1") } field(NEF,DBF_ULONG) { prompt("Num. elements in F") special(SPC_NOMOD) interest(3) initial("1") } field(NEG,DBF_ULONG) { prompt("Num. elements in G") special(SPC_NOMOD) interest(3) initial("1") } field(NEH,DBF_ULONG) { prompt("Num. elements in H") special(SPC_NOMOD) interest(3) initial("1") } field(NEI,DBF_ULONG) { prompt("Num. elements in I") special(SPC_NOMOD) interest(3) initial("1") } field(NEJ,DBF_ULONG) { prompt("Num. elements in J") special(SPC_NOMOD) interest(3) initial("1") } field(NEK,DBF_ULONG) { prompt("Num. elements in K") special(SPC_NOMOD) interest(3) initial("1") } field(NEL,DBF_ULONG) { prompt("Num. elements in L") special(SPC_NOMOD) interest(3) initial("1") } field(NEM,DBF_ULONG) { prompt("Num. elements in M") special(SPC_NOMOD) interest(3) initial("1") } field(NEN,DBF_ULONG) { prompt("Num. elements in N") special(SPC_NOMOD) interest(3) initial("1") } field(NEO,DBF_ULONG) { prompt("Num. elements in O") special(SPC_NOMOD) interest(3) initial("1") } field(NEP,DBF_ULONG) { prompt("Num. elements in P") special(SPC_NOMOD) interest(3) initial("1") } field(NEQ,DBF_ULONG) { prompt("Num. elements in Q") special(SPC_NOMOD) interest(3) initial("1") } field(NER,DBF_ULONG) { prompt("Num. elements in R") special(SPC_NOMOD) interest(3) initial("1") } field(NES,DBF_ULONG) { prompt("Num. elements in S") special(SPC_NOMOD) interest(3) initial("1") } field(NET,DBF_ULONG) { prompt("Num. elements in T") special(SPC_NOMOD) interest(3) initial("1") } field(NEU,DBF_ULONG) { prompt("Num. elements in U") special(SPC_NOMOD) interest(3) initial("1") } field(OUTA,DBF_OUTLINK) { prompt("Output Link A") promptgroup("51 - Output A-G") interest(1) } field(OUTB,DBF_OUTLINK) { prompt("Output Link B") promptgroup("51 - Output A-G") interest(1) } field(OUTC,DBF_OUTLINK) { prompt("Output Link C") promptgroup("51 - Output A-G") interest(1) } field(OUTD,DBF_OUTLINK) { prompt("Output Link D") promptgroup("51 - Output A-G") interest(1) } field(OUTE,DBF_OUTLINK) { prompt("Output Link E") promptgroup("51 - Output A-G") interest(1) } field(OUTF,DBF_OUTLINK) { prompt("Output Link F") promptgroup("51 - Output A-G") interest(1) } field(OUTG,DBF_OUTLINK) { prompt("Output Link G") promptgroup("51 - Output A-G") interest(1) } field(OUTH,DBF_OUTLINK) { prompt("Output Link H") promptgroup("52 - Output H-N") interest(1) } field(OUTI,DBF_OUTLINK) { prompt("Output Link I") promptgroup("52 - Output H-N") interest(1) } field(OUTJ,DBF_OUTLINK) { prompt("Output Link J") promptgroup("52 - Output H-N") interest(1) } field(OUTK,DBF_OUTLINK) { prompt("Output Link K") promptgroup("52 - Output H-N") interest(1) } field(OUTL,DBF_OUTLINK) { prompt("Output Link L") promptgroup("52 - Output H-N") interest(1) } field(OUTM,DBF_OUTLINK) { prompt("Output Link M") promptgroup("52 - Output H-N") interest(1) } field(OUTN,DBF_OUTLINK) { prompt("Output Link N") promptgroup("52 - Output H-N") interest(1) } field(OUTO,DBF_OUTLINK) { prompt("Output Link O") promptgroup("53 - Output O-U") interest(1) } field(OUTP,DBF_OUTLINK) { prompt("Output Link P") promptgroup("53 - Output O-U") interest(1) } field(OUTQ,DBF_OUTLINK) { prompt("Output Link Q") promptgroup("53 - Output O-U") interest(1) } field(OUTR,DBF_OUTLINK) { prompt("Output Link R") promptgroup("53 - Output O-U") interest(1) } field(OUTS,DBF_OUTLINK) { prompt("Output Link S") promptgroup("53 - Output O-U") interest(1) } field(OUTT,DBF_OUTLINK) { prompt("Output Link T") promptgroup("53 - Output O-U") interest(1) } field(OUTU,DBF_OUTLINK) { prompt("Output Link U") promptgroup("53 - Output O-U") interest(1) } =head3 Value Fields ... =fields VALA, VALB, VALC, VALD, VALE, VALF, VALG, VALH, VALI, VALJ, VALK, VALL, VALM, VALN, VALO, VALP, VALQ, VALR, VALS, VALT, VALU =cut field(VALA,DBF_NOACCESS) { prompt("Output value A") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vala") #=read Yes #=write Yes #=type Set by FTVA } field(VALB,DBF_NOACCESS) { prompt("Output value B") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valb") #=read Yes #=write Yes #=type Set by FTVB } field(VALC,DBF_NOACCESS) { prompt("Output value C") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valc") #=read Yes #=write Yes #=type Set by FTVC } field(VALD,DBF_NOACCESS) { prompt("Output value D") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vald") #=read Yes #=write Yes #=type Set by FTVD } field(VALE,DBF_NOACCESS) { prompt("Output value E") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vale") #=read Yes #=write Yes #=type Set by FTVE } field(VALF,DBF_NOACCESS) { prompt("Output value F") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valf") #=read Yes #=write Yes #=type Set by FTVF } field(VALG,DBF_NOACCESS) { prompt("Output value G") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valg") #=read Yes #=write Yes #=type Set by FTVG } field(VALH,DBF_NOACCESS) { prompt("Output value H") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valh") #=read Yes #=write Yes #=type Set by FTVH } field(VALI,DBF_NOACCESS) { prompt("Output value I") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vali") #=read Yes #=write Yes #=type Set by FTVI } field(VALJ,DBF_NOACCESS) { prompt("Output value J") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valj") #=read Yes #=write Yes #=type Set by FTVJ } field(VALK,DBF_NOACCESS) { prompt("Output value K") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valk") #=read Yes #=write Yes #=type Set by FTVK } field(VALL,DBF_NOACCESS) { prompt("Output value L") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vall") #=read Yes #=write Yes #=type Set by FTVL } field(VALM,DBF_NOACCESS) { prompt("Output value M") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valm") #=read Yes #=write Yes #=type Set by FTVM } field(VALN,DBF_NOACCESS) { prompt("Output value N") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valn") #=read Yes #=write Yes #=type Set by FTVN } field(VALO,DBF_NOACCESS) { prompt("Output value O") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valo") #=read Yes #=write Yes #=type Set by FTVO } field(VALP,DBF_NOACCESS) { prompt("Output value P") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valp") #=read Yes #=write Yes #=type Set by FTVP } field(VALQ,DBF_NOACCESS) { prompt("Output value Q") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valq") #=read Yes #=write Yes #=type Set by FTVQ } field(VALR,DBF_NOACCESS) { prompt("Output value R") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valr") #=read Yes #=write Yes #=type Set by FTVR } field(VALS,DBF_NOACCESS) { prompt("Output value S") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *vals") #=read Yes #=write Yes #=type Set by FTVS } field(VALT,DBF_NOACCESS) { prompt("Output value T") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valt") #=read Yes #=write Yes #=type Set by FTVT } field(VALU,DBF_NOACCESS) { prompt("Output value U") asl(ASL0) special(SPC_DBADDR) interest(2) extra("void *valu") #=read Yes #=write Yes #=type Set by FTVU } field(OVLA,DBF_NOACCESS) { prompt("Old Output A") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovla") } field(OVLB,DBF_NOACCESS) { prompt("Old Output B") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlb") } field(OVLC,DBF_NOACCESS) { prompt("Old Output C") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlc") } field(OVLD,DBF_NOACCESS) { prompt("Old Output D") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovld") } field(OVLE,DBF_NOACCESS) { prompt("Old Output E") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovle") } field(OVLF,DBF_NOACCESS) { prompt("Old Output F") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlf") } field(OVLG,DBF_NOACCESS) { prompt("Old Output G") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlg") } field(OVLH,DBF_NOACCESS) { prompt("Old Output H") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlh") } field(OVLI,DBF_NOACCESS) { prompt("Old Output I") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovli") } field(OVLJ,DBF_NOACCESS) { prompt("Old Output J") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlj") } field(OVLK,DBF_NOACCESS) { prompt("Old Output K") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlk") } field(OVLL,DBF_NOACCESS) { prompt("Old Output L") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovll") } field(OVLM,DBF_NOACCESS) { prompt("Old Output M") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlm") } field(OVLN,DBF_NOACCESS) { prompt("Old Output N") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovln") } field(OVLO,DBF_NOACCESS) { prompt("Old Output O") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlo") } field(OVLP,DBF_NOACCESS) { prompt("Old Output P") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlp") } field(OVLQ,DBF_NOACCESS) { prompt("Old Output Q") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlq") } field(OVLR,DBF_NOACCESS) { prompt("Old Output R") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlr") } field(OVLS,DBF_NOACCESS) { prompt("Old Output S") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovls") } field(OVLT,DBF_NOACCESS) { prompt("Old Output T") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlt") } field(OVLU,DBF_NOACCESS) { prompt("Old Output U") asl(ASL0) special(SPC_NOMOD) interest(4) extra("void *ovlu") } field(FTVA,DBF_MENU) { prompt("Type of VALA") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVB,DBF_MENU) { prompt("Type of VALB") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVC,DBF_MENU) { prompt("Type of VALC") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVD,DBF_MENU) { prompt("Type of VALD") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVE,DBF_MENU) { prompt("Type of VALE") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVF,DBF_MENU) { prompt("Type of VALF") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVG,DBF_MENU) { prompt("Type of VALG") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVH,DBF_MENU) { prompt("Type of VALH") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVI,DBF_MENU) { prompt("Type of VALI") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVJ,DBF_MENU) { prompt("Type of VALJ") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVK,DBF_MENU) { prompt("Type of VALK") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVL,DBF_MENU) { prompt("Type of VALL") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVM,DBF_MENU) { prompt("Type of VALM") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVN,DBF_MENU) { prompt("Type of VALN") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVO,DBF_MENU) { prompt("Type of VALO") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVP,DBF_MENU) { prompt("Type of VALP") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVQ,DBF_MENU) { prompt("Type of VALQ") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVR,DBF_MENU) { prompt("Type of VALR") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVS,DBF_MENU) { prompt("Type of VALS") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVT,DBF_MENU) { prompt("Type of VALT") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(FTVU,DBF_MENU) { prompt("Type of VALU") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("DOUBLE") menu(menuFtype) } field(NOVA,DBF_ULONG) { prompt("Max. elements in VALA") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVB,DBF_ULONG) { prompt("Max. elements in VALB") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVC,DBF_ULONG) { prompt("Max. elements in VALC") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVD,DBF_ULONG) { prompt("Max. elements in VALD") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVE,DBF_ULONG) { prompt("Max. elements in VALE") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVF,DBF_ULONG) { prompt("Max. elements in VALF") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVG,DBF_ULONG) { prompt("Max. elements in VALG") promptgroup("51 - Output A-G") special(SPC_NOMOD) interest(1) initial("1") } field(NOVH,DBF_ULONG) { prompt("Max. elements in VAlH") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVI,DBF_ULONG) { prompt("Max. elements in VALI") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVJ,DBF_ULONG) { prompt("Max. elements in VALJ") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVK,DBF_ULONG) { prompt("Max. elements in VALK") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVL,DBF_ULONG) { prompt("Max. elements in VALL") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVM,DBF_ULONG) { prompt("Max. elements in VALM") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVN,DBF_ULONG) { prompt("Max. elements in VALN") promptgroup("52 - Output H-N") special(SPC_NOMOD) interest(1) initial("1") } field(NOVO,DBF_ULONG) { prompt("Max. elements in VALO") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVP,DBF_ULONG) { prompt("Max. elements in VALP") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVQ,DBF_ULONG) { prompt("Max. elements in VALQ") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVR,DBF_ULONG) { prompt("Max. elements in VALR") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVS,DBF_ULONG) { prompt("Max. elements in VALS") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVT,DBF_ULONG) { prompt("Max. elements in VALT") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NOVU,DBF_ULONG) { prompt("Max. elements in VALU") promptgroup("53 - Output O-U") special(SPC_NOMOD) interest(1) initial("1") } field(NEVA,DBF_ULONG) { prompt("Num. elements in VALA") special(SPC_NOMOD) interest(3) initial("1") } field(NEVB,DBF_ULONG) { prompt("Num. elements in VALB") special(SPC_NOMOD) interest(3) initial("1") } field(NEVC,DBF_ULONG) { prompt("Num. elements in VALC") special(SPC_NOMOD) interest(3) initial("1") } field(NEVD,DBF_ULONG) { prompt("Num. elements in VALD") special(SPC_NOMOD) interest(3) initial("1") } field(NEVE,DBF_ULONG) { prompt("Num. elements in VALE") special(SPC_NOMOD) interest(3) initial("1") } field(NEVF,DBF_ULONG) { prompt("Num. elements in VALF") special(SPC_NOMOD) interest(3) initial("1") } field(NEVG,DBF_ULONG) { prompt("Num. elements in VALG") special(SPC_NOMOD) interest(3) initial("1") } field(NEVH,DBF_ULONG) { prompt("Num. elements in VAlH") special(SPC_NOMOD) interest(3) initial("1") } field(NEVI,DBF_ULONG) { prompt("Num. elements in VALI") special(SPC_NOMOD) interest(3) initial("1") } field(NEVJ,DBF_ULONG) { prompt("Num. elements in VALJ") special(SPC_NOMOD) interest(3) initial("1") } field(NEVK,DBF_ULONG) { prompt("Num. elements in VALK") special(SPC_NOMOD) interest(3) initial("1") } field(NEVL,DBF_ULONG) { prompt("Num. elements in VALL") special(SPC_NOMOD) interest(3) initial("1") } field(NEVM,DBF_ULONG) { prompt("Num. elements in VALM") special(SPC_NOMOD) interest(3) initial("1") } field(NEVN,DBF_ULONG) { prompt("Num. elements in VALN") special(SPC_NOMOD) interest(3) initial("1") } field(NEVO,DBF_ULONG) { prompt("Num. elements in VALO") special(SPC_NOMOD) interest(3) initial("1") } field(NEVP,DBF_ULONG) { prompt("Num. elements in VALP") special(SPC_NOMOD) interest(3) initial("1") } field(NEVQ,DBF_ULONG) { prompt("Num. elements in VALQ") special(SPC_NOMOD) interest(3) initial("1") } field(NEVR,DBF_ULONG) { prompt("Num. elements in VALR") special(SPC_NOMOD) interest(3) initial("1") } field(NEVS,DBF_ULONG) { prompt("Num. elements in VALS") special(SPC_NOMOD) interest(3) initial("1") } field(NEVT,DBF_ULONG) { prompt("Num. elements in VALT") special(SPC_NOMOD) interest(3) initial("1") } field(NEVU,DBF_ULONG) { prompt("Num. elements in VALU") special(SPC_NOMOD) interest(3) initial("1") } field(ONVA,DBF_ULONG) { prompt("Num. elements in OVLA") special(SPC_NOMOD) interest(4) initial("1") } field(ONVB,DBF_ULONG) { prompt("Num. elements in OVLB") special(SPC_NOMOD) interest(4) initial("1") } field(ONVC,DBF_ULONG) { prompt("Num. elements in OVLC") special(SPC_NOMOD) interest(4) initial("1") } field(ONVD,DBF_ULONG) { prompt("Num. elements in OVLD") special(SPC_NOMOD) interest(4) initial("1") } field(ONVE,DBF_ULONG) { prompt("Num. elements in OVLE") special(SPC_NOMOD) interest(4) initial("1") } field(ONVF,DBF_ULONG) { prompt("Num. elements in OVLF") special(SPC_NOMOD) interest(4) initial("1") } field(ONVG,DBF_ULONG) { prompt("Num. elements in OVLG") special(SPC_NOMOD) interest(4) initial("1") } field(ONVH,DBF_ULONG) { prompt("Num. elements in VAlH") special(SPC_NOMOD) interest(4) initial("1") } field(ONVI,DBF_ULONG) { prompt("Num. elements in OVLI") special(SPC_NOMOD) interest(4) initial("1") } field(ONVJ,DBF_ULONG) { prompt("Num. elements in OVLJ") special(SPC_NOMOD) interest(4) initial("1") } field(ONVK,DBF_ULONG) { prompt("Num. elements in OVLK") special(SPC_NOMOD) interest(4) initial("1") } field(ONVL,DBF_ULONG) { prompt("Num. elements in OVLL") special(SPC_NOMOD) interest(4) initial("1") } field(ONVM,DBF_ULONG) { prompt("Num. elements in OVLM") special(SPC_NOMOD) interest(4) initial("1") } field(ONVN,DBF_ULONG) { prompt("Num. elements in OVLN") special(SPC_NOMOD) interest(4) initial("1") } field(ONVO,DBF_ULONG) { prompt("Num. elements in OVLO") special(SPC_NOMOD) interest(4) initial("1") } field(ONVP,DBF_ULONG) { prompt("Num. elements in OVLP") special(SPC_NOMOD) interest(4) initial("1") } field(ONVQ,DBF_ULONG) { prompt("Num. elements in OVLQ") special(SPC_NOMOD) interest(4) initial("1") } field(ONVR,DBF_ULONG) { prompt("Num. elements in OVLR") special(SPC_NOMOD) interest(4) initial("1") } field(ONVS,DBF_ULONG) { prompt("Num. elements in OVLS") special(SPC_NOMOD) interest(4) initial("1") } field(ONVT,DBF_ULONG) { prompt("Num. elements in OVLT") special(SPC_NOMOD) interest(4) initial("1") } field(ONVU,DBF_ULONG) { prompt("Num. elements in OVLU") special(SPC_NOMOD) interest(4) initial("1") } }