Rockwell Automation 1398-PDM-xxx IQ Master Version 3.2.4 for IA-2000 and IQ-5000 Positioning Drive Modules, IQ-55 - Manual (Page 406)

384 Application Examples • Thermoformer Application
Publication 1398-PM601A-EN-P — October 2000
APPENDIXES
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 run continuously
IF COUNT = 0 PRINT "CONT"
JMP X3E
X3_1: ;If screen = 1 read new anticipate output length
READ 3,4 "^D0OUT ON^D1 " ,SHOW OUT_LEN,7,3(0,999)
PRINT 3,1 "X1:OUT ON " ,G8,7,3
X3E:
XEND ;End of X3 key program
;
;The X4 key routine changes the operator terminal from one menu to the next.
X4: ;X4 key program
SCREEN = SCREEN + 1 ;Change screen variable to next screen
IF SCREEN = 3 SCREEN = 0 ;Screen must be 0, 1, or 2
ON SCREEN JMP M0,M1,DI ;Determine the new screen to be displayed
M0: ;If screen = 0 change display to menu 0
CLEAR ;Clear operator terminal screen
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 not zero print value
IF COUNT = 0 PRINT "CONT" ; else continuous operation
PRINT 4,1 "X4:NEXT MENU"
JMP X4E
M1: ;If screen = 1 change display to menu 1
CLEAR ;Clear operator terminal screen
PRINT 1,1 "X1:ACCEL " ,ALPHA,4,0
PRINT 2,1 "X2:DWELL " ,TIME,6,3
PRINT 3,1 "X3:OUT ON " ,OUT_LEN,7,3
PRINT 4,1 "X4:NEXT MENU"
JMP X4E
DI: ;If screen = 2 change display to status
CLEAR ;Clear operator terminal screen
PRINT 4,1 "X4:NEXT MENU"
IF STATE <> 1 PRINT 2,2 "WAITING FOR START"
IF STATE = 1 PRINT 2,3 "RUNNING BATCH"
IF STATE = 2 PRINT 3,3 "BATCH COMPLETE"
X4E:
XEND ;End of X4 key program
;
ALL OFF ;Initialize all outputs off
CLEAR
PRINT "^D3" ;Print initial message on operator terminal
PRINT 2,3 "THERMOFORMER"
PRINT 3,7 "CONTROL"
DELAY 2 ;Wait for 2 seconds
CLEAR ;Clear operator terminal screen
SCREEN = 2 ;Set screen to status display
STATE = 0 ;Initial state=0 (waiting for start input)
PRINT 4,1 "X4:NEXT MENU"
X1 CONT ;Enable the X key routines for continuous
; operation
X2 CONT
X3 CONT
X4 CONT
TFMRLOOP: ;Main program loop
IF SCREEN <> 2 JMP TFMR05
CLEAR 2 ;If screen = 2 print status message
PRINT 2,2 "WAITING FOR START"
TFMR05:
WAIT I4 ON ;Wait for start input