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

no message

Browse Source 
r2082 | dbx | 2007-07-20 10:36:10 +1000 (Fri, 20 Jul 2007) | 2 lines
This commit is contained in:
Dan Bartlett
2007-07-20 10:36:10 +10:00
committed by Douglas Clowes
parent 1d35fb41b4
commit 6696692353
2 changed files with 125 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
site_ansto/instrument/tas/DMC2280/controller4.txt Normal file
View File

@@ -0,0 +1,74 @@
NO TE: TAIPAN - CONTROLLER 4
NO TE:
NO TE: $Revision: 1.1 $
NO TE: $Date: 2007-07-20 00:36:10 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE:
NO TE: A-SPARE
NO TE: B-SPARE
NO TE: C-SPARE
NO TE: D-SPARE
NO TE: E-VIRTUAL SOURCE RIGHT, +VE OPEN, 6mm/TURN
NO TE: F-VIRTUAL SOURCE LEFT, -VE OPEN, 6mm/TURN
NO TE: G-SPARE
NO TE: H-SPARE
NO TE: 53mm GAP AT LIMITS
NO ----------------------------------------
#AUTO
NO TE: THIS IS THE PROGRAM THAT RUNS AUTOMATICALLY ON CONTROLLER STARTUP
MT-2,-2,-2,-2,-2,-2,-2,-2;'CONFIGURES ALL AXES AS STEPPER
MO;' FIRST TIME MOTOR OFF
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,203,134;' CONFIGURES IP ADDRESS
AC ,,,,25000,25000,,;' SET ACELERATION
DC ,,,,25000,25000,,;' SET DECELERATION
SP ,,,,12500,12500,,;' SET SPEED
JS #THREAD0
EN
NO ----------------------------------------
#THREAD0
NO TE: THERE MUST BE A THREAD RUNNING FOR #LIMSWI, #TCPERR AND #ININT TO WORK
NO TE: CHECKS IF SPEEDS ARE ABOVE MAXIMUM ALLOWED
NO IF (_SPA>50000)
NO SPA=50000
NO ENDIF
NO IF (_SPB>50000)
NO SPB=50000
NO ENDIF
NO IF (_SPC>50000)
NO SPC=50000
NO ENDIF
NO IF (_SPD>50000)
NO SPD=50000
NO ENDIF
IF (_SPE>12500)
SPE=12500
ENDIF
IF (_SPF>12500)
SPF=12500
ENDIF
NO IF (_SPG>50000)
NO SPG=50000
NO ENDIF
NO IF (_SPH>50000)
NO SPH=50000
NO ENDIF
JP #THREAD0
EN
NO ----------------------------------------
#TCPERR
NO TE: EMPTY ROUTINE FOR A TCP ERROR
RE
NO ----------------------------------------
#ININT
NO TE: INTERUPT ROUTINE TO STOP ALL AXES
NO TE: WHEN SAFETY & INTERLOCK SYSTEM REQUESTS IT
STA,B,C,D,E,F,G,H
AM
MO
RI
NO ----------------------------------------

51
site_ansto/instrument/tas/DMC2280/controller5.txt Normal file
View File

@@ -0,0 +1,51 @@
NO TE: TAIPAN - CONTROLLER 5
NO TE:
NO TE: $Revision: 1.1 $
NO TE: $Date: 2007-07-20 00:36:10 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE:
NO TE: A-SECONDARY SHUTTER, +VE OPEN, 6mm/TURN
NO TE: B-SPARE
NO TE: C-SPARE
NO TE: D-SPARE
NO TE: FOUR AXIS CONTROLLER ONLY
NO ----------------------------------------
#AUTO
NO TE: THIS IS THE PROGRAM THAT RUNS AUTOMATICALLY ON CONTROLLER STARTUP
SHA
MT-2,-2,-2,-2;'CONFIGURES ALL AXES AS STEPPER
CN 1;' CONFIGURES LIMIT SWITCHES TO ACCEPT NC CONTACTS
IA 137,157,203,135;' CONFIGURES IP ADDRESS
AC 100000,0,0,0;' SET ACELERATION
DC 100000,0,0,0;' SET DECELERATION
SP 50000,0,0,0;' SET SPEED
JS #THREAD0
EN
NO ----------------------------------------
#THREAD0
NO TE: CONTROLS THE SECONDARY SHUTTER
NO TE: INPUT 5=SECONDARY SHUTTER CLOSE SIGNAL 1
NO TE: INPUT 6=SECONDARY SHUTTER CLOSE SIGNAL 2
NO TE: INPUT 7=SECONDARY SHUTTER OPEN SIGNAL 1
NO TE: INPUT 8=SECONDARY SHUTTER OPEN SIGNAL 2
IF (_TI0=63)&(_BGA=0)&(_LFA=1)
NO TE: INPUTS 7&8 EXCLUSIVELY ON, SECONDARY SHUTTER COMMANDED TO OPEN
PRA=580000;'APROX 140mm
BGA
ENDIF
IF (_TI0<>63)&(_LRA=1)
NO TE: INPUTS 7&8 NOT EXCLUSIVELY ON, SECONDARY SHUTTER COMMANDED TO CLOSE
STA;' STOP ANY MOTION
AMA;' AFTER MOTION IS STOPPED
PRA=-580000;' APROX 140mm
BGA;' DRIVE SHUTTER CLOSED TO LIMIT SWITCH
AMA
ENDIF
JP #THREAD0
EN
NO ----------------------------------------
#TCPERR
NO TE: EMPTY ROUTINE FOR A TCP ERROR
RE
NO ----------------------------------------