VERSION 5.00
Begin VB.Form SampleForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "PCI-A12-16 Sample"
   ClientHeight    =   5340
   ClientLeft      =   6315
   ClientTop       =   5370
   ClientWidth     =   6330
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   356
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   422
   Begin VB.OptionButton AIMCheck 
      Caption         =   "Acquire AIM-16 Channels"
      Height          =   255
      Index           =   1
      Left            =   3840
      TabIndex        =   64
      ToolTipText     =   "Acquire AIM-16 channels 0-15 on PCIAI12-16(A) channel 0"
      Top             =   960
      Width           =   2415
   End
   Begin VB.OptionButton AIMCheck 
      Caption         =   "Acquire Card Channels"
      Height          =   255
      Index           =   0
      Left            =   3840
      TabIndex        =   63
      ToolTipText     =   "Acquire PCIAI12-16(A) channels 0-15 (no AIM-16)"
      Top             =   720
      Value           =   -1  'True
      Width           =   2415
   End
   Begin VB.Timer TestTimer 
      Enabled         =   0   'False
      Interval        =   250
      Left            =   3480
      Top             =   960
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   0
      Left            =   480
      Locked          =   -1  'True
      TabIndex        =   54
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   1
      Left            =   480
      Locked          =   -1  'True
      TabIndex        =   53
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   2
      Left            =   480
      Locked          =   -1  'True
      TabIndex        =   52
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   3
      Left            =   480
      Locked          =   -1  'True
      TabIndex        =   51
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   4
      Left            =   2040
      Locked          =   -1  'True
      TabIndex        =   50
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   5
      Left            =   2040
      Locked          =   -1  'True
      TabIndex        =   49
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   6
      Left            =   2040
      Locked          =   -1  'True
      TabIndex        =   48
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   7
      Left            =   2040
      Locked          =   -1  'True
      TabIndex        =   47
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   8
      Left            =   3555
      Locked          =   -1  'True
      TabIndex        =   46
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   9
      Left            =   3555
      Locked          =   -1  'True
      TabIndex        =   45
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   10
      Left            =   3555
      Locked          =   -1  'True
      TabIndex        =   44
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   11
      Left            =   3555
      Locked          =   -1  'True
      TabIndex        =   43
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   12
      Left            =   5130
      Locked          =   -1  'True
      TabIndex        =   42
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   13
      Left            =   5130
      Locked          =   -1  'True
      TabIndex        =   41
      TabStop         =   0   'False
      Top             =   2100
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   14
      Left            =   5130
      Locked          =   -1  'True
      TabIndex        =   40
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox CountsDisplay 
      Height          =   330
      Index           =   15
      Left            =   5130
      Locked          =   -1  'True
      TabIndex        =   39
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   15
      Left            =   5670
      Locked          =   -1  'True
      TabIndex        =   38
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   14
      Left            =   5670
      Locked          =   -1  'True
      TabIndex        =   36
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   13
      Left            =   5670
      Locked          =   -1  'True
      TabIndex        =   34
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   12
      Left            =   5670
      Locked          =   -1  'True
      TabIndex        =   32
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   11
      Left            =   4095
      Locked          =   -1  'True
      TabIndex        =   30
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   10
      Left            =   4095
      Locked          =   -1  'True
      TabIndex        =   28
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   9
      Left            =   4095
      Locked          =   -1  'True
      TabIndex        =   26
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   8
      Left            =   4095
      Locked          =   -1  'True
      TabIndex        =   24
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   7
      Left            =   2580
      Locked          =   -1  'True
      TabIndex        =   22
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   6
      Left            =   2580
      Locked          =   -1  'True
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   5
      Left            =   2580
      Locked          =   -1  'True
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   4
      Left            =   2580
      Locked          =   -1  'True
      TabIndex        =   16
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   3
      Left            =   1020
      Locked          =   -1  'True
      TabIndex        =   14
      TabStop         =   0   'False
      Top             =   2835
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   2
      Left            =   1020
      Locked          =   -1  'True
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   2460
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   1
      Left            =   1020
      Locked          =   -1  'True
      TabIndex        =   10
      TabStop         =   0   'False
      Top             =   2085
      Width           =   525
   End
   Begin VB.TextBox VoltsDisplay 
      Height          =   330
      Index           =   0
      Left            =   1020
      Locked          =   -1  'True
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   1710
      Width           =   525
   End
   Begin VB.Frame StatusFrame 
      Caption         =   "Status"
      Height          =   1320
      Left            =   120
      TabIndex        =   5
      Top             =   3315
      Width           =   6105
      Begin VB.TextBox Status 
         Height          =   1020
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   240
         Width           =   5895
      End
   End
   Begin VB.CommandButton ExitButton 
      Caption         =   "E&xit"
      Height          =   375
      Left            =   4800
      TabIndex        =   4
      Top             =   4800
      Width           =   1155
   End
   Begin VB.CommandButton GetDataButton 
      Caption         =   "Get &Data"
      Height          =   375
      Left            =   315
      TabIndex        =   3
      Top             =   4800
      Width           =   1155
   End
   Begin VB.ComboBox CardCombo 
      Height          =   315
      ItemData        =   "Sample1u.frx":0000
      Left            =   120
      List            =   "Sample1u.frx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   840
      Width           =   3375
   End
   Begin VB.Label VoltsLabel4 
      AutoSize        =   -1  'True
      Caption         =   "Volts"
      Height          =   195
      Left            =   5775
      TabIndex        =   62
      Top             =   1500
      Width           =   345
   End
   Begin VB.Label CountsLabel4 
      AutoSize        =   -1  'True
      Caption         =   "Counts"
      Height          =   195
      Left            =   5145
      TabIndex        =   61
      Top             =   1500
      Width           =   495
   End
   Begin VB.Label VoltsLabel3 
      AutoSize        =   -1  'True
      Caption         =   "Volts"
      Height          =   195
      Left            =   4200
      TabIndex        =   60
      Top             =   1500
      Width           =   345
   End
   Begin VB.Label CountsLabel3 
      AutoSize        =   -1  'True
      Caption         =   "Counts"
      Height          =   195
      Left            =   3570
      TabIndex        =   59
      Top             =   1500
      Width           =   495
   End
   Begin VB.Label VoltsLabel2 
      AutoSize        =   -1  'True
      Caption         =   "Volts"
      Height          =   195
      Left            =   2685
      TabIndex        =   58
      Top             =   1500
      Width           =   345
   End
   Begin VB.Label CountsLabel2 
      AutoSize        =   -1  'True
      Caption         =   "Counts"
      Height          =   195
      Left            =   2055
      TabIndex        =   57
      Top             =   1500
      Width           =   495
   End
   Begin VB.Label VoltsLabel1 
      AutoSize        =   -1  'True
      Caption         =   "Volts"
      Height          =   195
      Left            =   1125
      TabIndex        =   56
      Top             =   1500
      Width           =   345
   End
   Begin VB.Label CountsLabel1 
      AutoSize        =   -1  'True
      Caption         =   "Counts"
      Height          =   195
      Left            =   495
      TabIndex        =   55
      Top             =   1500
      Width           =   495
   End
   Begin VB.Label ChannelLabel15 
      AutoSize        =   -1  'True
      Caption         =   "15:"
      Height          =   195
      Left            =   4770
      TabIndex        =   37
      Top             =   2910
      Width           =   225
   End
   Begin VB.Label ChannelLabel14 
      AutoSize        =   -1  'True
      Caption         =   "14:"
      Height          =   195
      Left            =   4770
      TabIndex        =   35
      Top             =   2535
      Width           =   225
   End
   Begin VB.Label ChannelLabel13 
      AutoSize        =   -1  'True
      Caption         =   "13:"
      Height          =   195
      Left            =   4770
      TabIndex        =   33
      Top             =   2160
      Width           =   225
   End
   Begin VB.Label ChannelLabel12 
      AutoSize        =   -1  'True
      Caption         =   "12:"
      Height          =   195
      Left            =   4770
      TabIndex        =   31
      Top             =   1785
      Width           =   225
   End
   Begin VB.Label ChannelLabel11 
      AutoSize        =   -1  'True
      Caption         =   "11:"
      Height          =   195
      Left            =   3195
      TabIndex        =   29
      Top             =   2910
      Width           =   225
   End
   Begin VB.Label ChannelLabel10 
      AutoSize        =   -1  'True
      Caption         =   "10:"
      Height          =   195
      Left            =   3195
      TabIndex        =   27
      Top             =   2535
      Width           =   225
   End
   Begin VB.Label ChannelLabel9 
      AutoSize        =   -1  'True
      Caption         =   "9:"
      Height          =   195
      Left            =   3195
      TabIndex        =   25
      Top             =   2160
      Width           =   135
   End
   Begin VB.Label ChannelLabel8 
      AutoSize        =   -1  'True
      Caption         =   "8:"
      Height          =   195
      Left            =   3195
      TabIndex        =   23
      Top             =   1785
      Width           =   135
   End
   Begin VB.Label ChannelLabel7 
      AutoSize        =   -1  'True
      Caption         =   "7:"
      Height          =   195
      Left            =   1680
      TabIndex        =   21
      Top             =   2910
      Width           =   135
   End
   Begin VB.Label ChannelLabel6 
      AutoSize        =   -1  'True
      Caption         =   "6:"
      Height          =   195
      Left            =   1680
      TabIndex        =   19
      Top             =   2535
      Width           =   135
   End
   Begin VB.Label ChannelLabel5 
      AutoSize        =   -1  'True
      Caption         =   "5:"
      Height          =   195
      Left            =   1680
      TabIndex        =   17
      Top             =   2160
      Width           =   135
   End
   Begin VB.Label ChannelLabel4 
      AutoSize        =   -1  'True
      Caption         =   "4:"
      Height          =   195
      Left            =   1680
      TabIndex        =   15
      Top             =   1770
      Width           =   135
   End
   Begin VB.Label ChannelLabel3 
      AutoSize        =   -1  'True
      Caption         =   "3:"
      Height          =   195
      Left            =   120
      TabIndex        =   13
      Top             =   2910
      Width           =   135
   End
   Begin VB.Label ChannelLabel2 
      AutoSize        =   -1  'True
      Caption         =   "2:"
      Height          =   195
      Left            =   120
      TabIndex        =   11
      Top             =   2535
      Width           =   135
   End
   Begin VB.Label ChannelLabel1 
      AutoSize        =   -1  'True
      Caption         =   "1:"
      Height          =   195
      Left            =   120
      TabIndex        =   9
      Top             =   2160
      Width           =   135
   End
   Begin VB.Label ChannelLabel0 
      AutoSize        =   -1  'True
      Caption         =   "0:"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   1800
      Width           =   135
   End
   Begin VB.Label CardSelectLabel 
      AutoSize        =   -1  'True
      Caption         =   "Select a card to use:"
      Height          =   195
      Left            =   240
      TabIndex        =   1
      Top             =   645
      Width           =   1470
   End
   Begin VB.Label TitleLabel 
      AutoSize        =   -1  'True
      Caption         =   "Windows 95/NT PCI-A12-16 Sample Program"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   255
      TabIndex        =   0
      Top             =   105
      Width           =   5745
   End
End
Attribute VB_Name = "SampleForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function InPortB Lib "ACCES32.dll" Alias "VBInPortB" (ByVal Port As Long) As Integer
Private Declare Function InPort Lib "ACCES32.dll" Alias "VBInPort" (ByVal Port As Long) As Integer
Private Declare Function OutPortB Lib "ACCES32.dll" Alias "VBOutPortB" (ByVal Port As Long, ByVal Value As Byte) As Integer
Private Declare Function OutPort Lib "ACCES32.dll" Alias "VBOutPort" (ByVal Port As Long, ByVal Value As Integer) As Integer
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_QUERY_VALUE = &H1
Private Type TPCI_COMMON_CONFIG
    VendorID As Integer
    DeviceID As Integer
    Command As Integer
    Status As Integer
    RevisionID As Byte
    ProgIf As Byte
    SubClass As Byte
    BaseClass As Byte
    CacheLineSize As Byte
    LatencyTimer As Byte
    HeaderType As Byte
    BIST As Byte
    BaseAddresses(5) As Long
    Reserved1(1) As Long
    RomBaseAddress As Long
    Reserved2(1) As Long
    InterruptLine As Byte
    InterruptPin As Byte
    MinimumGrant As Byte
    MaximumLatency As Byte
End Type
Dim Buf(63) As TPCI_COMMON_CONFIG
Dim WhichCard(63) As Boolean
Dim WhichAddress(63) As Long
Public RunFlag, Testing As Boolean
Dim UsingAIM As Boolean
Dim Chan As Byte

Private Sub AIMCheck_Click(Index As Integer)
    UsingAIM = Index <> 0
    If WhichCard(CardCombo.ListIndex) Then SetFifoChannels WhichAddress(CardCombo.ListIndex)
End Sub

Private Sub CardCombo_Change()
    If WhichCard(CardCombo.ListIndex) Then SetFifoChannels WhichAddress(CardCombo.ListIndex)
End Sub

Private Sub ExitButton_Click()
    End
End Sub

Private Sub Form_Load()
    Dim hKey As Long, DataSize As Long, DataType As Long, n As Long, I As Long, Num&

   If (InPortB(&H61) = &HAA55) Then
      Call MsgBox("ACCESNT.SYS not detected. Please copy ACCESNT.SYS into [NT]/system32/drivers and re-run this sample.", 0, "Warning")
   End If

    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\NTioPCI\Parameters", 0, KEY_QUERY_VALUE, hKey)
    RunFlag = True
    DataSize = 4
    Num& = 0
    Call RegQueryValueEx(hKey, "NumDevices", 0, DataType, Num, DataSize)
    If (Num = 0) Then GoTo NoCards
    n = 0
    DataSize = 64 * 64
    Call RegQueryValueEx(hKey, "PCICommonConfig", 0, DataType, Buf(0), DataSize)
        
    For I = 0 To Num - 1
        Select Case (Buf(I).DeviceID And &HFFFF)
        Case &HECA9
            CardCombo.AddItem ("Card " + Hex(n + 1) + " PCI-A12-16 BaseAddress: " + Hex(Buf(I).BaseAddresses(2) And &HFFF8))
            WhichCard(n) = False
            WhichAddress(n) = Buf(I).BaseAddresses(2) And &HFFFE
            n = n + 1
        Case &HECAA
            CardCombo.AddItem ("Card " + Hex(n + 1) + " PCI-A12-16A BaseAddress: " + Hex(Buf(I).BaseAddresses(2) And &HFFF8))
            WhichCard(n) = True
            WhichAddress(n) = Buf(I).BaseAddresses(2) And &HFFFE
            Call SetFifoChannels(WhichAddress(n))
            n = n + 1
        End Select
    Next
NoCards:
    If n = 0 Then
         Status.Text = "No Card Found In Registry!" + Chr(13) + Chr(10) + "This may mean that the card is not installed. Make sure you have run PCIFind.exe." + Chr(13) + Chr(10):
         Status.SelStart = 32768
         RunFlag = False
    End If
    If RunFlag Then
        CardCombo.ListIndex = 0
    End If
    RegCloseKey (hKey)
End Sub

Private Sub GetDataButton_Click()
    If Not RunFlag Then
        Status.Text = Status.Text + "Cannot run without card!" + Chr(13) + Chr(10)
        Status.SelStart = 32768
    ElseIf Testing Then
        TestTimer.Enabled = False
        Testing = False
        GetDataButton.Caption = "Get &Data"
    Else
        TestTimer.Enabled = True
        Testing = True
        GetDataButton.Caption = "Stop &Data"
    End If
End Sub

Private Sub SetChannel(Base As Long, Channel As Byte)
    Dim Data As Byte
    Data = Channel * &H10
    Call OutPortB(Base + 2, Data)  ' channel selected in upper nibble at base+2
End Sub

Private Sub SetFifoChannels(Base As Long)
    Dim I As Byte
    Dim Ticks As Long

    ResetFifos Base

    If UsingAIM Then
        Call OutPort(Base + 2, &H0)
        Call OutPort(Base + 2, &H1000)
        Call OutPort(Base + 2, &H2000)
        Call OutPort(Base + 2, &H3000)
        Call OutPort(Base + 2, &H4000)
        Call OutPort(Base + 2, &H5000)
        Call OutPort(Base + 2, &H6000)
        Call OutPort(Base + 2, &H7000)
        Call OutPort(Base + 2, &H8000)
        Call OutPort(Base + 2, &H9000)
        Call OutPort(Base + 2, &HA000)
        Call OutPort(Base + 2, &HB000)
        Call OutPort(Base + 2, &HC000)
        Call OutPort(Base + 2, &HD000)
        Call OutPort(Base + 2, &HE000)
        Call OutPort(Base + 2, &HF000)
    Else
        Call OutPort(Base + 2, &H0)
        Call OutPort(Base + 2, &H10)
        Call OutPort(Base + 2, &H20)
        Call OutPort(Base + 2, &H30)
        Call OutPort(Base + 2, &H40)
        Call OutPort(Base + 2, &H50)
        Call OutPort(Base + 2, &H60)
        Call OutPort(Base + 2, &H70)
        Call OutPort(Base + 2, &H80)
        Call OutPort(Base + 2, &H90)
        Call OutPort(Base + 2, &HA0)
        Call OutPort(Base + 2, &HB0)
        Call OutPort(Base + 2, &HC0)
        Call OutPort(Base + 2, &HD0)
        Call OutPort(Base + 2, &HE0)
        Call OutPort(Base + 2, &HF0)
    End If
    Call InPort(Base + 2) 'read first FIFO to load aim+mux channel for first AD
End Sub

Private Sub ResetFifos(Base As Long)
    Dim I As Long
    Call OutPortB(Base + 4, &H48) '0x40 resets channel fifo, 0x08 resets data fifo
    For I = 0 To 2048
        Call InPort(Base) 'read out all data from FIFO to clear it - should be redundant
    Next I
    If Not UsingAIM Then Chan = 15
End Sub

Private Sub CheckFifo(Base As Long)
  While ((InPortB(Base + 4) And &H4) <> 0)
  Wend 'bit goes low when fifo half full
End Sub

Private Function WaitForEOC(Base As Long) As Integer
    Dim Timeout As Long
    Timeout = &H7FFF
    While ((InPortB(Base + 4) And &H80) = 0) And (Timeout <> 0)
        Timeout = Timeout - 1
    Wend
    WaitForEOC = Timeout ' 0 = error
End Function

Private Sub CtrMode(Base As Long, Cntr As Byte, Mode As Byte)
    Call OutPortB(Base + 3, (Cntr * 2 ^ 6) Or &H30 Or (Mode * 2 ^ 1))
End Sub

Private Sub CtrLoad(Base As Long, C As Integer, Val As Long)
    Call OutPortB(Base + C, Val And &HFF)
    Call OutPortB(Base + C, ((Val And &HFF00) / 2 ^ 8) And &HFF)
End Sub

Private Sub TestTimer_Timer()
    If WhichCard(CardCombo.ListIndex) Then
        Fifo (WhichAddress(CardCombo.ListIndex))
    Else
        NoFifo (WhichAddress(CardCombo.ListIndex))
    End If
End Sub

Private Sub Fifo(Base As Long)
    Dim Volts As Double
    Dim Counts As Integer
    Dim Value As Long

    Call CtrMode(Base + 8, 1, 2)  'ctr 1 mode 2
    Call CtrMode(Base + 8, 2, 2)  'ctr 2 mode 2
    Call CtrLoad(Base + 8, 1, &H2)
    Call CtrLoad(Base + 8, 2, &HFF)
    Call OutPortB(Base + 4, 1)    ' set counter enable bit, starts conversions
    Call CheckFifo(Base)          ' WAITS until FIFO half-full bit is set
    Call OutPortB(Base + 4, 0)    ' clear counter enable bit, stops conversions
    While ((InPortB(Base + 4) And &H2) <> 0) 'bit goes low when fifo is empty
        Value = InPort(Base)
        Counts = Value And &HFFF
        If (Counts > &H7FF) Then            'sign-extend
            Counts = Counts Or &HF000
        End If
        Volts = 20# * (Counts / 4095#)      'convert to volts: counts*max volt span/max counts

        If UsingAIM Then
            Chan = (Value \ &H1000) And &HF 'Read the actual channel
        Else
            Chan = (Chan + 1) Mod 16        'Go to the next channel
        End If

        VoltsDisplay(Chan).Text = Format(Volts, "#0.0##")
        CountsDisplay(Chan).Text = Counts
    Wend
End Sub

Private Sub NoFifo(Base As Long)
    Dim Volts As Double
    Dim Counts As Integer
    Dim Ticks As Long

    Call OutPortB(Base + 4, 0) ' clear counter enable bit, stops conversions
    For Chan = 0 To 15
        Call SetChannel(Base, Chan) ' write channel, range, SE or diff
        Ticks = GetTickCount + 2
        While Ticks > GetTickCount 'Allow for settle time (with change)
        Wend
        Call OutPortB(Base, 0) ' start conversion
        If (WaitForEOC(Base) = 0) Then ' WaitForEOC returns zero if it times out
            Status.Text = Status.Text + "A/D Timed Out" + Chr(13) + Chr(10)
        Else
            Counts = InPort(Base) And &HFFF ' get data
            If (Counts And &H800) Then
                Counts = Counts Or &HF000 ' sign-extend
            End If
            Volts = 20# * (Counts / 4095#)  ' convert to volts: counts*max volt span/max counts
            VoltsDisplay(Chan).Text = Format(Volts, "#0.0##")
            CountsDisplay(Chan).Text = Counts
        End If
    Next Chan
End Sub