Написание драйвера для ACL-8112

program pr1;
uses
tpcrt;
var
     AIL, AIH, DIL, DIH, DOL, DOH, AOL, AOH,Nch: byte;
Tk: integer;
     AIW, AOW: word;
     AIR, AOR, i: real;
begin
clrscr;
i:=0; 
 
     // 1. БЛОК ИНИЦИАЛИЗАЦИИ
// 1.1 Управление режимом работы
PORT[$230+11]:= 1;
// 1.2 Задание диапазона  10V
PORT[$230+9]:=8;
 
     // 2. НАСТРОЙКА ТАЙМЕРА РЕАЛЬНОГО ВРЕМЕНИ
// 2.1 Вывод управляющего слова
PORT[67]:= 54;
// 2.2 Вывод делителя младшего бита
PORT[64]:=194;
// 2.3 Вывод делителя старшего бита
PORT[64]:= 7;
 
 // Работа в цикле до нажатия любой клавиши
repeat
 
 
// 3. СБРОС ТАЙМЕРА РЕАЛЬНОГО ВРЕМЕНИ
meml[0000:1132]:=0;
gotoXY(1,1);
 
Nch:=0;
 
// Работа в цикле по 4-м каналам
repeat
// 4. АНАЛОГОВЫЙ ВВОД
// 4.1 Аналоговый ввод
    PORT[$230+10]:=$30+Nch; 
// 4.2 Задержка переключения коммутатора
    delay(1); 
// 4.3 Запуск аналого-цифрового преобразователя
PORT[$230+12]:=1;
// 4.4 Опрос системы на предмет готовности
repeat
AIH:=PORT[$230+5]; 
until
                   (AIH and 16) = 0;
// 4.5 Считывание результата
AIL :=PORT[$230 + 4];
// 4.6 Преобразование кода
AIW :=AIH * 256 + AIL;
AIR:=(AIW/4095)*20-10;
 
     // 5. ОТОБРАЖЕНИЕ РЕЗУЛЬТАТА
writeln('Nch:  ',Nch,',AIH=',AIH:3,',AIL=',AIL:3,',AIW=',
AIW:4,', AIR=',AIR:6:3);
 
    // 6. АНАЛОГОВЫЙ ВЫВОД
    PORT[$2C0 +2 * Nch] := AIH;
PORT[$2C0+2*Nch+1]:=AIL;
Nch:=Nch+1;
until
Nch=4;
 
// 7.ДИСКРЕТНЫЙ ВВОД
DIL:=PORT[$230+6]; 
DIH:=PORT[$230+7];
DOL:=not DIL;
DOH:=not DIH;
// Вывод на экран
writeln('DIH= ',DOH:3,', DIL=',DOL:3);
 
// 8. ДИСКРЕТНЫЙ ВЫВОД
PORT[$230+13]:=DOL;
PORT[$230+14]:=DOH;
 
// Работа в цикле по 4-м каналам
Nch:=1;
repeat
 
// 9. ФОРМИРОВАНИЕ И ВЫВОД СИНУСОВ
AOR := 10 * sin(Nch * i);
AOW:= round((AOR + 10)/20*4095);
AOH:=(AOW and $F00)shr 8;
AOL:=AOW and $FF;
writeln('Nch:  ',Nch - 1,', AOH =', AOH:3,', AOL =', AOL:3,',
AOW =', AOW:4,', AOR =', AOR:6:3);
If Nch<3 then
begin
PORT[$2C0+2*(Nch-1)+8]:=AOH;
PORT[$2C0+2*(Nch-1)+9]:=AOL;
end
else
begin
PORT[$230+2*(Nch-3)+4]:=AOL;
PORT[$230+2*(Nch-3)+5]:=AOH;
end;
delay(1);
Nch:=Nch+1;
until
Nch=5;
 
i:=i+0.01;
if i>6.28 then i:=0;
Tk := 10;
 
// 10. КОНТРОЛЬ ШАГА КВАНТОВАНИЯ
repeat
until
meml[0000:1132]> 20;
until KeyPressed;
end.