Appendixes – Rockwell Automation 1398-PDM-xxx IQ Master Version 3.2.4 for IA-2000 and IQ-5000 Positioning Drive Modules, IQ-55 User Manual
Page 389

Application Examples • Feed-To-Length Application
367
Publication 1398-PM601A-EN-P — October 2000
APPENDIXES
;
;The X2 key routine is similar to X1 for different variables.
X2:
CLEAR 2
ON SCREEN JMP X2_0,X2_1,X2_2,X2E
X2_0:
READ 2,4 "^D0SPEED^D1 " ,SHOW SPEED,4,0(0,9999)
PRINT 2,1 "X2:SPEED " ,SPEED,4,0
JMP X2E
X2_1:
READ 2,4 "^D0DWELL^D1 " ,SHOW TIME,6,3(0,99)
PRINT 2,1 "X2:DWELL " ,TIME,6,3
JMP X2E
X2_2:
READ 2,4 "^D0BACKUP^D1 " ,SHOW BACK_LEN,7,3(0,999)
PRINT 2,1 "X2:BACKUP "
IF BACK_LEN=0 BACKUP=OFF ELSE BACKUP=ON
IF BACKUP=OFF PRINT "OFF "
IF BACKUP=ON PRINT BACK_LEN,7,3
X2E:
XEND
;
;The X3 key routine is similar to X1 for different variables.
X3:
CLEAR 3
ON SCREEN JMP X3_0,X3_1,X3_2,X3E
X3_0:
READ 3,4 "^D0COUNT^D1 " ,SHOW COUNT,5,0(0,99999)
PRINT 3,1 "X3:COUNT "
IF COUNT<>0 PRINT COUNT,5,0
IF COUNT=0 PRINT "CONT"
JMP X3E
X3_1:
READ 3,4 "^D0KERF^D1 " ,SHOW KERF,6,3(0,99)
PRINT 3,1 "X3:KERF " ,KERF,6,3
JMP X3E
X3_2:
READ 3,4 "^D0REG LEN^D1 " ,SHOW REG_LEN,6,3(0,99)
PRINT 3,1 "X3:REG LEN "
IF REG_LEN=0 REGISTER=OFF ELSE REGISTER=ON
IF REGISTER=OFF PRINT "OFF "
IF REGISTER=ON PRINT REG_LEN,6,3
X3E:
XEND
;
;The X4 key routine changes the operator terminal from one menu to the next.
X4:
SCREEN=SCREEN+1
IF SCREEN=4 SCREEN=0
ON SCREEN JMP M0,M1,M2,DI
M0:
CLEAR
PRINT 1,1 "X1:LENGTH " ,LENGTH,7,3
PRINT 2,1 "X2:SPEED " ,SPEED,4,0
PRINT 3,1 "X3:COUNT "
IF COUNT<>0 PRINT COUNT,5,0
IF COUNT=0 PRINT "CONT"
PRINT 4,1 "X4:NEXT MENU"
JMP X4E
M1:
CLEAR
PRINT 1,1 "X1:ACCEL " ,ALPHA,4,0