Oscillating collimator code added

r1967 | dbx | 2007-05-16 17:05:58 +1000 (Wed, 16 May 2007) | 2 lines

site_ansto/instrument/hipd/DMC2280/controller2.txt

@@ -1,7 +1,7 @@
 NO TE: WOMBAT - CONTROLLER 2
 NO TE:
-NO TE: $Revision: 1.2 $
-NO TE: $Date: 2007-01-31 03:39:19 $
+NO TE: $Revision: 1.3 $
+NO TE: $Date: 2007-05-16 07:05:58 $
 NO TE: Author: Dan Bartlett
 NO TE: Last revision by: $Author: dbx $
 NO TE:
@@ -58,8 +58,8 @@ ENDIF
 IF (_SPF>150000)
 SPF=150000
 ENDIF
-IF (_SPG>50000)
-SPG=50000
+IF (_SPG>500000)
+SPG=500000
 ENDIF
 NO IF (_SPH>50000) AXIS NOT USED, COMMENTED OUT
 NO SPH=50000
@@ -143,4 +143,47 @@ DCE=OLDDCE
 DCF=OLDDCF
 DCG=OLDDCG
 NO DCH=OLDDCH AXIS NOT USED
-RE
+RE
+NO ----------------------------------------
+#OSC
+NO TE: THIS PROGRAM OSCILATES THE COLLIMATOR
+NO TE: IT MUST BE RUN IN THREAD 1
+XQ #ACCVETO,2
+NO TE: STARTS THE VETO PROGRAM IN THREAD 2
+#STRT
+STRTPOS=7744139;' STARTING ENCODER POSITION
+SHG
+SPG=75000
+ACG=50000
+DCG=50000
+PRG=(_TPG - STRTPOS)/204.8*25000
+BGG
+AMG
+JP #STRT,(_TPG<>STRTPOS)
+NO TE: JUMP TO #STRT UNTIL TABLE IS IN POSITION
+SPG=500000
+ACG=750000
+DCG=750000
+#LOOP
+PRG=225000;' MOVE FORWARD DISTANCE AS PER ANGLE VALUE 
+BGG
+AMG
+PRG=-225000;' MOVE BACK DISTANCE AS PER ANGLE VALUE
+BGG
+AMG
+JP #LOOP
+EN
+NO ----------------------------------------
+#ACCVETO
+NO TE: THIS PROGRAM MONITORS THE VELOCITY OF THE OSCILATING COLLIMATOR
+NO TE: AND SENDS A VETO SIGNAL TO THE DAE WHEN VELOCITY IS CONSTANT
+NO TE: IT IS CALLED BY #OSC AND IS RUN IN THREAD 2
+IF (_TVG=_SPG)
+SB1
+ELSE
+CB1
+ENDIF
+JP #ACCVETO,(_XQ1<>-1)
+NO TE: JUMP BACK TO START UNLESS #OSC IS NOT RUNNING
+EN
+NO ----------------------------------------