record (stringin, "$(P)LS331:$(Q):IDN") {

  field(DTYP, "stream")

  field(INP, "@LK331.proto getIDN $(PORT)")

}

record(stringin, "$(P)LS331:$(Q):serial") {

  field(DTYP, "stream")

  field(INP, "@LK331.proto getSERIAL $(PORT)")

}

record(stringin, "$(P)LS331:$(Q):model") {

  field(DTYP, "stream")

  field(INP, "@LK331.proto getSERIAL $(PORT)")

}

grecord(dfanout,"$(P)LS331:$(Q):Init") {

	field(SCAN,"1 second")

	field(OUTA,"$(P)LS331:$(Q):Input_sel.PROC  PP NMS")

	field(OUTB,"$(P)LS331:$(Q):Units_sel.PROC  PP NMS")

	field(OUTC,"$(P)LS331:$(Q):HeatRg.PROC  PP NMS")

	field(OUTD,"$(P)LS331:$(Q):Gain_set.PROC  PP NMS")

	field(OUTE,"$(P)LS331:$(Q):Rset_set.PROC  PP NMS")

	field(OUTF,"$(P)LS331:$(Q):Rate_set.PROC  PP NMS")

	field(OUTG,"$(P)LS331:$(Q):RampR_set.PROC  PP NMS")

	field(OUTH,"$(P)LS331:$(Q):InitB.PROC  PP NMS")

}

grecord(dfanout,"$(P)LS331:$(Q):InitB") {

	field(SCAN,"Passive")

	field(OUTA,"$(P)LS331:$(Q):Ramp_on.PROC  PP NMS")

	field(OUTB,"$(P)LS331:$(Q):wr_SP.PROC  PP NMS")

	field(OUTC,"$(P)LS331:$(Q):read.PROC  PP NMS")

	field(OUTD,"$(P)LS331:$(Q):readPID.PROC  PP NMS")

	field(OUTE,"$(P)LS331:$(Q):Init.SCAN CA NMS")

}

record(ao, "$(P)LS331:$(Q):Rset_set") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):setRset.VAL  PP MS")

  field(PREC, "0")

}

record(ao, "$(P)LS331:$(Q):Rate_set") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):setRate.VAL  PP MS")

  field(PREC, "0")

}

record(ao, "$(P)LS331:$(Q):RampR_set") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):setRamp.VAL  PP MS")

  field(PREC, "1")

}

record(ao, "$(P)LS331:$(Q):wr_SP") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):SP_scalc.VAL  PP MS")

  field(PREC, "3")

}

record(ao, "$(P)LS331:$(Q):Gain_set") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):setGain.VAL  PP MS")

  field(PREC, "0")

}

record(mbbi, "$(P)LS331:$(Q):Rg_rdbk") {

  field(DTYP, "Soft Channel")

  field(INP, "$(P)LS331:$(Q):Range.VAL  NPP MS")

  field(ZRST, "OFF")

  field(ONST, "100 mA")

  field(TWST, "300 mA")

  field(THST, "1 A")

}

record(mbbi, "$(P)LS331:$(Q):Ramp_state") {

  field(DTYP, "Soft Channel")

  field(INP, "$(P)LS331:$(Q):Ramp_scalc.VAL  NPP MS")

  field(ZRST, "OFF")

  field(ONST, "ON")

}

record(mbbo, "$(P)LS331:$(Q):Input_sel") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):SetCtl.VAL  NPP MS")

  field(ZRVL, "0")

  field(ONVL, "1")

  field(TWVL, "0")

  field(THVL, "0")

  field(ZRST, "A")

  field(ONST, "B")

}

record(mbbo, "$(P)LS331:$(Q):Units_sel") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):SetCtl.VAL  NPP MS")

  field(ZRVL, "1")

  field(ONVL, "2")

  field(TWVL, "0")

  field(THVL, "0")

  field(ZRST, "K")

  field(ONST, "C")

}

record(mbbo, "$(P)LS331:$(Q):HeatRg") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):SetHeat.VAL  PP MS")

  field(ZRVL, "0")

  field(ONVL, "1")

  field(TWVL, "2")

  field(THVL, "3")

  field(FRVL, "0")

  field(FVVL, "0")

  field(ZRST, "OFF")

  field(ONST, "100 mA")

  field(TWST, "300 mA")

  field(THST, "1 A")

}

record(mbbo, "$(P)LS331:$(Q):Ramp_on") {

  field(DTYP, "Soft Channel")

  field(FLNK, "$(P)LS331:$(Q):setRamp.PROC  PP MS")

  field(ZRVL, "0")

  field(ONVL, "1")

  field(TWVL, "0")

  field(THVL, "0")

  field(ZRST, "OFF")

  field(ONST, "ON")

}

record(seq, "$(P)LS331:$(Q):readPID") {

  field(PREC, "1")

  field(DLY1, ".05")

  field(LNK1, "$(P)LS331:$(Q):rd_Gain.PROC  PP MS")

  field(DLY2, ".05")

  field(LNK2, "$(P)LS331:$(Q):rd_Rset.PROC  PP MS")

  field(DLY3, ".05")

  field(LNK3, "$(P)LS331:$(Q):rd_Rate.PROC  PP MS")

  field(DLY4, ".05")

  field(LNK4, "$(P)LS331:$(Q):rd_Ramp.PROC  PP MS")

}

record(seq, "$(P)LS331:$(Q):read") {

  field(PREC, "1")

  field(DLY1, ".05")

  field(LNK1, "$(P)LS331:$(Q):readCtl.PROC  PP MS")

  field(DLY2, ".05")

  field(LNK2, "$(P)LS331:$(Q):rd_rdat_scalc.PROC  PP MS")

  field(DLY3, ".05")

  field(LNK3, "$(P)LS331:$(Q):rd_SplA_scalc.PROC  PP MS")

  field(DLY4, ".05")

  field(LNK4, "$(P)LS331:$(Q):rd_SplB_scalc.PROC  PP MS")

  field(DLY5, ".05")

  field(LNK5, "$(P)LS331:$(Q):rd_Heater.PROC  PP MS")

  field(DLY6, ".05")

  field(LNK6, "$(P)LS331:$(Q):readSP.PROC  PP MS")

}

record(stringout, "$(P)LS331:$(Q):rd_Rset") {

  field(DTYP, "Soft Channel")

  field(FLNK, "0")

  field(VAL, "RSET?")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Rset.AOUT  PP MS")

}

record(stringout, "$(P)LS331:$(Q):rd_Rate") {

  field(DTYP, "Soft Channel")

  field(FLNK, "0")

  field(VAL, "RATE?")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Rate.AOUT  PP MS")

}

record(stringout, "$(P)LS331:$(Q):rd_Ramp") {

  field(DTYP, "Soft Channel")

  field(FLNK, "0")

  field(VAL, "RAMP?")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Ramp.AOUT  PP MS")

}

record(stringout, "$(P)LS331:$(Q):readSP") {

  field(DTYP, "Soft Channel")

  field(FLNK, "0")

  field(VAL, "SETP?")

  field(OUT, "$(P)LS331:$(Q):rd_SP.AOUT  PP MS")

}

record(stringout, "$(P)LS331:$(Q):rd_Gain") {

  field(DTYP, "Soft Channel")

  field(FLNK, "0")

  field(VAL, "GAIN?")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Gain.AOUT  PP MS")

}

record(asyn, "$(P)LS331:$(Q):wr_rd_Rset") {

  field(FLNK, "$(P)LS331:$(Q):I.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):wr_rd_Rate") {

  field(FLNK, "$(P)LS331:$(Q):D.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):wr_rd_Gain") {

  field(FLNK, "$(P)LS331:$(Q):P.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_Ctl") {

  field(FLNK, "$(P)LS331:$(Q):Control.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_CtlParms") {

  field(FLNK, "$(P)LS331:$(Q):CtlInput.PROC  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_Heater") {

  field(FLNK, "$(P)LS331:$(Q):Heater.VAL  PP MS")

  field(PORT, "$(PORT)")

  field(AOUT, "HTR?")

}

record(asyn, "$(P)LS331:$(Q):write_SP") {

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_SP") {

  field(FLNK, "$(P)LS331:$(Q):SP.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_Spl_a") {

  field(FLNK, "$(P)LS331:$(Q):SampleA.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):rd_Spl_b") {

  field(FLNK, "$(P)LS331:$(Q):SampleB.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):wr_rd_Htr") {

  field(FLNK, "$(P)LS331:$(Q):Range.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(asyn, "$(P)LS331:$(Q):wr_rd_Ramp") {

  field(FLNK, "$(P)LS331:$(Q):Ramp_scalc.VAL  PP MS")

  field(PORT, "$(PORT)")

}

record(scalcout, "$(P)LS331:$(Q):setRset") {

  field(DESC, "Format string for PID input")

  field(CALC, "$P('RSET %d;RSET?',A)")

  field(INPA, "$(P)LS331:$(Q):Rset_set.VAL  NPP MS")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Rset.AOUT  PP MS")

  field(PREC, "1")

}

record(scalcout, "$(P)LS331:$(Q):setRate") {

  field(DESC, "Format string for PID input")

  field(CALC, "$P('RATE %d;RATE?',A)")

  field(INPA, "$(P)LS331:$(Q):Rate_set.VAL  NPP MS")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Rate.AOUT  PP MS")

  field(PREC, "1")

}

record(scalcout, "$(P)LS331:$(Q):setGain") {

  field(DESC, "Format string for PID input")

  field(CALC, "$P('GAIN %d;GAIN?',A)")

  field(INPA, "$(P)LS331:$(Q):Gain_set.VAL  NPP MS")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Gain.AOUT  PP MS")

  field(PREC, "1")

}

record(scalcout, "$(P)LS331:$(Q):Ramp_scalc") {

  field(FLNK, "$(P)LS331:$(Q):RampR.PROC  PP MS")

  field(CALC, "INT(AA)")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Ramp.AINP  NPP MS")

  field(PREC, "1")

}

record(scalcout, "$(P)LS331:$(Q):RampR") {

  field(FLNK, "$(P)LS331:$(Q):Ramp_state.PROC  PP MS")

  field(CALC, "SSCANF(AA,'%s')[2,10]")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Ramp.AINP  NPP MS")

  field(PREC, "1")

}

record(scalcout, "$(P)LS331:$(Q):P") {

  field(CALC, "INT(AA)")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Gain.AINP  NPP MS")

  field(PREC, "0")

}

record(scalcout, "$(P)LS331:$(Q):I") {

  field(CALC, "INT(AA)")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Rset.AINP  NPP MS")

  field(PREC, "0")

}

record(scalcout, "$(P)LS331:$(Q):D") {

  field(CALC, "INT(AA)")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Rate.AINP  NPP MS")

  field(PREC, "0")

}

record(scalcout, "$(P)LS331:$(Q):Control") {

  field(DESC, "Format string for Ctl query")

  field(CALC, "DBL(AA)")

  field(INAA, "$(P)LS331:$(Q):rd_Ctl.AINP  NPP MS")

  field(INEE, "0")

  field(PREC, "3")

}

record(scalcout, "$(P)LS331:$(Q):Heater") {

  field(DESC, "Format string for Ctl query")

  field(CALC, "DBL(AA)")

  field(INAA, "$(P)LS331:$(Q):rd_Heater.AINP  NPP MS")

  field(INEE, "0")

  field(PREC, "0")

}

record(scalcout, "$(P)LS331:$(Q):Range") {

  field(DESC, "Format string for Ctl query")

  field(FLNK, "$(P)LS331:$(Q):Rg_rdbk.PROC  PP MS")

  field(CALC, "INT(AA)")

  field(INAA, "$(P)LS331:$(Q):wr_rd_Htr.AINP  NPP MS")

  field(INEE, "0")

  field(PREC, "2")

}

record(scalcout, "$(P)LS331:$(Q):SP") {

  field(DESC, "Format string for Ctl query")

  field(CALC, "DBL(AA)")

  field(INAA, "$(P)LS331:$(Q):rd_SP.AINP  NPP MS")

  field(INEE, "0")

  field(PREC, "3")

}

record(scalcout, "$(P)LS331:$(Q):SP_scalc") {

  field(DESC, "Format string for Ctl query")

  field(FLNK, "$(P)LS331:$(Q):readSP.PROC  PP MS")

  field(CALC, "$P('SETP 1,%6.3f',A)")

  field(INPA, "$(P)LS331:$(Q):wr_SP.VAL  NPP MS")

  field(INEE, "0")

  field(OUT, "$(P)LS331:$(Q):write_SP.AOUT  PP MS")

  field(PREC, "3")

}

record(scalcout, "$(P)LS331:$(Q):SampleA") {

  field(DESC, "Convt str fror SplA query")

  field(CALC, "DBL(AA)")

  field(INAA, "$(P)LS331:$(Q):rd_Spl_a.AINP  PP MS")

  field(INEE, "0")

  field(PREC, "3")

}

record(scalcout, "$(P)LS331:$(Q):SampleB") {

  field(DESC, "Convrt str from SplB query")

  field(CALC, "DBL(AA)")

  field(INAA, "$(P)LS331:$(Q):rd_Spl_b.AINP  PP MS")

  field(INEE, "0")

  field(PREC, "3")

}

record(scalcout, "$(P)LS331:$(Q):CtlInput") {

  field(DESC, "Parse string for Ctl Input")

  field(FLNK, "$(P)LS331:$(Q):CtlUnits.PROC  PP MS")

  field(CALC, "SSCANF(AA,'%s')[0,0]")

  field(INAA, "$(P)LS331:$(Q):rd_CtlParms.AINP  NPP MS")

  field(PREC, "1")

  field(AA, "A")

}

record(scalcout, "$(P)LS331:$(Q):CtlUnits") {

  field(DESC, "Parse string for Ctl Unit")

  field(FLNK, "$(P)LS331:$(Q):CtlUnits_str.PROC  PP MS")

  field(CALC, "INT(SSCANF(AA,'%s')[2,2])")

  field(INAA, "$(P)LS331:$(Q):rd_CtlParms.AINP  NPP MS")

  field(PREC, "1")

  field(AA, "A,2")

}

record(scalcout, "$(P)LS331:$(Q):CtlUnits_str") {

  field(DESC, "Make Ctl Input string")

  field(CALC, "A=1?BB:CC")

  field(INPA, "$(P)LS331:$(Q):CtlUnits.VAL  NPP MS")

  field(PREC, "1")

  field(A, "1")

  field(BB, "K")

  field(CC, "C")

}

record(scalcout, "$(P)LS331:$(Q):SetCtl") {

  field(DESC, "Format string for Ctl Set")

  field(FLNK, "$(P)LS331:$(Q):read.PROC  PP MS")

  field(CALC, "AA+(B?FF:EE)+','+STR(C)[0,0]+DD")

  field(INAA, "")

  field(INBB, "$(P)LS331:$(Q):Input_sel.VAL  PP MS")

  field(INPB, "$(P)LS331:$(Q):Input_sel.VAL  PP MS")

  field(INPC, "$(P)LS331:$(Q):Units_sel.RVAL  PP MS")

  field(INDD, "")

  field(OUT, "$(P)LS331:$(Q):rd_CtlParms.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "CSET 1,")

  field(BB, "A")

  field(B, "0")

  field(C, "1")

  field(DD, ",0,1;CSET?")

  field(EE, "A")

  field(FF, "B")

}

record(scalcout, "$(P)LS331:$(Q):readCtl") {

  field(DESC, "Format string for Ctl query")

  field(CALC, "AA")

  field(INAA, "0")

  field(OUT, "$(P)LS331:$(Q):rd_CtlParms.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "CSET?")

}

record(scalcout, "$(P)LS331:$(Q):SetHeat") {

  field(CALC, "AA+BB+CC")

  field(INAA, "0")

  field(INBB, "$(P)LS331:$(Q):HeatRg.RVAL  NPP MS")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Htr.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "RANGE ")

  field(BB, "0")

  field(CC, ";RANGE?")

}

record(scalcout, "$(P)LS331:$(Q):rd_SplA_scalc") {

  field(DESC, "Format str for A query")

  field(CALC, "AA+BB")

  field(INAA, "$(P)LS331:$(Q):CtlUnits_str.SVAL  PP MS")

  field(INBB, "0")

  field(OUT, "$(P)LS331:$(Q):rd_Spl_a.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "K")

  field(BB, "RDG? A")

}

record(scalcout, "$(P)LS331:$(Q):rd_SplB_scalc") {

  field(DESC, "Format str for B query")

  field(CALC, "AA+BB")

  field(INAA, "$(P)LS331:$(Q):CtlUnits_str.SVAL  PP MS")

  field(INBB, "0")

  field(OUT, "$(P)LS331:$(Q):rd_Spl_b.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "K")

  field(BB, "RDG? B")

}

record(scalcout, "$(P)LS331:$(Q):rd_rdat_scalc") {

  field(DESC, "Format str for rd query")

  field(CALC, "A=2?EE+BB+CC:DD+BB+CC")

  field(INPA, "$(P)LS331:$(Q):CtlUnits.VAL  NPP MS")

  field(INBB, "0")

  field(INCC, "$(P)LS331:$(Q):CtlInput.SVAL  NPP MS")

  field(INDD, "0")

  field(INEE, "0")

  field(OUT, "$(P)LS331:$(Q):rd_Ctl.AOUT  PP MS")

  field(PREC, "1")

  field(A, "1")

  field(BB, "RDG? ")

  field(DD, "K")

  field(EE, "C")

}

record(scalcout, "$(P)LS331:$(Q):setRamp") {

  field(DESC, "Format string for PID input")

  field(CALC, "AA+$P('%d',A)+','+$P('%5.1f',B)+BB")

  field(INPA, "$(P)LS331:$(Q):Ramp_on.RVAL  NPP MS")

  field(INPB, "$(P)LS331:$(Q):RampR_set.VAL  NPP MS")

  field(OUT, "$(P)LS331:$(Q):wr_rd_Ramp.AOUT  PP MS")

  field(PREC, "1")

  field(AA, "RAMP 1,")

  field(BB, ";RAMP?")

  field(CC, "0")

}