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