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

Change Flight Tube to use REQx/RSPx instead of APDONE variables.

Browse Source 
r1997 | dcl | 2007-06-01 16:52:06 +1000 (Fri, 01 Jun 2007) | 2 lines
This commit is contained in:
Douglas Clowes
2007-06-01 16:52:06 +10:00
parent d785f48aa7
commit d75f423f43
1 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
site_ansto/instrument/rsd/DMC2280/controller1.txt
View File

@@ -1,9 +1,9 @@
NO TE: KOWARI - CONTROLLER 1
NO TE:
NO TE: $Revision: 1.3 $
NO TE: $Date: 2007-03-23 07:10:44 $
NO TE: $Revision: 1.4 $
NO TE: $Date: 2007-06-01 06:52:06 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE: Last revision by: $Author: dcl $
NO TE:
NO TE: A-MONOCHROMATOR UPPER TILT
NO TE: B-MONOCHROMATOR LOWER TILT
@@ -33,7 +33,9 @@ SIE=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIF=1,25,25,0<-2>2;'HEIDENHAIN RCN226
SIG=0,25,13,0<-2>2;'NOT USED
SIH=0,25,13,0<-2>2;'NOT USED
APDONE=0;' FIRST TIME THROUGH AIRPAD CONTROL NOT DONE
NO TE: FIRST TIME THROUGH AIRPAD CONTROL NOT DONE
REQF=0
RSPF=0
JS #THREAD0
EN
NO ----------------------------------------
@@ -65,19 +67,27 @@ NO IF (_SPH>50000)
NO SPH=50000
NO ENDIF
NO TE: CONTROLS THE AIRPAD SOLENOID VALVES
NO TE: THE APDONE BIT IS USED SO THAT THE CODE ONLY RUNS WHEN THE
NO TE: THIS BIT IS USED SO THAT THE CODE ONLY RUNS WHEN THE
NO TE: IN THE 2ND IF, THE OFF-SOLENOIDS ARENT HELD ENERGISED IN CASE THE
NO TE: VALVE MANUAL OVER RIDE IS NEEDED.
IF (_MOF=0)&(APDONE=0);'REQUESTING FLIGHT TUBE BE MOVABLE
IF (_MOF=0)&(RSPF=0);'FLIGHT TUBE MOTOR IS ON
REQF=1
ENDIF
IF (_MOF=1)&(RSPF=1);'FLIGHT TUBE MOTOR IS OFF
REQF=0
ENDIF
IF (REQF=1)&(RSPF=0);'REQUESTING FLIGHT TUBE BE MOVABLE
SHF
WT500;' WAIT FOR MOTOR TO STABILISE
SB 12;' DRIVE WHEEL UP-SOLENOID OFF
CB 11;' DRIVE WHEEL DOWN-SOLENOID ON
WT1000;' WAIT FOR DRIVE WHEEL TO LOWER
SB 10;' SAMPLE STAGE AIR PAD OFF-SOLENOID OFF
CB 9;' SAMPLE STAGE AIR PAD ON-SOLENOID ON
APDONE=1
WT500;
RSPF=1
ENDIF
IF (_MOF=1)&(APDONE=1);'FLIGHT TUBE MOTION FINISHED
IF (REQF=0)&(RSPF=1);'FLIGHT TUBE MOTION FINISHED
SHF;' FOLLOWING STEPS MUST BE RUN BEFORE MOTOR CAN BE TURNED OFF
WT1000;' WAIT FOR FLIGHT TUBE TO SETTLE
SB 9;' SAMPLE STAGE AIR PAD ON-SOLENOID OFF
@@ -89,7 +99,7 @@ CB 12;' DRIVE WHEEL UP-SOLENOID ON
WT500;' WAIT 1/2 SEC
SB 12;' DRIVE WHEEL UP-SOLENOID OFF
MOF;' TURN MOTOR OFF
APDONE=0
RSPF=0
ENDIF
JP #THREAD0
EN