USING DELPHI :

To use Delphi for port operations you have to write some simple procedures given below.

 procedure PortOut(IOport:word; Value:byte); assembler; 

asm

   xchg ax,dx 

   out dx,al 

end;

function PortIn(IOport:word):byte; assembler; 

asm

   mov dx,ax 

   in al,dx 

end;

After that you should easily send and receive information...

For example :  PortOut( 888 , 2 )  to send  5 Volts to Pin3. You can use variables ,too.

Like PortOut ( 888 , X )   X: integer,byte,word vs...

The program given below can help you to create your own animations and change the data pins  from 2 to 9    

Click here to download...    Port.zip (189Kb)