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