record(longout, "HAD:CTS:REG:$(NN)")
{
	field(DESC, "Read cts register $(NN) ")
	field(SCAN,"Passive")
	field(OUT, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):SPLIT")
}
record(aSub, "HAD:CTS:REG:$(NN):SPLIT")
{
	field(DESC, "Split 32bit into 2 mbbo")
	field(INAM,"ctsRegInit")
	field(SNAM,"ctsRegSplit")
	field(INPA, "HAD:CTS:REG:$(NN)")
	field(FTA, "LONG")
	field(NOA, "1")
	field(OUTA, "HAD:CTS:REG:$(NN):LOW PP")
	field(FTVA, "LONG")
	field(NOVA, "1")
	field(OUTB, "HAD:CTS:REG:$(NN):HIGH PP")
	field(FTVB, "LONG")
	field(NOVB, "1")
}
record(mbbiDirect, "HAD:CTS:REG:$(NN):LOW")
{
	field(DESC, "low 16 bits")
	field(INP, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):MOV:LOW")
}
record(mbbiDirect, "HAD:CTS:REG:$(NN):HIGH")
{
	field(DESC, "high 16 bits")
	field(INP, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):MOV:HIGH")
}
record(dfanout, "HAD:CTS:REG:$(NN):MOV:LOW")
{
	field(DESC, "low 16 bits")
	field(DOL, "HAD:CTS:REG:$(NN):LOW.VAL")
	field(OMSL, "closed_loop")
	field(OUTA, "HAD:CTS:REG:$(NN):OUT:LOW.VAL NPP")
}
record(dfanout, "HAD:CTS:REG:$(NN):MOV:HIGH")
{
	field(DESC, "high 16 bits")
	field(DOL, "HAD:CTS:REG:$(NN):HIGH.VAL")
	field(OMSL, "closed_loop")
	field(OUTA, "HAD:CTS:REG:$(NN):OUT:HIGH.VAL NPP")
}
record(mbboDirect, "HAD:CTS:REG:$(NN):OUT:LOW")
{
	field(DESC, "low 16 bits")
	field(OUT, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):UNSPLIT")
	field(UDF, "0")
	field(STAT, "NO_ALARM")
	field(SEVR, "NO_ALARM")
}
record(mbboDirect, "HAD:CTS:REG:$(NN):OUT:HIGH")
{
	field(DESC, "high 16 bits")
	field(OUT, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):UNSPLIT")
	field(UDF, "0")
	field(STAT, "NO_ALARM")
	field(SEVR, "NO_ALARM")
}
record(aSub, "HAD:CTS:REG:$(NN):UNSPLIT")
{
	field(DESC, "UnSplit 16bit into 1 long")
	field(INAM,"ctsRegInit")
	field(SNAM,"ctsRegUnsplit")
	field(INPA, "HAD:CTS:REG:$(NN):OUT:LOW")
	field(FTA, "LONG")
	field(NOA, "1")
	field(INPB, "HAD:CTS:REG:$(NN):OUT:HIGH")
	field(FTB, "LONG")
	field(NOB, "1")
	field(OUTA, "HAD:CTS:REG:$(NN):OUT PP")
	field(FTVA, "LONG")
	field(NOVA, "1")
}
record(longout, "HAD:CTS:REG:$(NN):OUT")
{
	field(DESC, "Read cts register $(NN) ")
	field(SCAN,"Passive")
	field(OUT, "0")
	field(FLNK, "HAD:CTS:REG:$(NN):Write")
	field(UDF, "0")
	field(STAT, "NO_ALARM")
	field(SEVR, "NO_ALARM")
}
record(aSub, "HAD:CTS:REG:$(NN):Write")
{
	field(DESC, "Write CTS Register")
	field(SCAN,"Passive")
	field(INAM,"mytrbInit")
	field(SNAM,"mytrbWrite")
	field(INPA, "0x0003")
	field(FTA, "LONG")
	field(NOA, "1")
	field(INPB, "$(NN)")
	field(FTB, "LONG")
	field(NOB, "1")
	field(INPC, "HAD:CTS:REG:$(NN):OUT")
	field(FTC, "LONG")
	field(NOC, "1")
}

