'Try this in your macro-pump.
X_MovingLED = 1120
Y_MovingLED = 1121
Z_MovingLED = 1122
CurrXPos = GetOEMDRO(800)
OldXPos = GetUserDRO(2000)
CurrYPos = GetOEMDRO(801)
OldYPos = GetUserDRO(2001)
CurrZPos = GetOEMDRO(802
OldZPos = GetUserDRO(2002)
if CurrXPos <> OldXPos then
SetUserLED(X_MovingLED,1)
SetUserDRO(2000,CurrXPos)
else
SetUserLED(X_MovingLED,0)
SetUserDRO(2000,CurrXPos)
end if
if CurrYPos <> OldYPos then
SetUserLED(Y_MovingLED,1)
SetUserDRO(2000,CurrYPos)
else
SetUserLED(Y_MovingLED,0)
SetUserDRO(2000,CurrYPos)
end if
if CurrZPos <> OldZPos then
SetUserLED(Z_MovingLED,1)
SetUserDRO(2000,CurrZPos)
else
SetUserLED(Z_MovingLED,0)
SetUserDRO(2000,CurrZPos)
end if
'Scott