SHARE
TWEET

Untitled

a guest Jul 15th, 2016 135 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program porttest;
  2. Uses inpoutx64;
  3. Var Portnum:integer;
  4.     Portdata,portdata2,portdata3:byte;
  5. Begin
  6. Write('Enter Port Number: ');
  7. Readln(portnum);
  8. portdata:=DlPortReadPortUchar(portnum);
  9. portdata2:=DlPortReadPortUchar(portnum+1);
  10. portdata3:=DlPortReadPortUchar(portnum+2);
  11.  
  12. writeln('Port ',portnum,': ',Portdata,'     ',Portdata2,'     ',Portdata3);
  13.  
  14. Write('Enter New Data: ');
  15. readln(portdata);
  16. DlPortWritePortUchar(portnum,portdata);
  17. portdata:=DlPortReadPortUchar(portnum);
  18. portdata2:=DlPortReadPortUchar(portnum+1);
  19. portdata3:=DlPortReadPortUchar(portnum+2);
  20. writeln(Portdata,'     ',Portdata2,'     ',Portdata3);
  21. readln;
  22. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top