Initial Shutter Module Sketch

scripts/shutter.cmd

@@ -0,0 +1,24 @@
+require s7plcFW
+
+# s7plcFWConfigure(
+#     # Alias,
+#     # IP,
+#     # fetchPort,fetchOrg,fetchDb,fetchOffsetInDb,fetchSizeOfDb,
+#     # writePort,writeOrg,writeDb,writeOffsetInDb,writeSizeOfDb,
+#     # 0 == big endian, 1 == little endian,
+#     # receive timeout,
+#     # receive delay,
+#     # out IO Interrupt Delay (if 0 then only reacts on a change)
+# )
+
+epicsEnvSet("SPS_REGISTER_NAME", "$(SPS_REGISTER_NAME=SPS-$(FETCH_DB))")
+epicsEnvSet("SPS_FETCH_SIZE", "36")
+epicsEnvSet("SPS_WRITE_SIZE", "2")
+
+s7plcFWConfigure("$(SPS_REGISTER_NAME)", "$(SPS_IP)", "$(FETCH_PORT=2000),1,$(FETCH_DB),0,$(SPS_FETCH_SIZE)", "$(WRITE_PORT=2001),1,$(WRITE_DB=$(FETCH_DB)),0,$(SPS_WRITE_SIZE)", $(SPS_ENDIANNESS=1), $(SPS_RECEIVE_TIMEOUT=1000), $(SPS_RECEIVE_DELAY=200), 0)
+
+# Provides Connection Status PVs
+dbLoadRecords("$(sinqSPS_DB)/sps_status.db")
+
+# Shutter PVs
+dbLoadTemplate("$(sinqSPS_DB)/shutter.substitions")