A := Port[20]; {чтение байта из порта 20}
Port[20] := A; {запись байта в порт 20}
B := PortW[20]; {чтение слова из порта 20-21}
PortW[20] := B; {запись слова в порт 20-21}