diff --git a/site_ansto/instrument/hipd/DMC2280/controller2.txt b/site_ansto/instrument/hipd/DMC2280/controller2.txt index a8b7fe83..90aef110 100644 --- a/site_ansto/instrument/hipd/DMC2280/controller2.txt +++ b/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 \ No newline at end of file +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 ----------------------------------------