New ZX Program -- March 20, 2000


1XE1 1XD1
1"SIMPLE_MOTION_#1 1CR 1"A25_V5_AD25_D25000 1CR 1"G 1CR A25 V5 AD25 D25000 G XG16 XT

1XE2 1XD2
1"SIMPLE_MOTION_#2 1CR D0 G A1 V40 D50000 AD600 G A600 AD1 V40 D-50000 G XG16 XT

1XE3 1XD3
1"SIMPLE_MOTION_#3 1CR D0 G A600 AD600 VAR1=0 L10 VAR1=VAR1+1 VAR2=VAR1*5 V(VAR2) VAR3=VAR1*5000 D(VAR3) G T.1 N XG16 XT

1XE4 1XD4
1"DELICATE_VERTICAL_LIFT_SIMULATION 1CR MPP A25 V4 D65000 AD20 G DP50000 V1 DP10000 V.5 DP5000 T1 D-65000 G DP5000 V1 DP10000 V5 DP5000 NG XG16 XT

1XE5 1XD5
1"INDEXER_SIMULATION 1CR XR26 1"BEGIN 1"NEW 1"SEQUENCE 1CR IN6A VAR1=0 L A600 VAR1=VAR1+1 V20 D2500 G T.25 IF(INXXXXXXXX1) XG16 NIF IF(VAR1=10) T.5 D-25000 VAR1=0 G T.5 NIF N XT

1XE6 1XD6
1"COUTER_SEQUENCE 1CR IN1N IN2N IN3N IN4N OUTL1 OUT1J OUT2J OUT3J STR15 A60 V30 AD600 L 1"SET 1"SWITICHES_(I1-I4) 1"TO 1"ZERO 1CR 1"SET 1"THUMBWHEELS 1CR XR27 1"TO 1"BEGIN 1CR TRX0 TRX1 TRX0 1VARD1,035 1VARD2,475 VAR3=VAR1/100 VAR4=VAR2/100 VAR5=VAR3*5000 VAR6=VAR4*-5000 1VAR3 1"TWISTS_FORWARD 1CR 1VAR4 1"TWISTS_REVERSE 1CR D(VAR5) G D(VAR6) T.5 G IF(INXXXXXXX1) XG16 NIF N XT

1XE7 1XD7
1"JOG_SEQUENCE 1CR IN1L IN5J IN6A IN7K 1"JOG 1"SPEED 1"HIGH/LOW 1"WITH 1"SWITCH_I1 1CR 1"JOG 1"RIGHT 1"WITH 1"BLACK 1"BUTTON 1CR 1"JOG 1"LEFT 1"WITH 1"GREEN 1"BUTTON 1CR TR1 TR0 XG16 NIF XT

1XE8 1XD8
1"CONTINUOUS_MOTION_SEQUENCE 1CR MC A25 V10 AD25 XR27 1"BEGIN 1"CONTINUOUS 1"MOTION 1CR IN5A IN6R IN7G XR26 1"BEGIN 1"NEW 1"SEQUENCE TR1 TR0 XG16 XT

1XE9 1XD9
1"COMPUTER_INPUT_SEQUENCE_(RSIN) 1CR MPP 1"ENTER 1"ACCELLERATION 1"!# 1CR VAR1=RSIN A(VAR1) 1CR 1"ENTER 1"VELOCITY 1"!# 1CR VAR2=RSIN V(VAR2) 1CR 1"ENTER 1"DECELERATION 1"!# 1CR VAR3=RSIN AD(VAR3) 1CR 1"ENTER 1"DISTANCE 1"!# 1CR VAR4=RSIN D(VAR4) 1CR XR27 1"BEGIN 1CR IN7A TRX1 TRXO G DP(VAR4) XR26 1"BEGIN 1"NEW 1"SEQUENCE GOTO16 XT

1XE10 1XD10
IN1A 1"TO 1"ENTER 1"ABSOLUTE_MODE_(MPA) 1"SET 1"SWITCH_I1 1"TO 1"1 1CR 1"TO 1"ENTER 1"INCREMENTAL_MODE_(MPI) 1"SET 1"SWITCH_I1 1"TO 1"0 1CR XR27 1"TO 1"CHOOSE TRXX0 TRXX1 TRXX0 1CR 1CR IF(INXXX1) MPA 1"YOU 1"ARE 1"IN 1"ABSOLUTE_MODE, 1"ALL 1"DISTANCES 1"ARE 1"FROM 1"SHAFT 1"START-UP 1"POSITION. 1CR XG16 ELSE MPI 1"YOU 1"ARE 1"IN 1"INCREMENTAL_MODE, 1"ALL 1"DISTANCES 1"ARE 1"FROM 1"LAST 1"MOVE 1CR XG16 NIF XT

1XE11 1XD11
1"CONNECT 1"RED 1"LEAD 1"FROM 1"VOLT-METER 1"TO 1"TERMINAL_#10 1CR 1"CONNECT 1"BLACK 1"LEAT 1"TO 1"TERMINAL_#11 1"OF 1"I/O(2) 1CR 1"TO 1"MONITOR 1"VELOCITY 1"SET 1"SWITCH_I1 1"TO 1"0 1CR 1"TO 1"MONITOR 1"TORQUE 1"SET 1"SWITCH_I1 1"TO 1"1 GOSUB27 1"BEGIN TRX0 TRX1 TRX0 1CR 1CR IN1A IF(INXXX1) SSR0 1"YOU_ARE_NOW_MONITORING_TORQUE 1CR ELSE SSR1 1"YOU_ARE_NOW_MONITORING_VELOCITY 1CR NIF XG16 XT

1XE12 1XD12
XG15 XT

1XE13 1XD13
XG15 XT

1XE14 1XD14
XG15 XT

1XE15 1XD15
1CR 1"SEQUENCE_NOT_DEFINED 1CR 1"DEAL_WITH_IT. 1CR XG16 XT

1XE16 1XD16
1CR MN INL0 IN1B IN2B IN3B IN4B IN5A IN6R IN7A 1CR 1"SET 1"ALL 1"THUMBWHEELS 1"TO 1"ZERO 1CR 1"SET 1"SELECTOR 1"SWITCH_I1-I4 1"& GOSUB27 1"START 1"NEW 1"SEQUENCE 1CR TRX0 TRX1 TRX0 XT

1XE25 1XD25
1"PRESS 1"BLACK 1"BUTTON 1"TO XT

1XE26 1XD26
1"PRESS 1"RED 1"BUTTON 1"TO XT

1XE27 1XD27
1"PRESS 1"GREEN 1"BUTTON 1"TO XT

1XE100 1XD100
1CR 1"SEQUENCE_#100 1CR 1"START-UP_SEQUENCE 1CR 1"MN-MODE_NORMAL 1CR MN 1"MPI-MODE_POSITIONING_INCREMENTAL 1CR MPI OSE1 JVL.25 JVH5 JA25 1"SSJ1-SEQUENCE_SELECT_MODE 1CR SSJ1 1"PZ-SET_CURRENT_POSITION_TO_ZERO 1CR PZ 1"LD3-DISABLE_CW/CCW_LIMITS 1CR LD3 1"GOTO16-GOTO_SEQUECNE_#16 1CR XG16 XT

The Thumbwheels are wired to I1-I4 & O1-03.  Four selector
switches are wired in parallel. I5-I7 are wired to push-buttons.
Since the Thumbwheels and Selector Switches are wired in parallel,
The Thumbwheels must be set to zero when selecting a sequence!

--
eg