не вопрос.
If Sb1=true Then
Km1 := 1;
Else
Km1:=0;
End_if;
всё остальное по рэ на сп и плк.