Lincoln Electric IM8002 POWER WAVE MANAGER - Manual (Page 113)

FANUC® Robot Application (Prior to v7.70P/21) Appendix B. FANUC Robots
IM8002 Power Wave® Manager User Manual B.7
Listing of Program PM_VER
1: R[1] = AR[1] - 1;
2: IF R[1]<0 OR R[1]>31, CALL ALERT(10);
3: R[1] = R[1] * 25;
4: R[1] = R[1] + 2013;
5: ! Get runt counts
6: LBL[3];
7: CALL RD_AL_AT(1,17,R[1]);
8: IF $ARCLINK_ATR.$STATUS<>0 JMP LBL[3];
9: IF R[5] <> $ARCLINK_ATR.$INT_VALUE, CALL ALERT(1)
10: R[1] = R[1] + 1;
11: ! Get Time Limit counts
12: LBL[4];
13: CALL RD_AL_AT(1,17,R[1]);
14: IF $ARCLINK_ATR.$STATUS<>0 JMP LBL[4];
15: IF R[6] <> $ARCLINK_ATR.$INT_VALUE, CALL ALERT(2)
16: R[1] = R[1] + 1;
17: ! Get I Limit counts
18: LBL[5];
19: CALL RD_AL_AT(1,17,R[1]);
20: IF $ARCLINK_ATR.$STATUS<>0 JMP LBL[5];
21: IF R[7] <> $ARCLINK_ATR.$INT_VALUE, CALL ALERT(3)
22: R[1] = R[1] + 1;
23: ! Get V Limit counts
24: LBL[6];
25: CALL RD_AL_AT(1,17,R[1]);
26: IF $ARCLINK_ATR.$STATUS<>0 JMP LBL[6];
27: IF R[8] <> $ARCLINK_ATR.$INT_VALUE, CALL ALERT(4)
28: R[1] = R[1] + 1;
29: ! Get WFS limit counts
30: LBL[7];
31: CALL RD_AL_AT(1,17,R[1]);
32: IF $ARCLINK_ATR.$STATUS<>0 JMP LBL[7];
33: IF R[8] <> $ARCLINK_ATR.$INT_VALUE, CALL ALERT(5)
END
Listing of Program PM_OFF
1: CALL WR_AL_AT(1, 17, 999, 0, 0, 0)
END
Listing of Program PM_ON
1: CALL WR_AL_AT(1, 17, 999, 1, 0, 0)
END