diff --git a/site_ansto/instrument/reflectometer/DMC2280/controller1.txt b/site_ansto/instrument/reflectometer/DMC2280/controller1.txt index 5aa9f001..09c5edb4 100644 --- a/site_ansto/instrument/reflectometer/DMC2280/controller1.txt +++ b/site_ansto/instrument/reflectometer/DMC2280/controller1.txt @@ -1,14 +1,14 @@ NO TE: PLATYPUS - CONTROLLER 1 NO TE: -NO TE: $Revision: 1.7 $ -NO TE: $Date: 2007-03-05 06:03:11 $ +NO TE: $Revision: 1.8 $ +NO TE: $Date: 2007-05-16 07:04:01 $ NO TE: Author: Dan Bartlett NO TE: Last revision by: $Author: dbx $ NO TE: NO TE: A-BEAM SHADE RAISE NO TE: B-COLLIMATOR TRANSLATE A=7350364, B=6529772, C=6941582 -NO TE: C-COLLIMATOR TILT LEVEL=134660 -NO TE: D-BEAM ATTENUATOR +NO TE: C-COLLIMATOR TILT, LEVEL=134660 +NO TE: D-BEAM ATTENUATOR, BEAM CENTRE=8375078 NO TE: E-SLIT TOWER S3 RAISE NO TE: F-SLIT TOWER S4 RAISE NO TE: G-SPARE @@ -27,14 +27,14 @@ DC 25000,25000,25000,25000,25000,25000,,;' SET DECELERATION SP 50000,25000,25000,25000,75000,75000,,;' SET SPEED SIA=1,25,13,0<-2>2;'HEIDENHAIN ROQ425 SIB=1,25,13,0<-2>2;'HEIDENHAIN ROQ425 -SIC=1,24,18,6<-2>2;'IVO GDA2S +SIC=1,24,18,6<-2>2;'IVO SID=1,25,13,0<-2>2;'HEIDENHAIN ROQ425 SIE=1,25,13,0<-2>2;'HEIDENHAIN ROQ425 SIF=1,25,13,0<-2>2;'HEIDENHAIN ROQ425 SIG=0,25,13,0<-2>2;'SPARE SIH=0,25,13,0<-2>2;'SPARE -POS=0;' INITIAL BEAM ATTENUATOR POSITION IS PARKED IN THE BEAM -XQ #ATTEN,1;' EXECUTE PROCEDURE TO CONTROL BEAM ATTENUATOR +POS=0;' INITIAL BEAM ATTENUATOR FREQUENCY IS 0, PARKED IN THE BEAM +XQ #ATTEN,1 JS #THREAD0 EN NO ---------------------------------------- @@ -141,10 +141,15 @@ NO DCH=OLDDCH RE NO ---------------------------------------- #ATTEN -DEADBD=20;' SET ENCODER DEADBAND -PARKPOS=8309158; 'PARKING ENCODER POSITION -SHUTPOS=8390307; 'BEAM SHUT ENCODER POSITION -STRTPOS=8390307; 'OSCILLATING START ENCODER POSITION +NO TE: THIS IS A PROGRAM FOR CONTROLING THE BEAM ATTENUATOR +NO TE: ITS STATE IS SET BY THE VARIABLE POS +NO TE: IF POS=-1 THEN ITS OUT OF THE BEAM +NO TE: IF POS=0 THEN ITS IN THE BEAM, LIKE A SHUTTER +NO TE: IF POS=1 THEN ITS OSCILLATING +DEADBD=20 +PARKPOS=8308518; 'PARKING ENCODER POSITION +SHUTPOS=8359718; 'BEAM SHUT ENCODER POSITION +STRTPOS=8395558; 'OSCILLATING START ENCODER POSITION IF (POS=-1)&(@ABS[_TPD - PARKPOS]>DEADBD) NO TE: PARK ATTENUATOR OUT OF BEAM - NO ATTENUATION SPD=75000 @@ -180,13 +185,13 @@ SPD=180000 ACD=_SPD*4;' 0.25S TO ACCELERATE DCD=_ACD #LOOP -PRD=140625;' 90MM = 60MM IN THE BEAM, 15MM FOR ACCEL AND 15MM FOR DECEL +PRD=125000;' 80MM = 60MM IN THE BEAM, 10MM FOR ACCEL AND 10MM FOR DECEL BGD AMD -PRD=-140625 +PRD=-125000 BGD AMD ENDIF JP #LOOP,(POS=1) JP #ATTEN -EN \ No newline at end of file +EN