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

r1419 | dbx | 2007-01-31 18:01:44 +1100 (Wed, 31 Jan 2007) | 2 lines

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: $Revision: 1.2 $
-NO TE: $Date: 2007-01-31 04:09:08 $
+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
+SH
-IF ((_TSA & 4) = 0)
+IF (_LRA=0);' MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
-SHA
+PRA=201250
-PRA=200000
 BGA
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSB & 4) = 0)
+PRB=201250
-SHB
-PRB=200000
 BGB
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSC & 4) = 0)
+PRC=201250
-SHC
-PRC=200000
 BGC
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSD & 4) = 0)
+PRD=201250
-SHD
-PRD=200000
 BGD
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSE & 4) = 0)
+PRE=201250
-SHE
-PRE=200000
 BGE
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSF & 4) = 0)
+PRF=201250
-SHF
-PRF=200000
 BGF
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSG & 4) = 0)
+PRG=201250
-SHG
-PRG=200000
 BGG
 ENDIF
-NO TE: 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 SWITCH
-IF ((_TSH & 4) = 0)
+PRH=201250
-SHH
-PRH=200000
 BGH
 ENDIF
 AM ABCDEFGH
-NO TE: DRIVE ALL SLITS INTO REVERSE LIMIT SWITCH
+JG -30000,-30000,-30000,-30000,-30000,-30000,-30000,-30000
-SH
+BG;' OPEN ALL SLITS TO LIMITS
-JG -25000,-25000,-25000,-25000,-25000,-25000,-25000,-25000
+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 -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM
-PR 80000,80000,80000,80000,80000,80000,80000,80000
 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
+DP 0,0,0,0,0,0,0,0;' DEFINE EACH AXIS POSTION AS ZERO
-PR 40000,40000,40000,40000,40000,40000,40000,40000
+SP 30000,30000,30000,30000,30000,30000,30000,30000;' SPEED BACK TO NORMAL
-BG
-AM ABCDEFGH
-DP 0,0,0,0,0,0,0,0
-SP 30000,30000,30000,30000,30000,30000,30000,30000
 HOMERUN=1;'HOMING PROCEDURE HAS BEEN RUN
 #ENDHOME
 EN

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: $Revision: 1.3 $
-NO TE: $Date: 2007-01-31 06:44:50 $
+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