Add new reactor status object to instruments.

site_ansto/instrument/config/source/source.tcl

@@ -0,0 +1,16 @@
+fileeval $cfPath(source)/sct_reactor_status.tcl
+
+if {[SplitReply [opal_simulation]]=="false"} {
+  MakeAsyncProtocol std
+  std sendterminator \r\n\r\n
+  std replyterminator 0x03
+  MakeAsyncQueue aqreactor std neutron.ansto.gov.au 80
+  aqreactor timeout 2000
+}
+add_reactor_status source aqadapter aqreactor
+
+namespace eval ::source {
+  proc isc_initialize {} {
+  }
+}
+