|
|
 |
| Basic Declarations |
 |
Port
I/O group
function GetPortByte(ByVal nPort As Integer) As Byte
function GetPortInteger(ByVal nPort As Integer) As Integer
function GetPortLong(ByVal nPort As Integer) As Long
sub SetPortByte(ByVal nPort As Integer, ByVal bValue As Byte)
sub SetPortInteger(ByVal nPort As Integer, ByVal wValue As Integer)
sub SetPortLong(ByVal nPort As Integer, ByVal dValue As Long)
Memory group
function MapPhysToLinear(ByVal PhAddr As Long, ByVal PhSize As Long) As Long
function GetMemByte(ByVal MappedAddr As Long, ByVal Offset As Long) As Byte
function GetMemInteger(ByVal MappedAddr As Long, ByVal Offset As Long) As Integer
function GetMemLong(ByVal MappedAddr As Long, ByVal Offset As Long) As Long
sub SetMemByte(ByVal MappedAddr As Long, ByVal Offset As Long, ByVal bValue As Byte)
sub SetMemInteger(ByVal MappedAddr As Long, ByVal Offset As Long, ByVal wValue As Integer)
sub SetMemLong(ByVal MappedAddr As Long, ByVal Offset As Long, ByVal dValue As Long)
PCI group
function OpenPciDevice(ByRef Bus As Long, ByRef Dev As Long, ByRef Funct As Long) As Integer
sub GetPciLocation(ByRef PciDevice As Long, ByRef Bus As Byte, ByRef Dev As Byte, ByRef Funct As Byte)
function ReadFromPci(ByVal PciDevice As Long, ByVal Offset As Long, ByVal Length As Long) As Long
sub WriteToPci (ByVal PciDevice As Long, ByVal Offset As Long, ByVal Length As Long, ByVal Data As Long)
function GetPciBarPhysicalAddress(ByVal PciDevice As Long, ByVal BarNumber As Integer) As Long
function ReadPciBarByte (ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long) As Byte
function ReadPciBarWord (ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long) As Integer
function ReadPciBarLong (ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long) As Long
sub WritePciBarByte(ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long, ByVal bValue As Byte)
sub WritePciBarWord(ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long, ByVal wValue As Integer)
sub WritePciBarLong(ByVal PciDevice As Long, ByVal BarNumber As Integer, ByVal BarOffset As Long, ByVal
dwValue As Long)
function ReadPciCommandReg(ByVal PciDevice As Long) AsInteger
sub WritePciCommandReg(ByVal PciDevice As Long, ByVal CommandRegValue As Integer)
sub ControlPciCommandRegBits(ByVal PciDevice As Long, ByVal CommandRegBit As Integer, ByVal SetClearFlag As Integer)
function ReadPciStatusReg(ByVal PciDevice As Long, ByVal ClearBitMask As Integer) As Integer
USB group
function OpenUsbDevice(ByVal DevNumber As Byte) As Long;
function CloseUsbDevice(ByVal UsbDevice As Long) As Boolean;
function UsbTransfer(ByVal UsbDevice As Long;
ByVal PipeNumber As Byte;
ByVal ByRef Buffer As array of Byte;
ByRef BytesReturned As Long) As Boolean;
function UsbVendorRequest(ByVal UsbDevice As Long;
ByVal DirectionIn As Boolean;
ByVal RequestRecipient As Byte;
ByVal ReservedBits As Byte;
ByVal Request As Byte;
ByVal Value As Integer;
ByVal Index As Integer;
ByRef BufferAs array of Byte;
ByRef NumberOfBytesTransferred As Long) As Boolean;
function UsbClassRequest(ByVal UsbDevice As Long;
ByVal DirectionIn As Boolean;
ByVal RequestRecipient As Byte;
ByVal ReservedBits As Byte;
ByVal Request As Byte;
ByVal Value As Integer;
ByVal Index As Integer;
ByRef BufferAs array of Byte;
ByRef NumberOfBytesTransferred As Long) As Boolean;
function UsbSetFeature(ByVal UsbDevice As Long;
ByVal RequestRecipient As Byte;
ByVal FeatureSelector As Integer;
ByVal Index As Integer) As Boolean;
function UsbClearFeature(ByVal UsbDevice As Long;
ByVal RequestRecipient As Byte;
ByVal FeatureSelector As Integer;
ByVal Index As Integer) As Boolean;
function UsbGetStatus(ByVal UsbDevice As Long;
ByVal RequestRecipient As Byte;
ByVal Index As Integer;
ByVal ByRef Status As Integer) As Boolean;
Service Group
function HexByte(ByVal b As Byte) As String
function HexInteger(ByVal w As Integer) As String
function HexLong(ByVal d As Long) As String
sub HexPrint(ByVal sComment AsString, ByVal Val As Long)
sub DecPrint(ByVal sComment AsString, ByVal Val As Long)
sub StringPrint(ByVal s AsString)
sub HexDump(ByVal dump As Variant, ByVal NumOfBytes As Long)
sub Delay(ByVal us As LongInteger)
function GetCurrentProjectType() As Integer ' see constants
|
|
