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

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

View File

@@ -1,7 +1,7 @@
NO TE: PLAYTPUS - CONTROLLER 3 NO TE: PLAYTPUS - CONTROLLER 3
NO TE: NO TE:
NO TE: $Revision: 1.2 $ NO TE: $Revision: 1.3 $
NO TE: $Date: 2007-01-31 07:01:44 $ NO TE: $Date: 2007-01-31 07:30:48 $
NO TE: Author: Dan Bartlett NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $ NO TE: Last revision by: $Author: dbx $
NO TE: NO TE:
@@ -72,41 +72,41 @@ RI
NO ---------------------------------------- NO ----------------------------------------
#HOME #HOME
NO TE: THIS ROUTINE HOMES THE SLITS. 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 NO TE: IT WILL NOT WORK WITH OTHER SLIT PACKAGES WITHOUT THE HOME LIMITS
IF (HOMERUN = 1) IF (HOMERUN = 1)
JP #ENDHOME JP #ENDHOME
ENDIF ENDIF
SH 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 PRA=201250
BGA BGA
ENDIF 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 PRB=201250
BGB BGB
ENDIF 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 PRC=201250
BGC BGC
ENDIF 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 PRD=201250
BGD BGD
ENDIF 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 PRE=201250
BGE BGE
ENDIF 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 PRF=201250
BGF BGF
ENDIF 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 PRG=201250
BGG BGG
ENDIF 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 PRH=201250
BGH BGH
ENDIF ENDIF
@@ -117,8 +117,8 @@ AM ABCDEFGH
FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED
BG BG
AM ABCDEFGH AM ABCDEFGH
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;
BG BG;' MOVE AWAY 5MM
AM ABCDEFGH AM ABCDEFGH
SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED
FE;' DRIVE TO HOME LIMIT AT LOW SPEED FE;' DRIVE TO HOME LIMIT AT LOW SPEED

View File

@@ -1,7 +1,7 @@
NO TE: PLAYTPUS - CONTROLLER 4 NO TE: PLAYTPUS - CONTROLLER 4
NO TE: NO TE:
NO TE: $Revision: 1.3 $ NO TE: $Revision: 1.4 $
NO TE: $Date: 2007-01-31 07:01:44 $ NO TE: $Date: 2007-01-31 07:30:49 $
NO TE: Author: Dan Bartlett NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $ NO TE: Last revision by: $Author: dbx $
NO TE: NO TE:
@@ -72,41 +72,41 @@ RI
NO ---------------------------------------- NO ----------------------------------------
#HOME #HOME
NO TE: THIS ROUTINE HOMES THE SLITS. 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 NO TE: IT WILL NOT WORK WITH OTHER SLIT PACKAGES WITHOUT THE HOME LIMITS
IF (HOMERUN = 1) IF (HOMERUN = 1)
JP #ENDHOME JP #ENDHOME
ENDIF ENDIF
SH 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 PRA=201250
BGA BGA
ENDIF 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 PRB=201250
BGB BGB
ENDIF 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 PRC=201250
BGC BGC
ENDIF 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 PRD=201250
BGD BGD
ENDIF 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 PRE=201250
BGE BGE
ENDIF 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 PRF=201250
BGF BGF
ENDIF 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 PRG=201250
BGG BGG
ENDIF 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 PRH=201250
BGH BGH
ENDIF ENDIF
@@ -117,8 +117,8 @@ AM ABCDEFGH
FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED FE;' DRIVE TO THE HOME LIMIT AT FULL SPEED
BG BG
AM ABCDEFGH AM ABCDEFGH
PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;' MOVE AWAY 5MM PR -100625,-100625,-100625,-100625,-100625,-100625,-100625,-100625;
BG BG;' MOVE AWAY 5MM
AM ABCDEFGH AM ABCDEFGH
SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED SP 7500,7500,7500,7500,7500,7500,7500,7500;' REDUCE SPEED
FE;' DRIVE TO HOME LIMIT AT LOW SPEED FE;' DRIVE TO HOME LIMIT AT LOW SPEED