Нужно сделать компиляцию из двух способов

В ф.область, первой функцией, добавить не мой фрагмент, а вызов Вашего макроса

Только в макросе добавить условие
если PSW[531] не равно нулю, тогда
Write(PLC, 1, MODBUS_RTU_REG_4X, 531, 0, TYPE_WORD, PSW[531])

И режим выполнения макроса нужно делать последовательно.