uC PICs - Migrando de ASM a PASCAL

[[duilioisola]]

Es esto lo que quieres?

Código SQL [-]
Function IsBitEnable(freg,bitnum:byte):boolean;macrolike;
begin
   case bitnum of
   1 : bitnum := 1;
   2 : bitnum := 2;
   3 : bitnum := 4;
   4 : bitnum := 8;
   5 : bitnum := 16;
   6 : bitnum := 32;
   7 : bitnum := 64;
   8 : bitnum := 128;
   end;
   result := (freg and bitnum) = bitnum;
end