diff --git a/site_ansto/instrument/reflectometer/DMC2280/controller3.txt b/site_ansto/instrument/reflectometer/DMC2280/controller3.txt index 95c84c2c..7206b677 100644 --- a/site_ansto/instrument/reflectometer/DMC2280/controller3.txt +++ b/site_ansto/instrument/reflectometer/DMC2280/controller3.txt @@ -1,9 +1,8 @@ NO TE: PLAYTPUS - CONTROLLER 3 NO TE: -NO TE: $Revision: 1.1 $ -NO TE: $Date: 2007-01-31 04:09:08 $ +NO TE: $Revision: 1.2 $ +NO TE: $Date: 2007-01-31 07:01:44 $ NO TE: Author: Dan Bartlett -NO TE: Limit switch HOME routine added by Ferdi Franceschini NO TE: Last revision by: $Author: dbx $ NO TE: NO TE: A-SLIT S1 LEFT BLADE @@ -72,76 +71,61 @@ MO RI NO ---------------------------------------- #HOME +NO TE: THIS ROUTINE HOMES THE SLITS. +NO TE: IT USES THE HIGH REPEATABILITY HOME LIMIT SWITCH ON THE PLATYPUS SLITS +NO TE: IT WILL NOT WORK WITH OTHER SLIT PACKAGES WITHOUT THE HOME LIMITS IF (HOMERUN = 1) JP #ENDHOME ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSA & 4) = 0) -SHA -PRA=200000 +SH +IF (_LRA=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRA=201250 BGA ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSB & 4) = 0) -SHB -PRB=200000 +IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRB=201250 BGB ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSC & 4) = 0) -SHC -PRC=200000 +IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRC=201250 BGC ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSD & 4) = 0) -SHD -PRD=200000 +IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRD=201250 BGD ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSE & 4) = 0) -SHE -PRE=200000 +IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRE=201250 BGE ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSF & 4) = 0) -SHF -PRF=200000 +IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRF=201250 BGF ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSG & 4) = 0) -SHG -PRG=200000 +IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRG=201250 BGG ENDIF -NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH -IF ((_TSH & 4) = 0) -SHH -PRH=200000 +IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRH=201250 BGH ENDIF AM ABCDEFGH -NO TE: DRIVE ALL SLITS INTO REVERSE LIMIT SWITCH -SH -JG -25000,-25000,-25000,-25000,-25000,-25000,-25000,-25000 +JG -30000,-30000,-30000,-30000,-30000,-30000,-30000,-30000 +BG;' OPEN ALL SLITS TO LIMITS +AM ABCDEFGH +FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED BG AM ABCDEFGH -NO TE: MOVE AWAY FROM SWITCHES BY 2MM AND DRIVE BACK SLOWLY -PR 80000,80000,80000,80000,80000,80000,80000,80000 +PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM BG AM ABCDEFGH -JG -5000,-5000,-5000,-5000,-5000,-5000,-5000,-5000 +SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED +FE;' DRIVE TO HOME LIMIT AT LOW SPEED BG AM ABCDEFGH -NO TE: MOVE FORWARD FROM SWITCH BY 2MM AND SET ZERO -PR 40000,40000,40000,40000,40000,40000,40000,40000 -BG -AM ABCDEFGH -DP 0,0,0,0,0,0,0,0 -SP 30000,30000,30000,30000,30000,30000,30000,30000 +DP 0,0,0,0,0,0,0,0;' DEFINE EACH AXIS POSTION AS ZERO +SP 30000,30000,30000,30000,30000,30000,30000,30000;' SPEED BACK TO NORMAL HOMERUN=1;'HOMING PROCEDURE HAS BEEN RUN #ENDHOME EN diff --git a/site_ansto/instrument/reflectometer/DMC2280/controller4.txt b/site_ansto/instrument/reflectometer/DMC2280/controller4.txt index 6473a02f..06268774 100644 --- a/site_ansto/instrument/reflectometer/DMC2280/controller4.txt +++ b/site_ansto/instrument/reflectometer/DMC2280/controller4.txt @@ -1,7 +1,7 @@ NO TE: PLAYTPUS - CONTROLLER 4 NO TE: -NO TE: $Revision: 1.2 $ -NO TE: $Date: 2007-01-31 06:44:50 $ +NO TE: $Revision: 1.3 $ +NO TE: $Date: 2007-01-31 07:01:44 $ NO TE: Author: Dan Bartlett NO TE: Last revision by: $Author: dbx $ NO TE: @@ -77,8 +77,42 @@ NO TE: IT WILL NOT WORK WITH OTHER SLIT PACKAGES WITHOUT THE HOME LIMITS IF (HOMERUN = 1) JP #ENDHOME ENDIF +SH +IF (_LRA=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRA=201250 +BGA +ENDIF +IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRB=201250 +BGB +ENDIF +IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRC=201250 +BGC +ENDIF +IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRD=201250 +BGD +ENDIF +IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRE=201250 +BGE +ENDIF +IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRF=201250 +BGF +ENDIF +IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRG=201250 +BGG +ENDIF +IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH +PRH=201250 +BGH +ENDIF +AM ABCDEFGH JG -30000,-30000,-30000,-30000,-30000,-30000,-30000,-30000 -BG;' OPEN SLITS TO LIMITS +BG;' OPEN ALL SLITS TO LIMITS AM ABCDEFGH FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED BG @@ -91,6 +125,7 @@ FE;' DRIVE TO HOME LIMIT AT LOW SPEED BG AM ABCDEFGH DP 0,0,0,0,0,0,0,0;' DEFINE EACH AXIS POSTION AS ZERO +SP 30000,30000,30000,30000,30000,30000,30000,30000;' SPEED BACK TO NORMAL HOMERUN=1;'HOMING PROCEDURE HAS BEEN RUN #ENDHOME -EN +EN \ No newline at end of file