home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / drvlib / netcard / ppc / madge / oemsetup.inf < prev    next >
INI File  |  1995-10-27  |  74KB  |  3,040 lines
  1. ; **********************************************************************
  2. ;
  3. ; OEMSETUP.INF 
  4. ;
  5. ; Copyright (c) Madge Networks Ltd. 1994
  6. ;
  7. ; MADGE Smart Ringnode Driver installer for MdgMPort.SYS
  8. ;
  9. ; VeRsIoN=OEMSETUP.INF 3.02.01 (for use with MdgMPort.SYS 2.02.03)
  10. ; 
  11. ; **********************************************************************
  12.  
  13. ; ----------------------------------------------------------------------
  14. ; Mandatory configuration information.
  15. ; ----------------------------------------------------------------------
  16.  
  17. [Identification]
  18.     OptionType = NetAdapter
  19.  
  20. [PlatformsSupported]
  21.     MCA
  22.     ISA
  23.     EISA
  24.     PCI
  25.     "Jazz-Internal Bus"
  26.  
  27. [LanguagesSupported]
  28.     ENG
  29.  
  30. [Options]
  31.     MDGMPAUTO
  32.     MDGMPISA
  33.     MDGMPATP
  34.     MDGMPISAC
  35.     MDGMPISACP
  36.     MDGMPPC
  37.     MDGMPEISA
  38.     MDGMPMCA
  39.     MDGMPMC32
  40.     MDGMPSM16
  41.     MDGMPPNP
  42.     MDGMPPCI
  43.     MDGMPPCMCIA
  44.  
  45. ;-----------------------------------------------------------------------
  46. ; Text strings to identify adapter options.
  47. ;-----------------------------------------------------------------------
  48.  
  49. [OptionsTextENG]
  50.     MDGMPAUTO  = "Madge Automated Smart Ringnode Installation"
  51.     MDGMPISA   = "Madge Smart 16/4 AT Ringnode"
  52.     MDGMPATP   = "Madge Smart 16/4 AT Plus Ringnode"
  53.     MDGMPISAC  = "Madge Smart 16/4 ISA Client Ringnode"
  54.     MDGMPISACP = "Madge Smart 16/4 ISA Client Plus Ringnode"
  55.     MDGMPPC    = "Madge Smart 16/4 PC Ringnode"
  56.     MDGMPEISA  = "Madge Smart 16/4 EISA Ringnode"
  57.     MDGMPMCA   = "Madge Smart 16/4 MC Ringnode"
  58.     MDGMPMC32  = "Madge Smart 16/4 MC32 Ringnode"
  59.     MDGMPSM16  = "Madge Smart 16 Ringnode"
  60.     MDGMPPNP   = "Madge Smart 16/4 ISA Client PnP Ringnode"
  61.     MDGMPPCI   = "Madge Smart 16/4 PCI Ringnode"
  62.     MDGMPPCMCIA = "Madge Smart 16/4 PCMCIA Ringnode"
  63.  
  64. ;-----------------------------------------------------------------------
  65. ; Text strings to identify Madge adapters in a machine.
  66. ;-----------------------------------------------------------------------
  67.  
  68. [OptionsChoiceENG]
  69.     MDGMPISA   = "Smart 16/4 AT Ringnode / IO location "
  70.     MDGMPATP   = "Smart 16/4 AT Plus Ringnode / IO location "
  71.     MDGMPISAC  = "Smart 16/4 ISA Client Ringnode / IO location "
  72.     MDGMPISACP = "Smart 16/4 ISA Client Plus Ringnode / IO location "
  73.     MDGMPPC    = "Smart 16/4 PC Ringnode / IO location "
  74.     MDGMPEISA  = "Smart 16/4 EISA Ringnode / slot number "
  75.     MDGMPMCA   = "Smart 16/4 MC Ringnode / slot number "
  76.     MDGMPMC32  = "Smart 16/4 MC32 Ringnode / slot number "
  77.     MDGMPSM16  = "Smart 16 Ringnode / IO location "
  78.     MDGMPPNP   = "Smart 16/4 ISA Client PnP Ringnode / IO location "
  79.     MDGMPPCI   = "Smart 16/4 PCI Ringnode / PCI device ID "
  80.     MDGMPPCMCIA = "Smart 16/4 PCMCIA Ringnode / IO location "
  81.  
  82. ;-----------------------------------------------------------------------
  83. ; Adapter options that require a slot number and a transfer method.
  84. ; Others require an IO location a transfer method and an IRQ number.
  85. ;-----------------------------------------------------------------------
  86.  
  87. [SlotNumberOnlyOptions]
  88.     MDGMPEISA
  89.     MDGMPMCA
  90.     MDGMPMC32
  91.     MDGMPPCI
  92.  
  93. ;-----------------------------------------------------------------------
  94. ; Adapter options that support MMIO.
  95. ;-----------------------------------------------------------------------
  96.  
  97. [MmioOptions]
  98.     MDGMPPCI
  99.  
  100. ; ----------------------------------------------------------------------
  101. ; Miscellaneous declarations for initialsing lists.
  102. ; ----------------------------------------------------------------------
  103.  
  104. [IoLocationChoices]
  105.     "0x0300",768
  106.     "0x0a20",2592
  107.     "0x1a20",6688
  108.     "0x2a20",10784
  109.     "0x3a20",14880
  110.     "0x4a20",18976
  111.     "0x4e20",20000
  112.     "0x5a20",23072
  113.     "0x5e20",24096
  114.     "0x6a20",27168
  115.     "0x6e20",28192
  116.     "0x7a20",31264
  117.     "0x7e20",32288
  118.     "0x0140",320
  119.     "0x0920",2336
  120.     "0x0940",2368
  121.     "0x0960",2400
  122.     "0x0980",2432
  123.     "0x0a40",2624
  124.     "0x0a60",2656
  125.     "0x0a80",2688
  126.     "0x0aa0",2720
  127.     "0x0b20",2848
  128.     "0x0b40",2880
  129.     "0x0b60",2912
  130.     "0x0b80",2944
  131.     "UNKNOWN",65535
  132.  
  133. [DmaChannelChoices]
  134.     "PIO",0
  135.     "DMA Channel 01",1
  136.     "DMA Channel 02",2
  137.     "DMA Channel 03",3
  138.     "DMA Channel 04",4
  139.     "DMA Channel 05",5
  140.     "DMA Channel 06",6
  141.     "DMA Channel 07",7
  142.     "DMA Channel 08",8
  143.     "DMA Channel 09",9
  144.     "DMA Channel 10",10
  145.     "DMA Channel 11",11
  146.     "DMA Channel 12",12
  147.     "DMA Channel 13",13
  148.     "DMA Channel 14",14
  149.     "DMA Channel 15",15
  150.     "DMA",500
  151.     "MMIO",501
  152.     "UNKNOWN",65535
  153.  
  154. [IrqNumberChoices]
  155.     "01",1
  156.     "02",2
  157.     "03",3
  158.     "04",4
  159.     "05",5
  160.     "06",6
  161.     "07",7
  162.     "08",8
  163.     "09",9
  164.     "10",10
  165.     "11",11
  166.     "12",12
  167.     "13",13
  168.     "14",14
  169.     "15",15
  170.     "UNKNOWN",65535
  171.  
  172. [SlotNumberChoices]
  173.     "00",0
  174.     "01",1
  175.     "02",2
  176.     "03",3
  177.     "04",4
  178.     "05",5
  179.     "06",6
  180.     "07",7
  181.     "08",8
  182.     "09",9
  183.     "10",10
  184.     "11",11
  185.     "12",12
  186.     "13",13
  187.     "14",14
  188.     "15",15
  189.     "16",16
  190.     "17",17
  191.     "18",18
  192.     "19",19
  193.     "20",20
  194.     "21",21
  195.     "22",22
  196.     "23",23
  197.     "24",24
  198.     "25",25
  199.     "26",26
  200.     "27",27
  201.     "28",28
  202.     "29",29
  203.     "30",30
  204.     "31",31
  205.     "UNKNOWN",65535
  206.  
  207. [RxTxSlotsChoices]
  208.     "Rx=02 Tx=02",0
  209.     "Rx=03 Tx=03",1
  210.     "Rx=04 Tx=04",2
  211.     "Rx=06 Tx=06",3
  212.     "Rx=08 Tx=08",4
  213.     "Rx=10 Tx=10",5
  214.  
  215. [StatsChoices]
  216.     "Disabled",0
  217.     "Enabled",1
  218.  
  219. [MpChoices]
  220.     "One",0
  221.     "Multiple",1
  222.     "UNKNOWN",65535
  223.     
  224. ; ----------------------------------------------------------------------
  225. ; Constants specific to the driver.
  226. ; ----------------------------------------------------------------------
  227.  
  228. [FileConstants]
  229.  
  230. ;
  231. ;  File names, etc.
  232. ;
  233.  
  234. DialogDllName = "MDGMPDLG.DLL"
  235. DetectDllName = "MDGNCDET.DLL"
  236. SoftwareType  = "driver"
  237. Exit_Code     = 0
  238.  
  239. ;
  240. ; Product Information.
  241. ;
  242.  
  243. Manufacturer        = "Madge"
  244. ProductMajorVersion = "2"
  245. ProductMinorVersion = "02"
  246. ProductRevision     = ".03"
  247. ProductVersion      = $(ProductMajorVersion)"."$(ProductMinorVersion)$(ProductRevision)
  248.  
  249. ;
  250. ; Software information.
  251. ;
  252.  
  253. ProductSoftwareName     = "MdgMPort"
  254. ProductSoftwareImagePath = "%SystemRoot%\system32\drivers\"$(ProductSoftwareName)".sys"
  255.  
  256. NetRuleSoftwareType     = "mdgtrSys ndisDriver mdgtrDriver"
  257. NetRuleSoftwareUse      = $(SoftwareType)
  258. NetRuleSoftwareBindForm = """mdgtrSys"" yes no container"
  259. NetRuleSoftwareClass    = {"mdgtrDriver basic"}
  260. NetRuleSoftwareBindable = {"mdgtrDriver mdgtrAdapter non exclusive 100"}
  261.  
  262. ;
  263. ; Hardware information.
  264. ;
  265.  
  266. ProductHardwareName         = "MdgMPort"
  267. NetRuleHardwareType         = "mdgtr mdgtrAdapter"
  268. NetRuleHardwareBindForm     = " yes yes container"
  269. NetRuleHardwareClass        = {"mdgtrAdapter basic"}
  270.  
  271. ;
  272. ; Registry Key.
  273. ;
  274.  
  275. ProductKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
  276. ParamKeyName    = $(!NTN_ServiceBase)"\"$(ProductHardwareName)"\Parameters"
  277.  
  278. ;
  279. ; EventLog Message File.
  280. ;
  281.  
  282. MadgeEventLogFile = $(ProductSoftwareImagePath)
  283.  
  284. ; ---------------------------------------------------------------------
  285. ; General constants.
  286. ; ---------------------------------------------------------------------
  287.  
  288. [GeneralConstants]
  289.  
  290. ;
  291. ;  File names, etc.
  292. ;
  293.  
  294. UtilityInf    = "UTILITY.INF"
  295. SubroutineInf = "SUBROUTN.INF"
  296. ParamInf      = "NCPARAM.INF"
  297.  
  298. ;
  299. ; Program flow control variables.
  300. ;
  301.  
  302. From      = ""
  303. To        = ""
  304.  
  305. ;
  306. ; Return codes; Exit_Code is set to one of these
  307. ;
  308.  
  309. ExitCodeOk     = 0
  310. ExitCodeCancel = 1
  311. ExitCodeFatal  = 2
  312.  
  313. ;
  314. ; Miscellaneous.
  315. ;
  316.  
  317. MAXIMUM_ALLOWED    = 33554432
  318. RegistryErrorIndex = NO_ERROR
  319. KeyNull            = ""
  320. KeyProduct         = ""
  321. KeyParameters      = ""
  322.  
  323. TRUE    = 1
  324. FALSE   = 0
  325. NoTitle = 0
  326.  
  327. ExitState         = "Active"
  328. OldVersionExisted = $(FALSE)
  329.  
  330. DriverPath      = $(!STF_NTPATH)\drivers
  331.  
  332. ;
  333. ; Resource values returned by the detection DLL, so do not change them.
  334. ;
  335.  
  336. VALUE_UNKNOWN   = 65535
  337. GENERAL_PIO     = 0
  338. GENERAL_DMA     = 500
  339. GENERAL_MMIO    = 501
  340.  
  341. ;
  342. ; Lists used to the raw internal form of parameters to and from
  343. ; the form shown to users.
  344. ;
  345.  
  346. IoUserList    = ^(IoLocationChoices, 1)
  347. IoRawList     = ^(IoLocationChoices, 2)
  348.  
  349. SlotUserList  = ^(SlotNumberChoices, 1)
  350. SlotRawList   = ^(SlotNumberChoices, 2)
  351.  
  352. DmaUserList   = ^(DmaChannelChoices, 1)
  353. DmaRawList    = ^(DmaChannelChoices, 2)
  354.  
  355. IrqUserList   = ^(IrqNumberChoices, 1)
  356. IrqRawList    = ^(IrqNumberChoices, 2)
  357.  
  358. RxTxUserList  = ^(RxTxSlotsChoices,1)
  359. RxTxRawList   = ^(RxTxSlotsChoices,2)
  360.  
  361. StatsUserList = ^(StatsChoices,1)
  362. StatsRawList  = ^(StatsChoices,2)
  363.  
  364. MpUserList    = ^(MpChoices,1)
  365. MpRawList     = ^(MpChoices,2)
  366.  
  367. ;
  368. ; Adapter classification lists.
  369. ;
  370.  
  371. MadgeAdapterOptions  = ^(Options,1)
  372. SlotNumberAdapters   = ^(SlotNumberOnlyOptions,1)
  373. MmioAdapters         = ^(MmioOptions,1)
  374.  
  375.  
  376. ;
  377. ; Help identifiers.
  378. ;
  379.  
  380. MadgeHelpIdMin         = 6000
  381. MadgeHelpIdMax         = 6003
  382. MadgeHelpIdMDGMPISA    = 6001
  383. MadgeHelpIdMDGMPATP    = 6001
  384. MadgeHelpIdMDGMPISAC   = 6001
  385. MadgeHelpIdMDGMPISACP  = 6001
  386. MadgeHelpIdMDGMPPC     = 6001
  387. MadgeHelpIdMDGMPSM16   = 6001
  388. MadgeHelpIdMDGMPPNP    = 6001
  389. MadgeHelpIdMDGMPPCMCIA = 6001
  390. MadgeHelpIdMDGMPEISA   = 6002
  391. MadgeHelpIdMDGMPMCA    = 6002
  392. MadgeHelpIdMDGMPMC32   = 6002
  393. MadgeHelpIdMDGMPPCI    = 6003
  394.  
  395. ; ----------------------------------------------------------------------
  396. ; Language dependent constants specific to the driver.
  397. ; ----------------------------------------------------------------------
  398.  
  399. [FileConstantsENG]
  400.  
  401. ;
  402. ; Product Info
  403. ;
  404.  
  405. FunctionTitle   = "MdgMPort v"$(ProductVersion)": Madge Smart Ringnode Setup"
  406.  
  407. ;
  408. ; Software.
  409. ;
  410.  
  411. ProductSoftwareTitle       = "MdgMPort"
  412. ProductSoftwareDescription = "MdgMPort: Madge Smart Ringnode NDIS3 Miniport Driver"
  413.  
  414. ;
  415. ; Hardware.
  416. ;
  417.  
  418. ProductHardwareMDGMPISATitle   = "Madge Smart 16/4 AT Ringnode"
  419. ProductHardwareMDGMPATPTitle   = "Madge Smart 16/4 AT Plus Ringnode"
  420. ProductHardwareMDGMPISACTitle  = "Madge Smart 16/4 ISA Client Ringnode"
  421. ProductHardwareMDGMPISACPTitle = "Madge Smart 16/4 ISA Client Plus Ringnode"
  422. ProductHardwareMDGMPPCTitle    = "Madge Smart 16/4 PC Ringnode"
  423. ProductHardwareMDGMPEISATitle  = "Madge Smart 16/4 EISA Ringnode"
  424. ProductHardwareMDGMPMCATitle   = "Madge Smart 16/4 MC Ringnode"
  425. ProductHardwareMDGMPMC32Title  = "Madge Smart 16/4 MC32 Ringnode"
  426. ProductHardwareMDGMPSM16Title  = "Madge Smart 16 Ringnode"
  427. ProductHardwareMDGMPPNPTitle   = "Madge Smart 16/4 ISA Client PnP Ringnode"
  428. ProductHardwareMDGMPPCITitle   = "Madge Smart 16/4 PCI Ringnode"
  429. ProductHardwareMDGMPPCMCIATitle  = "Madge Smart 16/4 PCMCIA Ringnode"
  430.  
  431. ProductHardwareMDGMPISADescription   = "Madge Smart 16/4 AT Ringnode"
  432. ProductHardwareMDGMPATPDescription   = "Madge Smart 16/4 AT Plus Ringnode"
  433. ProductHardwareMDGMPISACDescription  = "Madge Smart 16/4 ISA Client Ringnode"
  434. ProductHardwareMDGMPISACPDescription = "Madge Smart 16/4 ISA Client Plus Ringnode"
  435. ProductHardwareMDGMPPCDescription    = "Madge Smart 16/4 PC Ringnode"
  436. ProductHardwareMDGMPEISADescription  = "Madge Smart 16/4 EISA Ringnode"
  437. ProductHardwareMDGMPMCADescription   = "Madge Smart 16/4 MC Ringnode"
  438. ProductHardwareMDGMPMC32Description  = "Madge Smart 16/4 MC32 Ringnode"
  439. ProductHardwareMDGMPSM16Description  = "Madge Smart 16 Ringnode"
  440. ProductHardwareMDGMPPNPDescription   = "Madge Smart 16/4 ISA Client PnP Ringnode"
  441. ProductHardwareMDGMPPCIDescription   = "Madge Smart 16/4 PCI Ringnode"
  442. ProductHardwareMDGMPPCMCIADescription   = "Madge Smart 16/4 PCMCIA Ringnode"
  443.  
  444. ;
  445. ; Ring speed selection.
  446. ;
  447.  
  448. SpeedUserListMDGMPISA    = {"Set at adapter", "Force 16 MBit/s"}
  449. SpeedRawListMDGMPISA     = {0, 2}
  450.  
  451. SpeedUserListMDGMPATP    = {"Set at adapter", "Force 4 MBit/s", "Force 16 MBit/s"}
  452. SpeedRawListMDGMPATP     = {0, 1, 2}
  453.  
  454. SpeedUserListMDGMPISAC   = {"Set at adapter", "Force 16 MBit/s"}
  455. SpeedRawListMDGMPISAC    = {0, 2}
  456.  
  457. SpeedUserListMDGMPISACP  = {"Set at adapter", "Force 4 MBit/s", "Force 16 MBit/s"}
  458. SpeedRawListMDGMPISACP   = {0, 1, 2}
  459.  
  460. SpeedUserListMDGMPPC     = {"Set at adapter", "Force 16 MBit/s"}
  461. SpeedRawListMDGMPPC      = {0, 2}
  462.  
  463. SpeedUserListMDGMPEISA   = {"Set at adapter"}
  464. SpeedRawListMDGMPEISA    = {0}
  465.  
  466. SpeedUserListMDGMPMCA    = {"Set at adapter"}
  467. SpeedRawListMDGMPMCA     = {0}
  468.  
  469. SpeedUserListMDGMPMC32   = {"Set at adapter"}
  470. SpeedRawListMDGMPMC32    = {0}
  471.  
  472. SpeedUserListMDGMPSM16   = {"Always 16 MBit/s"}
  473. SpeedRawListMDGMPSM16    = {0}
  474.  
  475. SpeedUserListMDGMPPNP    = {"Set at adapter", "Force 4 MBit/s", "Force 16 MBit/s"}
  476. SpeedRawListMDGMPPNP     = {0, 1, 2}
  477.  
  478. SpeedUserListMDGMPPCI    = {"Set at adapter", "Force 4 MBit/s", "Force 16 MBit/s"}
  479. SpeedRawListMDGMPPCI     = {0, 1, 2}
  480.  
  481. SpeedUserListMDGMPPCMCIA = {"Set at adapter", "Force 4 MBit/s", "Force 16 MBit/s"}
  482. SpeedRawListMDGMPPCMCIA  = {0, 1, 2}
  483.  
  484. ;
  485. ; Adapter types.
  486. ;
  487.  
  488. AdapterTypeFlagMDGMPISA    = 100
  489. AdapterTypeFlagMDGMPATP    = 100
  490. AdapterTypeFlagMDGMPISAC   = 100
  491. AdapterTypeFlagMDGMPISACP  = 100
  492. AdapterTypeFlagMDGMPPC     = 100
  493. AdapterTypeFlagMDGMPEISA   = 500
  494. AdapterTypeFlagMDGMPMCA    = 600
  495. AdapterTypeFlagMDGMPMC32   = 600
  496. AdapterTypeFlagMDGMPSM16   = 400
  497. AdapterTypeFlagMDGMPPNP    = 300
  498. AdapterTypeFlagMDGMPPCI    = 700
  499. AdapterTypeFlagMDGMPPCMCIA = 200
  500.  
  501. ;
  502. ; Messages.
  503. ;
  504.  
  505. CANNOT_FIND_ANY_CARD = "Cannot find a Madge Smart Ringnode in the machine. "+
  506.                "If you are certain that a Madge Smart Ringode is "+
  507.                "present then try choosing the adapter type "+
  508.                "instead of automatic installation. Please note "+
  509.                "that EISA and MCA adapters will only be found if "+
  510.                "the EISA configuration utility or PS/2 reference "+
  511.                "diskette respectively have been used to configure "+
  512.                "the adapter. Also note that automated installation "+
  513.                "will not find PCI adapters."
  514.  
  515. TRIMMED_MFS = "WARNING: The maximum frame size at 16Mbps is 17839 bytes"+
  516.           "  and you have specified a value greater than that. This"+
  517.           "  value has been reduced to 17839 for you. If you are in"+
  518.           "  fact running at 4Mbps, the maximum frame size is 4472,"+
  519.           "  but do not worry -  the driver will automatically  set"+
  520.           "  the correct value, and write it to the Event Log."
  521.  
  522. ShellCodeErrorTitle = "Error: "$(FunctionTitle)
  523. ShellCodeErrorText  = "Shell Code Error"
  524.  
  525. ProCaption   = "Windows NT Setup"
  526. ProCancel    = "Cancel"
  527. ProCancelMsg = "Windows NT Networking is not correctly installed.  "+
  528.            "Are you sure you want to cancel copying files?"
  529. ProCancelCap = "Network Setup Message"
  530. ProText1     = "Copying:"
  531. ProText2     = "To:"
  532.  
  533. ; ---------------------------------------------------------------------
  534. ; Language dependant general dialog constants.
  535. ; ---------------------------------------------------------------------
  536.  
  537. [DialogConstantsENG]
  538.  
  539. ;
  540. ; Common button names, etc.
  541. ;
  542.  
  543. Help        = "&Help"
  544. Exit        = "&Cancel"
  545. OK          = "&OK"
  546. Continue    = "C&ontinue"
  547. Cancel      = "C&ancel"
  548. HelpContext = ""
  549.  
  550. OldValueTitleInstall   = "Current hardware settings"
  551. OldValueTitleConfigure = "Currently configured settings"
  552.  
  553. ConsultHelp = "Consult help before changing the settings below"
  554.  
  555. [date]
  556.  
  557.     ; Now is a list which contains { Sec from 1-1-1970, Year, Month, Day, Hour,
  558.     ; Minute, Second }
  559.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  560.  
  561. ; -----------------------------------------------------------------------
  562. ; Language depentant input dialog constants.
  563. ; -----------------------------------------------------------------------
  564.  
  565. [FileDependentDlgENG]
  566.  
  567. DlgType     = "RadioCombination"
  568. DlgTemplate = $(Option)
  569.  
  570. Caption = $(FunctionTitle)
  571.  
  572. Combo1Label = "&IRQ Level:"
  573. Combo2Label = "I/O &Location:"
  574. Combo3Label = "&Transfer method:"
  575. Combo4Label = "Rx/Tx &Buffers:"
  576. Combo5Label = "Traffic &Statistics Gathering:"
  577. Combo6Label = "Please choose a Madge adapter to install"
  578. Combo7Label = "Number of processors in &PC:"
  579. Combo8Label = "Slot &Number:"
  580. Combo9Label = "&Ring Speed:"
  581.  
  582. PciCombo8Label = "PCI &Device ID:"
  583.  
  584. Combo1List = $(IrqList)
  585. Combo1Out  = $(IrqNumber)
  586.  
  587. Combo2List = $(IoList)
  588. Combo2Out  = $(IoLocation)
  589.  
  590. Combo3List = $(DmaList)
  591. Combo3Out  = $(DmaChannel)
  592.  
  593. Combo4List = $(RxTxUserList)
  594. Combo4Out  = $(RxTxSlots)
  595.  
  596. Combo5List = $(StatsUserList)
  597. Combo5Out  = $(StatsFlag)
  598.  
  599. Combo6List = $(AdapterDescList)
  600. Combo6Out  = $(AdapterType)
  601.  
  602. Combo7List = $(MpList)
  603. Combo7Out  = $(MpFlag)
  604.  
  605. Combo8List = $(SlotList)
  606. Combo8Out  = $(SlotNumber)
  607.  
  608. Combo9List = $(SpeedUserList)
  609. Combo9Out  = $(SpeedFlag)
  610.  
  611. ComboListItemsIn  = {Combo1List, Combo2List, Combo3List, Combo4List, Combo5List, Combo6List, Combo7List, Combo8List, Combo9List}
  612. ComboListItemsOut = {Combo1Out, Combo2Out, Combo3Out, Combo4Out, Combo5Out, Combo6Out, Combo7Out, Combo8Out, Combo9Out}
  613.  
  614. Edit1Label  = "Max&FrameSize:"
  615. Edit2Label  = "&LAA:"
  616. EditTextIn  = {$(MaxFrameSize), $(LAA)}
  617. EditTextLim = {5,17}
  618. EditTextOut = {}
  619.  
  620. CBOptionsGreyed = {}
  621. NotifyFields = {NO, NO, NO, NO, NO, NO, NO, NO}
  622.  
  623. HelpContext = $(MadgeHelpId$(Option))
  624.  
  625. AdapterTitle = #(OptionsText$(!STF_LANGUAGE),$(Option),1)
  626.  
  627. ;---------------------------------------------------------------------------
  628. ; Identify the INF file to NT.
  629. ;
  630. ; DESCRIPTION:   To verify that this INF deals with the same type of options
  631. ;                as we are choosing currently.
  632. ;
  633. ; INPUT:         None
  634. ;
  635. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL
  636. ;                $($R1): Option Type (COMPUTER ...)
  637. ;                $($R2): Diskette description
  638. ;---------------------------------------------------------------------------
  639.  
  640. [Identify]
  641.  
  642.     read-syms Identification
  643.  
  644.     set Status     = STATUS_SUCCESSFUL
  645.     set Identifier = $(OptionType)
  646.     set Media      = #("Source Media Descriptions", 1, 1)
  647.  
  648.     return $(Status) $(Identifier) $(Media)
  649.  
  650. ;------------------------------------------------------------------------
  651. ; Return the options supported by this INF file.
  652. ;
  653. ; DESCRIPTION:   To return the option list supported by this INF and the
  654. ;                localised text list representing the options.
  655. ;
  656. ;
  657. ; INPUT:         $($0):  Language used. ( ENG | FRN | ... )
  658. ;
  659. ; OUTPUT:        $($R0): STATUS: STATUS_SUCCESSFUL |
  660. ;                                STATUS_NOLANGUAGE
  661. ;                                STATUS_FAILED
  662. ;                                STATUS_NOTSUPPORTED
  663. ;
  664. ;                $($R1): Option List
  665. ;                $($R2): Option Text List
  666. ;------------------------------------------------------------------------
  667.  
  668. [ReturnOptions]
  669.  
  670.     set Status         = STATUS_FAILED
  671.     set OptionList     = {}
  672.     set OptionTextList = {}
  673.  
  674.     ;
  675.     ; Check if the language requested is supported.
  676.     ;
  677.  
  678.     set LanguageList = ^(LanguagesSupported, 1)
  679.  
  680.     ifcontains(i) $($0) in $(LanguageList)
  681.     ;
  682.     ;
  683.     ; Check if the platforms requested is supported
  684.     ;
  685.  
  686.     ifstr(i) $($1) == ""
  687.     ;
  688.         goto Return_Options
  689.     ;
  690.     endif
  691.  
  692.     set PlatformList = ^(PlatformsSupported, 1)
  693.  
  694.     ifcontains(i) $($1) in $(PlatformList)
  695.     ;
  696.         goto Return_Options
  697.     ;
  698.     else
  699.     ;
  700.         set Status = STATUS_NOTSUPPORTED
  701.  
  702.         goto Finish_ReturnOptions
  703.     ;
  704.     endif
  705.     ;
  706.     else
  707.     ;
  708.     set Status = STATUS_NOLANGUAGE
  709.  
  710.     goto Finish_ReturnOptions
  711.     ;
  712.     endif
  713.  
  714.     ;
  715.     ; form a list of all the options and another of the text representing
  716.     ;
  717.  
  718. Return_Options = +
  719.  
  720.     set OptionList     = ^(Options, 1)
  721.     set OptionTextList = ^(OptionsText$($0), 1)
  722.     set Status         = STATUS_SUCCESSFUL
  723.  
  724. Finish_ReturnOptions = +
  725.  
  726.     return $(Status) $(OptionList) $(OptionTextList)
  727.  
  728.  
  729. ;----------------------------------------------------------------------------
  730. ; Prepare an adapter detection DLL for use.
  731. ;----------------------------------------------------------------------------
  732.  
  733. [PrepareDetectionDll]
  734.  
  735.     set NewDllName = $($0)
  736.     set Status     = STATUS_FAILED
  737.  
  738.     read-syms GeneralConstants
  739.  
  740.     set DllValueName = "NetcardDlls"
  741.  
  742.     OpenRegKey $(!REG_H_LOCAL) "" "System\Setup" $(MAXIMUM_ALLOWED) KeySetup
  743.  
  744.     ifstr(i) $(KeySetup) == $(KeyNull)
  745.     ;
  746.     goto PDD_Return
  747.     ;
  748.     endif
  749.  
  750.     set DllFound = 0
  751.  
  752.     GetRegValue $(KeySetup) $(DllValueName) DllNamesValue
  753.  
  754.     ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  755.     ;
  756.     goto PDD_Return
  757.     ;
  758.     endif
  759.  
  760.     set DllNames = *($(DllNamesValue),4)
  761.  
  762.     ForListDo $(DllNames)
  763.     ;
  764.     ifstr(i) $($) == $(NewDllName)
  765.     ;
  766.         set DllFound = 1
  767.     ;
  768.     endif
  769.     ;
  770.     EndForListDo
  771.  
  772.     ifint $(DllFound) == 0
  773.     ;
  774.     set DllNames  = >($(DllNames),$(NewDllName))
  775.     set ValueInfo = {$(DllValueName), $(NoTitle), $(!REG_VT_MULTI_SZ), $(DllNames)}
  776.  
  777.     SetRegValue $(KeySetup) $(ValueInfo)
  778.  
  779.     ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  780.     ;
  781.         Set Status = STATUS_SUCCESSFUL
  782.     ;
  783.     endif
  784.     ;
  785.     else
  786.     ;
  787.     set Status = STATUS_SUCCESSFUL
  788.     ;
  789.     endif
  790.  
  791.     CloseRegKey $(KeySetup)
  792.  
  793. PDD_Return = +
  794.  
  795.     return $(Status)
  796.  
  797. ;------------------------------------------------------------------------
  798. ; InstallOption:
  799. ;
  800. ;      This section is shelled to by main installation processing
  801. ;      or by NCPASHEL.INF during reconfig, removal, update, etc.
  802. ;
  803. ;
  804. ; FUNCTION:  To copy files representing Options
  805. ;            To configure the installed option
  806. ;            To update the registry for the installed option
  807. ;
  808. ; INPUT:     $($0):  Language to use
  809. ;            $($1):  OptionID to install
  810. ;            $($2):  SourceDirectory
  811. ;            $($3):  AddCopy  (YES | NO)
  812. ;            $($4):  DoCopy   (YES | NO)
  813. ;            $($5):  DoConfig (YES | NO)
  814. ;
  815. ; OUTPUT:    $($R0): STATUS: STATUS_SUCCESSFUL |
  816. ;                            STATUS_NOLANGUAGE |
  817. ;                            STATUS_USERCANCEL |
  818. ;                            STATUS_FAILED
  819. ;------------------------------------------------------------------------
  820.  
  821. [InstallOption]
  822.  
  823.     StartWait
  824.     
  825.     ;
  826.     ; Un-comment for debugging.
  827.     ;
  828.  
  829.     ; set !DebugOutputControl = 1
  830.  
  831.     ;
  832.     ; Set default values.
  833.     ;
  834.  
  835.     set Status = STATUS_FAILED
  836.  
  837.     ;
  838.     ; extract parameters
  839.     ;
  840.  
  841.     set Option   = $($1)
  842.     set SrcDir   = $($2)
  843.     set AddCopy  = $($3)
  844.     set DoCopy   = $($4)
  845.     set DoConfig = $($5)
  846.  
  847.     Debug-Output "MADGE: STF_CWDIR    = "$(!STF_CWDIR)
  848.     Debug-Output "MADGE: STF_LANGUAGE = "$(!STF_LANGUAGE)
  849.     Debug-Output "MADGE: Option       = "$(Option)
  850.     Debug-Output "MADGE: SrcDir       = "$(SrcDir)
  851.     Debug-Output "MADGE: AddCopy      = "$(AddCopy)
  852.     Debug-Output "MADGE: DoCopy       = "$(DoCopy)
  853.     Debug-Output "MADGE: DoConfig     = "$(DoConfig)
  854.  
  855.     ;
  856.     ; Check if the language requested is supported
  857.     ;
  858.  
  859.     set LanguageList = ^(LanguagesSupported, 1)
  860.     
  861.     ifcontains(i) $($0) NOT-IN $(LanguageList)
  862.     ;
  863.     return STATUS_NOLANGUAGE
  864.     ;
  865.     endif
  866.  
  867.     ;
  868.     ; Define all the constants
  869.     ;
  870.  
  871.     set-subst LF = "\n"
  872.  
  873.     read-syms GeneralConstants
  874.     read-syms FileConstants
  875.     read-syms DialogConstants$(!STF_LANGUAGE)
  876.  
  877.     ifstr(i) $(!NTN_Origination) == "NCPA"
  878.     ;
  879.     set Continue = $(OK)
  880.     ;
  881.     endif
  882.  
  883.     read-syms FileConstants$(!STF_LANGUAGE)
  884.  
  885.     SetHelpFile "mdgmpdlg.hlp" $(MadgeHelpIdMin) $(MadgeHelpIdMax)
  886.  
  887.     detect date
  888.  
  889.     set-title $(FunctionTitle)
  890.  
  891.     set To   = Begin
  892.     set From = Begin
  893.  
  894.     ;
  895.     ; Assume all is well.
  896.     ;
  897.  
  898.     set CommonStatus = STATUS_SUCCESSFUL
  899.  
  900.     EndWait
  901.  
  902. ; -----------------------------------------------------------------------
  903. ; Set up the operation-mode-based variables and gaily welcome
  904. ; the user.  If the "install mode" variable is improperly set,
  905. ; assume this is a new installation.
  906. ; -----------------------------------------------------------------------
  907.  
  908. Begin = +
  909.  
  910.     ;
  911.     ; Until proven otherwise we assume that the adapter has not been
  912.     ; detected by our NetDetect DLL and we have not done any raw->user
  913.     ; mapping of parameter lists.
  914.     ;
  915.  
  916.     set AdapterDetected     = FALSE
  917.     set MappedRawParameters = FALSE
  918.  
  919.     ifstr(i) $(!NTN_InstallMode) == deinstall
  920.     ;
  921.     set StartLabel = Remove_Adapter
  922.     ;
  923.     else-ifstr(i) $(!NTN_InstallMode) == Update
  924.     ;
  925.     set StartLabel = Upgrade_Software
  926.     ;
  927.     else-ifstr(i) $(!NTN_InstallMode) == bind
  928.     ;
  929.     set StartLabel = Binding_Adapter
  930.     ;
  931.     else-ifstr(i) $(!NTN_InstallMode) == configure
  932.     ;
  933.     set CommonStatus = STATUS_REBOOT
  934.     set StartLabel = Configure_Adapter
  935.  
  936.     ;
  937.     ;   You cannot config the software component
  938.     ;
  939.  
  940.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  941.     ;
  942.         Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  943.  
  944.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  945.         ;
  946.         goto Shell_Code_Error
  947.         ;
  948.         endif
  949.  
  950.         set Error = $($R0)
  951.         set From  = End
  952.         set To    = End
  953.         goto Non_Fatal_Info
  954.     ;
  955.     endif
  956.     ;
  957.     else
  958.     ;
  959.     set StartLabel           = Install_Adapter
  960.     set OEM_ABANDON_OPTIONS  = {}
  961.     set OEM_ABANDON_SOFTWARE = FALSE
  962.     set OEM_ABANDON_ON       = TRUE
  963.     ;
  964.     endif
  965.  
  966.     set From = Fatal
  967.     set To   = Fatal
  968.  
  969.     goto $(StartLabel)
  970.  
  971.  
  972. ; ----------------------------------------------------------------------
  973. ; Installation Section
  974. ; ----------------------------------------------------------------------
  975.  
  976. Install_Adapter = +
  977.  
  978.     ;
  979.     ; First, check whether the same version of the software exists
  980.     ;
  981.  
  982.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  983.  
  984.     Ifstr $(KeyProduct) != $(KeyNull)
  985.     ;
  986.     ;
  987.     ; Same version already existed in the local machine
  988.     ; Popup the dialog and ask the user whether he wants to continue
  989.     ;
  990.     CloseRegKey $(KeyProduct)
  991.  
  992.     ifstr(i) $(!NTN_RegBase) == $(ProductKeyName)
  993.     ;
  994.        ;
  995.        ; Cannot Install the same software again
  996.        ;
  997.  
  998.        Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
  999.            $(ProductVersion)
  1000.  
  1001.        ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1002.        ;
  1003.            goto Shell_Code_Error
  1004.        ;
  1005.        endif
  1006.  
  1007.        goto End
  1008.     ;
  1009.     else
  1010.     ;
  1011.        ;
  1012.        ; Make sure the user really wants to add a new adapter.
  1013.        ; Don't bother for automatic installation.
  1014.        ;
  1015.  
  1016.        ifstr(i) $(Option) != "MDGMPAUTO"
  1017.        ;
  1018.            ;
  1019.            ; Add a new adapter card?
  1020.            ;
  1021.  
  1022.            Shell $(UtilityInf), CardExistedDlg
  1023.  
  1024.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1025.            ;
  1026.            goto Shell_Code_Error
  1027.            ;
  1028.            endif
  1029.  
  1030.            ifstr(i) $($R1) != "OK"
  1031.            ;
  1032.            goto End
  1033.            ;
  1034.            endif
  1035.        ;
  1036.        endif
  1037.  
  1038.        set OldVersionExisted = $(TRUE)
  1039.     ;
  1040.     endif
  1041.     ;
  1042.     endif
  1043.  
  1044. ; -----------------------------------------------------------------------
  1045. ; Copy the driver and helper files from the distribution disk.
  1046. ; -----------------------------------------------------------------------
  1047.  
  1048. Install_Files = +
  1049.  
  1050.     ifint $(OldVersionExisted) == $(FALSE)
  1051.     ;
  1052.     ifstr(i) $(!NTN_InstallMode) == "install"
  1053.     ;
  1054.         ;
  1055.         ; NB !STF_SRCDIR is set to something unhelpful like E:\i386\, 
  1056.         ; but if we omit the last parameter, DoAskSource will default 
  1057.         ; to using A:\
  1058.         ;
  1059.         ; Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(!STF_SRCDIR)
  1060.         ;
  1061.  
  1062.         Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR)
  1063.  
  1064.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1065.         ;
  1066.         goto Shell_Code_Error
  1067.         ;
  1068.         else-ifstr(i) $($R0) == STATUS_FAILED
  1069.         ;
  1070.         shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  1071.  
  1072.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1073.         ;
  1074.             goto Shell_Code_Error
  1075.         ;
  1076.         endif
  1077.  
  1078.         set Error = $($R0)
  1079.         goto Fatal
  1080.  
  1081.         else-ifstr(i) $($R0) == STATUS_USERCANCEL
  1082.         ;
  1083.         goto Successful
  1084.         ;
  1085.         endif
  1086.  
  1087.         set SrcDir = $($R1)   ; Referenced in install sections.
  1088.  
  1089.         ;
  1090.         ; Install the detection DLL.
  1091.         ;
  1092.  
  1093.         Shell "" PrepareDetectionDll $(DetectDllName)
  1094.  
  1095.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  1096.         ;
  1097.         goto Fatal
  1098.         ;
  1099.         endif
  1100.  
  1101.         install "Install-Option"
  1102.  
  1103.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1104.         ;
  1105.         shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  1106.  
  1107.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1108.         ;
  1109.             goto Shell_Code_Error
  1110.         ;
  1111.         endif
  1112.  
  1113.         set Error = $($R0)
  1114.         goto Fatal
  1115.         ;
  1116.         endif
  1117.     ;
  1118.     endif
  1119.     ;
  1120.     endif
  1121.  
  1122. ; -----------------------------------------------------------------------
  1123. ; If the adapter option is MDGMPAUTO then we need to perform some adapter
  1124. ; detection. In addition, we may not have been asked to detect the 
  1125. ; adapter but NCPA may have already done it for use. If it has then set 
  1126. ; up the detection variables from the values passed by NCPA.
  1127. ; -----------------------------------------------------------------------
  1128.  
  1129.     ifstr(i) $(!STF_NCDETECT) == YES
  1130.     ;
  1131.     ifstr(i) $(!STF_NCOPTION) == $(Option)
  1132.     ;
  1133.         set AdapterDetected = TRUE
  1134.         set DetectOption    = $(!STF_NCOPTION)
  1135.         set DetectIndex     = $(!STF_NCDETCARD)
  1136.  
  1137.         goto Set_Installation_Defaults
  1138.     ;
  1139.     endif
  1140.     ;
  1141.     endif
  1142.  
  1143.     ;
  1144.     ; If NCPA has not already detected an adapter then we must
  1145.     ; initialize the detection DLL. We mustn't re-initalise it
  1146.     ; if NCPA has detected an adapter else we will trash the
  1147.     ; adapter information found by NCPA.
  1148.     ;
  1149.  
  1150.     Shell $(ParamInf) Param_ControlDetection DTEND
  1151.     Shell $(ParamInf) Param_ControlDetection DTSTART
  1152.  
  1153.     ifstr(i) $(Option) != "MDGMPAUTO"
  1154.     ;
  1155.     goto Set_Installation_Defaults
  1156.     ;
  1157.     endif
  1158.  
  1159. ; -----------------------------------------------------------------------
  1160. ; We have been asked to search for adapters. We will call our NetDetec
  1161. ; DLL via helper functions to build a list of Madge adapters present in
  1162. ; the machine that have not yet been installed.
  1163. ; -----------------------------------------------------------------------
  1164.  
  1165. Detect_Adapters = +
  1166.  
  1167.     StartWait
  1168.  
  1169.     ;
  1170.     ; Initialise the adapter description and detection index lists.
  1171.     ;
  1172.  
  1173.     set AdapterOptionList = {}
  1174.     set AdapterDescList   = {}
  1175.     set AdapterIndexList  = {}
  1176.  
  1177. DA_Loop = +
  1178.  
  1179.     ;
  1180.     ; Call the detection DLL via a helper function to find the
  1181.     ; next adapter.
  1182.     ;
  1183.  
  1184.     Shell $(ParamInf) Param_DetectCard
  1185.  
  1186.     set DetectResult = $($R0)
  1187.     set Status       = *($(DetectResult),1)
  1188.  
  1189.     ifstr(i) $(Status) != 0
  1190.     ;
  1191.     goto DA_Loop_End
  1192.     ;
  1193.     endif
  1194.  
  1195.     set DetectOption = *($(DetectResult),2)
  1196.     set DetectIndex  = *($(DetectResult),3)
  1197.  
  1198.     ;
  1199.     ; If the adapter is not a Madge adapter then start the
  1200.     ; loop again to skip the adapter.
  1201.     ;
  1202.  
  1203.     ifcontains(i) $(DetectOption) not-in $(MadgeAdapterOptions)
  1204.     ;
  1205.     goto DA_Loop
  1206.     ;
  1207.     endif
  1208.  
  1209.     ;
  1210.     ; Now find out the slot number or IO location to show to the
  1211.     ; user.
  1212.     ;
  1213.  
  1214.     ifcontains(i) $(DetectOption) in $(SlotNumberAdapters)
  1215.     ;
  1216.     set TypeList = {{SLOTNUMBER,SlotList,SlotNumber},+
  1217.             {DMACHANNEL,DmaList,DmaChannel},+
  1218.             {MULTIPROCESSOR,MpList,MpFlag}}
  1219.     ;
  1220.     else
  1221.     ;
  1222.     set TypeList = {{IOLOCATION,IoList,IoLocation},+
  1223.             {DMACHANNEL,DmaList,DmaChannel},+
  1224.             {INTERRUPTNUMBER,IrqList,IrqNumber},+
  1225.             {MULTIPROCESSOR,MpList,MpFlag}}
  1226.     ;
  1227.     endif
  1228.  
  1229.     Shell $(ParamInf) Param_BuildTypeLists $(DetectOption) $(TypeList)
  1230.  
  1231.     set Status = $($R0)
  1232.  
  1233.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1234.     ;
  1235.     goto Fatal
  1236.     ;
  1237.     endif
  1238.  
  1239.     Shell $(ParamInf) Param_QueryCard $(DetectIndex)
  1240.  
  1241.     set Status    = $($R0)
  1242.     set ParamList = $($R1)
  1243.  
  1244.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1245.     ;
  1246.     goto Fatal
  1247.     ;
  1248.     endif
  1249.  
  1250.     Shell $(ParamInf) Param_SetDefaults $(ParamList)
  1251.  
  1252.     ;
  1253.     ; Build a list of adapters to show to the user.
  1254.     ;
  1255.  
  1256.     set AdapterOptionList = >($(AdapterOptionList),$(DetectOption))
  1257.     set AdapterIndexList  = >($(AdapterIndexList),$(DetectIndex))
  1258.     set AdapterDesc       = #(OptionsChoice$(!STF_LANGUAGE),$(DetectOption),1)
  1259.  
  1260.     ifcontains(i) $(DetectOption) in $(SlotNumberAdapters)
  1261.     ;
  1262.     set AdapterDesc     = $(AdapterDesc)$(SlotNumber)
  1263.     set AdapterDescList = >($(AdapterDescList),$(AdapterDesc))
  1264.     ;
  1265.     else
  1266.     ;
  1267.     set IoLocation      = *($(IoUserList),~($(IoRawList),$(IoLocation)))
  1268.     set AdapterDesc     = $(AdapterDesc)$(IoLocation)
  1269.     set AdapterDescList = >($(AdapterDescList),$(AdapterDesc))
  1270.     ;
  1271.     endif
  1272.  
  1273.     ;
  1274.     ; And look for another adapter.
  1275.     ;
  1276.  
  1277.     goto DA_Loop
  1278.  
  1279. DA_Loop_End = +
  1280.  
  1281.     EndWait
  1282.  
  1283.     Debug-Output "MADGE: AdapterOptionList  = "$(AdapterOptionList)
  1284.     Debug-Output "MADGE: AdapterDescList    = "$(AdapterDescList)
  1285.     Debug-Output "MADGE: AdapterIndexList   = "$(AdapterIndexList)
  1286.  
  1287.     ;
  1288.     ; Give up if we can't find any adapters.
  1289.     ;
  1290.  
  1291.     ifstr(i) $(AdapterOptionList) == {}
  1292.     ;
  1293.     set Error = $(CANNOT_FIND_ANY_CARD)
  1294.     goto Fatal
  1295.     ;
  1296.     endif
  1297.  
  1298. ;------------------------------------------------------------------------
  1299. ; We now have a list of adapter descriptions and detection indexes. 
  1300. ; Pop up a dialog box from which the user can choose which adapter
  1301. ; to install.
  1302. ;------------------------------------------------------------------------
  1303.  
  1304. Choose_Adapter = +
  1305.  
  1306.     StartWait
  1307.  
  1308.     ;
  1309.     ; Set the default choice.
  1310.     ;
  1311.  
  1312.     set AdapterType = *(AdapterDescList,1)
  1313.  
  1314.     read-syms FileDependentDlg$(!STF_LANGUAGE)
  1315.  
  1316.     set DlgTemplate = "MDGADAPTERS"
  1317.  
  1318.     ;
  1319.     ; Load the DLL.
  1320.     ;
  1321.  
  1322.     LoadLibrary "x" $(DialogDllName) MdgDialog
  1323.  
  1324.     ;
  1325.     ; Display the dialog box.
  1326.     ;
  1327.  
  1328.     EndWait
  1329.  
  1330.     ui start "InputDlg" $(MdgDialog)
  1331.  
  1332.     StartWait
  1333.  
  1334.     ifstr(i) $(DLGEVENT) == "EXIT"
  1335.     ;
  1336.     set CommonStatus = STATUS_USERCANCEL
  1337.     ui pop 1
  1338.     FreeLibrary $(MdgDialog)
  1339.     goto End
  1340.     ;
  1341.     else-ifstr(i) $(DLGEVENT) != "CONTINUE"
  1342.     ;
  1343.     ui pop 1
  1344.     FreeLibrary $(MdgDialog)
  1345.     goto End
  1346.     ;
  1347.     endif
  1348.  
  1349.     set AdapterType = $(Combo6Out)
  1350.  
  1351.     ui pop 1
  1352.     FreeLibrary $(MdgDialog)
  1353.  
  1354.     ;
  1355.     ; AdapterType now contains the description of the adapter
  1356.     ; the user wants to install. Find the option and detection index 
  1357.     ; value this corresponds to.
  1358.     ;
  1359.  
  1360.     Debug-Output "MADGE: AdapterType  = "$(AdapterType)
  1361.  
  1362.     set DetectOption = *($(AdapterOptionList),~($(AdapterDescList),$(AdapterType)))
  1363.     set DetectIndex  = *($(AdapterIndexList),~($(AdapterDescList),$(AdapterType)))
  1364.  
  1365.     Debug-Output "MADGE: DetectOption = "$(DetectOption)
  1366.     Debug-Output "MADGE: DetectIndex  = "$(DetectIndex)
  1367.  
  1368.     ;
  1369.     ; Set the flag to say that the adapter was detected and change the
  1370.     ; Option to the detected type.
  1371.     ;
  1372.  
  1373.     set AdapterDetected = TRUE
  1374.     set Option          = $(DetectOption)
  1375.  
  1376.     EndWait
  1377.  
  1378. ; -----------------------------------------------------------------------
  1379. ; Set some defaults that apply to all card types
  1380. ; -----------------------------------------------------------------------
  1381.  
  1382. Set_Installation_Defaults = +
  1383.  
  1384.     StartWait
  1385.  
  1386.     ; 
  1387.     ; Set up some defaults that are not affected by automatic detection.
  1388.     ;
  1389.  
  1390.     set MaxFrameSize  = 4096
  1391.     set LAA           = ""
  1392.     set RxTxSlots     = *($(RxTxRawList),3)
  1393.     set StatsFlag     = *($(StatsRawList),1)
  1394.     set SpeedFlag     = 0
  1395.  
  1396.     set OldIrqNumber  = $(VALUE_UNKNOWN)
  1397.     set OldDmaChannel = $(VALUE_UNKNOWN)
  1398.     set OldIoLocation = $(VALUE_UNKNOWN)
  1399.     set OldSlotNumber = $(VALUE_UNKNOWN)
  1400.     set OldMpFlag     = $(VALUE_UNKNOWN)
  1401.  
  1402.     ;
  1403.     ; Now set up the options for adapter options.
  1404.     ;
  1405.  
  1406.     ifcontains(i) $(Option) in $(SlotNumberAdapters)
  1407.     ;
  1408.     set TypeList = {{SLOTNUMBER,SlotList,SlotNumber},+
  1409.             {DMACHANNEL,DmaList,DmaChannel},+
  1410.             {MULTIPROCESSOR,MpList,MpFlag}}
  1411.     ;
  1412.     else
  1413.     ;
  1414.     set TypeList = {{IOLOCATION,IoList,IoLocation},+
  1415.             {DMACHANNEL,DmaList,DmaChannel},+
  1416.             {INTERRUPTNUMBER,IrqList,IrqNumber},+
  1417.             {MULTIPROCESSOR,MpList,MpFlag}}
  1418.     ;
  1419.     endif
  1420.  
  1421.     Shell $(ParamInf) Param_BuildTypeLists $(Option) $(TypeList)
  1422.  
  1423.     set Status = $($R0)
  1424.  
  1425.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1426.     ;
  1427.     goto Fatal
  1428.     ;
  1429.     endif
  1430.  
  1431.     ;
  1432.     ; If the adapter was automatically detected then call the
  1433.     ; DLL to find out what the parameters are.
  1434.     ;
  1435.  
  1436.     ifstr(i) $(AdapterDetected) == TRUE
  1437.     ;
  1438.     Shell $(ParamInf) Param_QueryCard $(DetectIndex)
  1439.  
  1440.     set Status    = $($R0)
  1441.     set ParamList = $($R1)
  1442.  
  1443.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1444.     ;
  1445.         goto Fatal
  1446.     ;
  1447.     endif
  1448.     ;
  1449.     endif
  1450.  
  1451.     ;
  1452.     ; And set the defaults. This will be the automatically detected
  1453.     ; value if the adapter was detected or the first allowable choice
  1454.     ; otherwise. 
  1455.     ;
  1456.  
  1457.     Shell $(ParamInf) Param_SetDefaults $(ParamList)
  1458.  
  1459.     Debug-Output "MADGE: SlotNumber = "$(SlotNumber)
  1460.     Debug-Output "MADGE: IoLocation = "$(IoLocation)
  1461.     Debug-Output "MADGE: IrqNumber  = "$(IrqNumber)
  1462.     Debug-Output "MADGE: DmaChannel = "$(DmaChannel)
  1463.     Debug-Output "MADGE: MpFlag     = "$(MpFlag)
  1464.     Debug-Output "MADGE: SlotList   = "$(SlotList)
  1465.     Debug-Output "MADGE: IoList     = "$(IoList)
  1466.     Debug-Output "MADGE: IrqList    = "$(IrqList)
  1467.     Debug-Output "MADGE: DmaList    = "$(DmaList)
  1468.     Debug-Output "MADGE: MpList     = "$(MpList)
  1469.  
  1470.     ;
  1471.     ; Note what the hardware detectable values are for later.
  1472.     ;
  1473.  
  1474.     ifstr(i) $(AdapterDetected) == TRUE
  1475.     ;
  1476.     set OldSlotNumber = $(SlotNumber)
  1477.     set OldIoLocation = $(IoLocation)
  1478.     set OldIrqNumber  = $(IrqNumber)
  1479.     set OldDmaChannel = $(DmaChannel)
  1480.     set OldMpFlag     = $(MpFlag)
  1481.     ;
  1482.     endif
  1483.  
  1484.     set OldValueTitle = $(OldValueTitleInstall)
  1485.  
  1486.     EndWait
  1487.  
  1488.     goto Get_Adapter_Options
  1489.  
  1490. ; -----------------------------------------------------------------------
  1491. ; Configuration Section
  1492. ; -----------------------------------------------------------------------
  1493.  
  1494. Configure_Adapter = +
  1495.  
  1496.     StartWait
  1497.  
  1498.     ;
  1499.     ; Initialise the detection DLL.
  1500.     ;
  1501.  
  1502.     Shell $(ParamInf) Param_ControlDetection DTEND
  1503.     Shell $(ParamInf) Param_ControlDetection DTSTART
  1504.  
  1505.     ;
  1506.     ; Now set up the options for adapter options.
  1507.     ;
  1508.  
  1509.     ifcontains(i) $(Option) in $(SlotNumberAdapters)
  1510.     ;
  1511.     set TypeList = {{SLOTNUMBER,SlotList,SlotNumber},+
  1512.             {DMACHANNEL,DmaList,DmaChannel},+
  1513.             {MULTIPROCESSOR,MpList,MpFlag}}
  1514.     ;
  1515.     else
  1516.     ;
  1517.     set TypeList = {{IOLOCATION,IoList,IoLocation},+
  1518.             {DMACHANNEL,DmaList,DmaChannel},+
  1519.             {INTERRUPTNUMBER,IrqList,IrqNumber},+
  1520.             {MULTIPROCESSOR,MpList,MpFlag}}
  1521.     ;
  1522.     endif
  1523.  
  1524.     Shell $(ParamInf) Param_BuildTypeLists $(Option) $(TypeList)
  1525.  
  1526.     set Status = $($R0)
  1527.  
  1528.     ifstr(i) $(Status) != STATUS_SUCCESSFUL
  1529.     ;
  1530.     goto Fatal
  1531.     ;
  1532.     endif
  1533.  
  1534.     ;
  1535.     ; And set the defaults. 
  1536.     ;
  1537.  
  1538.     Shell $(ParamInf) Param_SetDefaults $(ParamList)
  1539.  
  1540.     ;
  1541.     ; Set up the defaults not done by the help interface the
  1542.     ; detection DLL above.
  1543.     ;
  1544.  
  1545.     set MaxFrameSize = 4096
  1546.     set LAA          = ""
  1547.     set RxTxSlots    = *($(RxTxRawList),3)
  1548.     set StatsFlag    = *($(StatsRawList),1)
  1549.     set NoMmioFlag   = 0
  1550.     set SpeedFlag    = 0
  1551.  
  1552.     ;
  1553.     ; NB !NTN_RegBase, for hardware components, is :
  1554.     ;    \SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\0x
  1555.     ;
  1556.  
  1557.     ;
  1558.     ; This next IF is redundant - it will always be NULL
  1559.     ;
  1560.  
  1561.     ifstr $(KeyProduct) == $(KeyNull)
  1562.     ;
  1563.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
  1564.  
  1565.     ifstr $(KeyProduct) == $(KeyNull)
  1566.     ;
  1567.         set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
  1568.         goto Fatal_Registry
  1569.     ;
  1570.     endif
  1571.     ;
  1572.     endif
  1573.  
  1574.     ;
  1575.     ; Get the other parameters; they're attached to the service 
  1576.     ; parameters key
  1577.     ;
  1578.  
  1579.     Shell $(UtilityInf) FindService, $(KeyProduct)
  1580.  
  1581.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1582.     ;
  1583.     goto Shell_Code_Error
  1584.     ;
  1585.     endif
  1586.  
  1587.     ifstr(i) $($R0) != NO_ERROR
  1588.     ;
  1589.     goto Fatal_Registry
  1590.     ;
  1591.     endif
  1592.  
  1593.     set KeyParameters = $($R2)
  1594.  
  1595.     ;
  1596.     ; We don't need the services key, so close it.
  1597.     ;
  1598.  
  1599.     CloseRegKey $($R1)
  1600.  
  1601.     ifstr $(KeyParameters) == $(KeyNull)
  1602.     ;
  1603.     set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
  1604.     goto Fatal_Registry
  1605.     ;
  1606.     endif
  1607.  
  1608.     set OldVersionExisted = $(TRUE)
  1609.  
  1610.     ;
  1611.     ; Get the old values
  1612.     ;
  1613.  
  1614.     set ValueName = ""
  1615.     set ValueData = ""
  1616.     set ValueStr  = ""
  1617.     set ValueList = {}
  1618.  
  1619.     EnumRegValue $(KeyParameters) ValueList
  1620.  
  1621.     ForListDo $(ValueList)
  1622.     ;
  1623.     set ValueItem = $($)
  1624.     set ValueName = *($(ValueItem),1)
  1625.     set ValueData = *($(ValueItem),4)
  1626.  
  1627.     ifstr(i) $(ValueName) == "InterruptNumber"
  1628.     ;
  1629.         set IrqNumber = $(ValueData)
  1630.     ;
  1631.     else-ifstr(i) $(ValueName) == "IoLocation"
  1632.     ;
  1633.         set IoLocation = $(ValueData)
  1634.     ;
  1635.     else-ifstr(i) $(ValueName) == "IoBaseAddress"
  1636.     ;
  1637.         set IoLocation = $(ValueData)
  1638.     ;
  1639.     else-ifstr(i) $(ValueName) == "DmaChannel"
  1640.     ;
  1641.         set DmaChannel = $(ValueData)
  1642.     ;
  1643.     else-ifstr(i) $(ValueName) == "SlotNumber"
  1644.     ;
  1645.         set SlotNumber = $(ValueData)
  1646.     ;
  1647.     else-ifstr(i) $(ValueName) == $(McaEisaKeyword)
  1648.     ;
  1649.         set McaEisaId = $(ValueData)
  1650.     ;
  1651.     else-ifstr(i) $(ValueName) == "MaxFrameSize"
  1652.     ;
  1653.         set MaxFrameSize = $(ValueData)
  1654.     ;
  1655.     else-ifstr(i) $(ValueName) == "NetworkAddress"
  1656.     ;
  1657.         set LAA = $(ValueData)
  1658.     ;
  1659.     else-ifstr(i) $(ValueName) == "RxTxSlots"
  1660.     ;
  1661.         set RxTxSlots = $(ValueData)
  1662.     ;
  1663.     else-ifstr(i) $(ValueName) == "PromiscuousModeX"
  1664.     ;
  1665.         set StatsFlag = $(ValueData)
  1666.     ;
  1667.     else-ifstr(i) $(ValueName) == "Multiprocessor"
  1668.     ;
  1669.         set MpFlag = $(ValueData)
  1670.     ;
  1671.     else-ifstr(i) $(ValueName) == "NoMmio"
  1672.     ;
  1673.         set NoMmioFlag = $(ValueData)
  1674.     ;
  1675.     else-ifstr(i) $(ValueName) == "Force16"
  1676.     ;
  1677.         set SpeedFlag = 2
  1678.     ;
  1679.     else-ifstr(i) $(ValueName) == "Force4"
  1680.     ;
  1681.         set SpeedFlag = 1
  1682.     ;
  1683.     endif
  1684.  
  1685.     ;
  1686.     EndForListDo
  1687.  
  1688.     ;
  1689.     ; For backward compatibility we translate a DMA channel of 0x8000
  1690.     ; into a DMA channel of $(GENERAL_PIO) and a multiprocessor flag of 1.
  1691.     ; 
  1692.  
  1693.     ifint $(DmaChannel) == 32768
  1694.     ;
  1695.     set DmaChannel = $(GENERAL_PIO)
  1696.     set MpFlag     = 1
  1697.     ;
  1698.     endif
  1699.  
  1700.     ;
  1701.     ; We now need to merge the DmaChannel and NoMmioFlag to produce a
  1702.     ; DmaChannel that completely specifies the transfer mode. When
  1703.     ; we called the detection DLL to get the defaults DmaChannel will
  1704.     ; have been set up properly, including setting unspecific DMA for
  1705.     ; EISA and MC. If we have an MMIO supporting adapter the rule is
  1706.     ; as follows. 
  1707.     ;
  1708.     ; If the NoMmio flag is set then we must not use MMIO, so:
  1709.     ;
  1710.     ;     If DmaChannel is NOT set to $(GENERAL_MMIO) then we leave it
  1711.     ;     as it is. If DmaChannel is set to $(GENERAL_MMIO) then we
  1712.     ;     change it to $(GENERAL_PIO). This rule assumes that the 
  1713.     ;     detection routine will return a none $(GENERAL_MMIO) value
  1714.     ;     as the default OR the adapter supports PIO.
  1715.     ;
  1716.     ; If the NoMmio flag is not set then we may use MMIO, so:
  1717.     ;     
  1718.     ;     We set DmaChannel to $(GENERAL_MMIO).
  1719.     ;     
  1720.  
  1721.     ifcontains(i) $(Option) in $(MmioAdapters)
  1722.     ;
  1723.     ifint $(NoMmioFlag) == 0
  1724.     ;
  1725.         set DmaChannel = $(GENERAL_MMIO)
  1726.     ;
  1727.     else
  1728.     ;
  1729.         ifstr(i) $(DmaChannel) == $(GENERAL_MMIO)
  1730.         ;
  1731.         set DmaChannel = $(GENERAL_PIO)
  1732.         ;
  1733.         endif
  1734.     ;
  1735.     endif
  1736.     ;
  1737.     endif
  1738.  
  1739.     ;
  1740.     ; Make a note of the current values.
  1741.     ;
  1742.  
  1743.     set OldSlotNumber = $(SlotNumber)
  1744.     set OldIoLocation = $(IoLocation)
  1745.     set OldIrqNumber  = $(IrqNumber)
  1746.     set OldDmaChannel = $(DmaChannel)
  1747.     set OldMpFlag     = $(MpFlag)
  1748.     
  1749.     set OldValueTitle = $(OldValueTitleConfigure)
  1750.  
  1751.     EndWait
  1752.  
  1753. ; -----------------------------------------------------------------------
  1754. ; Let the user set options.
  1755. ; -----------------------------------------------------------------------
  1756.  
  1757. Get_Adapter_Options = +
  1758.  
  1759.     StartWait
  1760.  
  1761.     ;
  1762.     ; Need to be able to tell if the LAA or statistics gathering
  1763.     ; flag have changed.
  1764.     ;
  1765.  
  1766.     set OldLAA       = $(LAA)
  1767.     set OldStatsFlag = $(StatsFlag)
  1768.     set OldSpeedFlag = $(SpeedFlag)
  1769.  
  1770.     ;
  1771.     ; Set up the list of adapter ring speeds.
  1772.     ;
  1773.  
  1774.     set SpeedRawList  = $(SpeedRawList$(Option))
  1775.     set SpeedUserList = $(SpeedUserList$(Option))
  1776.     
  1777.     ;
  1778.     ; Map the parameter lists into the form we present to the user.
  1779.     ; We only ever do this once.
  1780.     ;
  1781.  
  1782.     ifstr(i) $(MappedRawParameters) == FALSE
  1783.     ;
  1784.     ifcontains(i) $(Option) not-in $(SlotNumberAdapters)
  1785.     ;
  1786.         set TempList = $(IoList)
  1787.         set IoList   = {}
  1788.         ForListDo $(TempList)
  1789.         ;
  1790.         set IoList = >($(IoList), *($(IoUserList),~($(IoRawList),$($))))
  1791.         ;
  1792.         EndForListDo
  1793.  
  1794.         set TempList = $(IrqList)
  1795.         set IrqList  = {}
  1796.         ForListDo $(TempList)
  1797.         ;
  1798.         set IrqList = >($(IrqList), *($(IrqUserList),~($(IrqRawList),$($))))
  1799.         ;
  1800.         EndForListDo
  1801.     ;
  1802.     else
  1803.     ;
  1804.         set TempList = $(SlotList)
  1805.         set SlotList  = {}
  1806.         ForListDo $(TempList)
  1807.         ;
  1808.         set SlotList = >($(SlotList), *($(SlotUserList),~($(SlotRawList),$($))))
  1809.         ;
  1810.         EndForListDo
  1811.     ;
  1812.     endif
  1813.  
  1814.     set TempList = $(DmaList)
  1815.     set DmaList  = {}
  1816.     ForListDo $(TempList)
  1817.     ;
  1818.         set DmaList = >($(DmaList), *($(DmaUserList),~($(DmaRawList),$($))))
  1819.     ;
  1820.     EndForListDo
  1821.  
  1822.     set TempList = $(MpList)
  1823.     set MpList   = {}
  1824.     ForListDo $(TempList)
  1825.     ;
  1826.         set MpList = >($(MpList), *($(MpUserList),~($(MpRawList),$($))))
  1827.     ;
  1828.     EndForListDo
  1829.  
  1830.     set MappedRawParameters = TRUE
  1831.     ;
  1832.     endif
  1833.  
  1834.     EndWait
  1835.  
  1836. Get_Adapter_Options_Restart = +
  1837.  
  1838.     ;
  1839.     ; We will start here if parameter validation fails.
  1840.     ;
  1841.  
  1842.     StartWait
  1843.  
  1844.     set From = Get_Adapter_Options_Restart
  1845.  
  1846.     ;
  1847.     ; Map the currently selected values into user from.
  1848.     ;
  1849.  
  1850.     ifcontains(i) $(Option) not-in $(SlotNumberAdapters)
  1851.     ;
  1852.     set IoLocation    = *($(IoUserList),~($(IoRawList),$(IoLocation)))
  1853.     set OldIoLocation = *($(IoUserList),~($(IoRawList),$(OldIoLocation)))
  1854.     set IrqNumber     = *($(IrqUserList),~($(IrqRawList),$(IrqNumber)))
  1855.     set OldIrqNumber  = *($(IrqUserList),~($(IrqRawList),$(OldIrqNumber)))
  1856.     ;
  1857.     else
  1858.     ;
  1859.     set SlotNumber    = *($(SlotUserList),~($(SlotRawList),$(SlotNumber)))
  1860.     set OldSlotNumber = *($(SlotUserList),~($(SlotRawList),$(OldSlotNumber)))
  1861.     ;
  1862.     endif
  1863.  
  1864.     set DmaChannel    = *($(DmaUserList),~($(DmaRawList),$(DmaChannel)))
  1865.     set OldDmaChannel = *($(DmaUserList),~($(DmaRawList),$(OldDmaChannel)))
  1866.     set MpFlag        = *($(MpUserList),~($(MpRawList),$(MpFlag)))
  1867.     set OldMpFlag     = *($(MpUserList),~($(MpRawList),$(OldMpFlag)))
  1868.     set StatsFlag     = *($(StatsUserList),~($(StatsRawList),$(StatsFlag)))
  1869.     set RxTxSlots     = *($(RxTxUserList),~($(RxTxRawList),$(RxTxSlots)))
  1870.     set SpeedFlag     = *($(SpeedUserList),~($(SpeedRawList),$(SpeedFlag)))
  1871.  
  1872.     ;
  1873.     ; Set up the input dialog box text and lists.
  1874.     ;
  1875.  
  1876.     read-syms FileDependentDlg$(!STF_LANGUAGE)
  1877.  
  1878.     ;
  1879.     ; Decide which dialog box to use.
  1880.     ;
  1881.  
  1882.     Debug-Output "MADGE: Option             = "$(Option)
  1883.     Debug-Output "MADGE: SlotNumberAdapters = "$(SlotNumberAdapters)
  1884.  
  1885.     ifcontains(i) $(Option) in $(SlotNumberAdapters)
  1886.     ;
  1887.     set DlgTemplate = "MDGEISA"
  1888.     ;
  1889.     else
  1890.     ;
  1891.     set DlgTemplate = "MDGISA"
  1892.     ;
  1893.     endif
  1894.  
  1895.     Debug-Output "MADGE: DlgTemplate = "$(DlgTemplate)
  1896.  
  1897.     ;
  1898.     ; To allow us to re-use the EISA/MCA dialog box for PCI we need
  1899.     ; to change Combo8Label.
  1900.     ;
  1901.  
  1902.     ifstr(i) $(Option) == "MDGMPPCI"
  1903.     ;
  1904.     set Combo8Label = $(PciCombo8Label)
  1905.     ;
  1906.     endif
  1907.  
  1908.     ;
  1909.     ; Let the user press some keys.
  1910.     ;
  1911.  
  1912.     LoadLibrary "x" $(DialogDllName) MdgDialog
  1913.  
  1914.     EndWait
  1915.  
  1916.     ui start "InputDlg" $(MdgDialog)
  1917.  
  1918.     StartWait
  1919.  
  1920.     ifstr(i) $(DLGEVENT) == "EXIT"
  1921.     ;
  1922.     set CommonStatus = STATUS_USERCANCEL
  1923.     ui pop 1
  1924.     FreeLibrary $(MdgDialog)
  1925.     goto End
  1926.     ;
  1927.     else-ifstr(i) $(DLGEVENT) != "CONTINUE"
  1928.     ;
  1929.     ui pop 1
  1930.     FreeLibrary $(MdgDialog)
  1931.     goto End
  1932.     ;
  1933.     endif
  1934.  
  1935.     ;
  1936.     ; Get the values the user selected out of the dialog box.
  1937.     ;
  1938.  
  1939.     set IrqNumber    = $(Combo1Out)
  1940.     set IoLocation   = $(Combo2Out)
  1941.     set DmaChannel   = $(Combo3Out)
  1942.     set RxTxSlots    = $(Combo4Out)
  1943.     set StatsFlag    = $(Combo5Out)
  1944.     set MpFlag       = $(Combo7Out)
  1945.     set SlotNumber   = $(Combo8Out)
  1946.     set SpeedFlag    = $(Combo9Out)
  1947.  
  1948.     set MaxFrameSize = *($(EditTextOut), 1)
  1949.     set LAA          = *($(EditTextOut), 2)
  1950.  
  1951.     ui pop 1
  1952.     FreeLibrary $(MdgDialog)
  1953.  
  1954.     Debug-Output "MADGE: SlotNumber = "$(SlotNumber)
  1955.     Debug-Output "MADGE: IoLocation = "$(IoLocation)
  1956.     Debug-Output "MADGE: IrqNumber  = "$(IrqNumber)
  1957.     Debug-Output "MADGE: DmaChannel = "$(DmaChannel)
  1958.     Debug-Output "MADGE: MpFlag     = "$(MpFlag)
  1959.     Debug-Output "MADGE: RxTxSlots  = "$(RxTxSlots)
  1960.     Debug-Output "MADGE: StatsFlag  = "$(StatsFlag)
  1961.  
  1962.     ;
  1963.     ; Convert the values the user has chosen into internal form.
  1964.     ;
  1965.  
  1966.     ifcontains(i) $(Option) not-in $(SlotNumberAdapters)
  1967.     ;
  1968.     set IoLocation    = *($(IoRawList),~($(IoUserList),$(IoLocation)))
  1969.     set OldIoLocation = *($(IoRawList),~($(IoUserList),$(OldIoLocation)))
  1970.     set IrqNumber     = *($(IrqRawList),~($(IrqUserList),$(IrqNumber)))
  1971.     set OldIrqNumber  = *($(IrqRawList),~($(IrqUserList),$(OldIrqNumber)))
  1972.     ;
  1973.     else
  1974.     ;
  1975.     set SlotNumber    = *($(SlotRawList),~($(SlotUserList),$(SlotNumber)))
  1976.     set OldSlotNumber = *($(SlotRawList),~($(SlotUserList),$(OldSlotNumber)))
  1977.     ;
  1978.     endif
  1979.  
  1980.     set DmaChannel    = *($(DmaRawList),~($(DmaUserList),$(DmaChannel)))
  1981.     set OldDmaChannel = *($(DmaRawList),~($(DmaUserList),$(OldDmaChannel)))
  1982.     set MpFlag        = *($(MpRawList),~($(MpUserList),$(MpFlag)))
  1983.     set OldMpFlag     = *($(MpRawList),~($(MpUserList),$(OldMpFlag)))
  1984.     set StatsFlag     = *($(StatsRawList),~($(StatsUserList),$(StatsFlag)))
  1985.     set RxTxSlots     = *($(RxTxRawList),~($(RxTxUserList),$(RxTxSlots)))
  1986.     set SpeedFlag     = *($(SpeedRawList),~($(SpeedUserList),$(SpeedFlag)))
  1987.  
  1988.     Debug-Output "MADGE: SlotNumber = "$(SlotNumber)
  1989.     Debug-Output "MADGE: IoLocation = "$(IoLocation)
  1990.     Debug-Output "MADGE: IrqNumber  = "$(IrqNumber)
  1991.     Debug-Output "MADGE: DmaChannel = "$(DmaChannel)
  1992.     Debug-Output "MADGE: MpFlag     = "$(MpFlag)
  1993.     Debug-Output "MADGE: RxTxSlots  = "$(RxTxSlots)
  1994.     Debug-Output "MADGE: StatsFlag  = "$(StatsFlag)
  1995.  
  1996.     EndWait
  1997.  
  1998. ; -----------------------------------------------------------------------
  1999. ; Verify the adapter options.
  2000. ; -----------------------------------------------------------------------
  2001.  
  2002. Adapter_Verify = +
  2003.  
  2004.     StartWait
  2005.  
  2006.     ;
  2007.     ; If the user entered an LAA then validate it.
  2008.     ;
  2009.  
  2010.     ifstr $(LAA) != ""
  2011.     ;
  2012.     ;
  2013.     ; NB A line of spaces will come through here, and will fail the
  2014.     ;    check - do we want this?
  2015.     ;
  2016.  
  2017.     LoadLibrary "x" $(DialogDllName) MdgDialog
  2018.  
  2019.     set FLibraryErrCtl = 1
  2020.  
  2021.     LibraryProcedure MdgResult $(MdgDialog) MadgeLAACheck $(LAA)
  2022.  
  2023.     set FLibraryErrCtl = 0
  2024.  
  2025.     FreeLibrary $(MdgDialog)
  2026.  
  2027.     ifstr $(MdgResult) != "MADGE_STATUS_SUCCESS"
  2028.     ;
  2029.         ;
  2030.         ; Illegal LAA supplied in the install dialog
  2031.         ; Display error message and go around again
  2032.         ;
  2033.  
  2034.         set Error = $(MdgResult)
  2035.  
  2036.         ;
  2037.         ; This will go back to Get_Adapter_Options or to end.
  2038.         ;
  2039.  
  2040.         goto Non_Fatal 
  2041.     ;
  2042.     endif
  2043.     ;
  2044.     endif
  2045.  
  2046.     ifint $(MaxFrameSize) > 17839
  2047.     ;
  2048.     ;
  2049.     ; 17839 is the maximum frame size at 16Mbps, while at 4Mbps it is 4472.
  2050.     ; Unfortunately, we can't tell here what the ring speed is, so guess at
  2051.     ; 16Mbps, which is the most sensible.
  2052.     ;
  2053.  
  2054.     set MaxFrameSize = 17839
  2055.     set Error        = $(TRIMMED_MFS)
  2056.     set From         = Update_Registry
  2057.  
  2058.     goto Non_Fatal_Info
  2059.     ;
  2060.     endif
  2061.  
  2062.     EndWait
  2063.  
  2064. ; -----------------------------------------------------------------------
  2065. ; We have checked the options so add the software parameters to the
  2066. ; registry.
  2067. ; -----------------------------------------------------------------------
  2068.  
  2069. Update_Registry = +
  2070.  
  2071.     ;
  2072.     ; If installing, go create the necessary keys;
  2073.     ; if configuring, they're already open.
  2074.     ;
  2075.  
  2076.     ifint $(OldVersionExisted) == $(TRUE)
  2077.     ;
  2078.     ifstr(i) $(!NTN_InstallMode) == configure
  2079.     ;
  2080.         goto Write_Parameters
  2081.     ;
  2082.     endif
  2083.     ;
  2084.     endif
  2085.  
  2086.     StartWait
  2087.  
  2088.     ;
  2089.     ; Add Software Component.
  2090.     ;
  2091.  
  2092.     ifint $(OldVersionExisted) == $(FALSE)
  2093.     ;
  2094.     Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  2095.         $(ProductSoftwareName), +
  2096.         $(ProductSoftwareName), +
  2097.         $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  2098.         $(ProductSoftwareImagePath), "kernel", "NDIS", {}, "",+
  2099.         $(MadgeEventLogFile)
  2100.  
  2101.     Set OEM_ABANDON_SOFTWARE = TRUE
  2102.  
  2103.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2104.     ;
  2105.         goto Shell_Code_Error
  2106.     ;
  2107.     endif
  2108.  
  2109.     ;
  2110.     ; At this point:
  2111.     ;     $R1 contains the product version key handle;
  2112.     ;     $R2 contains the NetRules subkey handle;
  2113.     ;     $R3 contains the new Services key handle; and
  2114.     ;     $R4 contains the Parameters key
  2115.     ;     $R5 contains the Linkage Key
  2116.     ;
  2117.  
  2118.     set RegistryErrorIndex = $($R0)
  2119.     set KeyProduct         = $($R1)
  2120.     Set SoftNetRulesKey    = $($R2)
  2121.     CloseRegKey $($R3)
  2122.     CloseRegKey $($R4)
  2123.     CloseRegKey $($R5)
  2124.  
  2125.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2126.     ;
  2127.         CloseRegKey $(KeyProduct)
  2128.         CloseRegKey $(SoftNetRulesKey)
  2129.         goto Fatal_Registry
  2130.     ;
  2131.     endif
  2132.  
  2133.     set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  2134.                {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  2135.                {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  2136.                {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  2137.                {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  2138.                {PathName,$(NoTitle),$(!REG_VT_SZ),$(!STF_CWDDIR)},+
  2139.                {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  2140.                {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  2141.  
  2142.     Shell $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
  2143.  
  2144.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2145.     ;
  2146.         goto Shell_Code_Error
  2147.     ;
  2148.     endif
  2149.  
  2150.     set RegistryErrorIndex = $($R0)
  2151.  
  2152.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2153.     ;
  2154.         CloseRegKey $(KeyProduct)
  2155.         CloseRegKey $(SoftNetRulesKey)
  2156.  
  2157.         goto Fatal_Registry
  2158.     ;
  2159.     endif
  2160.  
  2161.     set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  2162.                 {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  2163.                 {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  2164.                 {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  2165.                 {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindable)}, +
  2166.                 {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}, +
  2167.                 {Infname ,$(NoTitle),$(!REG_VT_SZ),$(STF_CONTEXTINFNAME)} }
  2168.  
  2169.     Shell $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
  2170.  
  2171.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2172.     ;
  2173.         goto Shell_Code_Error
  2174.     ;
  2175.     endif
  2176.  
  2177.     set RegistryErrorIndex = $($R0)
  2178.  
  2179.     CloseRegKey $(KeyProduct)
  2180.     CloseRegKey $(SoftNetRulesKey)
  2181.  
  2182.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2183.     ;
  2184.         goto Fatal_Registry
  2185.     ;
  2186.     endif
  2187.     ;
  2188.     endif
  2189.  
  2190.     ;
  2191.     ; Create the HARDWARE\Netcard region and its corresponding service
  2192.     ;
  2193.  
  2194.     Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
  2195.  
  2196.     ifint $($R4) != -1
  2197.     ;
  2198.     Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  2199.     ;
  2200.     endif
  2201.         
  2202.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2203.     ;
  2204.     goto Shell_Code_Error
  2205.     ;
  2206.     endif
  2207.  
  2208.     set RegistryErrorIndex = $($R0)
  2209.  
  2210.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2211.     ;
  2212.     CloseRegKey $($R1)
  2213.     CloseRegKey $($R2)
  2214.     CloseRegKey $($R3)
  2215.     goto Fatal_Registry
  2216.     ;
  2217.     endif
  2218.  
  2219.     ;
  2220.     ; At this point:
  2221.     ;     $R1  Registry key variable for HARDWARE\Netcard\(n)
  2222.     ;     $R2  Registry key variable for HARDWARE\Netcard\(n)\\NetRules
  2223.     ;     $R3  Registry key handle for <service>\Parameters key
  2224.     ;     $R4  Adapter number assigned to adapter
  2225.     ;     $R5  Service name generated by combining svc name with adapter number
  2226.     ;
  2227.  
  2228.     set KeyParameters   = $($R3)
  2229.     set KeyAdapterRules = $($R2)
  2230.     set AdapterNumber   = $($R4)
  2231.  
  2232.     set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  2233.                {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
  2234.                {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
  2235.                {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  2236.                {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  2237.                {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  2238.  
  2239.     Shell $(UtilityInf), AddValueList, $($R1), $(NewValueList)
  2240.  
  2241.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2242.     ;
  2243.     goto Shell_Code_Error
  2244.     ;
  2245.     endif
  2246.  
  2247.     CloseRegKey $($R1)
  2248.  
  2249.     set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  2250.     set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  2251.  
  2252.     set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType)},+
  2253.             {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  2254.             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
  2255.             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}, +
  2256.             {Infname ,$(NoTitle),$(!REG_VT_SZ),$(STF_CONTEXTINFNAME)}}
  2257.  
  2258.     Shell $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  2259.  
  2260.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2261.     ;
  2262.     goto Shell_Code_Error
  2263.     ;
  2264.     endif
  2265.  
  2266.     set RegistryErrorIndex = $($R0)
  2267.  
  2268.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2269.     ;
  2270.     CloseRegKey $(KeyParameters)
  2271.     CloseRegKey $(KeyAdapterRules)
  2272.     goto Fatal_Registry
  2273.     ;
  2274.     endif
  2275.  
  2276.     CloseRegKey $(KeyAdapterRules)
  2277.  
  2278.     EndWait
  2279.  
  2280. ; ----------------------------------------------------------------------
  2281. ; Write the adapter parameters into the registry.
  2282. ; ----------------------------------------------------------------------
  2283.  
  2284. ;
  2285. ; REQUIRED: $(KeyParameters) contains service Parameters key handle.
  2286. ;
  2287.  
  2288. Write_Parameters = +
  2289.  
  2290.     StartWait
  2291.  
  2292.     Shell $(UtilityInf), GetBusTypeDialog, $(ProductHardware$(Option)Description)
  2293.  
  2294.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2295.     ;
  2296.     goto Shell_Code_Error
  2297.     ;
  2298.     endif
  2299.  
  2300.     ifstr(i) $($R0) == ERROR
  2301.     ;
  2302.     Shell $(UtilityInf), GetBusTypeNum
  2303.  
  2304.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2305.     ;
  2306.         goto Shell_Code_Error
  2307.     ;
  2308.     endif
  2309.  
  2310.     set BusTypeNum = $($R1)
  2311.     set BusNumber  = 0
  2312.     ;
  2313.     else
  2314.     ;
  2315.     set BusTypeNum = $($R1)
  2316.     set BusNumber  = $($R2)
  2317.     ;
  2318.     endif
  2319.  
  2320.     ;
  2321.     ; It would appear that when installing a PCMCIA adapter
  2322.     ; one should give the bus type of the PCMCIA controller
  2323.     ; rather than PCMCIA itself.
  2324.     ;
  2325.  
  2326.     ifstr(i) $(Option) == "MDGMPPCMCIA"
  2327.     ;
  2328.     set BusTypeNum = 1
  2329.     ;
  2330.     endif
  2331.  
  2332.     ;
  2333.     ; We need to examine DmaChannel to decide on how to set DmaChannel
  2334.     ; and NoMmio. We use a very simple test - if DmaChannel is not
  2335.     ; $(GENERAL_MMIO) then we set NoMMio, otherwise we clear it.
  2336.     ; Note that at the moment we don't register the DmaChannel
  2337.     ; parameter for slot number adapters. This may need to change
  2338.     ; if PCI adapters ever get DMA.
  2339.     ;
  2340.  
  2341.     ifstr(i) $(DmaChannel) == $(GENERAL_MMIO)
  2342.     ;
  2343.     set NoMmioFlag = 0
  2344.     ;
  2345.     else
  2346.     ;
  2347.     set NoMmioFlag = 1
  2348.     ;
  2349.     endif
  2350.  
  2351.     ;
  2352.     ; Derive the adapter type.
  2353.     ;
  2354.  
  2355.     set AdapterTypeFlag = $(AdapterTypeFlag$(Option))
  2356.  
  2357.     ;
  2358.     ; Add the rest of the parameters to the Services adapter area.
  2359.     ;
  2360.  
  2361.     ifcontains(i) $(Option) not-in $(SlotNumberAdapters)
  2362.     ;
  2363.     set NewValueList = {{InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(IrqNumber)},+
  2364.             {BusType,        $(NoTitle),$(!REG_VT_DWORD),$(BusTypeNum)},+
  2365.             {BusNumber,      $(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
  2366.             {MediaType,      $(NoTitle),$(!REG_VT_DWORD),2},+
  2367.             {IoLocation,     $(NoTitle),$(!REG_VT_DWORD),$(IoLocation)},+
  2368.             {IoBaseAddress,  $(NoTitle),$(!REG_VT_DWORD),$(IoLocation)},+
  2369.             {DmaChannel,     $(NoTitle),$(!REG_VT_DWORD),$(DmaChannel)},+
  2370.             {NoMmio,         $(NoTitle),$(!REG_VT_DWORD),$(NoMmioFlag)},+
  2371.             {RxTxSlots,      $(NoTitle),$(!REG_VT_DWORD),$(RxTxSlots)},+
  2372.             {Multiprocessor, $(NoTitle),$(!REG_VT_DWORD),$(MpFlag)},+
  2373.             {MaxFrameSize,   $(NoTitle),$(!REG_VT_DWORD),$(MaxFrameSize)},+
  2374.             {AdapterType,    $(NoTitle),$(!REG_VT_DWORD),$(AdapterTypeFlag)}}
  2375.     else
  2376.     set NewValueList = {+
  2377.             {BusType,        $(NoTitle),$(!REG_VT_DWORD),$(BusTypeNum)},+
  2378.             {BusNumber,      $(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
  2379.             {MediaType,      $(NoTitle),$(!REG_VT_DWORD),2},+
  2380. ;;;;                    {$(McaEisaKeyword), $(NoTitle), $(!REG_VT_DWORD), $(McaEisaId)},+
  2381.             {SlotNumber,     $(NoTitle),$(!REG_VT_DWORD),$(SlotNumber)},+
  2382.             {NoMmio,         $(NoTitle),$(!REG_VT_DWORD),$(NoMmioFlag)},+
  2383.             {RxTxSlots,      $(NoTitle),$(!REG_VT_DWORD),$(RxTxSlots)},+
  2384.             {Multiprocessor, $(NoTitle),$(!REG_VT_DWORD),$(MpFlag)},+
  2385.             {MaxFrameSize,   $(NoTitle),$(!REG_VT_DWORD),$(MaxFrameSize)},+
  2386.             {AdapterType,    $(NoTitle),$(!REG_VT_DWORD),$(AdapterTypeFlag)}}
  2387.     ;
  2388.     endif
  2389.     
  2390.     ;
  2391.     ; Add the LAA if there is one.
  2392.     ;
  2393.  
  2394.     ifstr $(LAA) != ""
  2395.     ;
  2396.     set NewValueList = >($(NewValueList),+
  2397.                  {NetworkAddress, $(NoTitle), $(!REG_VT_SZ), $(LAA)})
  2398.     ;
  2399.     endif
  2400.  
  2401.     ;
  2402.     ; Enable promiscuous mode if required.
  2403.     ;
  2404.  
  2405.     ifstr $(StatsFlag) == "1"
  2406.     ;
  2407.     set NewValueList = >($(NewValueList),+
  2408.                  {PromiscuousModeX, $(NoTitle), $(!REG_VT_DWORD), $(StatsFlag)})
  2409.     ;
  2410.     endif
  2411.  
  2412.     ;
  2413.     ; Enable Force4 mode if required.
  2414.     ;
  2415.  
  2416.     ifstr $(SpeedFlag) == "1"
  2417.     ;
  2418.     set NewValueList = >($(NewValueList),+
  2419.                  {Force4, $(NoTitle), $(!REG_VT_DWORD), 1})
  2420.     ;
  2421.     endif
  2422.  
  2423.     ;
  2424.     ; Enable Force16 mode if required.
  2425.     ;
  2426.  
  2427.     ifstr $(SpeedFlag) == "2"
  2428.     ;
  2429.     set NewValueList = >($(NewValueList),+
  2430.                  {Force16, $(NoTitle), $(!REG_VT_DWORD), 1})
  2431.     ;
  2432.     endif
  2433.  
  2434.     ;
  2435.     ; If this is a PCMCIA adapter we need to a PCMCIA flag.
  2436.     ;
  2437.  
  2438.     ifstr(i) $(Option) == "MDGMPPCMCIA"
  2439.     ;
  2440.     set NewValueList = >($(NewValueList),+
  2441.                  {Pcmcia, $(NoTitle), $(!REG_VT_DWORD), 1})
  2442.     ;
  2443.     endif
  2444.  
  2445.       
  2446.     ;
  2447.     ; And add the parameters to the registry.
  2448.     ;
  2449.  
  2450.     Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  2451.  
  2452.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2453.     ;
  2454.     goto Shell_Code_Error
  2455.     ;
  2456.     endif
  2457.  
  2458.     set RegistryErrorIndex = $($R0)
  2459.  
  2460.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2461.     ;
  2462.     CloseRegKey $(KeyParameters)
  2463.     goto Fatal_Registry
  2464.     ;
  2465.     endif
  2466.  
  2467.     ;
  2468.     ; If the old LAA has been cleared then so delete the key 
  2469.     ; from registry.
  2470.     ;
  2471.  
  2472.     ifstr $(OldLAA) != ""
  2473.     ;
  2474.     ifstr $(LAA) == ""
  2475.     ;
  2476.         DeleteRegValue $(KeyParameters) NetworkAddress
  2477.     ;
  2478.     endif
  2479.     ;
  2480.     endif
  2481.  
  2482.     ;
  2483.     ; If Force4 mode has been disabled then delete the key.
  2484.     ;
  2485.  
  2486.     ifstr $(OldSpeedFlag) == "1"
  2487.     ;
  2488.     ifstr $(SpeedFlag) != "1"
  2489.     ;
  2490.         DeleteRegValue $(KeyParameters) Force4
  2491.     ;
  2492.     endif
  2493.     ;
  2494.     endif
  2495.  
  2496.     ;
  2497.     ; If Force16 mode has been disabled then delete the key.
  2498.     ;
  2499.  
  2500.     ifstr $(OldSpeedFlag) == "2"
  2501.     ;
  2502.     ifstr $(SpeedFlag) != "2"
  2503.     ;
  2504.         DeleteRegValue $(KeyParameters) Force16
  2505.     ;
  2506.     endif
  2507.     ;
  2508.     endif
  2509.  
  2510.     ;
  2511.     ; If promiscuous mode has been disabled then delete the key.
  2512.     ;
  2513.  
  2514.     ifstr $(OldStatsFlag) != "0"
  2515.     ;
  2516.     ifstr $(StatsFlag) == "0"
  2517.     ;
  2518.         DeleteRegValue $(KeyParameters) PromiscuousModeX
  2519.     ;
  2520.     endif
  2521.     ;
  2522.     endif
  2523.  
  2524.     CloseRegKey $(KeyParameters)
  2525.  
  2526.     EndWait
  2527.  
  2528.     goto Successful
  2529.  
  2530. ; -----------------------------------------------------------------------
  2531. ; Binding section
  2532. ; -----------------------------------------------------------------------
  2533.  
  2534. Binding_Adapter =+
  2535.  
  2536.     set Error = "Binding: Sorry, not yet implemented."
  2537.  
  2538.     goto Fatal
  2539.  
  2540. ; -----------------------------------------------------------------------
  2541. ; Removal section
  2542. ; -----------------------------------------------------------------------
  2543.  
  2544. Remove_Adapter = +
  2545.  
  2546.     StartWait
  2547.  
  2548.     ;
  2549.     ; Remove the software component if required.
  2550.     ;
  2551.  
  2552.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  2553.     ;
  2554.     Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  2555.         $(ProductSoftwareName)
  2556.  
  2557.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2558.     ;
  2559.         goto Shell_Code_Error
  2560.     ;
  2561.     endif
  2562.  
  2563.     set RegistryErrorIndex = $($R0)
  2564.  
  2565.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2566.     ;
  2567.         goto Fatal_Registry
  2568.     ;
  2569.     endif
  2570.     ;
  2571.  
  2572.     ;
  2573.     ; Or, the hardware component.
  2574.     ;
  2575.  
  2576.     else
  2577.     ;
  2578.     Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  2579.         $(ProductSoftwareName), $(!NTN_RegBase)     
  2580.  
  2581.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2582.     ;
  2583.         goto Shell_Code_Error
  2584.     ;
  2585.     endif
  2586.  
  2587.     set RegistryErrorIndex = $($R0)
  2588.  
  2589.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2590.     ;
  2591.         goto Fatal_Registry
  2592.     ;
  2593.     endif
  2594.     ;
  2595.     endif
  2596.  
  2597.     EndWait
  2598.  
  2599.     goto End
  2600.  
  2601. ; -----------------------------------------------------------------------
  2602. ; Upgrade Software section.
  2603. ; -----------------------------------------------------------------------
  2604.  
  2605. Upgrade_Software = +
  2606.  
  2607.     StartWait
  2608.  
  2609.     ;
  2610.     ; First determine whether we want to do upgrade or update for software
  2611.     ; or hardware component. Then we will determine whether the Mode is
  2612.     ; update or upgrade.
  2613.     ;
  2614.  
  2615.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  2616.     ;
  2617.     ;
  2618.     ; Upgrade software component
  2619.     ;
  2620.     ; see whether the same version exist or not
  2621.     ;
  2622.  
  2623.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  2624.  
  2625.     ifstr $(KeyProduct) != $(KeyNull)
  2626.     ;
  2627.         GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  2628.         set Version = *($(VersionInfo), 4)
  2629.  
  2630.         ;
  2631.         ; Update the binaries
  2632.         ;
  2633.  
  2634.         shell $(UtilityInf) GetInfFileNameFromRegistry $(KeyProduct)
  2635.  
  2636.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2637.         ;
  2638.         goto Shell_Code_Error
  2639.         ;
  2640.         endif
  2641.  
  2642.         set !UG_Filename = $($R0)
  2643.  
  2644.         ifstr(i) $(!UG_Filename) != ""
  2645.         ;
  2646.         install "Install-Update"
  2647.  
  2648.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  2649.         ;
  2650.             goto Fatal
  2651.         ;
  2652.         endif
  2653.         ;
  2654.         endif
  2655.  
  2656.         CloseRegKey $(KeyProduct)
  2657.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  2658.  
  2659.         ;
  2660.         ; Upgrade the version number
  2661.         ;
  2662.  
  2663.         SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  2664.         SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  2665.  
  2666.         ifint $(Version) != $(ProductMajorVersion)
  2667.         ;
  2668.            ;
  2669.            ; If the major version number is not the same,
  2670.            ; it is major upgrade. So let Upgrade the product
  2671.            ;
  2672.            ;
  2673.            ; make other upgrade change if necessary
  2674.            ;
  2675.         ;
  2676.         endif
  2677.  
  2678.         CloseRegKey $(KeyProduct)
  2679.  
  2680.         ;
  2681.         ; Install the detection DLL in case we are upgrading from a
  2682.         ; version that did not use detection.
  2683.         ;
  2684.  
  2685.         Shell "" PrepareDetectionDll $(DetectDllName)
  2686.  
  2687.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  2688.         ;
  2689.         goto Fatal
  2690.         ;
  2691.         endif
  2692.  
  2693.     ;
  2694.     else
  2695.     ;
  2696.         ;
  2697.         ; Cannot Open software key, goto ERROR
  2698.         ;
  2699.  
  2700.         goto Fatal_Registry
  2701.     ;
  2702.     endif
  2703.     ;
  2704.     else
  2705.     ;
  2706.     ;
  2707.     ; We cannot upgrade the hardware component.
  2708.     ;
  2709.  
  2710.     set Error          = ""
  2711.     set OEM_ABANDON_ON = FALSE
  2712.  
  2713.     goto Not_Supported
  2714.     ;
  2715.     endif
  2716.      
  2717.     EndWait
  2718.                                         
  2719.     goto End
  2720.  
  2721. ; -----------------------------------------------------------------------
  2722. ; Escape hatches
  2723. ; -----------------------------------------------------------------------
  2724.  
  2725. Successful = +
  2726.  
  2727.     goto End
  2728.  
  2729. ; -----------------------------------------------------------------------
  2730.  
  2731. Abandon = +
  2732.  
  2733.     ForListDo $(OEM_ABANDON_OPTIONS)
  2734.     ;
  2735.     Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  2736.         $(ProductSoftwareName), $($)        
  2737.  
  2738.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2739.     ;
  2740.         goto Shell_Code_Error
  2741.     ;
  2742.     endif
  2743.  
  2744.     set RegistryErrorIndex = $($R0)
  2745.  
  2746.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2747.     ;
  2748.         goto Fatal_Registry
  2749.     ;
  2750.     endif
  2751.     ;
  2752.     EndForListDo
  2753.  
  2754.     ifstr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  2755.     ;
  2756.     ;
  2757.     ; Remove Software Component
  2758.     ;
  2759.  
  2760.     Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  2761.         $(ProductSoftwareName), FALSE
  2762.  
  2763.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2764.     ;
  2765.         goto Shell_Code_Error
  2766.     ;
  2767.     endif
  2768.  
  2769.     set RegistryErrorIndex = $($R0)
  2770.  
  2771.     ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  2772.     ;
  2773.         goto Fatal_Registry
  2774.     ;
  2775.     endif
  2776.     ;
  2777.     endif
  2778.  
  2779.     goto End
  2780.  
  2781. ; -----------------------------------------------------------------------
  2782.  
  2783. Warning = +
  2784.  
  2785.     EndWait
  2786.  
  2787.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  2788.  
  2789.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2790.     ;
  2791.     goto Shell_Code_Error
  2792.     ;
  2793.     endif
  2794.  
  2795.     ifstr(i) $($R1) == "OK"
  2796.     ;
  2797.     goto $(To)
  2798.     ;
  2799.     else-ifstr(i) $($R1) == "CANCEL"
  2800.     ;
  2801.     goto $(From)
  2802.     ;
  2803.     endif
  2804.  
  2805.     goto End
  2806.  
  2807. ; -----------------------------------------------------------------------
  2808.  
  2809. Non_Fatal_Info = +
  2810.  
  2811.     set Severity     = STATUS
  2812.     set CommonStatus = STATUS_USERCANCEL
  2813.     goto Non_Fatal_Msg
  2814.  
  2815. ; -----------------------------------------------------------------------
  2816.  
  2817. Non_Fatal = +
  2818.  
  2819.     set  Severity = NONFATAL
  2820.     goto Non_Fatal_Msg
  2821.  
  2822. ; -----------------------------------------------------------------------
  2823.  
  2824. Non_Fatal_Msg = +
  2825.  
  2826.     EndWait
  2827.  
  2828.     ifstr(i) $(Error) == ""
  2829.     ;
  2830.     set Severity = NONFATAL
  2831.  
  2832.     Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  2833.  
  2834.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2835.     ;
  2836.         goto Shell_Code_Error
  2837.     ;
  2838.     endif
  2839.  
  2840.     set Error = $($R0)
  2841.     ;
  2842.     endif
  2843.  
  2844.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error)
  2845.  
  2846.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2847.     ;
  2848.     goto Shell_Code_Error
  2849.     ;
  2850.     endif
  2851.  
  2852.     ifstr(i) $($R1) == "OK"
  2853.     ;
  2854.     goto $(From)
  2855.     ;
  2856.     endif
  2857.  
  2858.     goto End
  2859.  
  2860. ; -----------------------------------------------------------------------
  2861.  
  2862. Fatal_Registry = +
  2863.  
  2864.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  2865.  
  2866.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2867.     ;
  2868.     goto Shell_Code_Error
  2869.     ;
  2870.     endif
  2871.  
  2872.     set Error = $($R0)
  2873.  
  2874.     goto Fatal
  2875.  
  2876. ; -----------------------------------------------------------------------
  2877.  
  2878. Fatal = +
  2879.  
  2880.     EndWait
  2881.  
  2882.     ifstr(i) $(Error) == ""
  2883.     ;
  2884.     Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  2885.  
  2886.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2887.     ;
  2888.         goto Shell_Code_Error
  2889.     ;
  2890.     endif
  2891.  
  2892.     set Error = $($R0)
  2893.     ;
  2894.     endif
  2895.  
  2896.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  2897.  
  2898.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2899.     ;
  2900.     goto Shell_Code_Error
  2901.     ;
  2902.     endif
  2903.  
  2904.     goto Set_Failed
  2905.  
  2906. ; -----------------------------------------------------------------------
  2907.  
  2908. Not_Supported = +
  2909.  
  2910.     EndWait
  2911.  
  2912.     ifstr(i) $(Error) == ""
  2913.     ;
  2914.     Shell $(UtilityInf) RegistryErrorString "OPERATION_UNIMPLEMENTED"
  2915.  
  2916.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2917.     ;
  2918.         goto Shell_Code_Error
  2919.     ;
  2920.     endif
  2921.  
  2922.     set Error = $($R0)
  2923.     ;
  2924.     endif
  2925.  
  2926.     Shell $(SubroutineInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  2927.  
  2928.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  2929.     ;
  2930.     goto Shell_Code_Error
  2931.     ;
  2932.     endif
  2933.  
  2934.     goto End
  2935.  
  2936. ; -----------------------------------------------------------------------
  2937.  
  2938. Shell_Code_Error = +
  2939.  
  2940.     EndWait
  2941.  
  2942.     set DlgType      = "MessageBox"
  2943.     set STF_MB_TITLE = $(ShellCodeErrorTitle)
  2944.     set STF_MB_TEXT  = $(ShellCodeErrorText)
  2945.     set STF_MB_TYPE  = 1
  2946.     set STF_MB_ICON  = 3
  2947.     set STF_MB_DEF   = 1
  2948.     ui start "Error Message"
  2949.     goto Set_Failed
  2950.  
  2951. ; -----------------------------------------------------------------------
  2952.  
  2953. Set_Failed = +
  2954.  
  2955.     set CommonStatus = STATUS_FAILED
  2956.  
  2957.     ;
  2958.     ; if OEM_ABANDON_ON == TRUE, then remove the registry entries
  2959.     ;
  2960.  
  2961.     ifstr(i) $(OEM_ABANDON_ON) == TRUE
  2962.     ;
  2963.     set OEM_ABANDON_ON = FALSE
  2964.     goto Abandon
  2965.     ;
  2966.     endif
  2967.  
  2968.     goto End
  2969.  
  2970. ; -----------------------------------------------------------------------
  2971.  
  2972. End = +
  2973.  
  2974.     goto Term
  2975.  
  2976. ; -----------------------------------------------------------------------
  2977.  
  2978. Term = +
  2979.  
  2980.     Return $(CommonStatus)
  2981.  
  2982. ; -----------------------------------------------------------------------
  2983. ; Install sections
  2984. ; -----------------------------------------------------------------------
  2985.  
  2986. [Files-Inf]
  2987. 1, oemsetup.inf, SIZE=1000, RENAME=$(!UG_Filename)
  2988.  
  2989. [Files-Driver]
  2990. 1, mdgmport.sys, SIZE=40080
  2991. 1, mdgmport.bin, SIZE=46558
  2992.  
  2993. [Files-Helper]
  2994. 1, mdgmpdlg.dll, SIZE=17920
  2995. 1, mdgmpdlg.hlp, SIZE=12672
  2996.  
  2997. [Files-MDGNCDET.DLL]
  2998. 1, mdgncdet.dll, SIZE=47616
  2999.  
  3000. ; -----------------------------------------------------------------------
  3001.  
  3002. [Install-Update]
  3003.  
  3004.    set STF_VITAL        = ""
  3005.    set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  3006.  
  3007.    AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
  3008.    AddSectionFilesToCopyList Files-Helper $(SrcDir) $(!STF_WINDOWSSYSPATH)
  3009.    AddSectionFilesToCopyList Files-Driver $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  3010.    AddSectionFilesToCopyList Files-MDGNCDET.DLL $(SrcDir) $(!STF_WINDOWSSYSPATH)
  3011.  
  3012.    set !STF_NCPA_FLUSH_COPYLIST = TRUE
  3013.    CopyFilesInCopyList
  3014.  
  3015.    exit
  3016.  
  3017. [Install-Option]
  3018.  
  3019.    set STF_VITAL        = ""
  3020.  
  3021.    AddSectionFilesToCopyList Files-Helper $(SrcDir) $(!STF_WINDOWSSYSPATH)
  3022.    AddSectionFilesToCopyList Files-Driver $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  3023.    AddSectionFilesToCopyList Files-MDGNCDET.DLL $(SrcDir) $(!STF_WINDOWSSYSPATH)
  3024.  
  3025.    set !STF_NCPA_FLUSH_COPYLIST = TRUE
  3026.    CopyFilesInCopyList
  3027.  
  3028.    exit
  3029.  
  3030. [Source Media Descriptions]
  3031.     1  = "Madge Driver Disk"  
  3032.     2  = "Windows NT Setup CD-ROM Disk" 
  3033.  
  3034. [ProductType]
  3035. STF_PRODUCT  = Winnt
  3036. STF_PLATFORM = I386
  3037.  
  3038. ; ******** End of file OEMSETUP.INF *****************************************
  3039.  
  3040.