that will be nice if we will be able to use bit or sbit as procedure and function parameter... like :
Code: Select all
var
some_one : sbit at portb.0;
....
procedure show_out(pin_out : sbit);
begin
pin_out := 1;
end;
begin // main
while true do
begin
show_out(some_one);
end;