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