Omron trajexia CJ1W-MCH72 - Page 340

Practical examples Section 5-2
329
ENDIF
'Stop Mechatrolink Section
'Detection OK
IF VR(diag01)=0 AND VR(diag02)=0 AND VR(diag03)=0 THEN
SET_BIT(15,diag01)
'Invert input channels
INVERT_IN(16,OFF) 'POT
INVERT_IN(17,OFF) 'NOT
'Omron Auto Generated - Units End
'Start Standard Section
IF READ_BIT(15,diag01)=1 THEN
'Drive Parameters
BASE(2)
'Parameter data param_n/param_v/mask/size
TABLE(0,$20E,32,$FFFFFF,4)
TABLE(4,$210,45,$FFFFFF,4)
TABLE(8,$515,$800,$FFF0FF,2)
TABLE(12,-1)
MECHATROLINK(0,20,$43) 'SJDE-02ANA-OY
REGIST(-1)
VR(system01)=0
i=0
res=0
WHILE TABLE(i)<>-1
IF NOT DRIVE_READ(TABLE(i),TABLE(i+3),system01) THEN
SET_BIT(0,diag02)
ELSE
IF TABLE(i+2)=$FFFFFF THEN
IF VR(system01)<>TABLE(i+1) THEN
IF NOT DRIVE_WRITE(TABLE(i),TABLE(i+3),TABLE(i+1),1) THEN
SET_BIT(1,diag02)
ELSE
res=1
ENDIF
ENDIF
ELSE 'Parameter set using Mask
IF (VR(system01) AND NOT TABLE(i+2))<>TABLE(i+1) THEN
VR(system01)=(VR(system01) AND TABLE(i+2)) OR TABLE(i+1)
IF NOT DRIVE_WRITE(TABLE(i),TABLE(i+3),VR(system01),1)
THEN
SET_BIT(1,diag02)
ELSE
res=1
ENDIF
ENDIF
ENDIF
ENDIF