Czy transmisja COM na 3 przewodach (masa, TxD, RxD) jest wystarczająca?

 uses dos,crt;

 var regs:registers;
 var out:char;
 begin
 regs.AH := 0; {01h}
 regs.DX := 0; {COM1}
 regs.AL := 3; {110 b/s, brak parzystosci, 1 bit stopu, 8 bitôw danych}
 Intr($14, regs);
 out:=readkey;  
 regs.AL := ord(out);   {ustawiam znak odczytany z klawiatury jako znak do wysłania}
 regs.AH := 1;
 regs.DX := 1;
 Intr($14, regs);
 end.

uses dos, crt;
var regs:registers;
    stary:pointer;
    a:byte;

    procedure przerwanie; Interrupt;  {obsługa przerwania portu COM1}
    begin;
    regs.AH := 2;
    regs.DX := 1;
    Intr($14, regs);  {wczytanie wartości z portu...}
    a:=regs.AL;
    sound(300);
    delay(100);
    nosound;
    Write(a);      {wyświetlenie wartości}
    end;


    begin
    regs.AH := 0; {01h}
    regs.DX := 0; {COM1}
    regs.AL :=  3; {110 b/s, brak kontroli parzystosci, 8 bitôw danych, 1 bit stopu}
    Intr($14, regs);
    getintvec($0C,stary);
    setintvec($0C,addr(przerwanie)); {ustawienie procedury przerwania}
    asm
     in  al,  21h
     and al,  239
     out 21h, al       { Wlaczenie przerwania IRQ4 - COM1, tego co prawda do końca nie rozumiem tutaj, bo te 3 linie skopiowałem z innych programów wiec należało by to miejsce zweryfikowac... }
    end;
    repeat
    until keypressed;

       { Wylaczenie przerwania IRQ4 - COM1 }
    asm
    in  al,  21h
    or  al,  16
    out 21h, al
    end;
    setintvec($0C,stary);
    end.