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

Flight tube air pad control modified

Browse Source 
r1500 | dbx | 2007-02-17 10:12:02 +1100 (Sat, 17 Feb 2007) | 2 lines
This commit is contained in:
Dan Bartlett
2007-02-17 10:12:02 +11:00
committed by Douglas Clowes
parent c5e5630a60
commit 2c1e6357d3
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
site_ansto/instrument/hipd/DMC2280/controller1.txt
View File

@@ -1,7 +1,7 @@
NO TE: WOMBAT - CONTROLLER 1 NO TE: WOMBAT - CONTROLLER 1
NO TE: NO TE:
NO TE: $Revision: 1.3 $ NO TE: $Revision: 1.4 $
NO TE: $Date: 2007-02-16 21:38:39 $ NO TE: $Date: 2007-02-16 23:12:02 $
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:
@@ -66,7 +66,7 @@ NO IF (_SPH>50000)
NO SPH=50000 NO SPH=50000
NO ENDIF NO ENDIF
NO TE: CONTROLS THE AIRPAD SOLENOID VALVES NO TE: CONTROLS THE AIRPAD SOLENOID VALVES
NO TE; SET FTUBE=1 TO MAKE FLIGHT TUBE AVAILABLE FOR MOVE NO TE: SET FTUBE=1 TO MAKE FLIGHT TUBE AVAILABLE FOR MOVE
NO TE: THE APDONE BIT IS USED SO THAT THE CODE ONLY RUNS WHEN THE NO TE: THE APDONE BIT IS USED SO THAT THE CODE ONLY RUNS WHEN THE
NO TE: STATE OF FTUBE CHANGES - THE DELAYS ARENT RUNNING EVERY CYCLE NO TE: STATE OF FTUBE CHANGES - THE DELAYS ARENT RUNNING EVERY CYCLE
NO TE: IN THE 2ND IF, THE OFF-SOLENOIDS ARENT HELD ENERGISED IN CASE THE NO TE: IN THE 2ND IF, THE OFF-SOLENOIDS ARENT HELD ENERGISED IN CASE THE
@@ -74,23 +74,23 @@ NO TE: VALVE MANUAL OVER RIDE IS NEEDED.
IF (FTUBE=1)&(APDONE=0);'REQUESTING FLIGHT TUBE BE MOVABLE IF (FTUBE=1)&(APDONE=0);'REQUESTING FLIGHT TUBE BE MOVABLE
SHF;' TURN MOTOR ON SHF;' TURN MOTOR ON
WT500;' WAIT FOR MOTOR TO STABILISE WT500;' WAIT FOR MOTOR TO STABILISE
SB 12;'DRIVE WHEEL UP-SOLENOID OFF SB 12;' DRIVE WHEEL UP-SOLENOID OFF
CB 11;'DRIVE WHEEL DOWN-SOLENOID ON CB 11;' DRIVE WHEEL DOWN-SOLENOID ON
WT1000;' WAIT FOR DRIVE WHEEL TO LOWER WT1000;' WAIT FOR DRIVE WHEEL TO LOWER
SB 10;'SAMPLE STAGE AIR PAD OFF-SOLENOID OFF SB 10;' SAMPLE STAGE AIR PAD OFF-SOLENOID OFF
CB 9;'SAMPLE STAGE AIR PAD ON-SOLENOID ON CB 9;' SAMPLE STAGE AIR PAD ON-SOLENOID ON
APDONE=1 APDONE=1
ENDIF ENDIF
IF (FTUBE=0)&(APDONE=1);'FLIGHT TUBE MOTION FINISHED IF (FTUBE=0)&(APDONE=1);'FLIGHT TUBE MOTION FINISHED
WT1000; WAIT FOR FLIGHT TUBE TO SETTLE WT1000;' WAIT FOR FLIGHT TUBE TO SETTLE
SB 9;'SAMPLE STAGE AIR PAD ON-SOLENOID OFF SB 9;' SAMPLE STAGE AIR PAD ON-SOLENOID OFF
CB 10;'SAMPLE STAGE AIR PAD OFF-SOLENOID ON CB 10;' SAMPLE STAGE AIR PAD OFF-SOLENOID ON
WT500; WT500;
SB 10;'SAMPLE STAGE AIR PAD OFF-SOLENOID OFF SB 10;' SAMPLE STAGE AIR PAD OFF-SOLENOID OFF
SB 11;'DRIVE WHEEL DOWN-SOLENOID OFF SB 11;' DRIVE WHEEL DOWN-SOLENOID OFF
CB 12;'DRIVE WHEEL UP-SOLENOID ON CB 12;' DRIVE WHEEL UP-SOLENOID ON
WT500;'WAIT 1/2 SEC WT500;' WAIT 1/2 SEC
SB 12;'DRIVE WHEEL UP-SOLENOID OFF SB 12;' DRIVE WHEEL UP-SOLENOID OFF
MOF;' TURN MOTOR OFF MOF;' TURN MOTOR OFF
APDONE=0 APDONE=0
ENDIF ENDIF
@@ -160,4 +160,4 @@ DCE=OLDDCE
DCF=OLDDCF DCF=OLDDCF
NO DCG=OLDDCG AXIS NOT USED NO DCG=OLDDCG AXIS NOT USED
NO DCH=OLDDCH AXIS NOT USED NO DCH=OLDDCH AXIS NOT USED
RE RE