Add HOMERUN variable and #HOME function for SICS slit control

r3303 | dcl | 2011-12-01 11:35:49 +1100 (Thu, 01 Dec 2011) | 1 line

site_ansto/instrument/tas/DMC2280/controller6.txt

@@ -53,6 +53,7 @@ LSGHIT=0
 LSHHIT=0
 S1HOMED=0;'SLIT S1 NOT HOMED
 S2HOMED=0;'SLIT S2 NOT HOMED
+HOMERUN=0;'HOME ROUTINES NOT RUN
 JS #THREAD0
 EN
 '
@@ -320,6 +321,20 @@ EN
 '
 '
 '-----------------------------------------------------------------------------
+#HOME
+'THIS ROUTINE CALLS THE HOME ROUTINES FOR EACH SLIT PACKAGE IN TURN
+'IT IS INVOKED BY SICS AS: XQ #HOME,7
+IF (HOMERUN=1)
+JP #ENDHOME
+ENDIF
+JS HOMES1
+JS HOMES2
+IF (S1HOMED=1)&(S2HOMED=1)
+HOMERUN=1
+ENDIF
+#ENDHOME
+EN
+'-----------------------------------------------------------------------------
 #HOMES1
 'THIS ROUTINE HOMES THE S1 SLIT PACKAGE
 '
@@ -424,3 +439,5 @@ EN
 '
 '
 '-----------------------------------------------------------------------------
+
+