home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708B.ISO / DRIVER / DEC / DEFEA280 / OEMSETNT.INF < prev    next >
INI File  |  1996-05-28  |  41KB  |  1,219 lines
  1. ; OEMSETUP FILE FOR DEC FDDIcontroller/EISA Adapters
  2. ; Windows NT v3.5 and v3.51 - DEFEA.SYS V1.82
  3. ;
  4. ;     Platform type: Alpha, x86, MIPS, PowerPC
  5. ;     Supported Adapters: DEFEA
  6. ;
  7. ; Digital Equipment Corporation, Littleton, Mass.
  8. ;
  9. ; The information in this software is subject to change without 
  10. ; notice and should not be construed as a commitment by Digital 
  11. ; Equipment Corporation.
  12. ;
  13. ; Usage:
  14. ; 
  15. ;     This file is the installation/configuration/deinstallation
  16. ;     procedure of the driver for Windows NT (DEFEA).  It can be
  17. ;     called from Windows setup directly, or via the Windows NT
  18. ;     Networks Control Program Applet (NCPA) from inside the
  19. ;     Windows Control Panel.
  20. ;
  21. ;    set !DebugOutputControl = 1  ; Turn On Debugging for Install testing
  22. ;         Debug-Output " Turn on Debugger... "
  23.  
  24. ;******************
  25. ;* IDENTIFICATION *
  26. ;******************
  27. [Identification]
  28.     OptionType = NetAdapter
  29.  
  30. ;***********************
  31. ;* PLATFORMS SUPPORTED *
  32. ;***********************
  33. [PlatformsSupported]
  34.     ISA
  35.     EISA
  36.     "Jazz-Internal Bus"
  37.     PCI
  38.  
  39. ;****************************************
  40. ;* OPTIONS - Order IS be important here *
  41. ;*  Must match order in OptionsTextENG  *
  42. ;****************************************
  43. [Options]
  44.     DEFEA
  45.  
  46. ;**************************
  47. ;* RECEIVE BUFFER CHOICES *
  48. ;**************************
  49. [ReceiveBuffChoices]
  50.     Receive_1 = "2", 2
  51.     Receive_2 = "4", 4
  52.     Receive_3 = "8", 8
  53.  
  54. ;***************************
  55. ;* TRANSMIT BUFFER CHOICES *
  56. ;***************************
  57. [TransmitBuffChoices]
  58.     Transmit_1 = "8", 8
  59.     Transmit_2 = "16", 16
  60.     Transmit_3 = "32", 32
  61.     Transmit_4 = "64", 64
  62.     Transmit_5 = "128", 128
  63.  
  64. ;****************************
  65. ;* DEFINITIONS USED IN CODE *
  66. ;****************************
  67. [FileConstants]
  68. UtilityInf      = "UTILITY.INF"
  69. subroutineinf   = "SUBROUTN.INF"
  70. SoftwareType    = "driver"
  71. NetEventDLL     = "%SystemRoot%\System32\netevent.dll"
  72. Manufacturer    = "DigitalEquipmentCorporation"
  73. ProductMajorVersion     = "1"
  74. ProductMinorVersion     = "82"
  75. ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  76.  
  77. DEFEA_1BYTE = 3187472    ; DEC300 EISA hardware ID
  78.  
  79. ;
  80. ; Software Specific Information Below.
  81. ;
  82. ProductSoftwareName        = "Defea"          ; current driver name
  83. ProductSoftwareTitle       = "DEC FDDIcontroller/EISA Driver"
  84. ProductSoftwareImagePath   = "%SystemRoot%\System32\drivers\defea.sys"
  85. NetRuleSoftwareType        = "defeaSys ndisDriver defeaDriver"
  86. NetRuleSoftwareUse         = $(SoftwareType)
  87. NetRuleSoftwareBindForm    = """DefeaSys"" yes no container"
  88. NetRuleSoftwareClass       = {"defeaDriver basic"}
  89. NetRuleSoftwareSWBindable  = {"defeaDriver defeaAdapter non exclusive 100"}
  90.  
  91. OptionHelpFile = "DEFDDI.HLP"
  92. ProductHardwareName = "Defea"
  93.  
  94. ;
  95. ; Hardware Specific Information Below.
  96. ;
  97. ; Note that in the HardwareParam Lists, FullDuplexEnable,
  98. ; RcvBuffCnt, RequestedTTRT, and XmtBuffCnt are not    present.
  99. ; That's because all of these parameters are queried by a
  100. ; dialog box and entered into the registry with that information.
  101. ;
  102. ; Also note that only parameters with CONSTANT values can be here.
  103. ; If you try to use a variable in one of these lists, it will not
  104. ; work the way you expect!
  105. ;
  106.  
  107. ; DEFEA Information
  108.  
  109. ProductHardwareDEFEATitle   = "DEC FDDIcontroller/EISA Adapter"
  110. NetRuleHardwareDEFEAType    = "defea defeaAdapter"
  111. NetRuleHardwareDEFEAClass   = {"defeaAdapter basic"}
  112. HelpDEFEAId = 1
  113.  
  114. EISABusType        = 2
  115. FDDIMediaType    = 3
  116.  
  117. DEFEAHardwareParamList = {{BurstSize,$(NoTitle),$(!REG_VT_DWORD),2},+
  118.     {BusType,$(NoTitle),$(!REG_VT_DWORD),$(EISABusType)},+
  119.     {EisaCompressedID,$(NoTitle),$(!REG_VT_DWORD),$($(Option)_1BYTE)},+
  120.     {MediaType,$(NoTitle),$(!REG_VT_DWORD),$(FDDIMediaType)}}
  121.  
  122.  
  123. NetRuleHardwareBindForm = " yes yes container"
  124. ProductKeyName    = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
  125. VersionKeyName    = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion"
  126.  
  127. [GeneralConstants]
  128. KeyNull           = ""
  129. MAXIMUM_ALLOWED   = 33554432
  130. KeyProduct        = ""
  131. KeyParameters     = ""
  132. TRUE              = 1
  133. FALSE             = 0
  134. NoTitle           = 0
  135.  
  136. [date]
  137.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  138.  
  139. ;********************
  140. ;* IDENTIFY SECTION *
  141. ;********************
  142. ;
  143. ; The [Identify] section is the first section executed by Setup. It
  144. ; returns information to Setup about the type of drivers that can 
  145. ; be installed by this .INF file (in our case, network drivers).
  146. ;
  147. [Identify]
  148.     read-syms Identification
  149.     set Status     = STATUS_SUCCESSFUL
  150.     set Identifier = $(OptionType)
  151.     set SourceMedia = #("Source Media Descriptions", 1, 1)
  152.     Return $(Status) $(Identifier) $(SourceMedia)
  153.  
  154. ;**************************
  155. ;* RETURN OPTIONS SECTION *
  156. ;**************************
  157. ;
  158. ; If the [Identify] section indicates that the .INF file supports
  159. ; the appropriate type of driver, Setup calls the [ReturnOptions]
  160. ; section.  Setup passes a single parameter to this section,
  161. ; indicating the language to be used for dialog strings.  This 
  162. ; section returns information to the Setup program, listing the
  163. ; names of any drivers which can be installed by this .INF file.
  164. ; It also returns the text strings for each driver to be used in 
  165. ; the dialog box asking the user to select the driver to install.
  166. ;
  167. [ReturnOptions]
  168.     ;
  169.     ; Initialize variables to failure state.
  170.     ;
  171.     set Status         = STATUS_FAILED
  172.     set OptionList     = {}
  173.     set OptionTextList = {}
  174.     
  175.     ;
  176.     ; See if our language list supports the language specified.
  177.     ;
  178.     set LanguageList = ^(LanguagesSupported, 1)
  179.     Ifcontains(i) $($0) not-in $(LanguageList)
  180.         set Status = STATUS_NOLANGUAGE
  181.         goto finish_ReturnOptions
  182.     endif
  183.     
  184.     ;
  185.     ; If a second parameter was passed in, see if it is a supported
  186.     ; platform.
  187.     ;
  188.     ifstr(i) $($1) != ""
  189.         set PlatformList = ^(PlatformsSupported, 1)
  190.         Ifcontains(i) $($1) not-in $(PlatformList)
  191.             set Status = STATUS_NOTSUPPORTED
  192.             goto finish_ReturnOptions
  193.         endif
  194.     endif
  195.     
  196.     ;
  197.     ; If we get here, we are successful, so return the option list.
  198.     ;
  199.     set OptionList     = ^(Options, 1)
  200.     set OptionTextList = ^(OptionsText$($0), 1)
  201.     set Status         = STATUS_SUCCESSFUL
  202.     
  203.     ;
  204.     ; Exit from this section.
  205.     ;
  206. finish_ReturnOptions = +
  207.     Return $(Status) $(OptionList) $(OptionTextList)
  208.  
  209. ;*************************
  210. ;* INSTALLOPTION SECTION *
  211. ;*************************
  212. ;
  213. ; If the [ReturnOptions] section returns successfully, indicating
  214. ; the language is supported, Setup displays a dialog box from which
  215. ; the user can select a driver to install.  Setup then calls the 
  216. ; [InstallOption] section, with the following parameters:
  217. ;
  218. ;       Language to use
  219. ;       OptionID to install (DEFEA)
  220. ;       SourceDirectory
  221. ;       AddCopy  (yes/no)
  222. ;       DoCopy   (yes/no)
  223. ;       DoConfig (yes/no)
  224. ;
  225. ; ScrDir seems to always be A:\, even when you later install from
  226. ; the oemnad#.inf which is copied to the system32 directory.
  227. ;
  228. ; AddCopy and DoCopy are valid only when NTN_InstallMode = install.
  229. ; AddCopy is yes if the files should be added to the copy list.
  230. ; DoCopy is yes if CopyFilesInCopyList should be called.
  231. ;
  232. ; DoConfig is not used for network cards.
  233. ;
  234. ; This .INF file is automatically copied to the SYSTEM32 directory,
  235. ; by WinNT, and renamed so as to have a unique name.
  236. ;
  237.  
  238. [InstallOption]
  239.  
  240. ;    set !DebugOutputControl = 1  ; Turn On Debugging for Install testing 
  241.     Debug-Output "oemsetup for "$(ProductHardwareName)" V"$(ProductVersion)" ..."
  242.     
  243.     ;
  244.     ; Read input parameters.
  245.     ;
  246.     set Option   = $($1)
  247.     set SrcDir   = $($2)
  248.     set AddCopy  = $($3)
  249.     set DoCopy   = $($4)
  250.     set DoConfig = $($5)
  251.     
  252.     ;
  253.     ; Check if specified language is supported.
  254.     ;
  255.     set LanguageList = ^(LanguagesSupported, 1)
  256.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  257.         Return STATUS_NOLANGUAGE
  258.     endif
  259.     
  260.     ;
  261.     ; Set up local variables and constant values.
  262.     ;
  263.     set-subst LF = "\n"
  264.     read-syms GeneralConstants
  265.     read-syms FileConstants
  266.     read-syms DialogConstants$(!STF_LANGUAGE)
  267.     read-syms FileConstants$(!STF_LANGUAGE)
  268.     read-syms FileDependentDlg$(!STF_LANGUAGE)
  269.     SetHelpFile $(!STF_WINDOWSSYSPATH)"\"$(OptionHelpFile) $(MinHelpId) $(MaxHelpId)
  270.     detect date
  271.     set-title  $(Function$(Option)Title)
  272.     set CommonStatus = STATUS_SUCCESSFUL
  273.     EndWait
  274.  
  275.     ;
  276.     ; NTN_InstallMode
  277.     ;   install   - this is a primary or original installation, it
  278.     ;               may be an upgrade
  279.     ;   deinstall - this product and its binaries are to be removed
  280.     ;               from the disk
  281.     ;   configure - this product is to be (re-) configured
  282.     ;   bind      - this product's relationships to other products
  283.     ;               have changed and should be reviewed. 
  284.     ;
  285.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  286.         set StartLabel = removeadapter
  287.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  288.         set StartLabel = UpgradeSoftware
  289.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  290.         set StartLabel = bindingadapter
  291.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  292.         set StartLabel = configureadapter
  293.     else
  294.         set StartLabel = installadapter
  295.     endif
  296.  
  297.     ;
  298.     ; HARDWARE_PUT_IN_REGISTRY gets set to true once the hardware
  299.     ; component is installed.  That way if we get an error we know 
  300.     ; to uninstall it.  HWList has the path to the hardware that 
  301.     ; is needed by RemoveHardwareComponent.
  302.     ;
  303.     ; SOFTWARE_PUT_IN_REGISTRY gets set to true once the software
  304.     ; component is installed.
  305.     ;
  306.     set HARDWARE_PUT_IN_REGISTRY = $(FALSE)
  307.     set HWList = ""
  308.     set SOFTWARE_PUT_IN_REGISTRY = $(FALSE)
  309.     
  310.     ;
  311.     ; Go to the appropriate section for this installation mode.
  312.     ;
  313.     Debug-Output "StartLabel "$(StartLabel)
  314.     goto $(StartLabel)
  315.  
  316. ;------------------------------------------------------------------------
  317. ; InstallMode = install
  318. ; Came here straight from figuring out which platform we are on.
  319. ; Option, SrcDir, AddCopy, DoCopy, and DoConfig are valid.
  320. ;
  321. installadapter = +
  322.     
  323.     ;-------------------------------------------------------------------
  324.     ; Get the NT version (3.50 or ...)
  325.     ;-------------------------------------------------------------------
  326.     ;
  327.     OpenRegKey $(!REG_H_LOCAL) "" $(VersionKeyName) $(MAXIMUM_ALLOWED) KeyVersion
  328.     GetRegValue $(KeyVersion),"CurrentVersion",VersionStruct
  329.     CloseRegKey $(KeyVersion)
  330.     Set NTVersion = *($(VersionStruct),4)
  331.     
  332.     ;-------------------------------------------------------------------
  333.     ; Determine the platform and set the correct driver/help paths.
  334.     ;-------------------------------------------------------------------
  335.     ;
  336.     set Help_Directory = "WINNT"
  337.     Ifstr $(!STF_PLATFORM) == "Alpha"
  338.         set Source_Directory = "WINNT\ALPHA"
  339.     else-ifstr $(!STF_PLATFORM) == "Mips"
  340.         set Source_Directory = "WINNT\MIPS"
  341.     else-ifstr $(!STF_PLATFORM) == "I386"
  342.         set Source_Directory = "WINNT\INTEL"
  343.     else-ifstr $(!STF_PLATFORM) == "ppc"
  344.         set $R0 = "Windows NT PowerPC drivers are not on this distribution."
  345.         goto fatal
  346.     else
  347.         set $R0 = "This platform is not recognized and not supported by this distribution."
  348.         goto fatal
  349.     endif
  350.     
  351.     ;-------------------------------------------------------------------
  352.     ; Check to see if a different version of this driver was installed.
  353.     ;-------------------------------------------------------------------
  354. SWCheckThisProductKeyName = +
  355.     ;
  356.     ; Get open handle KeyProduct. 
  357.     ; Returns an empty string if key does not exist.
  358.     ;
  359.     ; NTN_RegBase appears empty on the installation of the first card.
  360.     ; KeyProduct will be KeyNull on the installation of the first card.
  361.     ;
  362.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  363.     
  364.     ;
  365.     ; We cannot assume that the adapter has never been installed before.
  366.     ; The spec says we must check for older versions of the software 
  367.     ;   (NTN_RegBase = ProductKeyName) and tell the user to use update.
  368.     ;   However, NT 3.50 does not do update properly, so tell user
  369.     ;   to remove and re-install in this situation.
  370.     ; The spec says we should warn about already finding this hardware 
  371.     ;   installed.  We'll do that and allow the option of continuing.
  372.     ;
  373.     Ifstr $(KeyProduct) != $(KeyNull)
  374.     ;-------------------------------------------------------------------
  375.     ; Software exists - do some checking
  376.     ;-------------------------------------------------------------------
  377.     ; If key already exists, get software version info.
  378.     ;
  379.     GetRegValue $(KeyProduct) MajorVersion OldMajorVersionList
  380.     GetRegValue $(KeyProduct) MinorVersion OldMinorVersionList
  381.     CloseRegKey $(KeyProduct)
  382.     set OldMajorVersion = *($(OldMajorVersionList),4)
  383.     set OldMinorVersion = *($(OldMinorVersionList),4)
  384.     ;
  385.     ; If the old version is the same as ours, no problem.
  386.     ; If not the same, fatal error.
  387.     ;
  388.     ifstr(i) $(OldMajorVersion) != $(ProductMajorVersion)
  389.         goto SWversionMismatch
  390.     endif
  391.     ifstr(i) $(OldMinorVersion) != $(ProductMinorVersion)
  392.         goto SWversionMismatch
  393.     endif
  394.     goto SWversionOK
  395.  
  396. SWversionMismatch = +
  397.     set $R0 = $(Option)".SYS V"$(OldMajorVersion)"."$(OldMinorVersion)+
  398.         "already exists on the system.  Please use the remove button for all DEFEA and re-install."
  399.     goto fatal         
  400.  
  401. SWversionOK = +
  402.     Else
  403.     ;-------------------------------------------------------------------
  404.     ; Add software info to the registry
  405.     ;-------------------------------------------------------------------
  406.     ; This is a new software component - need to add version, descr, ...
  407.     ;
  408.     StartWait
  409.     ;
  410.     ; If we are not installing from floppy, NT will detect that the
  411.     ; floppy is not present and ask for one.
  412.     ;
  413.     ; Copy the driver and help file.
  414.     ; If this is being installed from the oemnad#.inf on the
  415.     ; hard disk, NT will look for the disk in the floppy drive,
  416.     ; not find it, and prompt the user to install it.
  417.     ;
  418.     ifstr(i) $(AddCopy) == "YES"
  419.         install "Install-AddList"
  420.         ;
  421.         ; Only do the copy if the add was successful.
  422.         ; Note: do NOT use !STF_INSTALL_OUTCOME, it doesn't work!
  423.         ;
  424.         ifstr(i) $(STF_INSTALL_OUTCOME) == STF_SUCCESS
  425.             ifstr $(DoCopy) == "YES"
  426.                 install "Install-CopyList"
  427.             endif
  428.         endif
  429.     endif
  430.     ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  431.         set $R0 = "Could not copy driver and help files."
  432.         goto fatal
  433.     endif
  434.  
  435.     ;
  436.     ; AddSoftwareComponent adds all the registry information 
  437.     ; neccessary for a new software component.  This involves
  438.     ; creating the SOFTWARE area and the SERVICE area. Returns:
  439.     ;       R1      key for SOFTWARE\Manufacturer\Product\Version
  440.     ;       R2      key for SOFTWARE\..\NetRules
  441.     ;       R3      key handle for SERVICES key
  442.     ;       R4      "Parameters" key handle for Services area
  443.     ;       R5      "Linkage" key handle for Services area
  444.     ;
  445.     Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  446.         $(ProductSoftwareName), +
  447.         $(ProductSoftwareName), +
  448.         $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  449.         $(ProductSoftwareImagePath), "kernel", "NDIS", {}, "",+
  450.         $(NetEventDLL)
  451.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  452.         goto ShellCodeError
  453.     endif
  454.     Set SOFTWARE_PUT_IN_REGISTRY = $(TRUE)
  455.     Set SoftProductKey      = $($R1)
  456.     Set SoftNetRuleKey      = $($R2)
  457.     Set SoftServiceKey      = $($R3)
  458.     Set SoftParameterKey    = $($R4)
  459.     Set SoftLinkageKey      = $($R5)
  460.     ifstr(i) $($R0) != "NO_ERROR"
  461.         set $R0 = "Error adding software component.  Reboot and try again."
  462.         goto SWAddComplete
  463.     endif
  464.     ;
  465.     ; Create a value list for this entry.
  466.     ; Each entry in ValueList is a list containing:
  467.     ;           ValueName
  468.     ;           Index (must be zero)
  469.     ;           ValueType
  470.     ;           ValueData
  471.     ;
  472.     ; Put this value list in SOFTWARE\Manufacturer\Product\Version
  473.     ;
  474.     set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  475.         {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)},+
  476.         {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)},+
  477.         {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  478.         {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  479.         {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  480.         {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  481.     Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  482.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  483.         goto SWAddComplete
  484.     endif
  485.     ifstr(i) $($R0) != "NO_ERROR"
  486.         set $R0 = "Error adding software version info."
  487.         goto SWAddComplete
  488.     endif
  489.     ;
  490.     ; Set up value list for SOFTWARE\..\NetRules and write it.
  491.     ;
  492.     set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  493.         {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  494.         {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  495.         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  496.         {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareSWBindable)}, +
  497.         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  498.     Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  499.     ifstr(i) $($R0) != "NO_ERROR"
  500.         set $R0 = "Error adding software netrules."
  501.     endif
  502.  
  503. SWAddComplete = +
  504.     CloseRegKey $(SoftProductKey)
  505.     CloseRegKey $(SoftNetRuleKey)
  506.     CloseRegKey $(SoftServiceKey)
  507.     CloseRegKey $(SoftParameterKey)
  508.     CloseRegKey $(SoftLinkageKey)
  509.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  510.         goto ShellCodeError
  511.     endif
  512.     ifstr(i) $($R0) != "NO_ERROR"
  513.         goto fatal
  514.     endif
  515.     endif  ; end installation of SW component, if this is a new component
  516.     
  517.     ;-----------------------------------------------------------------------
  518.     ; Get the list of cards to install.
  519.     ;-----------------------------------------------------------------------
  520.  
  521.     ;
  522.     ; EISAFindBus returns AdapterList entry in R1 and Error status in R0
  523.     ;   - the list contains all cards of that EISA ID,
  524.     ;   with their BusNum and SlotNum.
  525.     ;
  526.     Shell $(UtilityInf), EISAFindBus, $($(Option)_1BYTE)
  527.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  528.         goto ShellCodeError
  529.     endif
  530.  
  531.     ifstr $($R0) != "NO_ERROR"
  532.         goto fatal
  533.     endif
  534.  
  535.     set AdapterList = $($R1)
  536.     endif
  537.     
  538.     ifstr(i) $(AdapterList) == {}
  539.         set $R0 = $(Option)" network card is not present in the system."
  540.         goto fatal
  541.     endif
  542.     
  543.     ;-----------------------------------------------------------------------
  544.     ; Put the hardware information in the registry
  545.     ;-----------------------------------------------------------------------
  546.     ; Keep going until the adapterlist is empty.
  547.     ;
  548.     ; Note it is illegal to use a "goto" inside the ForListDo
  549.     ; that jumps to somewhere outside the ForListDo.
  550.     ;
  551.     set DropThroughForListDo = $(FALSE)
  552.     ForListDo $(AdapterList)
  553.     Set HW_KEYS_OPEN = $(FALSE)
  554.     ifint $(DropThroughForListDo) == $(FALSE)
  555.         ;
  556.         ; Set up BusNum and SlotNum.
  557.         ;
  558.         set BusNum = *($($),1)
  559.         set SlotNum = *($($),2)
  560.         Shell $(UtilityInf), IsNetCardAlreadyInstalled, $(BusNum), +
  561.             $(SlotNum), $(ProductHardware$(Option)Description), +
  562.             $(ProductHardwareName) "YES"
  563.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  564.             goto ForListDropThrough
  565.         else-ifstr(i) $($R0) != "NO_ERROR"
  566.             set $R0 = "Error in determining if netcard is already installed."
  567.             goto ForListDropThrough
  568.         else-ifstr(i) $($R1) == "YES"   ;already installed,
  569.             goto ThisForIterationDone   ;  so skip it and try next
  570.         endif
  571.  
  572.         set ParamFullDuplexEnable = 2
  573.         set ParamRcvBuffCnt = 4
  574.         set ParamRequestedTTRT = 8
  575.         set ParamXmtBuffCnt = 32
  576.  
  577.         ;
  578.         ; Install one iteration of the hardware in the registry.
  579.         ;
  580.         ; Note that $(STF_CONTEXTINFNAME) translates to oemnad#.inf
  581.         ;          $(!STF_CONTEXTINFNAME) translates to NCPASHEL.INF        
  582.         ;
  583.         Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName), +
  584.             $(STF_CONTEXTINFNAME), $(ProductKeyName)
  585.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  586.             goto ForListDropThrough
  587.         endif
  588.         ifint $($R4) == -1
  589.             set $R0 = "Error getting "$(Option)" adapter number."
  590.             goto ForListDropThrough
  591.         endif
  592.         Set HW_KEYS_OPEN = $(TRUE)
  593.         Set HARDWARE_PUT_IN_REGISTRY = $(TRUE)
  594.         Set HWList = >($(HWList), +
  595.         $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  596.         Set HardNetCardKey      = $($R1)
  597.         Set HardNetRuleKey      = $($R2)
  598.         Set HardParameterKey    = $($R3)
  599.         Set AdapterNumber       = $($R4)
  600.         ifstr(i) $($R0) != "NO_ERROR"
  601.             set $R0 = "Error adding hardware to registry."
  602.             goto ForListDropThrough
  603.         endif
  604.         
  605.         ;
  606.         ; Set up and write general card information to registry.
  607.         ;
  608.         set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  609.         {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
  610.         {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
  611.         {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  612.         {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  613.         {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  614.         Shell  $(UtilityInf), AddValueList, $(HardNetCardKey), $(NewValueList)
  615.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  616.             goto ForListDropThrough
  617.         endif
  618.         ifstr(i) $($R0) != "NO_ERROR"
  619.             set $R0 = "Error adding general hardware info to registry."
  620.             goto ForListDropThrough
  621.         endif
  622.  
  623.         ;
  624.         ; Set up and write hardware parameters to registry.
  625.         ; Write:
  626.         ;   FullDuplexEnable, RcvBuffCnt, RequestedTTRT, XmtBuffCnt,
  627.         ;    BusNumber, SlotNumber
  628.         ;   Hardware parameters defined as constants
  629.         ;
  630.         set NewValueList = {{FullDuplexEnable,$(NoTitle),$(!REG_VT_DWORD),$(ParamFullDuplexEnable)},+
  631.         {RcvBuffCnt,$(NoTitle),$(!REG_VT_DWORD),$(ParamRcvBuffCnt)},+
  632.         {RequestedTTRT,$(NoTitle),$(!REG_VT_DWORD),$(ParamRequestedTTRT)},+
  633.         {XmtBuffCnt,$(NoTitle),$(!REG_VT_DWORD),$(ParamXmtBuffCnt)},+
  634.         {BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNum)},+
  635.         {SlotNumber,$(NoTitle),$(!REG_VT_DWORD),$(SlotNum)}}
  636.         Shell  $(UtilityInf), AddValueList, $(HardParameterKey), $(NewValueList)
  637.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  638.             goto ForListDropThrough
  639.         endif
  640.         ifstr(i) $($R0) != "NO_ERROR"
  641.             set $R0 = "Error adding programmable parameters to registry."
  642.             goto ForListDropThrough
  643.         endif
  644.         Shell  $(UtilityInf), AddValueList, $(HardParameterKey), $($(Option)HardwareParamList)
  645.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  646.             goto ForListDropThrough
  647.         endif
  648.         ifstr(i) $($R0) != "NO_ERROR"
  649.             set $R0 = "Error adding hardware parameters to registry."
  650.             goto ForListDropThrough
  651.         endif
  652.  
  653.         ;
  654.         ; Set up and write hardware net rules.
  655.         ;
  656.         set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  657.         set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  658.         set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardware$(Option)Type)},+
  659.         {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  660.         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardware$(Option)Class)}, +
  661.         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  662.         Shell  $(UtilityInf), AddValueList, $(HardNetRuleKey), $(NewValueList)
  663.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  664.             goto ForListDropThrough
  665.         endif
  666.         ifstr(i) $($R0) != "NO_ERROR"
  667.             set $R0 = "Error adding hardware net rules to registry."
  668.             goto ForListDropThrough
  669.         endif
  670.     
  671.         ;
  672.         ; If we get here, we have successfully installed the HW.
  673.         ;
  674.         goto ThisForIterationDone
  675.     endif           ; end of "If DropThroughForList is false ..."
  676.  
  677. ForListDropThrough = +
  678.     set DropThroughForListDo = $(TRUE)
  679. ThisForIterationDone = +
  680.     ifint $(HW_KEYS_OPEN) == $(TRUE)
  681.         CloseRegKey $(HardNetCardKey)
  682.         CloseRegKey $(HardNetRuleKey)
  683.         CloseRegKey $(HardParameterKey)
  684.     endif
  685.  
  686.     EndForListDo
  687.     
  688.     CloseRegKey $(KeyProduct)
  689.     
  690.     ;
  691.     ; There are a number of ways to exit the above ForListDo.
  692.     ;   1. ShellCodeError - fatal, just go process the error 
  693.     ;                   SHOULD NEVER HAPPEN
  694.     ;   2. Error Condition - fatal, error message in R0
  695.     ;                   SHOULD NEVER HAPPEN
  696.     ;   3. Hardware not in registry
  697.     ;           a. user cancelled, remove software if just installed
  698.     ;                   THIS MAY HAPPEN
  699.     ;           b. all adapters previously installed
  700.     ;                   THIS MAY HAPPEN
  701.     ;   4. Success - just continue
  702.     ;                   THIS MAY HAPPEN
  703.     ;
  704.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  705.         goto ShellCodeError
  706.     endif
  707.     ifstr(i) $($R0) != "NO_ERROR"
  708.         goto fatal
  709.     endif
  710.     ifstr(i) $(HARDWARE_PUT_IN_REGISTRY) == $(FALSE)
  711.         ifstr(i) $(CommonStatus) == "STATUS_USERCANCEL"
  712.             goto AbandonComponentsInRegistry
  713.         endif
  714.         set $R0 = "All "$(Option)" adapters already installed."
  715.         goto fatal
  716.     endif
  717.     
  718.     EndWait
  719.     goto end
  720.     
  721.  
  722.  
  723. ;------------------------------------------------------------------------
  724. ; InstallMode = configure
  725. ; Came here straight from figuring out which platform we are on.
  726. ; Option, SrcDir, AddCopy, DoCopy, and DoConfig are valid.
  727. ;
  728. ; The whole purpose of this to to reconfigure ConnectionType.
  729. ;
  730. ;   Get a registry key (KeyProduct).
  731. ;   Get the hardware parameter key (KeyParameters).
  732. ;   Find the ConnectionType parameter location.
  733. ;   Put up the dialog box to get the new ConnectionType.
  734. ;   Write the new ConnectionType to the registry.
  735. ;
  736. configureadapter = +
  737.     ;
  738.     ; Can't configure software component
  739.     ;
  740.     Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  741.         Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  742.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  743.             goto ShellCodeError
  744.         endif
  745.         goto nonfatal
  746.     endif
  747.     
  748.     ;
  749.     ; Open the registry key to this product.
  750.     ;
  751.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
  752.     Ifstr $(KeyProduct) == $(KeyNull)
  753.         Set $R0 = "Cannot find "$(ProductSoftwareName)" Service for "$(Option)
  754.         Goto fatal
  755.     Endif
  756.     
  757.     ;
  758.     ; FindService returns:  R0  RegistryErrorIndex
  759.     ;                       R1  KeyThisService
  760.     ;                       R2  KeyParameters
  761.     ;
  762.     Shell $(UtilityInf) FindService, $(KeyProduct)
  763.     CloseRegKey $(KeyProduct)
  764.     Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  765.     Goto ShellCodeError
  766.     Endif
  767.     ifstr(i) $($R0) != "NO_ERROR"
  768.     Goto fatal
  769.     endif
  770.     CloseRegKey $($R1)
  771.  
  772.     set KeyParameters = $($R2)
  773.     Ifstr $(KeyParameters) == $(KeyNull)
  774.     set $R0 = "Cannot find service for "$(Option)
  775.     goto fatal
  776.     endif
  777.     
  778.     ;
  779.     ; Read the parameters from the registry which are changeable from
  780.     ; the dialog box
  781.     ;
  782.  
  783.     EnumRegValue $(KeyParameters) ValueList
  784.     ForListDo $(ValueList)
  785.         set ValueItem = $($)
  786.         set ValueName = *($(ValueItem),1)
  787.         set ValueData = *($(ValueItem),4)
  788.         ifstr(i) $(ValueName) == "FullDuplexEnable"
  789.             set FullDuplexEnableIndex = $(ValueData)
  790.         else-ifstr(i) $(ValueName) == "RcvBuffCnt"
  791.             set RcvBuffCntIndex = $(ValueData)
  792.         else-ifstr(i) $(ValueName) == "XmtBuffCnt"
  793.             set XmtBuffCntIndex = $(ValueData) 
  794.         else-ifstr(i) $(ValueName) == "RequestedTTRT"
  795.             set RequestedTTRTIndex = $(ValueData)
  796.         endif
  797.     EndForListDo
  798.  
  799.     ;
  800.     ; Initialize the variables we need to feed into the dialog
  801.     ;
  802.  
  803.     Ifstr(i) $(FullDuplexEnableIndex) == 1
  804.         set RadioIn = {1}
  805.     else
  806.         set RadioIn = {2}
  807.     endif
  808.  
  809.     ifstr(i) $(RequestedTTRTIndex) == ""
  810.         set EditText1 = 8
  811.     else
  812.         set EditText1 = $(RequestedTTRTIndex)
  813.     endif
  814.  
  815.     set ReceiveBuffValue = *($(ReceiveBuffList), ~($(ReceiveBuffValues),$(RcvBuffCntIndex)))
  816.     ifstr(i) $(ReceiveBuffValue) == ""
  817.         set ReceiveBuffValue = 4
  818.     endif
  819.  
  820.     set TransmitBuffValue = *($(TransmitBuffList), ~($(TransmitBuffValues),$(XmtBuffCntIndex)))
  821.     ifstr(i) $(TransmitBuffValue) == ""
  822.         set TransmitBuffValue = 32
  823.     endif
  824.  
  825.     set RequestedTTRTValue = RequestedTTRTIndex
  826.     ifstr(i) $(RequestedTTRTValue) == ""
  827.         set RequestedTTRTValue = 8
  828.     endif
  829.  
  830.     read-syms FileDependentDlg$(!STF_LANGUAGE)
  831.  
  832.     ;
  833.     ; Load the library containing the DLL
  834.     ;
  835.     
  836. restart = +
  837.     LoadLibrary "Disk 1" $(!STF_WINDOWSSYSPATH)"\"$(DialogDllName) hLib
  838.     
  839.     ;
  840.     ; Display the dialog box and free the library after completion
  841.     ;
  842.     ui start "InputDlg" $(hLib)
  843.     ui pop 1
  844.     FreeLibrary $(hLib)
  845.  
  846.     ifstr(i) $(DLGEVENT) != "CONTINUE"
  847.         set CommonStatus = STATUS_USERCANCEL
  848.         CloseRegKey $(KeyParameters)
  849.         goto end
  850.     endif
  851.  
  852.     ;
  853.     ; Determine the values set in the dialog
  854.     ;
  855.  
  856.     ifint *($(EditTextOut),1) < 4
  857.         shell $(subroutineinf) SetupMessage ENG NONFATAL "Requested TTRT must be between 4 and 165 ms"
  858.         goto restart
  859.     else-ifint *($(EditTextOut),1) > 165
  860.         shell $(subroutineinf) SetupMessage ENG NONFATAL "Requested TTRT must be between 4 and 165 ms"
  861.         goto restart
  862.     endif
  863.     set RequestedTTRTIndex = *($(EditTextOut),1)
  864.     set RcvBuffCntIndex = *($(ReceiveBuffValues), ~($(ReceiveBuffList),$(Combo1Out)))
  865.     set XmtBuffCntIndex = *($(TransmitBuffValues), ~($(TransmitBuffList),$(Combo2Out)))
  866.     ifstr(i) *($(RadioOut),1) == 1
  867.         Set FullDuplexEnableIndex = 1
  868.     else
  869.         Set FullDuplexEnableIndex = 2
  870.     endif
  871.  
  872.     ;
  873.     ; Write the new values to the registry
  874.     ;
  875.  
  876.     set NewValueList = {{RcvBuffCnt,$(NoTitle),$(!REG_VT_DWORD),$(RcvBuffCntIndex)},+
  877.                 {XmtBuffCnt,$(NoTitle),$(!REG_VT_DWORD),$(XmtBuffCntIndex)},+
  878.                 {FullDuplexEnable,$(NoTitle),$(!REG_VT_DWORD),$(FullDuplexEnableIndex)},+
  879.                 {RequestedTTRT,$(NoTitle),$(!REG_VT_DWORD),$(RequestedTTRTIndex)}}
  880.  
  881.     Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  882.     CloseRegKey $(KeyParameters)
  883.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  884.         goto ShellCodeError
  885.     endif
  886.     goto end
  887.  
  888. ;------------------------------------------------------------------------
  889. ; Binding adapter not supported.
  890. ; Option, SrcDir, AddCopy, DoCopy, and DoConfig are valid.
  891. ;
  892. bindingadapter =+
  893.     set $R0 = "Binding: not implemented."
  894.     goto fatal
  895.  
  896. ;------------------------------------------------------------------------
  897. ; Remove adapter.
  898. ; Option, SrcDir, AddCopy, DoCopy, and DoConfig are valid.
  899. ;
  900. ; All references to the adapter are to be deleted from the registry.
  901. ; Does NOT delete files.
  902. ;
  903. ;       If ProductKeyName is the registry base,
  904. ;         remove the software component.
  905. ;       Otherwise, remove the hardware component.
  906. ;       
  907. ; If it is the hardware component that is being removed, the NTN_RegBase
  908. ; will be: SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\#
  909. ; where # will be the DEFEA# of the card to be removed.  If the # is 1,
  910. ; while you are off doing RemoveHardwareComponent, RemoveSoftwareComponent
  911. ; will be called before control is returned to this .INF file.
  912. ;
  913. ; In theory, RemoveSoftwareComponent should never be called by this
  914. ; .INF file because it is done automatically when #1 is removed.
  915. ;
  916. removeadapter = +
  917.     Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  918.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  919.             $(ProductSoftwareName)
  920.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  921.             goto ShellCodeError
  922.         endif
  923.         ifstr(i) $($R0) != "NO_ERROR"
  924.             set $R0 = "Error removing software component."
  925.             goto fatal
  926.         endif
  927.     else
  928.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  929.             $(ProductSoftwareName), $(!NTN_RegBase)
  930.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  931.             goto ShellCodeError
  932.         endif
  933.         ifstr(i) $($R0) != "NO_ERROR"
  934.             set $R0 = "Error removing hardware component."
  935.             goto fatal
  936.         endif
  937.     endif
  938.     goto end
  939.  
  940. ;------------------------------------------------------------------------
  941. ; Upgrade software.
  942. ; Came here straight from figuring out which platform we are on.
  943. ; Option, SrcDir, AddCopy, DoCopy, and DoConfig are valid.
  944. ;
  945. ; If product exists in registry, copy help file and drivers.
  946. ;
  947. ; If this is implemented, also have to make sure all installed cards
  948. ; are supported by this .INF file (see [Options]).  Then need to update
  949. ; hardware parameters of the options.
  950. ;
  951. UpgradeSoftware = +
  952.     ;-------------------------------------------------------------------
  953.     ; Get the NT version (3.50 or ...)
  954.     ;-------------------------------------------------------------------
  955.     OpenRegKey $(!REG_H_LOCAL) "" $(VersionKeyName) $(MAXIMUM_ALLOWED) KeyVersion
  956.     GetRegValue $(KeyVersion),"CurrentVersion",VersionStruct
  957.     CloseRegKey $(KeyVersion)
  958.     Set NTVersion = *($(VersionStruct),4)
  959.     ;-------------------------------------------------------------------
  960.     ; Determine the platform and set the correct driver/help paths.
  961.     ;-------------------------------------------------------------------
  962.     set Help_Directory = "WINNT"
  963.     Ifstr $(!STF_PLATFORM) == "Alpha"
  964.         set Source_Directory = "WINNT\ALPHA"
  965.     else-ifstr $(!STF_PLATFORM) == "Mips"
  966.         set Source_Directory = "WINNT\MIPS"
  967.     else-ifstr $(!STF_PLATFORM) == "I386"
  968.         set Source_Directory = "WINNT\INTEL"
  969.     else-ifstr $(!STF_PLATFORM) == "ppc"
  970.         set $R0 = "Windows NT PowerPC drivers are not on this distribution."
  971.         goto fatal
  972.     else
  973.         set $R0 = "This platform is not recognized and not supported by this distribution."
  974.         goto fatal
  975.     endif
  976.     ;---------------------------------------------------------------
  977.     ; Make sure product exists in the registry
  978.     ;---------------------------------------------------------------
  979.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  980.     Ifstr $(KeyProduct) != $(KeyNull)
  981.     ;---------------------------------
  982.     ; Get the name of the INF file
  983.     ;---------------------------------
  984.     Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  985.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  986.         Debug-Output "ShellCode error"
  987.         goto ShellCodeError
  988.     endif
  989.     set !UG_Filename = $($R0)
  990.     ;---------------------------------
  991.     ; Copy the files if newer
  992.     ;---------------------------------
  993.     install "Install-Update"
  994.     ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  995.         goto fatal
  996.     endif
  997.     ;-----------------------------
  998.     ; Update the Version Number
  999.     ;-----------------------------
  1000.     SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  1001.     SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  1002.     CloseRegKey $(KeyProduct)
  1003.     else
  1004.     set $R0 = "Upgrade not supported for the installed driver version."
  1005.     goto fatal
  1006.     endif
  1007.     goto end
  1008.  
  1009. ;------------------------------------------------------------------------
  1010. ; Shell Code Error.
  1011. ;
  1012. ShellCodeError = +
  1013.     set $R0 = "SHELL_CODE_ERROR"
  1014.     goto fatal
  1015.  
  1016. ;------------------------------------------------------------------------
  1017. ; Non fatal.
  1018. ;
  1019. ; Message to be displayed is in R0.
  1020. ;
  1021. nonfatal = +
  1022.     ;
  1023.     ; Set up status user cancel indicator.
  1024.     ;
  1025.     set CommonStatus = STATUS_USERCANCEL
  1026.     
  1027.     ;
  1028.     ; Print the error message, contained in $R0.
  1029.     ;
  1030.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $($R0)
  1031.     goto end
  1032.  
  1033. ;------------------------------------------------------------------------
  1034. ; Fatal.
  1035. ;
  1036. ; Message to be displayed is in R0.
  1037. ;
  1038. fatal = +
  1039.     ;
  1040.     ; Set up status failed indicator.
  1041.     ;
  1042.     set CommonStatus = STATUS_FAILED
  1043.     
  1044.     ;
  1045.     ; Print the error message, contained in $R0.
  1046.     ;
  1047.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $($R0)
  1048.     goto AbandonComponentsInRegistry
  1049.  
  1050. ;------------------------------------------------------------------------
  1051. ; AbandonComponentsInRegistry.
  1052. ;
  1053. ; No message to be displayed.
  1054. ;
  1055. AbandonComponentsInRegistry = +
  1056.     Ifint $(HARDWARE_PUT_IN_REGISTRY) == $(TRUE)
  1057.     ;
  1058.     ; Remove hardware components listed in HWList. 
  1059.     ; Since we only allow installation of one component, there will
  1060.     ; be only one component to remove.  RemoveHardwareComponent will 
  1061.     ; automatically remove the software component if this is the only
  1062.     ; hardware component, so we don't need to worry about removing
  1063.     ; the software component from here.
  1064.     ;
  1065.     Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  1066.         $(ProductSoftwareName), $(HWList)
  1067.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1068.         goto AbandonError
  1069.     endif
  1070.     ifstr(i) $($R0) != "NO_ERROR"
  1071.         goto AbandonError
  1072.     endif
  1073.     
  1074.     else-Ifstr(i) $(SOFTWARE_PUT_IN_REGISTRY) == $(TRUE)
  1075.     ;
  1076.     ; If SOFTWARE_PUT_IN_REGISTRY is true, remove software component.
  1077.     ; We only need to do this if the hardware component was not removed.
  1078.     ;
  1079.     Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  1080.         $(ProductSoftwareName), $(FALSE)
  1081.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1082.         goto AbandonError
  1083.     endif
  1084.     ifstr(i) $($R0) != "NO_ERROR"
  1085.         goto AbandonError
  1086.     endif
  1087.     endif        
  1088.     goto end
  1089.  
  1090. AbandonError = +
  1091.     set $R0 = "Couldn't remove registry components.  Registry may be corrupt."
  1092.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $($R0)
  1093.     goto end
  1094.  
  1095. ;------------------------------------------------------------------------
  1096. ; End.
  1097. ;
  1098. end = +
  1099.     Return $(CommonStatus)
  1100.  
  1101.  
  1102. ;***********************
  1103. ;* INSTALL SUBROUTINES *
  1104. ;***********************
  1105. [Install-AddList]
  1106.     set !STF_VITAL = 1
  1107.     AddSectionFilesToCopyList Files-Sys $(SrcDir)$(Source_Directory) $(!STF_WINDOWSSYSPATH)\drivers
  1108.     AddSectionFilesToCopyList Files-Hlp $(SrcDir)$(Help_Directory) $(!STF_WINDOWSSYSPATH)
  1109.     AddSectionFIlesToCopyList Files-Dll $(SrcDir)$(Source_Directory) $(!STF_WINDOWSSYSPATH)
  1110.     Exit
  1111.  
  1112. [Install-Update]
  1113.     set STF_VITAL        = ""
  1114.     set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  1115.     AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1116.     AddSectionFilesToCopyList Files-Sys $(SrcDir)$(Source_Directory) $(!STF_WINDOWSSYSPATH)\drivers
  1117.     AddSectionFilesToCopyList Files-Hlp $(SrcDir)$(Help_Directory) $(!STF_WINDOWSSYSPATH)
  1118.     AddSectionFIlesToCopyList Files-Dll $(SrcDir)$(Source_Directory) $(!STF_WINDOWSSYSPATH)
  1119.     set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1120.     CopyFilesInCopyList
  1121.     Exit
  1122.  
  1123. [Install-CopyList]
  1124.     set !STF_VITAL = 1
  1125.     set !STF_NCPA_FLUSH_COPYLIST = $(TRUE)
  1126.     CopyFilesInCopyList
  1127.     Exit
  1128.  
  1129. ;*****************************
  1130. ;* SOURCE MEDIA DESCRIPTIONS *
  1131. ;*****************************
  1132. ;
  1133. ; This section is required.  Format is as follows:
  1134. ;   LineKey = (DiskDescription, TAGFILE = TagFileName)
  1135. ;
  1136. ;   LineKey         An integer (1-999) that identifies the line for 
  1137. ;                   later use. Must be consecutive, starting with 1.
  1138. ;
  1139. ;   DiskDescription Disk name string prompting the user to insert
  1140. ;                   the disk.
  1141. ;
  1142. ;   TagFileName     Specifies the name of the file whose presence
  1143. ;                   on the disk indicates to Setup that the correct
  1144. ;                   disk has been inserted.  Whitespace must 
  1145. ;                   surround the "=".
  1146. ;
  1147. [Source Media Descriptions]
  1148.     1  = "DEC FDDIcontroller/EISA Driver", TAGFILE = DISK1
  1149.  
  1150. ;
  1151. ; Info needed for AddSectionFilesToCopyList
  1152. ;       Format: DiskID, FileName, Option
  1153. ;
  1154. ; DiskID is an integer defined in Source Media Descriptions
  1155. ; 
  1156.  
  1157. [Files-Hlp]
  1158. 1,DEFDDI.HL_, SIZE=10000, DECOMPRESS, RENAME=DEFDDI.HLP
  1159.  
  1160. [Files-Sys]
  1161. 1,DEFEA.SY_ , SIZE=25000, DECOMPRESS, RENAME=DEFEA.SYS
  1162.  
  1163. [Files-Dll]
  1164. 1,DEFEA.DL_ , SIZE=2000, DECOMPRESS, RENAME=DEFEA.DLL
  1165.  
  1166. [Files-Inf]
  1167. 1,OEMSETUP.INF, SIZE=45000, RENAME=$(!UG_Filename)
  1168.  
  1169. ;***************
  1170. ;* DEFINITIONS *
  1171. ;***************
  1172. [LanguagesSupported]
  1173.     ENG
  1174.  
  1175. [OptionsTextENG]
  1176.     DEFEA = "DEC FDDIcontroller/EISA Adapter"
  1177.  
  1178. [FileConstantsENG]
  1179. DialogDllName = "defea.dll"
  1180. ProductSoftwareDescription = "DEC FDDIcontroller/EISA Driver"
  1181.  
  1182. FunctionDEFEATitle = "DEC FDDIcontroller/EISA Card Setup"
  1183. ProductHardwareDEFEADescription = "DEC FDDIcontroller/EISA Adapter"
  1184. ReceiveBuffList = ^(ReceiveBuffChoices,1)
  1185. ReceiveBuffValues = ^(ReceiveBuffChoices,2)
  1186. TransmitBuffList = ^(TransmitBuffChoices,1)
  1187. TransmitBuffValues = ^(TransmitBuffChoices,2)
  1188.  
  1189. ;**************************
  1190. ;* DIALOG BOX INFORMATION *
  1191. ;**************************
  1192. [DialogConstantsENG]
  1193. Help        = "&Help"
  1194. Exit        = "Cancel"
  1195. OK          = "OK"
  1196. Continue    = "Continue"
  1197. Cancel      = "Cancel"
  1198.  
  1199. [FileDependentDlgENG]
  1200. DlgTemplate = "DEFEA"
  1201. DlgType = "RadioCombination"
  1202. Caption = $(Function$(Option)Title)
  1203. Combo1 = "Receive Buffers:"
  1204. Combo2 = "Transmit Buffers:"
  1205. Edit1 = "Requested TTRT(ms):"
  1206. Group = "Full Duplex Enable"
  1207. Combo1List = $(ReceiveBuffList)
  1208. Combo1Out = $(ReceiveBuffValue)
  1209. Combo2List = $(TransmitBuffList)
  1210. Combo2Out = $(TransmitBuffValue)
  1211. ComboListItemsIn = {Combo1List,Combo2List}
  1212. ComboListItemsOut = {Combo1Out,Combo2Out}
  1213. EditTextLim = {3}
  1214. EditTextIn = {$(EditText1)}
  1215. EditTextOut = {$(EditText1)}
  1216. MinHelpId = 1
  1217. MaxHelpId = 10
  1218. HelpContext = $(Help$(Option)Id)
  1219.