OEMSETNT.INF Driver File Contents (ntpri.exe)

;****************************************************************************
;   Multi-Tech Systems Inc.
;   CommPlete PRI Primary Rate ISDN Adapter Card Windows/NT Setup File.
;****************************************************************************

[Identification]
    OptionType = NetAdapter

;****************************************************************************
;
;****************************************************************************
[PlatformsSupported]
    ISA
    EISA

;****************************************************************************
;
;****************************************************************************
[Options]
    ATcommPRI

;****************************************************************************
;
;****************************************************************************
[FileConstants]
    InfName                  = "OEMSETNT.INF"
    UtilityInf               = "UTILITY.INF"
    ParamInf                 = "NCPARAM.INF"
    subroutineinf            = "SUBROUTN.INF"
    SoftwareType             = "driver"
    Exit_Code                = 0
    NetEventDLL              = "%SystemRoot%\System32\netevent.dll"
    IoLogMsgDLL              = "%SystemRoot%\System32\IoLogMsg.dll"
    Manufacturer             = "Multi-Tech Systems Inc."
    ProductMajorVersion      = "1"
    ProductMinorVersion      = "2"
    ProductVersion           = $(ProductMajorVersion)"."$(ProductMinorVersion)
    ProductSoftwareName      = "ATcommPRI"
    ProductSoftwareImagePath = "\SystemRoot\System32\drivers\ATCOMPRI.sys"
    NetRuleSoftwareType      = "ATcommPRISys ATcommPRIDriver"
    NetRuleSoftwareUse       = $(SoftwareType)
    NetRuleSoftwareBindForm  = """ATcommPRISys"" yes no container"
    NetRuleSoftwareClass     = {"ATcommPRIDriver basic"}
    NetRuleSoftwareBindable  = {"ATcommPRIDriver ATcommPRIAdapter non exclusive 100"}
    ProductHardwareName      = "CommPletePRI"
    NetRuleHardwareBindForm  = " yes yes container"
    NetRuleHardwareATcommPRIType  = "ATcommPRI ATcommPRIAdapter"
    NetRuleHardwareATcommPRIClass = {"ATcommPRIAdapter basic"}
    BindableATcommPRITxt     = {"ATcommPRIDriver ATcommPRIAdapter non exclusive 100"}
    DeviceMap                = "HARDWARE\DEVICEMAP"
    TapiDevices              = "TAPI DEVICES"
    TapiDeviceKey            = $(ProductHardwareName)
    TapiMediaType            = "ISDN"
    ProductKeyName           = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
                               $(ProductSoftwareName)"\CurrentVersion"
    ParamKeyName             = $(!NTN_ServiceBase)"\"$(ProductHardwareName)+
                               "\Parameters"

    LineType          = 1

    IO_Addr_List      = {256, 260, 264, 268, 272, 276, 280, 284, 288, 292, +
                         296, 300, 304, 308, 312, 316, 320, 324, 328, 332, +
                         336, 340, 344, 348, 352, 356, 360, 364, 368, 372, +
                         376, 380, 384, 388, 392, 396, 400, 404, 408, 412, +
                         416, 420, 424, 428, 432, 436, 440, 444, 448, 452, +
                         456, 460, 464, 468, 472, 476, 480, 484, 488, 492, +
                         496, 500, 504, 508, 512, 516, 520, 524, 528, 532, +
                         536, 540, 544, 548, 552, 556, 560, 564, 568, 572, +
                         576, 580, 584, 588, 592, 596, 600, 604, 608, 612, +
                         616, 620, 624, 628, 632, 636, 640, 644, 648, 652, +
                         656, 660, 664, 668, 672, 676, 680, 684, 688, 692, +
                         696, 700, 704, 708, 712, 716, 720, 724, 728, 732, +
                         736, 740, 744, 748, 752, 756, 760, 764, 768, 772, +
                         776, 780, 784, 788, 792, 796, 800, 804, 808, 812, +
                         816, 820, 824, 828, 832, 836, 840, 844, 848, 852, +
                         856, 860, 864, 868, 872, 876, 880, 884, 888, 892, +
                         896, 900, 904, 908, 912, 916, 920, 924, 928, 932, +
                         936, 940, 944, 948, 952, 956, 960, 964, 968, 972, +
                         976, 980, 984, 988, 992, 996, 1000, 1004, 1008, 1012 +
                         1016, 1020 }

    Switch_Value_List = {"40", "41", "42", "43", "44", "45", "46", "47", +
                         "48", "49", "4A", "4B", "4C", "4D", "4E", "4F", +
                         "50", "51", "52", "53", "54", "55", "56", "57", +
                         "58", "59", "5A", "5B", "5C", "5D", "5E", "5F", +
                         "60", "61", "62", "63", "64", "65", "66", "67", +
                         "68", "69", "6A", "6B", "6C", "6D", "6E", "6F", +
                         "70", "71", "72", "73", "74", "75", "76", "77", +
                         "78", "79", "7A", "7B", "7C", "7D", "7E", "7F", +
                         "80", "81", "82", "83", "84", "85", "86", "87", +
                         "88", "89", "8A", "8B", "8C", "8D", "8E", "8F", +
                         "90", "91", "92", "93", "94", "95", "96", "97", +
                         "98", "99", "9A", "9B", "9C", "9D", "9E", "9F", +
                         "A0", "A1", "A2", "A3", "A4", "A5", "A6", "A7", +
                         "A8", "A9", "AA", "AB", "AC", "AD", "AE", "AF", +
                         "B0", "B1", "B2", "B3", "B4", "B5", "B6", "B7", +
                         "B8", "B9", "BA", "BB", "BC", "BD", "BE", "BF", +
                         "C0", "C1", "C2", "C3", "C4", "C5", "C6", "C7", +
                         "C8", "C9", "CA", "CB", "CC", "CD", "CE", "CF", +
                         "D0", "D1", "D2", "D3", "D4", "D5", "D6", "D7", +
                         "D8", "D9", "DA", "DB", "DC", "DD", "DE", "DF", +
                         "E0", "E1", "E2", "E3", "E4", "E5", "E6", "E7", +
                         "E8", "E9", "EA", "EB", "EC", "ED", "EE", "EF", +
                         "F0", "F1", "F2", "F3", "F4", "F5", "F6", "F7", +
                         "F8", "F9", "FA", "FB", "FC", "FD", "FE", "FF"}

    RAM_Addr_List     = {720896, 786432, 851968, 917504}
    IRQ_List          = {3, 4, 5, 6, 7, 9, 10, 11, 12, 14}

;****************************************************************************
;
;****************************************************************************
[GeneralConstants]
    from                    = ""
    to                      = ""
    ExitCodeOk              = 0
    ExitCodeCancel          = 1
    ExitCodeFatal           = 2
    KeyNull                 = ""
    MAXIMUM_ALLOWED         = 33554432
    RegistryErrorIndex      = NO_ERROR
    KeyProduct              = ""
    KeyParameters           = ""
    TRUE                    = 1
    FALSE                   = 0
    NoTitle                 = 0
    ExitState               = "Active"
    OldVersionExisted       = $(FALSE)
    DriverPath              = $(!STF_NTPATH)\drivers

;****************************************************************************
;
;****************************************************************************
[Date]
    Now                     = {} ? $(!LIBHANDLE) GetSystemDate

;****************************************************************************
;
;****************************************************************************
[Identify]
    Read-Syms Identification
    Set Status      = STATUS_SUCCESSFUL
    Set Identifier  = $(OptionType)
    Set Media       = #("Source Media Descriptions", 1, 1)
    Return $(Status) $(Identifier) $(Media)

;****************************************************************************
;
;****************************************************************************
[ReturnOptions]
    Set Status          = STATUS_FAILED
    Set OptionList      = {}
    Set OptionTextList  = {}
    Set LanguageList    = ^(LanguagesSupported, 1)

    IfContains(i) $($0) in $(LanguageList)
        IfStr(i) $($1) == ""
            GoTo SetOptions
        EndIf
        Set PlatformList = ^(PlatformsSupported, 1)
        IfContains(i) $($1) in $(PlatformList)
            GoTo SetOptions
        Else
            Set Status = STATUS_NOTSUPPORTED
            GoTo ExitReturnOptions
        EndIf
    Else
        Set Status = STATUS_NOLANGUAGE
        GoTo ExitReturnOptions
    EndIf

SetOptions = +
    Set OptionList     = ^(Options, 1)
    Set OptionTextList = ^(OptionsText$($0), 1)
    Set Status         = STATUS_SUCCESSFUL

ExitReturnOptions = +
    Return $(Status) $(OptionList) $(OptionTextList)

;****************************************************************************
;
;****************************************************************************
[DebugMessage]
   Shell "Subroutn.Inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $($0)
   Return

;****************************************************************************
;
;****************************************************************************
[InstallOption]
    Set Status   = STATUS_FAILED
    Set Option   = $($1)
    Set SrcDir   = $($2)
    Set RasDir   = $($2)
    Set AddCopy  = $($3)
    Set DoCopy   = $($4)
    Set DoConfig = $($5)
    Set LanguageList = ^(LanguagesSupported, 1)

    IfContains(i) $($0) NOT-IN $(LanguageList)
        Return STATUS_NOLANGUAGE
    EndIf
    ;
    ; FIXME - make sure this flag is disabled before shipping
    ;
    Set OldDebugControl = $(!DebugOutputControl)
    Set !DebugOutputControl = 1

    Set-Subst LF = "\n"

    Read-Syms GeneralConstants
    Read-Syms FileConstants
    Read-Syms DialogConstants$(!STF_LANGUAGE)

    IfStr(i) $(!NTN_Origination) == "NCPA"
        Set Continue = $(OK)
    EndIf

    Read-Syms FileConstants$(!STF_LANGUAGE)

    Detect Date
    Set-Title  $(FunctionTitle)$(Option)

    Set to   = Begin
    Set from = Begin
    Set CommonStatus = STATUS_SUCCESSFUL

    EndWait

;****************************************************************************
;
;****************************************************************************
Begin = +
    Set ActivateDetection = FALSE
    IfStr(i) $(!NTN_InstallMode) == deinstall
        Set StartLabel = RemoveAdapter
    Else-IfStr(i) $(!NTN_InstallMode) == Update
        Set StartLabel = UpgradeSoftware
    Else-IfStr(i) $(!NTN_InstallMode) == bind
        Set StartLabel = BindingAdapter
    Else-IfStr(i) $(!NTN_InstallMode) == configure
        Set StartLabel = ConfigureAdapter
        Set ActivateDetection = TRUE
        Set CommonStatus = STATUS_REBOOT
        IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
            Debug-Output $(InfName)": Cannot configure the CommPletePRI driver software."
            Shell $(subroutineinf) SetupMessage $(!STF_LANGUAGE) "STATUS" +
               "The Multi-Tech PRI driver software is not configurable.  "+
               "Instead, configure the individual CommPletePRI adapter(s)."
            GoTo end
        EndIf
    Else
        Set StartLabel = InstallAdapter
        Set ActivateDetection = TRUE
        Set OEM_ABANDON_OPTIONS = {}
        Set OEM_ABANDON_SOFTWARE = FALSE
        Set OEM_ABANDON_ON = TRUE
    EndIf

    Debug-Output $(InfName)": =================================================="
    Debug-Output $(InfName)": STF_CWDIR is: "$(!STF_CWDIR)
    Debug-Output $(InfName)": STF_LANGUAGE is: "$(!STF_LANGUAGE)
    Debug-Output $(InfName)": Option is: "$(Option)
    Debug-Output $(InfName)": !STF_NCDETECT  is: "$(!STF_NCDETECT)
    Debug-Output $(InfName)": !STF_NCOPTION  is: "$(!STF_NCOPTION)
    Debug-Output $(InfName)": !STF_NCDETCARD is: "$(!STF_NCDETCARD)
    Debug-Output $(InfName)": !STF_NCDETINFO is: "$(!STF_NCDETINFO)
    Debug-Output $(InfName)": =================================================="

    Set DetectedCard = FALSE
    IfStr(i) $(ActivateDetection) != TRUE
        GoTo $(StartLabel)
    EndIf

    Debug-Output $(InfName)": Calling Param_SetDefaults"
    Shell $(ParamInf) Param_SetDefaults {}

    Shell $(ParamInf) HexListFromDecList $(RAM_Addr_List)
    Set RAM_Hex_List = $($R0)

    Shell $(ParamInf) HexListFromDecList $(IO_Addr_List)
    Set Temp_List = $($R0)

    ; Append the corresponding switch setting to each IO address
    set IO_Hex_List = {}
    ForListDo $(Temp_List)
        Set IO_Hex_List = >($(IO_Hex_List),$($)" ("*($(Switch_Value_List), $(#))")")
    EndForListDo

    IfStr(i) $(!STF_NCDETECT) == YES
        IfStr(i) $(!STF_NCOPTION) == $(Option)
           Set DetectedCard = TRUE
           Debug-Output $(InfName)": Setting DetectedCard to TRUE"
        EndIf
    EndIf

    Shell "" DebugConfiguration "After parameter querying"
    Set from = FatalError
    Set to = FatalError
    GoTo $(StartLabel)

;****************************************************************************
;
;****************************************************************************
InstallAdapter = +
    ; Set defaults for initial configuration
    Set InterruptNumber = 7
    Set IOBaseAddress   = 188        ; (0xBC)
    Set RamBaseAddress  = 851968     ; (0xD0000)

    OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
    IfStr $(KeyProduct) != $(KeyNull)
        CloseRegKey $(KeyProduct)
        IfStr(i) !(NTN_RegBase) == $(ProductKeyName)
           Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
               $(ProductVersion)
           IfInt $($ShellCode) != $(!SHELL_CODE_OK)
               Debug-Output $(InfName)": ShellCode error: cannot get an error string."
               GoTo ShellCodeError
           EndIf
           GoTo end
        Else
           Shell $(UtilityInf), CardExistedDlg
           IfInt $($ShellCode) != $(!SHELL_CODE_OK)
               Debug-Output $(InfName)": ShellCode error: cannot get an error string."
               GoTo ShellCodeError
           EndIf
           IfStr(i) $($R1) != "OK"
               Set CommonStatus = STATUS_USERCANCEL
               GoTo end
           EndIf
           Set OldVersionExisted = $(TRUE)
        EndIf
    EndIf

    Set CurrParamSettings = {}
    IfStr(i) $(DetectedCard) != TRUE
        GoTo AdapterSetup
    EndIf

    StartWait
        Shell $(ParamInf) Param_QueryCard $(!STF_NCDETCARD)
    EndWait

    IfStr(i) $($R0) != STATUS_SUCCESSFUL
        GoTo AdapterSetup
    EndIf

    Set DetectedParams = $($R1)
    Debug-Output $(InfName)": Calling Param_SetDefaults to merge detected params"
    Shell $(ParamInf) Param_SetDefaults $(DetectedParams)
    GoTo AdapterSetup

;****************************************************************************
;
;****************************************************************************
ConfigureAdapter = +
    IfStr $(KeyProduct) == $(KeyNull)
        OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
        IfStr $(KeyProduct) == $(KeyNull)
            Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
            Debug-Output $(InfName)": Cannot find component product key"
            GoTo FatalRegistry
        EndIf
    EndIf

    Debug-Output $(InfName)": Shelling to FindService"
    Shell $(UtilityInf) FindService, $(KeyProduct)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": FindService shell failure"
        GoTo ShellCodeError
    EndIf
    IfStr(i) $($R0) != NO_ERROR
        Debug-Output $(InfName)": FindService Shell error: "$($R0)
        GoTo FatalRegistry
    EndIf

    Set KeyParameters = $($R2)
    CloseRegKey $($R1)
    IfStr $(KeyParameters) == $(KeyNull)
        Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
        Debug-Output $(InfName)": Cannot find component service"
        GoTo FatalRegistry
    EndIf

    Set OldVersionExisted = $(TRUE)
    Set ValueName = ""
    Set ValueData = ""
    Set ValueStr  = ""
    Set ValueList = {}
    EnumRegValue $(KeyParameters) ValueList
    ForListDo $(ValueList)
        Set ValueItem = $($)
        Set ValueName = *($(ValueItem),1)
        Set ValueData = *($(ValueItem),4)
		Debug-Output $(InfName)": "$(ValueName)"="$(ValueData)
        IfStr(i) $(ValueName) == "RamBaseAddress"
            Set RamBaseAddress = $(ValueData)
        Else-IfStr(i) $(ValueName) == "IOBaseAddress"
            Set IOBaseAddress = $(ValueData)
        Else-IfStr(i) $(ValueName) == "InterruptNumber"
            Set InterruptNumber = $(ValueData)
        Else-IfStr(i) $(ValueName) == "LineType"
            Set LineType = $(ValueData)
        Else-IfStr(i) $(ValueName) == "BusNumber"
            set BusNumber = $(ValueData)
        Else-IfStr(i) $(ValueName) == "BusType"
            set BusType = $(ValueData)
        EndIf
    EndForListDo
    Shell $(ParamInf) Param_SaveValues
    Set CurrParamSettings = $($R0)

;****************************************************************************
;
;****************************************************************************
AdapterSetup = +
    Shell "" DebugConfiguration "before displaying dialog"
    Set from = AdapterOptions
    Set InterruptNumber = *($(IRQ_List), ~($(IRQ_List),$(InterruptNumber)))
    Set RAM_Hex_Value = *($(RAM_Hex_List), ~($(RAM_Addr_List),$(RamBaseAddress)))
    Set IO_Hex_Value = *($(IO_Hex_List), ~($(IO_Addr_List),$(IOBaseAddress)))
    Shell $(ParamInf) Param_ParameterConfidence
    IfStr(i) $($R0) != STATUS_SUCCESSFUL
        Debug-Output $(InfName)": parameter confidence too low to bypass configuration"
        GoTo AdapterOptions
    EndIf
    IfStr(i) $(DetectedCard) == TRUE
        IfStr(i) $(!STF_INSTALL_MODE) != CUSTOM
            GoTo AdapterVerify
        EndIf
    EndIf

;****************************************************************************
;
;****************************************************************************
AdapterOptions = +
    Read-Syms FileDependentDlg$(!STF_LANGUAGE)
    UI Start "InputDlg"
    IfStr(i) $(DLGEVENT) == "CONTINUE"
        Set IO_Hex_Value = $(Combo1Out)
        Set IOBaseAddress = *($(IO_Addr_List), ~($(IO_Hex_List),$(IO_Hex_Value)))
        Set InterruptNumber = $(Combo2Out)
        Set RAM_Hex_Value = $(Combo3Out)
        Set RamBaseAddress = *($(RAM_Addr_List), ~($(RAM_Hex_List),$(RAM_Hex_Value)))
        ui pop 1
    Else-IfStr(i) $(DLGEVENT) == "BACK"
        Set CommonStatus = STATUS_USERCANCEL
        Debug-Output $(InfName)": Action: exit. Bye."
        ui pop 1
        GoTo end
    Else
        Debug-Output $(InfName)": Action: unknown. Bye."
        ui pop 1
        GoTo end
    EndIf
    IfStr(i) $(!STF_NCDETINFO) == {}
        Shell $(UtilityInf),GetBusTypeDialog,$(ProductHardware$(Option)Description) $(BusType) $(BusNumber)
        ifInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error."
            GoTo ShellCodeError
        EndIf
        Set BusType = $($R1)
        Set BusNumber = $($R2)
    Else
        Set BusType = *($(!STF_NCDETINFO),5)
        Set BusNumber = *($(!STF_NCDETINFO),6)
    EndIf

;****************************************************************************
;
;****************************************************************************
AdapterVerify = +
    Shell "" DebugConfiguration "after running dialog"
    IfStr(i) $(DetectedCard) != TRUE
        Shell $(ParamInf) Param_SaveValues
        Set NewParamSettings = $($R0)
        IfStr(i) $(CurrParamSettings) == {}
            Set DiffParamSettings = $(NewParamSettings)
        Else
            Shell $(ParamInf) Param_DiffValues $(CurrParamSettings)
            Set DiffParamSettings = $($R0)
        EndIf
        Debug-Output $(InfName)": Calling Param_VerifyResources"
        Shell $(ParamInf) Param_VerifyResources $(DiffParamSettings)
        IfStr(i) $($R0) == STATUS_SUCCESSFUL
            Debug-Output $(InfName)": Param_VerifyResources succeeded"
            GoTo SkipOptions
        EndIf
    Else
        Set CardVerifyIndex = $(!STF_NCDETCARD)
        Debug-Output $(InfName)": Calling Param_VerifyCard"
        Shell $(ParamInf) Param_VerifyCard $(!STF_NCDETCARD)
        IfStr(i) $($R0) == STATUS_SUCCESSFUL
            Debug-Output $(InfName)": Param_VerifyCard succeeded"
            GoTo SkipOptions
        EndIf
    EndIf

    Set from = AdapterOptions
    Set to = SkipOptions
    Shell $(UtilityInf),RegistryErrorString,VERIFY_WARNING
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error: cannot get an error string."
        GoTo ShellCodeError
    EndIf
    Set Error = $($R0)
    GoTo WarningMsg

;****************************************************************************
;
;****************************************************************************
SkipOptions =+
    IfInt $(OldVersionExisted) == $(TRUE)
        IfStr(i) $(!NTN_InstallMode) == configure
            GoTo WriteParameters
        EndIf
    EndIf
    StartWait
    IfInt $(OldVersionExisted) == $(FALSE)
        IfStr(i) $(!NTN_InstallMode) == "install"
           IfStr(i) $(DoCopy) == "YES"
              Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
              IfInt $($ShellCode) != $(!SHELL_CODE_OK)
                  GoTo ShellCodeError
              Else-IfStr(i) $($R0) == STATUS_FAILED
                  Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
                  IfInt $($ShellCode) != $(!SHELL_CODE_OK)
                      GoTo ShellCodeError
                  EndIf
                  Set Error = $($R0)
                  GoTo FatalError
              Else-IfStr(i) $($R0) == STATUS_USERCANCEL
                  GoTo SuccessfulOption
              EndIf
              Set SrcDir = $($R1)
           EndIf

           Install "Install-Option"
           IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
              Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
              IfInt $($ShellCode) != $(!SHELL_CODE_OK)
                  GoTo ShellCodeError
              EndIf
              Set Error = $($R0)
              GoTo FatalError
           EndIf
        EndIf

	;
	; Software
	;
	; Create the \System\CurrentControlSet\ATCOMPRI key (and ...?)
        Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
            $(ProductSoftwareName), +
            $(ProductSoftwareName), +
            $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
            $(ProductSoftwareImagePath), "kernelautostart", "NDIS", {}, "",+
            $(NetEventDLL)
        Set OEM_ABANDON_SOFTWARE = TRUE
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error"
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        Set KeyProduct      = $($R1)
        Set SoftNetRulesKey = $($R2)
        CloseRegKey $($R3)
        CloseRegKey $($R4)
        CloseRegKey $($R5)

        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            EndWait
            Debug-Output $(InfName)": Registry error: add software components"
            CloseRegKey $(KeyProduct)
            CloseRegKey $(SoftNetRulesKey)
            GoTo FatalRegistry
        EndIf

	;
	; Add the \SoftWare\ATcommPRI\CurrentVersion key
	;
        Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
                           {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
                           {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
                           {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
                           {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
                           {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
                           {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
        Shell  $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error."
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            EndWait
            Debug-Output $(InfName)": Registry error: add value list."
            CloseRegKey $(KeyProduct)
            CloseRegKey $(SoftNetRulesKey)
            GoTo FatalRegistry
        EndIf

	;
	; Add the \SoftWare\ATcommPRI\CurrentVersion\NetRules key
	;
        Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
                            {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
                            {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
                            {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
                            {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(Bindable$(Option)Txt)}, +
                            {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
        Shell  $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error."
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        CloseRegKey $(KeyProduct)
        CloseRegKey $(SoftNetRulesKey)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            EndWait
            Debug-Output $(InfName)": Registry error: add value list."
            GoTo FatalRegistry
        EndIf
    EndIf

    ; 
    ; Create \Hardware keys with utility.inf
    ;
    Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
    IfInt $($R4) != -1
        Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
    EndIf
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": Cannot add hardware component"
        GoTo ShellCodeError
    EndIf
    Set RegistryErrorIndex = $($R0)
    IfStr(i) $(RegistryErrorIndex) != NO_ERROR
        EndWait
        Debug-Output $(InfName)": Registry error: add hardware component"
        CloseRegKey $($R1)
        CloseRegKey $($R2)
        CloseRegKey $($R3)
        GoTo FatalRegistry
    EndIf
    Set KeyParameters = $($R3)
    Set KeyAdapterRules = $($R2)
    Set AdapterNumber = $($R4)

    ;
    ; Create the \Software\Microsoft\Windows NT\Network Cards\<number> key
    ;
    Set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
                       {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
                       {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
                       {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
                       {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
                       {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
    Shell  $(UtilityInf), AddValueList, $($R1), $(NewValueList)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error"
        GoTo ShellCodeError
    EndIf
    CloseRegKey $($R1)

    ;
    ; Create the \Software\Microsoft\Windows NT\Network Cards\<number>\NetRules key
    ;
    Set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
    Set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
    Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardware$(Option)Type)},+
                        {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
                        {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardware$(Option)Class)}, +
                        {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
    Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error."
        GoTo ShellCodeError
    EndIf
    Set RegistryErrorIndex = $($R0)
    IfStr(i) $(RegistryErrorIndex) != NO_ERROR
        EndWait
        Debug-Output $(InfName)": Registry error: add value list."
        CloseRegKey $(KeyParameters)
        CloseRegKey $(KeyAdapterRules)
        GoTo FatalRegistry
    EndIf
    CloseRegKey $(KeyAdapterRules)

    GoTo WriteParameters

;****************************************************************************
;
;****************************************************************************
WriteParameters = +
;;; You need one address entry in the list for each channel on your device.

    Set TapiAddressList = {$(AdapterNumber)"-1-0"}
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-2-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-3-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-4-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-5-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-6-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-7-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-8-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-9-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-10-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-11-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-12-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-13-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-14-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-15-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-16-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-17-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-18-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-19-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-20-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-21-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-22-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-23-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-24-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-25-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-26-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-27-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-28-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-29-0")
    Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)"-30-0")

    ; 
    ; Create the \System\CurrentControlSet\Services\ATCOMPRI<number>\Parameters key
    ;
    Set NewValueList = {+
                       {AddressList,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
                       {BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
                       {BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusType)},+
                       {DeviceName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
                       {InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(InterruptNumber)},+
                       {LineType,$(NoTitle),$(!REG_VT_DWORD),$(LineType)},+
                       {MediaType,$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)},+
                       {RamBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(RamBaseAddress)},+
                       {IOBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(IOBaseAddress)},+
                       {DebugFlags,$(NoTitle),$(!REG_VT_DWORD),0}+
                       }
    Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
    CloseRegKey $(KeyParameters)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error."
        GoTo ShellCodeError
    EndIf
    Set RegistryErrorIndex = $($R0)
    IfStr(i) $(RegistryErrorIndex) != NO_ERROR
        Debug-Output $(InfName)": Registry error: Add value list"
        GoTo FatalRegistry
    EndIf
    ;
    ; Skip TAPI/RAS setup if already installed.
    ;

    IfStr(i) $(!NTN_InstallMode) == configure
        GoTo SuccessfulOption
    EndIf

    ;
    ; Create the HARDWARE\DEVICEMAP\TAPI DEVICES\ATcommPRI key
    ;
    OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP" $(MAXIMUM_ALLOWED) BaseKey
    shell "" atCreateRegKey $(BaseKey) "TAPI DEVICES\ATcommPRI"
    IfStr(i) $($R0) != NO_ERROR
        Debug-Output $(InfName)": Error creating registry key!"
        GoTo FatalRegistry
    EndIf
    Set TapiDeviceKey = $($R1)
    Set NewValueList = {+
                       {Address,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
                       {"Media Type",$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)}}

    Shell  $(UtilityInf), AddValueList, $(TapiDeviceKey), $(NewValueList)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error."
        GoTo ShellCodeError
    EndIf
    Set RegistryErrorIndex = $($R0)
    IfStr(i) $(RegistryErrorIndex) != NO_ERROR
        Debug-Output $(InfName)": Registry error: Add value list"
        GoTo FatalRegistry
    EndIf
    CloseRegKey $(TapiDeviceKey)
    CloseRegKey $(BaseKey)
    ;
    ; if RAS is not installed, then shell ras setup INF file to install RAS
    ; else invoke RAS to allow user to configure RAS for Switch56. 
    ;
    Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
    Shell "oemnsvra.inf" CheckRasInstalled
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf" 
        Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE),  +
                "STATUS", $(InvokeRasError)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo ShellCodeError
        EndIf
        GoTo SuccessfulOption
    EndIf
    Set RasInstalled = $($R0)
    Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
    ;
    ; display a message to the user that RAS setup will now be invoked
    ;
    IfStr(i) $(RasInstalled) == FALSE
        Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
                $(InvokeRasSetupMsg)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo SuccessfulOption
        EndIf
    Else
        Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
                $(InvokeRasConfigMsg)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo SuccessfulOption
        EndIf
    EndIf
	;
	; FIXME - RAS INF will not locate the files if it is spawned here.
	;
   EndWait

; !!! Why was this here?
;    GoTo SuccessfulOption

    ;
    ; Set the flags based on whether this is an IDW installation
    ;
    IfStr(i) $(!STF_IDW) == TRUE
        Set AddCopy  = NO
        Set DoCopy   = NO
        Set DoConfig = NO
    Else
        Set AddCopy  = YES
        Set DoCopy   = YES
        Set DoConfig = YES
    EndIf
    ;
    ; change the global install mode flag to configure if RAS is already installed
    ;
    IfStr(i) $(RasInstalled) == TRUE
            Set SaveNTN_InstallMode = $(!NTN_InstallMode)
            Set !NTN_InstallMode = configure
    EndIf
    ;
    ; now invoke RAS setup to do the right thing
    ;
    Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(RasDir) $(AddCopy) $(DoCopy) $(DoConfig)
    ;
    ; restore the global instal mode flag if it was changed
    ;
    IfStr(i) $(RasInstalled) == TRUE
            Set !NTN_InstallMode = $(SaveNTN_InstallMode)
    EndIf
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf" 
        Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
                $(InvokeRasError)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo ShellCodeError
        EndIf
        GoTo SuccessfulOption
    EndIf

    EndWait
    GoTo SuccessfulOption

;****************************************************************************
;
;****************************************************************************
BindingAdapter =+
    Set Error = "Binding: Sorry, not yet implemented."
    GoTo FatalError

;****************************************************************************
;
;****************************************************************************
RemoveAdapter = +
    IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
        Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
            $(ProductSoftwareName)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error"
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            GoTo FatalRegistry
        EndIf
    Else
        Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
            $(ProductSoftwareName), $(!NTN_RegBase)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error"
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            GoTo FatalRegistry
        EndIf
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
UpgradeSoftware = +
;shell "" DebugMessage "Product Name = "$(ProductKeyName)
;shell "" DebugMessage "Reg Base = "$(!NTN_RegBase)
    IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
        OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
        IfStr $(KeyProduct) != $(KeyNull)
            GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
            Set Version = *($(VersionInfo), 4)
            Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
            IfInt $($ShellCode) != $(!SHELL_CODE_OK)
                Debug-Output $(InfName)": ShellCode error"
                GoTo ShellCodeError
            EndIf
            Set !UG_Filename = $($R0)
            IfStr(i) $(!UG_Filename) != ""
                install "Install-Update"
                IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
                    GoTo FatalError
                EndIf
            EndIf
            SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
            SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
            IfInt $(Version) != $(ProductVersion)
            EndIf
            CloseRegKey $(KeyProduct)
        Else
            GoTo FatalRegistry
        EndIf
    Else
        OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
              $(MAXIMUM_ALLOWED) NetworkCardKey
        IfStr(i) $(NetworkCardKey) != $(KeyNull)
            GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
            Set ServiceName = *($(ServiceNameInfo), 4)
            OpenRegKey $(NetworkCardKey) "" "NetRules" +
                $(MAXIMUM_ALLOWED) NetRuleKey
            IfStr(i) $(NetRuleKey) != $(KeyNull)
            Else
                GoTo FatalRegistry
            EndIf
            CloseRegKey $(NetRules)
            CloseRegKey $(NetworkCardKey)
        Else
            GoTo FatalRegistry
        EndIf
        OpenRegKey $(!REG_H_LOCAL) "" +
              $(!NTN_ServiceBase)"\"$(ServiceName) +
              $(MAXIMUM_ALLOWED) ServiceKey
        IfStr(i) $(ServiceKey) != $(KeyNull)
            CloseRegKey $(ServiceKey)
        Else
            GoTo FatalRegistry
        EndIf
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
SuccessfulOption = +
    GoTo end

;****************************************************************************
;
;****************************************************************************
Abandon = +
    ForListDo $(OEM_ABANDON_OPTIONS)
        Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
            $(ProductSoftwareName), $($)
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error"
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            GoTo FatalRegistry
        EndIf
    EndForListDo
    IfStr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
        Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
            $(ProductSoftwareName), FALSE
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            Debug-Output $(InfName)": ShellCode error"
            GoTo ShellCodeError
        EndIf
        Set RegistryErrorIndex = $($R0)
        IfStr(i) $(RegistryErrorIndex) != NO_ERROR
            GoTo FatalRegistry
        EndIf
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
WarningMsg = +
    Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        GoTo ShellCodeError
    EndIf
    IfStr(i) $($R1) == "OK"
        GoTo $(to)
    Else-IfStr(i) $($R1) == "CANCEL"
        GoTo $(from)
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
NonFatalInfo = +
    Set Severity = STATUS
    Set CommonStatus = STATUS_USERCANCEL
    IfStr(i) $(Error) == ""
        Set Severity = NONFATAL
        Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo ShellCodeError
        EndIf
        Set Error = $($R0)
    EndIf
    Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        GoTo ShellCodeError
    EndIf
    IfStr(i) $($R1) == "OK"
        GoTo $(from)
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
FatalRegistry = +
    Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        GoTo ShellCodeError
    EndIf
    Set Error = $($R0)
    GoTo FatalError

;****************************************************************************
;
;****************************************************************************
FatalDetect = +
    Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        Debug-Output $(InfName)": ShellCode error: cannot get an error string."
        GoTo ShellCodeError
    EndIf
    Set Error = $($R0)
    GoTo FatalError

;****************************************************************************
;
;****************************************************************************
FatalError = +
    IfStr(i) $(Error) == ""
        Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
        IfInt $($ShellCode) != $(!SHELL_CODE_OK)
            GoTo ShellCodeError
        EndIf
        Set Error = $($R0)
    EndIf
    Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
    IfInt $($ShellCode) != $(!SHELL_CODE_OK)
        GoTo ShellCodeError
    EndIf
    GoTo SetFailed

;****************************************************************************
;
;****************************************************************************
ShellCodeError = +
    Set DlgType      = "MessageBox"
    Set STF_MB_TITLE = $(ShellCodeErrorTitle)
    Set STF_MB_TEXT  = $(ShellCodeErrorText)
    Set STF_MB_TYPE  = 1
    Set STF_MB_ICON  = 3
    Set STF_MB_DEF   = 1
    UI Start "Error Message"
    GoTo SetFailed

;****************************************************************************
;
;****************************************************************************
SetFailed = +
    Set CommonStatus = STATUS_FAILED
    IfStr(i) $(OEM_ABANDON_ON) == TRUE
        Set OEM_ABANDON_ON = FALSE
        GoTo Abandon
    EndIf
    GoTo end

;****************************************************************************
;
;****************************************************************************
end = +
    Set !DebugOutputControl = $(OldDebugControl)
    Return $(CommonStatus)

;****************************************************************************
;
;****************************************************************************
[atCreateRegKey]
    Debug-Output $(InfName)": Entering [atCreateRegKey]"
    Set ECR_Result          = NO_ERROR
    Set ECR_BaseKeyHandle   = $($0)
    Set ECR_NewPath         = $($1)
    Set KeyNull             = ""
    Set MAXIMUM_ALLOWED     = 33554432

    Debug-Output $(InfName)": atCreateRegKey - ECR_BaseKeyHandle = "$(ECR_BaseKeyHandle)
    Debug-Output $(InfName)":                  ECR_NewPath       = "$(ECR_NewPath)
    Debug-Output $(InfName)":                  MAXIMUM_ALLOWED   = "$(MAXIMUM_ALLOWED)
    Debug-Output $(InfName)":                  KeyNull           = "$(KeyNull)

    OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
               ECR_BaseKey
    Debug-Output $(InfName)": ECR_BaseKey = "$(ECR_BaseKey)
    Debug-Output $(InfName)":     OpenRegKey returned "$($R0)
    IfStr $(ECR_BaseKey) == $(KeyNull)
        Debug-Output $(InfName)": ECR_BaseKey == KeyNull"
    Else
        Debug-Output $(InfName)": ECR_BaseKey != KeyNull"
        Set ECR_KeyHandle = $(ECR_BaseKey)
        GoTo  ECR_Return
    EndIf

    Set ECR_TmpPath = ""
    Split-String $(ECR_NewPath) "\" ECR_PList
    Debug-Output $(InfName)": ECR_PList = "$(ECR_PList)
    ForListDo $(ECR_PList)
        IfStr(i) $($) != "\"
            IfInt $(#) == 1
                Set ECR_TmpPath = $($)
            Else
                Set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
            EndIf
            Debug-Output $(InfName)": Determining if "$(ECR_TmpPath)" exists"
            OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
            IfStr $(ECR_BaseKey) == $(KeyNull)
                Debug-Output $(InfName)": Creating "$(ECR_TmpPath)
                CreateRegKey $(ECR_BaseKeyHandle)  {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
                IfStr(i) $(ECR_KeyHandle) == $(KeyNull)
                    Set ECR_Result = $($R0)
                    GoTo ECR_Return
                EndIf
            EndIf
        EndIf
    EndForListDo
ECR_Return = +
    Return $(ECR_Result) $(ECR_KeyHandle)

;****************************************************************************
;
;****************************************************************************
[DebugConfiguration]
    Debug-Output $(!p:InfName)": **CONFIGURATION STATE: "$($0)
    Debug-Output $(!p:InfName)": InterruptNumber is "$(!p:InterruptNumber)
    Debug-Output $(!p:InfName)": RamBaseAddress  is "$(!p:RamBaseAddress)
    Debug-Output $(!p:InfName)": IOBaseAddress   is "$(!p:IOBaseAddress)
    Return

;****************************************************************************
;
;****************************************************************************
[Install-Option]
    Set STF_VITAL = ""
    IfStr(i) $(AddCopy) == "YES"
        AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
    EndIf
    IfStr(i) $(DoCopy) == "YES"
       Set !STF_NCPA_FLUSH_COPYLIST = TRUE
       CopyFilesInCopyList
    EndIf
    Exit

;****************************************************************************
;
;****************************************************************************
[Install-Update]
   Set STF_VITAL        = ""
   Set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
   AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
   AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
   Set !STF_NCPA_FLUSH_COPYLIST = TRUE
   CopyFilesInCopyList
   Exit

;****************************************************************************
;
;****************************************************************************
[Source Media Descriptions]
    1  = "Multi-Tech PRI Windows/NT Setup Disk" , TAGFILE = PTSC

;****************************************************************************
;
;****************************************************************************
[ProductType]
    STF_PRODUCT         = Winnt
    STF_PLATFORM        = I386

;****************************************************************************
;
;****************************************************************************
[Files-Inf]
    1, OEMSETNT.INF, SIZE=54000, RENAME=$(!UG_Filename)

;****************************************************************************
;
;****************************************************************************
[Files-ATcommPRI]
    1, ATCOMPRI.SYS, SIZE=250000

;****************************************************************************
;
;****************************************************************************
[LanguagesSupported]
    ENG

;****************************************************************************
;
;****************************************************************************
[OptionsTextENG]
    ATcommPRI           = "Multi-Tech Systems PRI ISDN Adapter"

;****************************************************************************
;
;****************************************************************************
[FileConstantsENG]
    ProCaption          = "Windows NT Setup"
    ProCancel           = "Cancel"
    ProCancelMsg        = "Windows NT Networking is not correctly installed.  "+
                          "Are you sure you want to cancel copying files?"
    ProCancelCap        = "Network Setup Message"
    ProText1            = "Copying:"
    ProText2            = "To:"

    FunctionATcommPRITitle              = "Multi-Tech PRI ISDN Adapter Setup"
    ProductSoftwareDescription          = "Multi-Tech PRI ISDN Adapter Driver"
    ProductHardwareATcommPRIDescription = "Multi-Tech PRI ISDN Adapter"
    ProductSoftwareTitle                = "Multi-Tech PRI ISDN Adapter Driver"
    ProductHardwareATcommPRITitle       = "Multi-Tech PRI ISDN Adapter"

    ShellCodeErrorTitle                 = "Error: "$(FunctionTitle)$(Option))
    ShellCodeErrorText                  = "Shell Code Error."

;****************************************************************************
;
;****************************************************************************
[DialogConstantsENG]
    Help                = "&Help"
    Exit                = "Cancel"
    OK                  = "OK"
    HelpContext         = ""
    Continue            = "Continue"
    Cancel              = "Cancel"

;****************************************************************************
;
;****************************************************************************
[FileDependentDlgENG]
    Combo1Label       = "I/O &Port Base:"
    Combo2Label       = "&IRQ Level:"
    Combo3Label       = "&RAM Base Address:"
    DlgType           = "MultiCombo"
    DlgTemplate       = "WD"
    Caption           = $(Function$(Option)Title)
    Combo1List        = $(IO_Hex_List)
    Combo1Out         = $(IO_Hex_Value)
    Combo2List        = $(IRQ_List)
    Combo2Out         = $(InterruptNumber)
    Combo3List        = $(RAM_Hex_List)
    Combo3Out         = $(RAM_Hex_Value)
    ComboListItemsIn  = {Combo1List, Combo2List, Combo3List}
    ComboListItemsOut = {Combo1Out, Combo2Out, Combo3Out}
    EditTextIn        = ""
    EditTextLim       = ""
    CBOptionsGreyed   = {}
    NotifyFields      = {NO, NO, NO}
;   HelpContext       = $(!IDH_DB_OEMNADN2_INS)

;****************************************************************************
;
;****************************************************************************
[InvokeRasDlgENG]
    InvokeRasSetupMsg   = "The Multi-Tech PRI setup is complete. "+
                          "Remote Access Services (RAS) must now be installed. "+
                          "Please configure the Multi-Tech PRI in RAS "+
                          "setup to enable you to use RAS over the Multi-Tech PRI."
    InvokeRasConfigMsg  = "The Multi-Tech PRI setup is complete. "+
                          "Remote Access Services (RAS) setup must now be invoked. "+
                          "Please configure the Multi-Tech PRI in RAS "+
                          "setup to enable you to use RAS over the Multi-Tech PRI."
    InvokeRasError      = "The Multi-Tech PRI setup encountered an error "+
                          "while invoking the RAS setup INF file (OEMNSVRA.INF). "+
                          "Please make sure that the file is present in the "+
                          "System32 directory and is the proper file." 

;****************************************************************************
;   END OF FILE
;****************************************************************************
Download Driver Pack

How To Update Drivers Manually

After your driver has been downloaded, follow these simple steps to install it.

  • Expand the archive file (if the download file is in zip or rar format).

  • If the expanded file has an .exe extension, double click it and follow the installation instructions.

  • Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.

  • Find the device and model you want to update in the device list.

  • Double-click on it to open the Properties dialog box.

  • From the Properties dialog box, select the Driver tab.

  • Click the Update Driver button, then follow the instructions.

Very important: You must reboot your system to ensure that any driver updates have taken effect.

For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.

server: web4, load: 1.13