В общем случае необходимо сначала прочитать значение регистра, и затем записать в него изменённое значение.
MODULE ExamplesGetPut; IMPORT SYSTEM, MCU := MicroSTM32F10xxD; PROCEDURE On; VAR x: SET; BEGIN SYSTEM.GET(MCU.GPIOCBSRR, x); SYSTEM.PUT(MCU.GPIOCBSRR, x + {13}); END On; ЕСТЬ ЛИ СРАЗУ ИНВЕРСИЯ БИТНАЯ? END ExamplesGetPut.