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

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

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