Source position: line 0
function ReadPortB(
Port: LongInt
):Byte;procedure ReadPortB(
Port: LongInt;
var Buf;
Count: LongInt
);