home *** CD-ROM | disk | FTP | other *** search
/ MPC Wizard 3.0 / WIZARD3_0.ISO / drivers / sound / card_snd / disk1 / dsp16.inf < prev    next >
Text File  |  1994-03-31  |  18KB  |  588 lines
  1. ;; INSTALIT script for DSP16
  2. ;; Version R05
  3. ;; December 16, 1993
  4. ;;
  5. ;; Recognized values for cdrom_type variable:
  6. ;;
  7. ;;    cdrom_type:    none
  8. ;;            SonyAtSingle
  9. ;;            SonyAtDouble
  10. ;;            MitsumiAtSingle
  11. ;;            MitsumiAtDouble
  12. ;;            PanasonicAtDouble
  13. ;;            GenericScsi
  14. ;;            NecScsi
  15. ;;            SonyScsi
  16. ;;
  17. DefineVariables
  18.     Directory    [install_directory] := C:\DSP16
  19.     Directory    [dos_directory] := C:\DOS
  20.     Text        [cdrom_type] := none
  21.     Text        [cdrom_address] := 0300
  22.     Text        [cdrom_interrupt] := 10
  23.     Text        [sb_interrupt] := 7
  24.     Text        [sb_number] := 7
  25.     Text        [sb_dma] := 1
  26.     Text        [game_enable] := 1    
  27.     Text        [last_drive] := Z
  28.     Logical        [InstallDrivers] := NoCharacter
  29.     Logical        [DriversInstalled] := NoCharacter
  30. EndDefineVariables
  31.  
  32. Do Setup
  33. LetButton <Esc> Do Terminate
  34.  
  35. Dialog WhiteOnBlue
  36.   .lThis program will install version 2.05 of
  37.   .lthe drivers and software, and optionally
  38.   .linstall the CDROM Driver for your system. 
  39.   .l
  40.   .lPlease refer to your Users Manual for
  41.   .lcomplete instructions.
  42.   .l
  43.   .lYou may terminate this Program at any time
  44.   .lby pressing the <ESC> Key.
  45. EndDialog
  46.  
  47. DetermineInstallationDirectory [install_directory] RequireFixed
  48.  
  49. Do GetLastDrive
  50.  
  51. :getsoundblaster
  52.  
  53. Do GetSoundBlasterParameters
  54.  
  55. Dialog [InstallDrivers]
  56.     .lDo you wish to Install a CDROM Driver for your system?
  57.     .l    If you answer "YES", you will be required to
  58.     .l    specify the Type of CDROM and its system interrupt
  59.     .l    number and any specific Base I/O Address that
  60.     .l    is used by your CDROM.
  61.     .lIf you are not sure as to your CDROM Type please answer
  62.     .l"No" or Quit Program.
  63. EndDialog
  64.  
  65. If [InstallDrivers] = YesCharacter
  66.     Do GetCDROMType
  67. Endif
  68.  
  69. Do GetJoyStickStatus
  70.  
  71. [InstallFromDirectory] := INSTALITDirectory
  72.  
  73. OpenCopyWindow WhiteOnBlue
  74.  
  75.     CopyFiles
  76.         dsp16.sys
  77.         dsp001.ld
  78.         dsp16.exe
  79.         dsp16vol.exe
  80.     EndCopyFiles
  81.     
  82.     If ([cdrom_type] = SonyAtSingle) .OR. ([cdrom_type] = SonyAtDouble)
  83.         CopyFiles to [InstallationDirectory]\SONY
  84.             slcd.sys
  85.         EndCopyFiles
  86.         CopyFiles to [InstallationDirectory]
  87.             sony_cd.exe    as    playcd.exe
  88.         EndCopyFiles
  89.     Endif
  90.     
  91.     If ([cdrom_type] = MitsumiAtSingle) .OR. ([cdrom_type] = MitsumiAtDouble)
  92.         CopyFiles to [InstallationDirectory]\MITSUMI
  93.             mtmcds.sys
  94.             mtmcde.sys
  95.             mtmcdae.sys
  96.             mtmcdas.sys
  97.         EndCopyFiles
  98.         CopyFiles to [InstallationDirectory]
  99.             mits_cd.exe    as    playcd.exe
  100.         EndCopyFiles
  101.     Endif
  102.     
  103.     If [cdrom_type] = PanasonicAtDouble
  104.         CopyFiles to [InstallationDirectory]\PANASONC
  105.             cdmke41.sys
  106.         EndCopyFiles
  107.     Endif
  108.     
  109.     If ([cdrom_type] = GenericScsi) .OR. ([cdrom_type] = SonyScsi) .OR. ([cdrom_type] = NecScsi)
  110.         CopyFiles to [InstallationDirectory]\ADAPTEC
  111.             aspi2dos.sys
  112.             aspicd.sys
  113.         EndCopyFiles
  114.         CopyFiles to [InstallationDirectory]
  115.             adap_cd.exe    as    playcd.exe
  116.             adap_cd.fon    as    cdplayer.fon
  117.         EndCopyFiles
  118.     Endif
  119.  
  120.     If ([cdrom_type] = none)
  121.     Else
  122.         If FileExists [dos_directory]\mscdex.exe
  123.         Else
  124.             CopyFiles to [dos_directory]
  125.                 mscdex.exe
  126.             EndCopyFiles
  127.         Endif
  128.     Endif
  129.  
  130. CloseCopyWindow
  131.  
  132. Do UpdateConfigSys
  133.  
  134. Do UpdateAutoexec
  135.  
  136.  
  137. Dialog WhiteOnBlue
  138.   .lThe basic drivers have been installed.
  139.   .l
  140.   .lAt this point you must re-boot your pc (type
  141.   .lctrl-alt-del).
  142.   .l
  143.   .lAfter re-booting, your pc will be capable of    
  144.   .lrunning DOS-based audio software, such as games.
  145.   .lIf the DOS and Windows application software is
  146.   .lto be installed, place the Voyetra Software
  147.   .ldiskette in Drive A, and type a:install<Enter>
  148.   .l(after you have re-booted).
  149.   .l
  150.   .l
  151. EndDialog
  152.  
  153. Solong
  154.  
  155. Procedure Setup
  156.     SetMainBorderTo Double
  157.     SetPopupAttrTo WhiteOnBlue
  158.     SetAttentionAttrTo WhiteOnRed
  159.     SetPopupBorderTo Double
  160. ;;    SetBackgroundColor LightGreen    ;; Not implemented!
  161.     SetTopLineAttrTo WhiteOnBlue
  162.     SetTopLineTo "  DSP16 Installation  "
  163.     SetBottomLineAttrTo BlueOnLightgray
  164.     SetBottomLineTo " Press <ESC> to Abort Installation"
  165. EndProcedure
  166.  
  167. Procedure GetCDROMType
  168.     GetMenuChoice UseHeader "Specify CDROM Type"
  169.         "     None"
  170.         "     Sony single-spin AT (using DSP16 interface) "
  171.         "     Sony double-spin AT (using DSP16 interface) "
  172.         "     Mitsumi AT single-spin (using DSP16-oem interface)"
  173.         "     Mitsumi AT double-spin (using DSP16-oem interface)"
  174.         "     Panasonic AT double-spin (using DSP16-oem interface)"
  175.         "     Generic SCSI (using DSP16 interface)"
  176.         "     Nec SCSI (using DSP16 interface)"
  177.         "     Sony SCSI (using DSP16 interface)"
  178.         "     Other (using other interface card)"
  179.     EndGetMenuChoice
  180.  
  181.     InCase Choice is
  182.         =1:     [cdrom_type] := none
  183.             [InstallDrivers] := NoCharacter
  184.         =2:     [cdrom_type] := SonyAtSingle
  185.             [InstallDrivers] := YesCharacter
  186.             Do GetSonyAtParameters
  187.         =3:     [cdrom_type] := SonyAtDouble
  188.             [InstallDrivers] := YesCharacter
  189.             Do GetSonyAtParameters
  190.         =4:     [cdrom_type] := MitsumiAtSingle
  191.             [InstallDrivers] := NoCharacter
  192.             Do GetMitsumiAtParameters
  193.         =5:     [cdrom_type] := MitsumiAtDouble 
  194.             [InstallDrivers] := NoCharacter
  195.             Do GetMitsumiAtParameters
  196.         =6:     [cdrom_type] := PanasonicAtDouble
  197.             [InstallDrivers] := NoCharacter
  198.             Do GetPanasonicAtParameters
  199.         =7:     [cdrom_type] := GenericScsi
  200.             [InstallDrivers] := YesCharacter
  201.             Do GetScsiParameters
  202.         =8:     [cdrom_type] := NecScsi
  203.             [InstallDrivers] := YesCharacter
  204.             Do GetScsiParameters
  205.         =9:     [cdrom_type] := SonyScsi
  206.             [InstallDrivers] := YesCharacter
  207.             Do GetScsiParameters
  208.         =10:     [cdrom_type] := other
  209.             [InstallDrivers] := NoCharacter
  210.     EndInCase
  211. EndProcedure ;;GetCDROMType
  212.  
  213.  
  214. Procedure GetSonyAtParameters
  215.     GetMenuChoice UseHeader "Please Specify Sony CDROM Base Address"
  216.         "        0300 (Default)"    ;; 1
  217.         "        0320"             ;; 2
  218.         "        0330"            ;; 3
  219.         "        0340"            ;; 4
  220.         "        0360"            ;; 5
  221.     EndGetMenuChoice
  222.  
  223.     InCase Choice is
  224.         =1: [cdrom_address] := 0300
  225.         =2: [cdrom_address] := 0320
  226.         =3: [cdrom_address] := 0330
  227.         =4: [cdrom_address] := 0340
  228.         =5: [cdrom_address] := 0360
  229.     EndInCase
  230.  
  231. :getsonyinterrupt
  232.     
  233.     GetMenuChoice UseHeader "Please Specify Sony CDROM Interrupt"
  234.         "       IRQ10 (Default)"    ;; 1
  235.         "       IRQ12"            ;; 2
  236.         "       IRQ11"            ;; 3
  237.         "       IRQ9"            ;; 4
  238.         "       IRQ5"            ;; 5
  239.         "       IRQ3"            ;; 6
  240.     EndGetMenuChoice
  241.  
  242.     InCase Choice is
  243.         =1: [cdrom_interrupt] := 10
  244.         =2: [cdrom_interrupt] := 12
  245.         =3: [cdrom_interrupt] := 11
  246.         =4: [cdrom_interrupt] := 9
  247.         =5: [cdrom_interrupt] := 5
  248.         =6: [cdrom_interrupt] := 3
  249.     EndInCase
  250.  
  251.     If [cdrom_interrupt] = [sb_interrupt]
  252.         Dialog [YesOrNo1] WhiteOnRed
  253.             .lWarning there is a conflict between the choice
  254.             .lof interrupt numbers (IRQ[sb_interrupt]) for the Sound Blaster
  255.             .lMode interrupt and the CDROM interrupt.
  256.             .l
  257.             .lDo you wish to respecify the interrupt number
  258.             .lfor the CDROM?
  259.             .l
  260.             .lIf you are unsure please Quit Program at this
  261.             .ltime and consult the appropriate Users Manuals
  262.             .lto determine the correct interrupt numbers.
  263.             .l
  264.         EndDialog
  265.         If [YesOrNo1] = Y
  266.             goto getsonyinterrupt
  267.         Endif
  268.     Endif
  269.  
  270. EndProcedure    ;;GetSonyAtParameters
  271.  
  272. Procedure GetMitsumiAtParameters
  273.     GetMenuChoice UseHeader "Please Specify Mitsumi CDROM Base Address"
  274.         "        0300 (Default)"    ;; 1
  275.         "        0310"            ;; 2
  276.         "        0320"            ;; 3
  277.         "        0330"            ;; 4
  278.         "        0340"            ;; 5
  279.         "        0350"            ;; 6
  280.         "        0360"            ;; 7
  281.         "        0370"            ;; 8
  282.     EndGetMenuChoice
  283.  
  284.     InCase Choice is
  285.         =1: [cdrom_address] := 300
  286.         =2: [cdrom_address] := 310
  287.         =3: [cdrom_address] := 320
  288.         =4: [cdrom_address] := 330
  289.         =5: [cdrom_address] := 340
  290.         =6: [cdrom_address] := 350
  291.         =7: [cdrom_address] := 360
  292.         =8: [cdrom_address] := 370
  293.     EndInCase
  294.  
  295.     GetMenuChoice UseHeader "Please Specify Mitsumi CDROM Interrupt"
  296.         "       IRQ10 (Default)"        ;; 4
  297.         "       IRQ11"                ;; 5
  298.         "       IRQ12"                ;; 6
  299.         "       IRQ9"                ;; 3
  300.         "       IRQ5"                ;; 2
  301.         "       IRQ3                    ;; 1
  302.         "       none (if no free IRQ's)"    ;; 7
  303.     EndGetMenuChoice
  304.  
  305.     InCase Choice is
  306.         =1: [cdrom_interrupt] := 10
  307.         =2: [cdrom_interrupt] := 11
  308.         =3: [cdrom_interrupt] := 12
  309.         =5: [cdrom_interrupt] := 9
  310.         =4: [cdrom_interrupt] := 5
  311.         =6: [cdrom_interrupt] := 3
  312.         =7: [cdrom_interrupt] := 999
  313.     EndInCase
  314. EndProcedure    ;;GetMitsumiAtParameters
  315.  
  316. Procedure GetPanasonicAtParameters
  317.     GetMenuChoice UseHeader "Please Specify Panasonic CDROM Base Address"
  318.         "        0300 (Default)"    ;; 1
  319.         "        0310"            ;; 2
  320.         "        0320"            ;; 3
  321.         "        0330"            ;; 4
  322.         "        0340"            ;; 5
  323.         "        0350"            ;; 6
  324.         "        0360"            ;; 7
  325.         "        0370"            ;; 8
  326.     EndGetMenuChoice
  327.  
  328.     InCase Choice is
  329.         =1: [cdrom_address] := 300
  330.         =2: [cdrom_address] := 310
  331.         =3: [cdrom_address] := 320
  332.         =4: [cdrom_address] := 330
  333.         =5: [cdrom_address] := 340
  334.         =6: [cdrom_address] := 350
  335.         =7: [cdrom_address] := 360
  336.         =8: [cdrom_address] := 370
  337.     EndInCase
  338.  
  339.     [cdrom_interrupt] := 999
  340.  
  341. EndProcedure    ;;GetPanasonicAtParameters
  342.  
  343.  
  344. Procedure GetScsiParameters
  345.     GetMenuChoice UseHeader "Please Specify SCSI Base Address (must match jumper)"
  346.         "        0340 (Default)"    ;; 1
  347.         "        0140"            ;; 2
  348.     EndGetMenuChoice
  349.  
  350.     InCase Choice is
  351.         =1: [cdrom_address] := 340
  352.         =2: [cdrom_address] := 140
  353.     EndInCase
  354.     GetMenuChoice UseHeader "Please Specify Scsi Interrupt"
  355.         "       IRQ10 (Default)"    ;; 1
  356.         "       IRQ12"            ;; 2
  357.         "       IRQ11"            ;; 3
  358.         "       IRQ9"            ;; 4
  359.         "       IRQ5"            ;; 5
  360.         "       IRQ3"            ;; 6
  361.     EndGetMenuChoice
  362.  
  363.     InCase Choice is
  364.         =1: [cdrom_interrupt] := 10
  365.         =2: [cdrom_interrupt] := 12
  366.         =3: [cdrom_interrupt] := 11
  367.         =4: [cdrom_interrupt] := 9
  368.         =5: [cdrom_interrupt] := 5
  369.         =6: [cdrom_interrupt] := 3
  370.     EndInCase
  371. EndProcedure    ;;GetScsiParameters
  372.  
  373. Procedure GetSoundBlasterParameters
  374.     GetMenuChoice UseHeader "Please Specify SoundBlaster Interrupt"
  375.         "       IRQ7 (Default)"    ;; 1
  376.         "       IRQ5"        ;; 2
  377.         "       IRQ3"        ;; 3
  378.     EndGetMenuChoice
  379.  
  380.     InCase Choice is
  381.         =1: [sb_interrupt] := 7
  382.         =2: [sb_interrupt] := 5
  383.         =3: [sb_interrupt] := 3
  384.     EndInCase
  385.  
  386.     GetMenuChoice UseHeader "Please Specify SoundBlaster DMA Channel"
  387.         "       DMA1 (Default)"    ;; 1
  388.         "       DMA0"        ;; 2
  389.     EndGetMenuChoice
  390.  
  391.     InCase Choice is
  392.         =1: [sb_dma] := 1
  393.         =2: [sb_dma] := 0
  394.     EndInCase
  395. EndProcedure    ;;GetSoundBlasterParameters
  396.  
  397.  
  398. Procedure UpdateConfigSys
  399.  
  400.     If [cdrom_type] = SonyAtSingle
  401.         ModifyConfigSys Quietly IncludeDisabled
  402.             AddOrChangeLineWith (DEVICE,=,slcd.sys) As "DEVICE=[InstallationDirectory]\SONY\SLCD.SYS /B:[cdrom_address] /D:MSCD001 /M:P /V /C" at End
  403.         EndModifyConfigSys
  404.     Endif
  405.  
  406.     If [cdrom_type] = SonyAtDouble
  407.         ModifyConfigSys Quietly IncludeDisabled
  408.             AddOrChangeLineWith (DEVICE,=,slcd.sys) As "DEVICE=[InstallationDirectory]\SONY\SLCD.SYS /B:[cdrom_address] /D:MSCD001 /M:P /V /C /2" at End
  409.         EndModifyConfigSys
  410.     Endif
  411.  
  412.     If [cdrom_type] = MitsumiAtSingle
  413.         If [cdrom_interrupt] = 999
  414.             ModifyConfigSys Quietly IncludeDisabled
  415.                 AddOrChangeLineWith (DEVICE,=,mtmcds.sys) As "DEVICE=[InstallationDirectory]\MITSUMI\MTMCDS.SYS /D:MSCD001 /P:[cdrom_address] /A:0" at End
  416.             EndModifyConfigSys
  417.         Else
  418.             ModifyConfigSys Quietly IncludeDisabled
  419.                 AddOrChangeLineWith (DEVICE,=,mtmcde.sys) As "DEVICE=[InstallationDirectory]\MITSUMI\mtmcde.sys /D:MSCD001 /M:64 /I:[cdrom_interrupt] /P:[cdrom_address] /T:S /A:0 /X" at End
  420.             EndModifyConfigSys
  421.         Endif
  422.     Endif
  423.  
  424.     If [cdrom_type] = MitsumiAtDouble
  425.         If [cdrom_interrupt] = 999
  426.             ModifyConfigSys Quietly IncludeDisabled
  427.                 AddOrChangeLineWith (DEVICE,=,mtmcds.sys) As "DEVICE=[InstallationDirectory]\MITSUMI\MTMCDS.SYS /D:MSCD001 /P:[cdrom_address] /A:0" at End
  428.             EndModifyConfigSys
  429.         Else
  430.             ModifyConfigSys Quietly IncludeDisabled
  431.                 AddOrChangeLineWith (DEVICE,=,mtmcdea.sys) As "DEVICE=[InstallationDirectory]\MITSUMI\mtmcdae.sys /D:MSCD001 /P:[cdrom_address] /A:0 /M:64 /T:S /I:[cdrom_interrupt] /X" at End
  432.             EndModifyConfigSys
  433.         Endif
  434.     Endif
  435.  
  436.     If [cdrom_type] = PanasonicAtDouble
  437.         ModifyConfigSys Quietly IncludeDisabled
  438.             AddOrChangeLineWith (DEVICE,=,cdmke41.sys) As "DEVICE=[InstallationDirectory]\PANASONC\CDMKE41.SYS /P:[cdrom_address] /D:MSCD001 /R" at End
  439.         EndModifyConfigSys
  440.     Endif
  441.  
  442.     If [cdrom_type] = GenericScsi
  443.         ModifyConfigSys Quietly IncludeDisabled
  444.             AddOrChangeLineWith (DEVICE,=,aspi2dos.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPI2DOS.SYS /P[cdrom_address] /Q[cdrom_interrupt] /D /Z /U-" at End
  445.             AddOrChangeLineWith (DEVICE,=,aspicd.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPICD.SYS /D:ASPICD0" at End
  446.         EndModifyConfigSys
  447.     Endif
  448.  
  449.     If [cdrom_type] = NecScsi
  450.         ModifyConfigSys Quietly IncludeDisabled
  451.             AddOrChangeLineWith (DEVICE,=,aspi2dos.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPI2DOS.SYS /P[cdrom_address] /Q[cdrom_interrupt] /D /Z /Y /C /U-" at End
  452.             AddOrChangeLineWith (DEVICE,=,aspicd.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPICD.SYS /D:ASPICD0" at End
  453.         EndModifyConfigSys
  454.     Endif
  455.  
  456.     If [cdrom_type] = SonyScsi
  457.         ModifyConfigSys Quietly IncludeDisabled
  458.             AddOrChangeLineWith (DEVICE,=,aspi2dos.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPI2DOS.SYS /P[cdrom_address] /Q[cdrom_interrupt] /D /Z /B /U-" at End
  459.             AddOrChangeLineWith (DEVICE,=,aspicd.sys) As "DEVICE=[InstallationDirectory]\ADAPTEC\ASPICD.SYS /D:ASPICD0" at End
  460.         EndModifyConfigSys
  461.     Endif
  462.  
  463.  
  464.     If [cdrom_type] = none
  465.         ModifyConfigSys IncludeDisabled
  466.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  467.         EndModifyConfigSys
  468.     Endif
  469.  
  470.     If ([cdrom_type] = SonyAtSingle) .OR. ([cdrom_type] = SonyAtDouble)
  471.         ModifyConfigSys IncludeDisabled
  472.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /A[cdrom_address] /Q[cdrom_interrupt] /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  473.         EndModifyConfigSys
  474.     Endif
  475.  
  476.     If ([cdrom_type] = MitsumiAtSingle) .OR. ([cdrom_type] = MitsumiAtDouble)
  477.         ModifyConfigSys IncludeDisabled
  478.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /A[cdrom_address] /Q[cdrom_interrupt] /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  479.         EndModifyConfigSys
  480.     Endif
  481.  
  482.     If [cdrom_type] = PanasonicAtDouble
  483.         ModifyConfigSys IncludeDisabled
  484.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /A[cdrom_address] /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  485.         EndModifyConfigSys
  486.     Endif
  487.  
  488.     If ([cdrom_type] = GenericScsi) .OR. ([cdrom_type] = NecScsi) .OR. ([cdrom_type] = SonyScsi)
  489.         ModifyConfigSys IncludeDisabled
  490.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /Q[cdrom_interrupt] /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  491.         EndModifyConfigSys
  492.     Endif
  493.  
  494.     If [cdrom_type] = other
  495.         ModifyConfigSys IncludeDisabled
  496.             AddOrChangeLineWith (DEVICE,=,DSP16.sys) As "DEVICE=[InstallationDirectory]\DSP16.SYS /F[InstallationDirectory]\dsp001.ld /M0330 /R5 /I[sb_interrupt] /D[sb_dma] /J[game_enable]" at Beginning
  497.         EndModifyConfigSys
  498.     Endif
  499.     
  500. EndProcedure ;;UpdateConfigSys
  501.  
  502. Procedure UpdateAutoexec
  503.  
  504.     If ([cdrom_type] = SonyAtSingle) .OR. ([cdrom_type] = SonyAtDouble)
  505.         ModifyAutoexecBat Quietly IncludeDisabled
  506.             AddOrChangeLineWith (MSCDEX.exe) As "[dos_directory]\MSCDEX.EXE /D:MSCD001 /L:[last_drive] /M:12" at Beginning
  507.         EndModifyAutoexecBat
  508.     Endif
  509.  
  510.     If ([cdrom_type] = MitsumiAtSingle) .OR. ([cdrom_type] = MitsumiAtDouble)
  511.         ModifyAutoexecBat Quietly IncludeDisabled
  512.             AddOrChangeLineWith (MSCDEX.exe) As "[dos_directory]\MSCDEX.EXE /D:MSCD001 /L:[last_drive] /M:12" at Beginning
  513.         EndModifyAutoexecBat
  514.     Endif
  515.  
  516.     If [cdrom_type] = PanasonicAtDouble
  517.         ModifyAutoexecBat Quietly IncludeDisabled
  518.             AddOrChangeLineWith (MSCDEX.exe) As "[dos_directory]\MSCDEX.EXE /D:MSCD001 /L:[last_drive] /M:12" at Beginning
  519.         EndModifyAutoexecBat
  520.     Endif
  521.  
  522.     If ([cdrom_type] = GenericScsi) .OR. ([cdrom_type] = NecScsi) .OR. ([cdrom_type] = SonyScsi)
  523.         ModifyAutoexecBat Quietly IncludeDisabled
  524.             AddOrChangeLineWith (MSCDEX.exe) As "[dos_directory]\MSCDEX.EXE /D:ASPICD0 /L:[last_drive] /M:12" at Beginning
  525.         EndModifyAutoexecBat
  526.     Endif
  527.  
  528.     [sb_number] := [sb_interrupt]
  529.  
  530.     If [sb_interrupt] = 5
  531.         [sb_number] := 7
  532.     Endif
  533.  
  534.     If [sb_interrupt] = 7
  535.         [sb_number] := 8
  536.     Endif
  537.  
  538.     ModifyAutoexecBat IncludeDisabled
  539.         AddOrChangeLineWith (dsp16vol.exe) As "[InstallationDirectory]\dsp16vol 75" at Beginning
  540.         AddOrChangeLineWith (SET,BLASTER)  As "SET BLASTER=A220 I[sb_interrupt] D[sb_dma]" at Beginning
  541.     EndModifyAutoexecBat
  542.     
  543. EndProcedure    ;;UpdateAutoexec
  544.  
  545.  
  546. Procedure GetJoyStickStatus
  547.     GetMenuChoice UseHeader "Select Joystick Preference"
  548.         "        Disabled"    ;; 1
  549.         "        Enabled"    ;; 2
  550.     EndGetMenuChoice
  551.  
  552.     InCase Choice is
  553.         =1: [game_enable] := 0
  554.         =2: [game_enable] := 1
  555.     EndInCase
  556. EndProcedure    ;;GetJoyStickStatus
  557.  
  558.  
  559. Procedure GetLastDrive
  560.     [last_drive] := D
  561.  
  562. :getlastdriveloop
  563.     If DriveIsPresent [last_drive]
  564.         If [last_drive] = Z
  565.             goto gotlastdrive
  566.         Endif
  567.         IncrementString [last_drive]
  568.         goto getlastdriveloop
  569.     Else
  570.             goto gotlastdrive
  571.     Endif
  572.  
  573. :gotlastdrive
  574.     If [last_drive] = Z
  575.         Popup Cannot Determine Last Drive on System! - Terminating Install
  576.         Solong
  577.     Endif
  578. EndProcedure    ;;GetLastDrive
  579.  
  580.  
  581. Procedure Terminate
  582.     Popup Terminating Install Program
  583.     Solong
  584. EndProcedure
  585.  
  586.  
  587. EndScript
  588.