Program porttest;
Uses inpoutx64;
Var Portnum:integer;
    Portdata,portdata2,portdata3:byte;
Begin
Write('Enter Port Number: ');
Readln(portnum);
portdata:=DlPortReadPortUchar(portnum);
portdata2:=DlPortReadPortUchar(portnum+1);
portdata3:=DlPortReadPortUchar(portnum+2);

writeln('Port ',portnum,': ',Portdata,'     ',Portdata2,'     ',Portdata3);

Write('Enter New Data: ');
readln(portdata);
DlPortWritePortUchar(portnum,portdata);
portdata:=DlPortReadPortUchar(portnum);
portdata2:=DlPortReadPortUchar(portnum+1);
portdata3:=DlPortReadPortUchar(portnum+2);
writeln(Portdata,'     ',Portdata2,'     ',Portdata3);
readln;
end.