# Database for TAC positions
#
# V.K.  July 16, 2012
# Macro paramters:
#   $(P)        - XPS Controller name 
#   $(R)        - Motor (R=m1)

#alias("$(P)$(R)","$(pref)hd:tac:motor")

record(ao,"$(pref)hd:tac:motionCondit"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.1")
  field(SCAN, "Passive")
}

record(seq, "$(pref)hd:tac:emgcy") {
  field(DOL1, "0")
  field(DOL2, "$(pref)hd:tac:home")
  field(DOL3, "3")
  field(LNK1, "$(pref)hd:tac:motor.SPMG")
  field(LNK2, "$(pref)hd:tac:motor.VAL PP")
  field(LNK3, "$(pref)hd:tac:motor.SPMG")
  field(DLY1, "0.0")
  field(DLY2, "0.5")
  field(DLY3, "1.0")
  field(SELM, "All")
  field(SCAN, "Passive")
} 

record(ao,"$(pref)hd:tac:home"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:tac:home:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:tac:home")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:tac:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:tac_at_home") {
  field(INPA, "$(pref)hd:tac:motor.RBV")
  field(INPB, "$(pref)hd:tac:home")
  field(INPC, "$(pref)hd:tac:motor.DMOV")
  field(INPE, "$(pref)hd:tac:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:tac:a"){
  field(DTYP,"Soft Channel")
  field(VAL,"-841.000")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:tac:a:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:tac:a")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:tac:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:tac_at_a") {
  field(INPA, "$(pref)hd:tac:motor.RBV")
  field(INPB, "$(pref)hd:tac:a")
  field(INPC, "$(pref)hd:tac:motor.DMOV")
  field(INPE, "$(pref)hd:tac:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:tac:b"){
  field(DTYP,"Soft Channel")
  field(VAL,"-1148.82")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:tac:b:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:tac:b")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:tac:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:tac_at_b") {
  field(INPA, "$(pref)hd:tac:motor.RBV")
  field(INPB, "$(pref)hd:tac:b")
  field(INPC, "$(pref)hd:tac:motor.DMOV")
  field(INPE, "$(pref)hd:tac:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}