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

change speeds add focussing motors

Browse Source 
r2509 | dcl | 2008-05-08 16:50:04 +1000 (Thu, 08 May 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-05-08 16:50:04 +10:00
parent b5d157c67a
commit 3076fccac3
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
site_ansto/instrument/rsd/DMC2280/controller3.txt
View File

@@ -1,9 +1,9 @@
NO TE: KOWARI - CONTROLLER 3
NO TE:
NO TE: $Revision: 1.2 $
NO TE: $Date: 2007-05-03 06:53:56 $
NO TE: $Revision: 1.3 $
NO TE: $Date: 2008-05-08 06:50:04 $
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 FOCUS 1
NO TE: B-MONOCHROMATOR FOCUS 2
@@ -22,9 +22,9 @@ CN 1;' CONFIGURES LIMIT SWITCHES TO ACCEPT NC CONTACTS
CO 0;' CONFIGURES EXTENDED IO AS INPUTS
II 8,,,0;' CONFIGURES THE 8TH INPUT TO ACTIVATE THE #ININT ROUTINE
IA 137,157,201,197;' CONFIGURES IP ADDRESS
AC 6000,6000,,,,,,;' SET ACELERATION
DC 6000,6000,,,,,,;' SET DECELERATION
SP 12500,12500,,,,,,;' SET SPEED
AC 12500,12500,,,,,,;' SET ACELERATION
DC 12500,12500,,,,,,;' SET DECELERATION
SP 25000,25000,,,,,,;' SET SPEED
JS #THREAD0
EN
NO ----------------------------------------
@@ -59,12 +59,12 @@ NO SPH=30000
NO ENDIF
NO TE: PROCEDURE TO UPDATE THE RESOLVER FEEDBACK.
NO TE: RESOLVER NUMBER 1
NO AI31;' WAIT FOR XBUSY BIT
NO IOBYTE1=_TI2;' LOAD FIRST WORD
NO IOBYTE2=_TI3;' LOAD SECOND WORD
NO IOBYTE2=(IOBYTE2&63);' MASK OUT XBUSY BIT
NO IOBYTE2=(IOBYTE2*256);' SHIFT REMAINING BITS 8 POSITIONS TO RIGHT
NO DEA=(IOBYTE1+IOBYTE2);' ADD WORDS TOGETHER, LOAD INTO DEA, USE TPA FOR VALUE
AI31;' WAIT FOR XBUSY BIT
IOBYTE1=_TI2;' LOAD FIRST WORD
IOBYTE2=_TI3;' LOAD SECOND WORD
IOBYTE2=(IOBYTE2&63);' MASK OUT XBUSY BIT
IOBYTE2=(IOBYTE2*256);' SHIFT REMAINING BITS 8 POSITIONS TO RIGHT
DEA=(IOBYTE1+IOBYTE2);' ADD WORDS TOGETHER, LOAD INTO DEA, USE TPA FOR VALUE
NO TE: RESOLVER NUMBER 2
AI47;' WAIT FOR XBUSY BIT
IOBYTE3=_TI4;' LOAD FIRST WORD
@@ -96,4 +96,4 @@ WT 500
MG _TPB {F5.0}{EA}
JP #LOOPIT
EN
NO ----------------------------------------
NO ----------------------------------------