linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SLIT HOMING ROUTINE RE-WRITTEN TO UTILISE HIGH REPEATABILITY HOME LIMIT SWITCHES

Browse Source 
r1420 | dbx | 2007-01-31 18:30:49 +1100 (Wed, 31 Jan 2007) | 2 lines
This commit is contained in:
Dan Bartlett
2007-01-31 18:30:49 +11:00
committed by Douglas Clowes
parent ea2cb07e23
commit 433a07ce0c
2 changed files with 27 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
site_ansto/instrument/reflectometer/DMC2280/controller3.txt
View File

@@ -1,7 +1,7 @@
NO TE: PLAYTPUS - CONTROLLER 3
NO TE:
NO TE: $Revision: 1.2 $
NO TE: $Date: 2007-01-31 07:01:44 $
NO TE: $Revision: 1.3 $
NO TE: $Date: 2007-01-31 07:30:48 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE:
@@ -72,41 +72,41 @@ 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 USES THE HIGH REPEATABILITY HOME LIMIT SWITCHES
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
IF (_LRA=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRA=201250
BGA
ENDIF
IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRB=201250
BGB
ENDIF
IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRC=201250
BGC
ENDIF
IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRD=201250
BGD
ENDIF
IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRE=201250
BGE
ENDIF
IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRF=201250
BGF
ENDIF
IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRG=201250
BGG
ENDIF
IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRH=201250
BGH
ENDIF
@@ -117,8 +117,8 @@ AM ABCDEFGH
FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED
BG
AM ABCDEFGH
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM
BG
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;
BG;' MOVE AWAY 5MM
AM ABCDEFGH
SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED
FE;' DRIVE TO HOME LIMIT AT LOW SPEED
@@ -128,4 +128,4 @@ 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

26
site_ansto/instrument/reflectometer/DMC2280/controller4.txt
View File

@@ -1,7 +1,7 @@
NO TE: PLAYTPUS - CONTROLLER 4
NO TE:
NO TE: $Revision: 1.3 $
NO TE: $Date: 2007-01-31 07:01:44 $
NO TE: $Revision: 1.4 $
NO TE: $Date: 2007-01-31 07:30:49 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE:
@@ -72,41 +72,41 @@ 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 USES THE HIGH REPEATABILITY HOME LIMIT SWITCHES
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
IF (_LRA=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRA=201250
BGA
ENDIF
IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRB=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRB=201250
BGB
ENDIF
IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRC=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRC=201250
BGC
ENDIF
IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRD=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRD=201250
BGD
ENDIF
IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRE=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRE=201250
BGE
ENDIF
IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRF=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRF=201250
BGF
ENDIF
IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRG=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRG=201250
BGG
ENDIF
IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF (_LRH=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT
PRH=201250
BGH
ENDIF
@@ -117,8 +117,8 @@ AM ABCDEFGH
FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED
BG
AM ABCDEFGH
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM
BG
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;
BG;' MOVE AWAY 5MM
AM ABCDEFGH
SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED
FE;' DRIVE TO HOME LIMIT AT LOW SPEED