Source position: line 0
procedure WritePort(
Port: LongInt;
Value: Byte
);procedure WritePort(
Value: Word
Value: LongInt
);