DMC2280 Controller programs for Echidna (HRPD)

r1059 | ffr | 2006-08-14 14:25:44 +1000 (Mon, 14 Aug 2006) | 2 lines

site_ansto/instrument/hrpd/DMC2280/controller3.txt

@@ -0,0 +1,81 @@
+#AUTO
+NO TE: A-MONOCHROMATOR FOCUS
+NO TE: B-SPARE
+NO TE: C-SPARE
+NO TE: D-SPARE
+NO TE: E-SLIT 1 LEFT BLADE (ss1l)
+NO TE: F-SLIT 1 RIGHT BLADE (ss1r)
+NO TE: G-SLIT 1 TOP BLADE (ss1u)
+NO TE: H-SLIT 1 BOTTOM BLADE (ss1d)
+MT-2,-2,-2,-2,-2,-2,-2,-2
+MO
+CO 0
+OP 65280
+IA 137,157,201,68
+CN 1
+AC 25000,25000,25000,25000,10000,10000,10000,10000
+DC 25000,25000,25000,25000,60000,60000,60000,60000
+SP 25000,25000,25000,25000,30000,30000,30000,30000
+#LOOPER
+JP#LOOPER
+EN
+#RES
+SB1
+CB1
+AI31
+IOBYTE1=_TI2
+IOBYTE2=_TI3
+IOBYTE2=(IOBYTE2&63)
+IOBYTE2=(IOBYTE2*256)
+FOCUS=(IOBYTE1+IOBYTE2)
+SB1
+EN
+#TCPERR
+RE
+#HOME
+NOTE Move slit forward 10mm if it is against the reverse limit switch
+IF ((_TSE & 4) = 0)
+SHE
+PRE=200000
+BGE
+ENDIF
+NOTE Move slit forward 10mm if it is against the reverse limit switch
+IF ((_TSF & 4) = 0)
+SHF
+PRF=200000
+BGF
+ENDIF
+NOTE Move slit forward 10mm if it is against the reverse limit switch
+IF ((_TSG & 4) = 0)
+SHG
+PRG=200000
+BGG
+ENDIF
+NOTE Move slit forward 10mm if it is against the reverse limit switch
+IF ((_TSH & 4) = 0)
+SHH
+PRH=200000
+BGH
+ENDIF
+AMEFGH
+NOTE Drive all slits into reverse limit switch
+SHEFGH
+JG ,,,,-25000,-25000,-25000,-25000
+BGEFGH
+AMEFGH
+NOTE Move away from switches by 2mm and drive back slowly
+PR ,,,,80000,80000,80000,80000
+BGEFGH
+AMEFGH
+JG,,,,-5000,-5000,-5000,-5000
+BGEFGH
+AMEFGH
+NOTE Move forward from switch by 2mm and set zero
+PR ,,,,40000,40000,40000,40000
+BGEFGH
+AMEFGH
+DP ,,,,0,0,0,0
+SP ,,,,30000,30000,30000,30000
+EN
+
+