Installation guide

Application Examples 287
prt_program:
PRINT#2,”#DEFINE AX1 1”
PRINT#2,”#DEFINE AX2 2”
PRINT#2,
PRINT#2,”POSMODE(AX1,AX2) = 1,1”
PRINT#2,”MOVEHOME(AX1,AX2) = -1,-1”
PRINT#2,”WAITDONE(AX1,AX2)”
PRINT#2,”MOVE(AX1,AX2)=”;NVR(1);”,”;NVR(2)
PRINT#2,”WAITDONE(AX1,AX2)”
PRINT#2,”PATH=AX1,AX2”
FOR X=4 TO NVR(3) STEP 2
PRINT#2,” POINT=”;NVR(X);”,”;NVR(X+1)
NEXT X
PRINT#2,”PATH END”
PRINT#2,”END”
state=1
DO
GOSUB debounce_E2_1 ‘test Print switch
LOOP UNTIL E2_1=0 ‘wait for Print switch to open
RETURN
‘****** debounce Teach Input
debounce_E1_1:
cnt = DCNT ‘debounce delay in msec
DO
IF EVENT1(AX1) = state THEN
RETURN ‘return if same state
ELSE
cnt = cnt – 1
wait=.001 ‘wait 1 msec
END IF
LOOP UNTIL cnt < 1 ‘wait for debounce switch state change
IF state=1 THEN
E1_1 = 0 ‘change state
ELSE
E1_1 = 1 ‘change state
END IF
RETURN ‘return with different state