Out32($37A, 4); //запрещяем выполнение каких-либой действий

end;

Создадим обработчик кнопки "Записать", код которого будет реализовывать запись указанных данных (0-255) по указанному адресу (0-15):

procedure TForm1.Button2Click(Sender: TObject);

var

data:string;

adress:string;

begin

adress:=edit3.Text;

data:=edit4.Text;

Out32($378, StrtoInt(data)); //Записываем в регистр DD5

Out32($37A ,6); //разрешаем запись в DD5

Out32($37A, 4); //запрещяем выполнение каких-либой действий

Out32($378, StrtoInt(adress)); //Записываем в регистр DD4

Out32($37A, 5); //разрешаем запись DD4

Out32($37A, 4); //запрещяем выполнение каких-либой действий

Out32($37A, 0); //разрешаем дешифрацию DD6

Out32($37A, 4); //запрещяем выполнение каких-либой действий

end;

Построение селектора адреса для Системного интерфейса ISA

Расчет базового адреса порта

44*8+300Н = 352(160Н)+768(300Н)= 460Н

В двоичной системе исчисления: 0000 0100 0110 0000

A0 – 0

A1 – 0

A2 – 0

A3 – 0

A4 – 0

A5 – 1

A6 – 1