Source position: line 0
procedure WritePortB(
Port: LongInt;
Value: Byte
);procedure WritePortB(
var Buf;
Count: LongInt
);