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 
r1419 | dbx | 2007-01-31 18:01:44 +1100 (Wed, 31 Jan 2007) | 2 lines
This commit is contained in:
Dan Bartlett
2007-01-31 18:01:44 +11:00
committed by Douglas Clowes
parent baa17ff76b
commit ea2cb07e23
2 changed files with 70 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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

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

@@ -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