readme.1st.txt

端口操作源程序(8255或其它端口)

Usage:

Declare function IN8255 lib "8255.DLL" (Byval PortAddress as integer) as integer
Declare function OUT8255 lib "8255.DLL" (Byval PortAddress as integer, Byval PtData as integer ) as integer

Visual Basic:
PortBase = &H2C0

'Read data
PortValue = IN8255(PortBase + 1)

'Write data, PortData is to be sent
r = OUT8255(PortBase+2, PortData)