#AUTO
NO TE: A-SLIT S1 LEFT BLADE
NO TE: B-SLIT S1 RIGHT BLADE
NO TE: C-SLIT S1 TOP BLADE
NO TE: D-SLIT S1 BOTTOM BLADE
NO TE: E-SLIT S2 LEFT BLADE
NO TE: F-SLIT S2 RIGHT BLADE
NO TE: G-SLIT S2 TOP BLADE
NO TE: H-SLIT S2 BOTTOM BLADE
MT-2,-2,-2,-2,-2,-2,-2,-2;'CONFIGURES ALL AXES AS STEPPER
MO;' FIRST TIME MOTOR OFF
CN 1;' CONFIGURES LIMIT SWITCHES TO ACCEPT NC CONTACTS
II 8,,,0;' CONFIGURES THE 8TH INPUT TO ACTIVATE THE #ININT ROUTINE
IA 137,157,201,132;' CONFIGURES IP ADDRESS
AC 60000,60000,60000,60000,60000,60000,60000,60000;' SET ACELERATION
DC 60000,60000,60000,60000,60000,60000,60000,60000;' SET DECELERATION
SP 30000,30000,30000,30000,30000,30000,30000,30000;' SET SPEED
HOMERUN=0;' HOMING PROCEDURE HAS NOT BEEN RUN
JS #LOOPER;' RUNS THE LOOPING PROCEDURE
EN
#LOOPER
NO TE: ININT, LIMSWI ETC NEEDS A PROGRAM RUNNING TO WORK: JUST A LOOP
JP#LOOPER
EN
#TCPERR
NO TE: EMPTY ROUTINE FOR A TCP ERROR
RE
#ININT
NO TE: INTERUPT ROUTINE TO STOP ALL AXES
NO TE: WHEN SAFETY & INTERLOCK SYSTEM REQUESTS IT
STA,B,C,D,E,F,G,H
AM
MO
RI
#HOME
IF (HOMERUN = 1)
JP #ENDHOME
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSA & 4) = 0)
SHA
PRA=200000
BGA
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSB & 4) = 0)
SHB
PRB=200000
BGB
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSC & 4) = 0)
SHC
PRC=200000
BGC
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSD & 4) = 0)
SHD
PRD=200000
BGD
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSE & 4) = 0)
SHE
PRE=200000
BGE
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSF & 4) = 0)
SHF
PRF=200000
BGF
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSG & 4) = 0)
SHG
PRG=200000
BGG
ENDIF
NO TE: MOVE SLIT FORWARD 10MM IF IT IS AGAINST THE REVERSE LIMIT SWITCH
IF ((_TSH & 4) = 0)
SHH
PRH=200000
BGH
ENDIF
AM ABCDEFGH
NO TE: DRIVE ALL SLITS INTO REVERSE LIMIT SWITCH
SH
JG -25000,-25000,-25000,-25000,-25000,-25000,-25000,-25000
BG
AM ABCDEFGH
NO TE: MOVE AWAY FROM SWITCHES BY 2MM AND DRIVE BACK SLOWLY
PR 80000,80000,80000,80000,80000,80000,80000,80000
BG
AM ABCDEFGH
JG -5000,-5000,-5000,-5000,-5000,-5000,-5000,-5000
BG
AM ABCDEFGH
NO TE: MOVE FORWARD FROM SWITCH BY 2MM AND SET ZERO
PR 40000,40000,40000,40000,40000,40000,40000,40000
BG
AM ABCDEFGH
DP 0,0,0,0,0,0,0,0
SP 30000,30000,30000,30000,30000,30000,30000,30000
HOMERUN=1;'HOMING PROCEDURE HAS BEEN RUN
#ENDHOME
EN