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