Code:


Program ModemProg;

uses crt,dos;

type ModemRec=record
          COMPort,
          BPS,
          Data,
          Stop:integer;
          Paritet:char;
          Telefon:string;
              end;

Const GDSeg:integer = 0;
      MaxSprem=1024;
      CR=#13;
      ESC=#27;
      
      DPort=$03F8;
      IER=$03F9;
      LCR=$03FB;
      MCR=$03FC;
      LSR=$03FD;
      MSR=$03FE;
      IERPoc=$03ef;
      MCRPoc=$0B;
      MSRPoc=$80;
      IC8259=$21;

var  Modem:ModemRec;
     Vektor:Pointer;
     Registri:Registers;
     Spremnik: array [1..MaxSprem] of Char;
     i,Zn_u_sprem,Sprem_rep,Sprem_poc:word;
     Pomak:Char;

procedure CistiSpremnik;
begin
Sprem_rep:=1;
Sprem_poc:=1;
Zn_u_sprem:=0;
FillChar(Spremnik,SizeOf(Spremnik),0);
end;


procedure Parametri;
begin
With Modem do
  begin
  ComPort:=1;
  Write('Telefonski broj:');
  Readln(Telefon);
  end;
end;

procedure ComPrek;
interrupt;
begin
Inline($FB);
if (Zn_u_Sprem<MaxSprem) then
 begin
 Spremnik[Sprem_poc]:=Char(Port[DPort]);
 if  (Sprem_poc<maxsprem) then
     inc(sprem_poc)
     else
       sprem_poc:=1;
     inc(Zn_u_Sprem);
     end;

InLine($FA); Port[$20]:=20;

end;

procedure SetSer14H;
var Param_ser:byte;
begin
Param_ser:=$83;
with registri do
  begin
  DX:=Modem.ComPort-1;
  AH:=0;
  AL:=Param_ser;
  Flags:=0;
  Intr($14,Registri);
  end;
end;

procedure PostaviPrek;
var Bt:byte;
begin
  GDSeg:=DSeg;
  CistiSpremnik;
  GetIntVec($0c, Vektor);
  SetIntVec($0c,@ComPrek);

  Bt:=Port[IC8259];
  Bt:=Bt and $0EF;
  Port[IC8259]:=Bt;
  Bt:=Port[LCR];
  Bt:=Bt and $7F;

Port[LCR]:=Bt;
Port[IER]:=IERPoc;
Port[MCR]:=$08 or MSRPoc;
Port[$20]:=$20;
end;

function UzmiZnak:char;
begin
if Zn_u_sprem>0 then
begin
UzmiZnak:=Spremnik[Sprem_rep];
if Sprem_rep<MaxSprem then
   inc(Sprem_rep)
else
Sprem_rep:=1;
Dec(Zn_u_sprem);
end;
end;


function DosaoSignal:boolean;
var z:char;
    t:integer;
begin
DosaoSignal:=false;
T:=40;

while (Port[MSR] and $80) <> $80 do
begin
  if KeyPressed then
 begin
  z:=readkey;
  if z=ESC then exit;
  end;

 if (Zn_U_Sprem>0) then
  begin
  z:=uzmiZnak;
  Write(Z);
  if z=cr then writeln;
  end;
  if t=0 then exit;
 else
 begin
 dec(t);
  delay(1000);
end;
end;

DosaoSignal:=true;
end;


procedure SaljiZnak(Bt:byte);
begin
while (Port[Lsr] and $20) do
 begin
 end;
Port[DPort]:=Bt;
end;

procedure SaljiNiz(St:string);
var i:integer;
begin
for i:=1 to length(St) do
SaljiZnak(ord[St[i]]);
SaljiZnak(ord(CR));
end;


procedure ResetPrek;
var Bt:byte;
begin
SaljiNiz('ACTO');
Bt:=Port[IC8259];
Bt:=Bt or $10;
Port[IC8259]:=Bt;

Bt:=Port[lcr];
bt:=bt and #7F;

Port[lcr]:=bt;
Port[ier]:=0;
Port[mcr]:=0;

Port[$20]:=$20;

SetIntVec($0C,Vektor);

Intr($21,Registri);
end;


function Poziv(broj:string):boolean;
var st:string;
begin
st:='ATDT'+broj;
SaljiNiz(st);
delay(400);
if DosaoSignal then Poziv:=true
else begin
    writeln('Neuspjesan poziv!');
    SaljiNiz('ATCO');
    Poziv:=false;
    end;
end;

procedure PostaviModem;
begin
SaljiNiz('ATCO');
Delay(1000);
SaljiNiz('ATZ');
Delay(1000);
Saljiniz('ATF1');
Delay(1000);
SaljiNiz('ATEO');
Delay(1000);
SaljiNiz('ATV1');
Delay(1000);
Saljiniz('ATQO');
Delay(1000);
end;


procedure komunikacija;
var zu,zv:char;
begin
cistispremnik;

repeat
if(zn_u_spre>0) then
  begin
  zu:=UzmiZnak;
  if ZU in [#32..#127] then
  begin
  write(ZU)
  else
  if (zu=cr) then writeln;
  end;

if KeyPressed then
begin
zv:=readkey;
if (zv<>ESC) then
  begin
  SaljiZnak(ord(ZV));
  if zr=cr then writeln
   else writeln(zv);
  end;
end;
until zv=ESC;
end;

begin
clrscr;
Parametri;
SetSer14H;

PostaviPrek;
PostaviModem;

if Poziv(Modem.Telefon) then
   Komunikacija;

SaljiNiz('ATZ');
Delay(1000);
ResetPrek;

end.