Процедура целиком, написана на дельфи, хочу переделать под с для МК, компилятор CodeVisionAVR 1.24.4 («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Процедура целиком, написана на дельфи, хочу переделать под с для МК, компилятор CodeVisionAVR 1.24.4

(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

FUNCTION INDECATOR_1(B,I: BYTE): BOOLEAN;
VAR
X:BYTE;
BEGIN
X:=1;
RESULT:=(b and (x shl (I-1)))<>0;
END;