Dan's changes for small sample Z stage (temporary)

r2510 | dcl | 2008-05-08 16:50:32 +1000 (Thu, 08 May 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-05-08 16:50:32 +10:00
parent 3076fccac3
commit 2a469d6b89

View File

@@ -1,7 +1,7 @@
NO TE: KOWARI - CONTROLLER 2
NO TE:
NO TE: $Revision:
NO TE: $Date: 2008-01-16 05:34:15 $
NO TE: $Date: 2008-05-08 06:50:32 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dcl $
NO TE:
@@ -23,9 +23,9 @@ CN 1;' CONFIGURES LIMIT SWITCHES TO ACCEPT NC CONTACTS
II 8,,,0;' CONFIGURES THE 8TH INPUT TO ACTIVATE THE #ININT ROUTINE
OP 65280;' SETS OUTPUTS 9-16 ON = RELAYS OFF
IA 137,157,201,196;' CONFIGURES IP ADDRESS
AC 25000,25000,25000,25000,25000,25000,,;' SET ACELERATION
DC 25000,25000,25000,25000,25000,25000,,;' SET DECELERATION
SP 200000,200000,25000,25000,25000,25000,,;' SET SPEED
AC 25000,,25000,25000,25000,25000,,;' SET ACELERATION
DC 25000,,25000,25000,25000,25000,,;' SET DECELERATION
SP 25000,,25000,25000,25000,25000,,;' SET SPEED
SIA=0;'TURN OFF CLOCK PULSES TO ALLOW ENCODER TO INITIALISE
SIB=0
SIC=0
@@ -34,21 +34,18 @@ SIE=0
SIF=0
SIG=0
SIH=0
WT1000;'WAIT FOR ENCODER TO INITIALISE
SIA=1,31,13,0<12>2;'IVO ENCODER
SIB=0,25,13,0<12>2;'NOT USED, ONE CORD PULL FOR BOTH RAISE SECTIONS
WT5000;'WAIT FOR ENCODER TO INITIALISE
SIA=1,25,13,0<12>2;'HEIDENHAIN ROQ425
SIC=1,25,13,0<12>2;'HEIDENHAIN ROQ425
SID=1,25,13,0<12>2;'HEIDENHAIN ROQ425
SIE=1,25,13,0<12>2;'HEIDENHAIN ROQ425
SIF=1,25,13,0<12>2;'HEIDENHAIN ROQ425
SIG=0,25,13,0<12>2;'NOT USED
SIH=0,25,13,0<12>2;'NOT USED
NO TE: FIRST TIME THROUGH MOTOR LINK NOT DONE
REQA=0
RSPA=0
GAB=CA;'SET B FOLLOWS A IN COMMAND MODE
GRB=1;' SET 1:1 GEARING FOR NOW
GMB=1;' SET GANTRY MODE
'REQA=0
'RSPA=0
'GAB=CA;'SET B FOLLOWS A IN COMMAND MODE
'GRB=1;' SET 1:1 GEARING FOR NOW
'GMB=1;' SET GANTRY MODE
NO TE: FIRST TIME THROUGH AIRPAD CONTROL NOT DONE
REQF=0
RSPF=0
@@ -83,14 +80,14 @@ IF (_SPH>50000)
SPH=50000
ENDIF
NO TE: CONTROLS LINKED MOTORS
IF (REQA=1)&(RSPA=0);' SAMPLE RAISE MOTOR IS REQUIRED
SH AB;'TURN MOTOR ON
RSPA=1
ENDIF
IF (REQA=0)&(RSPA=1);' SAMPLE RAISE MOTOR IS NOT REQUIRED
MO AB;'TURN MOTOR OFF
RSPA=0
ENDIF
'IF (REQA=1)&(RSPA=0);' SAMPLE RAISE MOTOR IS REQUIRED
'SH AB;'TURN MOTOR ON
'RSPA=1
'ENDIF
'IF (REQA=0)&(RSPA=1);' SAMPLE RAISE MOTOR IS NOT REQUIRED
'MO AB;'TURN MOTOR OFF
'RSPA=0
'ENDIF
NO TE: CONTROLS THE AIRPAD SOLENOID VALVES
IF (REQF=1)&(RSPF=0);' DETECTOR ROTATE MOTOR IS REQUIRED
SH F;'TURN MOTOR ON