83 lines
1.4 KiB
Plaintext
83 lines
1.4 KiB
Plaintext
#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
|
|
XQ#HOME,1
|
|
#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
|
|
|
|
|