Разведка показала какие контакты за что отвечают:

далее эвристическим методом мы определили что, как и куда:))

                        program datchik;
 uses graph, dos, crt; {объявление модулей, необходимых для работы программы}

 var
    regs:registers;
    x, n,driverscreen,modescreen,i1,step:integer;
    i:byte;
{объявление переменных необходимых для выполнения программы}
 begin {начало основного блока}
DriverScreen:=Detect; {считывание показаний экрана}
InitGraph(DriverScreen,ModeScreen,'..\bgi');{инициализация графического режима
экрана и запоминание предыдущего состояния экрана}
step:=15;{переменной присвоено значение}
line(0,240,640,240);{рисуется линия-кардинат на экране}
moveto(0,240);{позецируем курсор на начало линии-кардинат}
repeat {начало цикла опроса состояния порта и вывода графически этой информации}

regs.Ah:=01;{регистру ah присваивается состояние 01(состояние порта
 возвращается в это же регистр)}
intr($17, regs);{считывается прерывание от принтера по регистру ah}
With regs do begin  {блок приоброзования десятичного числа
 в двоичное представление}
    for i:=0 to 15 do begin
       x:=ah shr i;
        n:=x and 1;

        if (n=0) then {если бит состояния равен 0 то рисуется
        два цикла точек образующих отклонение от линии кардинат
        условно обозначающих 0}
          begin
          for i1:=0 to step do begin
              putpixel(GetX+i1,GetY+i1,15);{рисование точек}
              delay(50);{задержка при рисование позволяет сделать вывод
              согласно графической информации}
          end;
          moveto(getx+i1,gety+i1);{позецирование курсора }
          for i1:=0 to step do begin
              putpixel(GetX+i1,GetY-i1,15);
              delay(50);
          end;          
        moveto(getx+i1,gety-i1);
          end
        else
        begin
          for i1:=0 to step do begin
              putpixel(GetX+i1,GetY-i1,15);
             delay(50);
          end;
          moveto(getx+i1,gety-i1);
          for i1:=0 to step do begin
              putpixel(GetX+i1,GetY+i1,15);
              delay(50);
          end;
          moveto(getx+i1,gety+i1);
          end;
               if n=1 then
                       end;
          delay(50);
       end;
moveto(0,240);{позецирование курсора на начало кардинат}
until keypressed;{окончание цикла при нажатие любой клавиши}

 CloseGraph;{закрытие графики и возвращение к начальным установкам}
  end.{конец программы}