home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / SNX-IDE.LHA / idefix / Install < prev    next >
Encoding:
Text File  |  1997-04-15  |  27.0 KB  |  990 lines
  1. ;$VER: IDEfix Install 45.1 (18.06.95)
  2. ;Copyright ©1993/1994/1995 Elaborate Bytes, Oliver Kastl
  3.  
  4. ( set #ControlDefault 1 )
  5.  
  6. (onerror
  7.     (makeassign "CacheCDFSInst" (safe))
  8.     (makeassign "CacheCDFS" (safe))
  9. )
  10.  
  11. (set #autoMount 1)
  12. (set #CDDevice_NC "CD0" )
  13. (set #instEjectCD 1)
  14. (set #ReplaceOld 1 )
  15. (set #DeleteOld 1 )
  16.  
  17. (set #wbversion (getversion "libs:version.library"))
  18. (set #wbversion (/ #wbversion 65536) )
  19.  
  20. (complete 0)
  21.  
  22. (if (< #wbversion 37)
  23.     (abort "\n\nAmigaDOS 2.04 or higher is required for CacheCDFS! "
  24.              "\n\nAn upgrade will be needed for your Amiga." )
  25. )
  26.  
  27.  
  28. (if (< (getdiskspace "SYS:") 61440)
  29.     (abort "\n\nApproximately 60K of disk space is needed on your SYS: volume."
  30.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  31.              "Delete or transfer some files from the SYS: volume and try again." )
  32. )
  33.  
  34. (makeassign "CacheCDFSInst" "" ( safe) )
  35.  
  36.  
  37. (set #theirlevel @user-level )
  38.  
  39. (set #Match ( run "CacheCDFSInst:CheckIDEfix" ( safe ) ) )
  40.  
  41. (if (= #Match 0)
  42.     (
  43.     (copylib
  44.         (prompt "This will copy the IDEfix program to your C: directory.")
  45.         (help "This will copy the IDEfix program to your C: directory.")
  46.         (source "CacheCDFSInst:C/IDEfix")
  47.         (confirm)
  48.         (dest "C:")
  49.     )
  50.     (copylib
  51.         (prompt "This will copy the LoadIDE program to your C: directory.")
  52.         (help "This will copy the LoadIDE program to your C: directory.")
  53.         (source "CacheCDFSInst:C/LoadIDE")
  54.         (confirm)
  55.         (dest "C:")
  56.     )
  57.  
  58.     (copylib
  59.         (prompt "This will copy the MountIDE program to your C: directory.")
  60.         (help "This will copy the MountIDE program to your C: directory.")
  61.         (source "CacheCDFSInst:C/MountIDE")
  62.         (confirm)
  63.         (dest "C:")
  64.     )
  65.  
  66.     (user 2)
  67.  
  68.     (message "IDEfix, LoadIDE and MountIDE are installed in your C: "
  69.              "directory. You must start IDEfix manually, as this program "
  70.              "will NOT alter your startup-sequence! "
  71.              "\n\nEnter \"IDEfix\" or \"LoadIDE reset\" behind SetPatch in your startup-sequence "
  72.              "to use IDEfix! "
  73.              "\n\nUse \"MountIDE force\" from the CLI to mount additional SyQuest cartridges! "
  74.              "\n\nClick PROCEED to install CacheCDFS and/or ATAPI. Click ABORT to quit.")
  75.  
  76.     )
  77. )
  78.  
  79. (user 2)
  80.  
  81. (message "\n\nNow the FindCD program will be launced to find "
  82.          "the Device and Unit of your CD-Rom..."
  83.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  84.          "\n\nChoose the device and unit and click \"USE\"!"
  85.          "\n\nIf FindCD hangs: Reboot, start the installation again and "
  86.          "click CANCEL within FindCD!")
  87.  
  88. (working "\n\nLaunching the FindCD program to find "
  89.          "the Device and Unit of your CD-Rom..."
  90.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  91.          "\n\nChoose the device and unit and click \"USE\"!"
  92.          "\n\nIf FindCD hangs: Reboot, start the installation again and "
  93.          "click CANCEL within FindCD!")
  94.  
  95. (set #Product ( run "CacheCDFSInst:FindCD PATH=CacheCDFSInst:Devs add" ( safe ) ) )
  96.  
  97.  
  98. (if ( NOT (= #Product 0) )
  99.     (
  100.     (set #CDROM_Device
  101.         (askstring
  102.             (prompt "\n\nWhat is the name for the exec device driver? " )
  103.             (default "scsi.device" )
  104.             (help "\n\nThis is the name of the device driver to use. "
  105.                     "The name is different for different configurations. "
  106.                     "\n\nConsult the manual of your SCSI/CD-Rom host adapter "
  107.                     "if you don't know the name!" )
  108.         )
  109.     )
  110.  
  111.     (set #CDROM_Unit
  112.         (asknumber
  113.             (prompt "\n\nWhat is the Unit number of your CD-Rom drive?" )
  114.             (default 5 )
  115.             (help "\n\nThis is the unit # of the CD-Rom drive.  This is usually a "
  116.                     "numerical value between 0 and 7." )
  117.         )
  118.     )
  119.     )
  120. )
  121.  
  122. (if (= #Product 0 )
  123.     (
  124.     ( set #CDROM_Device (getenv "CDROM_Device" ))
  125.     ( set #CDROM_Unit (+ (getenv "CDROM_Unit" )))
  126.     )
  127. )
  128.  
  129. ( set #SourcePath (tackon "CacheCDFSInst:devs" #CDROM_Device))
  130.  
  131. (user #theirlevel)
  132.  
  133. (if (exists #SourcePath )
  134.     (
  135.     (copylib
  136.         (prompt "This will copy the " #CDROM_Device " to your DEVS: directory.")
  137.         (help "This will copy the " #CDROM_Device " to your DEVS: directory.")
  138.         (source #SourcePath)
  139.         (confirm)
  140.         (dest "DEVS:")
  141.     )
  142.     )
  143. )
  144.  
  145.  
  146. (set #DevFlags 0)
  147.  
  148. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(tandemat#?|#?atapi#?)" ( safe ) ) )
  149.  
  150. (if (= #Match 0)
  151.     (
  152.     (copylib
  153.         (prompt "This will copy the SetAtapiSpeed program to your C: directory.")
  154.         (help "This will copy the SetAtapiSpeed program to your C: directory.")
  155.         (source "CacheCDFSInst:C/SetAtapiSpeed")
  156.         (confirm)
  157.         (dest "C:")
  158.     )
  159.     (set #DevFlags 1)
  160.     )
  161. )
  162.  
  163. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(tandem#?|#?atapi#?|oktagon#?)" ( safe ) ) )
  164.  
  165. (if (= #Match 0)
  166.     ((set #ControlDefault 2))
  167. )
  168.  
  169. (set #Match ( run "CacheCDFSInst:MatchPattern NAME="#CDROM_Device" PATTERN=(scsi.#?|???.scsi.#?)" ( safe ) ) )
  170.  
  171. (if (= #Match 0)
  172.     ((set #ControlDefault 5))
  173. )
  174.  
  175. (if (= #CDROM_Device "gvpscsi.device")
  176.     ((set #ControlDefault 8))
  177. )
  178.  
  179.  
  180. (complete 20 )
  181.  
  182. (user 2)
  183.  
  184. (set #ControlMask 
  185.     (askoptions
  186.         (prompt "FileSystem -> Controller Configuration")
  187.         (choices "Use SCSI Direct" 
  188.                     "Use Diskchange Interrupt"
  189.                     "Use 24 Bit-DMA"
  190.                     "Use Motor off" )
  191.         (help    "Here You may define the behaviour of the CacheCDFS accessing the " 
  192.               #CDROM_Device ". If you are "
  193.                 "not sure what option is correct, leave the default settings as they "
  194.                 "are. They should work in most cases.\n"
  195.                 "These options may later be altered using the CDFSprefs program. "
  196.                 "However, wrong settings may lead to crashes if you mount the "
  197.                 "FileSystem!\n"
  198.                 "IF YOU HAVE A TANDEMCD / CD1200: YOU MUST DISABLE \"USE SCSI DIRECT\"!\n\n"
  199.  
  200.                 "\"Use SCSI Direct\"\n"
  201.                 "Choose this option if the SCSI controller using "
  202.                 #CDROM_Device " cannot handle DoIO reads with 2048 bytes sectorsize "
  203.                 "correctly (e.g. ALFII, controllers from Progressive Peripherals, Emplant).\n"
  204.                 "Do NOT choose this option if your controller is a modern, well designed "
  205.                 "SCSI controller (ALFIII, Oktagon, A2091, A3000, A4091) or if it is "
  206.                 "NO SCSI controller at all (TandemCD)!\n\n"
  207.  
  208.                 "\"Use Diskchange Interrupt\"\n"
  209.                 "Choose this option if the controller using "
  210.                 #CDROM_Device " does properly handle TD_ADDCHANGEINT and TD_REMCHANGEINT. "
  211.                 "All modern controllers should do this (ALFIII, Oktagon, TandemCD, "
  212.                 "GVP Series-II)\n"
  213.                 "Do NOT choose this option if your controller has problems with diskchange "
  214.                 "Interrupts (old ROM versions of A2091, A3000, A4091, controllers from "
  215.                 "Progressive Peripherals, Emplant)\n\n"
  216.  
  217.                 "\"Use 24 Bit-DMA\"\n"
  218.                 "Choose this option if the SCSI or CD controller using "
  219.                 #CDROM_Device " is a 24-Bit (Zorro II) DMA device "
  220.                 "(e.g. A2091 from Commodore).\n"
  221.                 "Do NOT choose this option if your controller is a 32-Bit "
  222.                 "(Zorro III) device (e.g. FastLane, A3000, A4091), or a non-DMA controller "
  223.                 "like the majority of controllers (e.g. ALFII/III, Oktagon, "
  224.                 "TandemCD, Golem, IVS TrumpCard, Supra) as it will lead to "
  225.                 "decreased performance!\n\n"
  226.  
  227.                 "\"Use Motor off\"\n"
  228.                 "Choose this option if the SCSI controller using "
  229.                 #CDROM_Device " is a GVP controller with \"Faaast\" roms.\n"
  230.                 "Do NOT choose this option if your controller is anything else."
  231.             )
  232.         (default #ControlDefault)
  233.     )
  234. )
  235.  
  236. (set #BufMemType  "1 /* MEMF_PUBLIC */\n" )
  237. (set #BufMemInt  1 )
  238.  
  239. (if (IN #ControlMask 2)
  240.     (
  241.     (set #BufMemType  "513 /* MEMF_PUBLIC|MEMF_24BITDMA */\n")
  242.     (set #BufMemInt  513 )
  243.     )
  244. )
  245.  
  246. (set #Control "\"MD=0 LC=1 DC=8 L LV AL LFC=1")
  247.  
  248.  
  249. (if (IN #ControlMask 0)
  250.     (
  251.     (set #Control (cat #Control " S"))
  252.     )
  253. )
  254.  
  255. (if (NOT (IN #ControlMask 1))
  256.     (
  257.     (set #Control (cat #Control " NC"))
  258.     )
  259. )
  260.  
  261. (if (IN #ControlMask 3)
  262.     (
  263.     (set #Control (cat #Control " M"))
  264.     )
  265. )
  266.  
  267.  
  268. (set #Control (cat #Control "\"\n"))
  269.  
  270.  
  271. (set #autoMount
  272.     (askbool
  273.         (prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?\n\n"
  274.                 "NOTE: If you are unsure if your controller will work correctly with "
  275.                 "the controller settings, you should select \"NO\"!" )
  276.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount CacheCDFS.")
  277.         (default 1)
  278.     )
  279. )
  280.  
  281.  
  282. (if #autoMount
  283.     (set #mountDirectory "DEVS:DOSDrivers")
  284. )
  285.  
  286. (if (not #autoMount)
  287.     (set #mountDirectory "SYS:Storage/DOSDrivers")
  288. )
  289.  
  290. (set #CDDevice_NC
  291.     (askstring
  292.         (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n"
  293.         "(The trailing colon MUST NOT be present)" 
  294.         )
  295.         (default #CDDevice_NC )
  296.         (help "\n\nThis is the name under which AmigaDOS will reference the "
  297.                 "CD-Rom as.  While usually "
  298.                 #CDDevice_NC
  299.                 ", it can be any name you choose. "
  300.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  301.     )
  302. )
  303.  
  304.  
  305. (set #CDDevice (cat #CDDevice_NC ":") )
  306.  
  307.  
  308. (set #CDFSDir
  309.     (askdir
  310.         (prompt "\n\nSpecify the directory in which the CacheCDFS support programs will be placed:" )
  311.         (help "\n\nCacheCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
  312.         (default @default-dest)
  313.         (newpath)
  314.     )
  315. )
  316.  
  317. (set @default-dest #CDFSDir)
  318.  
  319. (makeassign "CacheCDFS" #CDFSDir (safe))
  320.  
  321. (user #theirlevel)
  322.  
  323. (if (exists "CacheCDFSInst:C/Mount")
  324.     (
  325.     (copylib
  326.         (source "CacheCDFSInst:C/Mount")
  327.         (dest "C:")
  328.     ))
  329. )
  330.  
  331. (protect "l:CacheCDFS" "rwed" )
  332. (copylib
  333.     (prompt "\n\nCopying CDROM FileSystem to the l: directory.\n" )
  334.     (source "CacheCDFSInst:l/CacheCDFS")
  335.     (dest "l:")
  336.     (confirm)
  337.     (help "\n\nThis will copy over the CDROM FileSystem program to your "
  338.         "l: directory\n\nThis is an essential step in the installation "
  339.         "process." )
  340. )
  341.  
  342.  
  343. (if (exists "L:TandemCacheCDFS" )
  344.     (
  345.     ((set #DeleteOld
  346.         (askbool
  347.         (prompt "\n\n\"L:TandemCacheCDFS\" is present from an earlier installation."
  348.                 "\n\nDelete \"L:TandemCacheCDFS\" ?" )
  349.         (help "\n\nClick \"YES\" if \"L:TandemCacheCDFS\" should be "
  350.               "deleted and \"NO\" if not!")
  351.         (default 1)
  352.         )
  353.     ))
  354.  
  355.     (if #DeleteOld
  356.     ((protect "L:TandemCacheCDFS" "rwed" )
  357.     (delete "L:TandemCacheCDFS" )
  358.     ))
  359. ))
  360.  
  361. (if (exists "L:DemoCacheCDFS" )
  362.     (
  363.     ((set #DeleteOld
  364.         (askbool
  365.         (prompt "\n\n\"L:DemoCacheCDFS\" is present from an earlier installation."
  366.                 "\n\nDelete \"L:DemoCacheCDFS\" ?" )
  367.         (help "\n\nClick \"YES\" if \"L:DemoCacheCDFS\" should be "
  368.               "deleted and \"NO\" if not!")
  369.         (default 1)
  370.         )
  371.     ))
  372.  
  373.     (if #DeleteOld
  374.     ((protect "L:DemoCacheCDFS" "rwed" )
  375.     (delete "L:DemoCacheCDFS" )
  376.     ))
  377. ))
  378.  
  379. (complete 30 )
  380.  
  381.  
  382. (if (< #wbversion 38)
  383.     ((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  384.     (if #autoMount
  385.         ((protect "S:User-Sequence" "srwed" )
  386.  
  387.         (startup "CacheCDFS"
  388.             (command #startupCommand )
  389.             (prompt "\n\nInserting MOUNT command into the startup-sequence")
  390.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  391.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  392.                     "automatically start CacheCDFS upon bootup." )
  393.         ))
  394.     )
  395.     (if (not #autoMount)
  396.         ((protect "S:User-Sequence" "srwed" )
  397.  
  398.         (startup "CacheCDFS"
  399.             (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  400.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  401.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file because you didn't "
  402.                     "want to automatically start CacheCDFS upon bootup." )
  403.         ))
  404.     )
  405.  
  406.     (if (exists (cat "devs:MountList." #CDDevice_NC ) )
  407.         ((set #ReplaceOld
  408.             (askbool
  409.             (prompt "\n\nDEVS:MountList." #CDDevice_NC" already exists!\n\n"
  410.                     "Do you want to replace it?" )
  411.             (help "\n\nClick \"YES\" if DEVS:MountList."#CDDevice_NC" should be "
  412.                   "replaced and \"NO\" if not!")
  413.             (default 1)
  414.             )
  415.         ))
  416.     )
  417.  
  418.     (if #ReplaceOld
  419.  
  420.     ((protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  421.  
  422.     (textfile
  423.         (dest (cat "devs:MountList." #CDDevice_NC) )
  424.         (append "/***************************************************************/\n"
  425.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  426.                   "/***************************************************************/\n")
  427.         (append #CDDevice "\n")
  428.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  429.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  430.         (append "    Unit           = "#CDROM_Unit" /* exec device unit */\n" )
  431.         (append "    Flags          = " #DevFlags " /* OpenDevice flags */\n")
  432.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  433.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  434.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  435.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  436.         (append "    Reserved       = 0 /* Unused */\n")
  437.         (append "    Interleave     = 0 /* Unused */\n")
  438.         (append "    LowCyl         = 0 /* Unused */\n")
  439.         (append "    HighCyl        = 0 /* Unused */\n")
  440.         (append "    Surfaces       = 1 /* Unused */\n")
  441.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  442.         (append "    BufMemType     = " #BufMemType )
  443.         (append "    GlobVec        = -1 /* Do not change! */\n")
  444.         (append "    Mount          = 1 /* Mount it immediately */\n")
  445.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  446.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  447.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  448.         (append "    Control        = "#Control)
  449.         (append "   /* The Control field is for special adjustments */\n")
  450.         (append "   /* L/S convert all file names to lowercase */\n")
  451.         (append "   /* LV/S convert volume names to lowercase */\n")
  452.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  453.         (append "   /* LFC/N start converting at this character */\n")
  454.         (append "   /* LC/N/A number of blocks per cache line */\n")
  455.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  456.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  457.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  458.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  459.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  460.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  461.         (append "#\n")
  462.     )
  463.     (protect (cat "devs:MountList." #CDDevice_NC) "-e" )
  464.     )
  465.     )
  466. ))
  467.  
  468.  
  469.  
  470. (if (> #wbversion 37)
  471.     (
  472.     (if (exists "CacheCDFSInst:C/SetPatch")
  473.         (
  474.         (copylib
  475.                 (source "CacheCDFSInst:C/SetPatch")
  476.                 (dest "C:")
  477.         ))
  478.     )
  479.  
  480.     (if (exists (tackon #mountDirectory #CDDevice_NC ) )
  481.         ((set #ReplaceOld
  482.             (askbool
  483.             (prompt "\n\n" (tackon #mountDirectory #CDDevice_NC) " already exists!\n\n"
  484.                     "Do you want to replace it?" )
  485.             (help "\n\nClick \"YES\" if " (tackon #mountDirectory #CDDevice_NC) " should be "
  486.                   "replaced and \"NO\" if not!")
  487.             (default 1)
  488.             )
  489.         ))
  490.     )
  491.  
  492.     (if #ReplaceOld
  493.  
  494.     ((protect (tackon #mountDirectory #CDDevice_NC) "rwed" )
  495.  
  496.     (textfile
  497.         (dest (tackon #mountDirectory #CDDevice_NC) )
  498.         (append "/***************************************************************/\n"
  499.                   "/*  CacheCDFS mountlist entry © 1993 Elaborate Bytes, O. Kastl */\n"
  500.                   "/***************************************************************/\n")
  501.         (append "    FileSystem     = L:CacheCDFS /* The name of the game */\n" )
  502.         (append "    Device         = \""#CDROM_Device"\" /* Name of exec device driver */\n" )
  503.         (append "    Unit           = "#CDROM_Unit" /* exec device unit */\n" )
  504.         (append "    Flags          = " #DevFlags " /* OpenDevice flags */\n")
  505.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  506.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  507.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  508.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  509.         (append "    Reserved       = 0 /* Unused */\n")
  510.         (append "    Interleave     = 0 /* Unused */\n")
  511.         (append "    LowCyl         = 0 /* Unused */\n")
  512.         (append "    HighCyl        = 0 /* Unused */\n")
  513.         (append "    Surfaces       = 1 /* Unused */\n")
  514.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  515.         (append "    BufMemType     = " #BufMemType )
  516.         (append "    GlobVec        = -1 /* Do not change! */\n")
  517.         (append "    Mount          = 1 /* Mount it immediately */\n")
  518.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  519.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  520.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  521.         (append "    Control        = "#Control)
  522.         (append "   /* The Control field is for special adjustments */\n")
  523.         (append "   /* L/S convert all file/volume names to lowercase */\n")
  524.         (append "   /* LV/S convert volume names to lowercase */\n")
  525.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  526.         (append "   /* LFC/N start converting at this character */\n")
  527.         (append "   /* LC/N/A number of blocks per cache line */\n")
  528.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  529.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  530.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  531.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  532.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  533.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  534.     )
  535.  
  536.     (protect (tackon #mountDirectory #CDDevice_NC) "-e" )
  537.  
  538.     (copyfiles
  539.             (prompt "\n\nCopying Mountlist icon")
  540.             (source "CacheCDFSInst:Devs/DOSDrivers/CD0.info")
  541.             (dest #mountDirectory)
  542.             (newname (cat #CDDevice_NC ".info"))
  543.             (help "\n\nThis will copy over an icon for the mountlist file.")
  544.             (confirm)
  545.  
  546.     ))
  547.     )
  548.  
  549.     (protect "S:User-Sequence" "srwed" )
  550.     (startup "CacheCDFS"
  551.         (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  552.         (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  553.                 "\"S:Startup-Sequence\" or \"S:User-Startup\" file if it is present from "
  554.                 "an earlier installation." )
  555.         )
  556.  
  557.     (if ( exists ( cat "devs:MountList." #CDDevice_NC ) )
  558.  
  559.         ((protect (cat "devs:MountList." #CDDevice_NC) "rwed " )
  560.         (delete (cat "devs:MountList." #CDDevice_NC)
  561.             (prompt "\n\nDeleting file \"DEVS:MOUNTLIST." #CDDevice_NC "\"" )
  562.             (help "\n\nThe file \"DEVS:MOUNTLIST." #CDDevice_NC "\" will be deleted "
  563.                     "if it is present from an earlier installation." )
  564.             (confirm)
  565.             )
  566.         ))
  567.     )
  568. )
  569.  
  570.  
  571. (complete 40 )
  572.  
  573. (set #instCDFSprefs
  574.     (askbool
  575.         (prompt "\n\nShould the CDFSprefs utility be installed?")
  576.         (help "\n\nThis will copy over the CDFSprefs utility "
  577.                 "to your SYS:Prefs directory\n\nIf you do not "
  578.                 "wish the CDFSprefs program to be transferred to your system, "
  579.                 "skip this step.\n" )
  580.         (default 1)
  581.     )
  582. )
  583.  
  584. (if #instCDFSprefs
  585.     ((protect "CacheCDFS:CDFSprefs" "rwed" )
  586.     (protect "CacheCDFS:CDFSprefs.info" "rwed" )
  587.     (copylib
  588.         (prompt "\n\nCopying the CDFSprefs program to the "
  589.                   "SYS:Prefs directory." )
  590.         (source "CacheCDFSInst:CDFSprefs")
  591.         (dest "SYS:Prefs")
  592.         (infos)
  593.         (help "\n\nThis will copy over the CDFSprefs "
  594.                 "program to your SYS:Prefs directory\n\nIf you do not "
  595.                 "wish the CDFSprefs program to be transferred to your system, "
  596.                 "skip this step." )
  597.         (confirm)
  598.     )
  599.  
  600.     (tooltype
  601.         (dest "SYS:Prefs/CDFSprefs" )
  602.         (noposition)
  603.     )
  604. ))
  605.  
  606. (complete 60 )
  607.  
  608. (set #instKillDev
  609.     (askbool
  610.         (prompt "\n\nShould the KillDev utility be installed?")
  611.         (help "\n\nThis will copy over the KillDev utility "
  612.                 "to your CacheCDFS directory\n\nIf you do not "
  613.                 "wish the KillDev program to be transferred to your system, "
  614.                 "skip this step." )
  615.         (default 1)
  616.     )
  617. )
  618.  
  619. (if #instKillDev
  620.     ((protect "CacheCDFS:KillDev" "rwed" )
  621.     (protect "CacheCDFS:KillDev.info" "rwed" )
  622.     (copylib
  623.         (prompt "\n\nCopying the KillDev program to the "
  624.                   "CacheCDFS: directory.\n" )
  625.         (source "CacheCDFSInst:KillDev")
  626.         (dest "CacheCDFS:")
  627.         (infos)
  628.         (help "\n\nThis will copy over the KillDev "
  629.                 "program to your CacheCDFS: directory\n\nIf you do not "
  630.                 "wish the KillDev program to be transferred to your system, "
  631.                 "skip this step." )
  632.         (confirm)
  633.     )
  634.  
  635.     (tooltype
  636.         (dest "CacheCDFS:KillDev" )
  637.         (settooltype "DOSDEV" #CDDevice )
  638.         (noposition)
  639.     )
  640. ))
  641.  
  642. (set #instFindCD
  643.     (askbool
  644.         (prompt "\n\nShould the FindCD utility be installed?")
  645.         (help "\n\nThis will copy over the FindCD utility "
  646.                 "to your CacheCDFS directory\n\nIf you do not "
  647.                 "wish the FindCD program to be transferred to your system, "
  648.                 "skip this step." )
  649.         (default 1)
  650.     )
  651. )
  652.  
  653. (if #instFindCD
  654.     ((protect "CacheCDFS:FindCD" "rwed" )
  655.     (protect "CacheCDFS:FindCD.info" "rwed" )
  656.     (copylib
  657.         (prompt "\n\nCopying the FindCD program to the "
  658.                   "CacheCDFS: directory.\n" )
  659.         (source "CacheCDFSInst:FindCD")
  660.         (dest "CacheCDFS:")
  661.         (infos)
  662.         (help "\n\nThis will copy over the FindCD "
  663.                 "program to your CacheCDFS: directory\n\nIf you do not "
  664.                 "wish the FindCD program to be transferred to your system, "
  665.                 "skip this step." )
  666.         (confirm)
  667.     )
  668.  
  669.     (tooltype
  670.         (dest "CacheCDFS:FindCD" )
  671.         (noposition)
  672.     )
  673.  
  674. ))
  675.  
  676. (complete 70 )
  677.  
  678.  
  679. (if #instEjectCD
  680.     (
  681.     (set #instEjectCD
  682.     (askbool
  683.         (prompt "\n\nShould the EjectCD utility be installed?")
  684.         (help "\n\nThis will copy over the EjectCD utility "
  685.                 "to your CDFS directory\n\nIf you do not "
  686.                 "wish the EjectCD program to be transferred to your system, "
  687.                 "skip this step.\n" )
  688.         (default 1)
  689.     )
  690.     ))
  691. )
  692.  
  693. (if #instEjectCD
  694.     ((protect "CacheCDFS:EjectCD" "rwed" )
  695.     (protect "CacheCDFS:EjectCD.info" "rwed" )
  696.     (copylib
  697.         (prompt "\n\nCopying EjectCD program to the "
  698.                   "CacheCDFS: directory.\n" )
  699.         (source "CacheCDFSInst:EjectCD")
  700.         (dest "CacheCDFS:")
  701.         (help "\n\nThis will copy over the EjectCD utility "
  702.                 "to your CacheCDFS directory\n\nIf you do not "
  703.                 "wish the EjectCD program to be transferred to your system, "
  704.                 "skip this step.\n" )
  705.         (infos)
  706.         (confirm)
  707.     )
  708.  
  709.     (tooltype
  710.         (dest "CacheCDFS:EjectCD" )
  711.         (settooltype "DEVICE" #CDROM_Device )
  712.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  713.         (noposition)
  714.     )
  715. ))
  716.  
  717. (set #instPlayCD 0)
  718.  
  719. (if (exists "CacheCDFSInst:PlayCD.lha")
  720.  
  721. ((set #instPlayCD
  722.     (askbool
  723.         (prompt "\n\nShould the PlayCD Audio Player be installed?")
  724.         (help "\n\nThis will copy over the PlayCD drawer "
  725.                 "to your CacheCDFS directory\n\nIf you do not "
  726.                 "wish the PlayCD drawer to be transferred to your system, "
  727.                 "skip this step." )
  728.         (default 1)
  729.     )
  730. )))
  731.  
  732. (if #instPlayCD
  733.     (
  734.  
  735.     (working "\n\nDecrunching PlayCD...."
  736.              "\n\nPlease Wait!")
  737.  
  738.     ( if (NOT @pretend )
  739.     (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:PlayCD.lha" )
  740.         (
  741.         (abort "\n\nUnable to decrunch PlayCD!")
  742.         )
  743.     )))
  744.  
  745.  
  746.     (tooltype
  747.         (dest "CacheCDFS:PlayCD/PlayCD" )
  748.         (settooltype "DEVICE" #CDROM_Device )
  749.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  750.         (settooltype "BUFMEMTYPE" ("%ld" #BufMemInt ))
  751.     )
  752.     )
  753. )
  754.  
  755. (complete 80 )
  756.  
  757. (set #instJukebox 0)
  758.  
  759. (if (exists "CacheCDFSInst:JukeBox.lha")
  760. ((set #instJukebox
  761.     (askbool
  762.         (prompt "\n\nShould the JukeBox Audio Player be installed?")
  763.         (help "\n\nThis will copy over the JukeBox drawer "
  764.                 "to your CacheCDFS directory\n\nIf you do not "
  765.                 "wish the JukeBox drawer to be transferred to your system, "
  766.                 "skip this step." )
  767.         (default 1)
  768.     )
  769. )))
  770.  
  771. (if #instJukebox
  772.     (
  773.     (protect "CacheCDFS:JukeBox" "rwed" )
  774.     (protect "CacheCDFS:JukeBox.info" "rwed" )
  775.     (makedir "CacheCDFS:JukeBox" 
  776.         (infos)
  777.         (prompt "\n\nCreating drawer for JukeBox\n")
  778.         (help "\n\nThis will create a drawer for the JukeBox "
  779.                 "Audio Player." )
  780.     )
  781.  
  782.  
  783. (working "\n\nDecrunching Jukebox...."
  784.          "\n\nPlease Wait!")
  785.  
  786.     ( if (NOT @pretend )
  787.     (( if ( run "CacheCDFSInst:c/lhex -qafFw=CacheCDFS:Jukebox e CacheCDFSInst:JukeBox.lha" )
  788.         (
  789.         (makeassign "JukeBox")
  790.         (abort "\n\nUnable to decrunch JukeBox!")
  791.         )
  792.     )))
  793.  
  794.  
  795.     (tooltype
  796.         (dest "CacheCDFS:Jukebox/JukeBox" )
  797.         (settooltype "DEVICE" #CDROM_Device )
  798.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  799.     )
  800.  
  801. ))
  802.  
  803. (set #instYACDP 0)
  804.  
  805. (if (AND (AND (exists "CacheCDFSInst:YACDP.lha") (exists "CacheCDFSInst:LIBS/reqtools.library")) (= #DevFlags 0))
  806. ((set #instYACDP
  807.     (askbool
  808.         (prompt "\n\nShould the YACDP Audio Player be installed?")
  809.         (help "\n\nThis will copy over the YACDP drawer "
  810.                 "to your CacheCDFS directory\n\nIf you do not "
  811.                 "wish the YACDP drawer to be transferred to your system, "
  812.                 "skip this step." )
  813.         (default 1)
  814.     )
  815. )))
  816.  
  817. (if #instYACDP
  818.     (
  819.  
  820.     (protect "LIBS:reqtools.library" "rwed" )
  821.  
  822.     (copylib
  823.     (source "CacheCDFSInst:LIBS/reqtools.library")
  824.     (dest "LIBS:"))
  825.  
  826.     (working "\n\nDecrunching YACDP...."
  827.              "\n\nPlease Wait!")
  828.  
  829.     ( if (NOT @pretend )
  830.     (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:YACDP.lha" )
  831.         (
  832.         (abort "\n\nUnable to decrunch YACDP!")
  833.         )
  834.     )))
  835.  
  836.  
  837.     (tooltype
  838.         (dest "CacheCDFS:YACDP/YACDP" )
  839.         (settooltype "DEVICE" #CDROM_Device )
  840.         (settooltype "UNIT" ("%ld" #CDROM_Unit ))
  841.     )
  842.     )
  843. )
  844.  
  845.  
  846. (if (AND (> #wbversion 38) (exists "CacheCDFSInst:CD32.lha"))
  847.  
  848.     ((complete 90 )
  849.  
  850.     (set #instCD32
  851.         (askbool
  852.             (prompt "\n\nShould the CD32-Emulator be installed?"
  853.                     "\n\nNote that the CD32-Emulator is completely useless "
  854.                     "if you don't have an Amiga with AA/AGA chipset and "
  855.                     "at least Kickstart version 3.0!")
  856.             (help "\n\nThis will copy over the CD32 drawer "
  857.                     "to your CacheCDFS directory\n\nIf you do not "
  858.                     "wish the CD32 drawer to be transferred to your system, "
  859.                     "skip this step.")
  860.             (default 1)
  861.         )
  862.     )
  863.  
  864.     (if #instCD32
  865.         (
  866.         (working "\n\nDecrunching CD32...."
  867.                  "\n\nPlease Wait!")
  868.  
  869.         ( if (NOT @pretend )
  870.         (( if ( run "CacheCDFSInst:c/lhex -afFqw=CacheCDFS: e CacheCDFSInst:CD32.lha" )
  871.             (
  872.             (abort "\n\nUnable to decrunch CD32!")
  873.             )
  874.         )))
  875.  
  876.     
  877.         (if (exists "CacheCDFSInst:CD32" )
  878.             ((copylib
  879.                 (prompt "This will copy the CD32 program.")
  880.                 (help "This will copy the CD32 program.")
  881.                 (source "CacheCDFSInst:CD32")
  882.                 (infos)
  883.                 (dest "CacheCDFS:CD32")
  884.                 (confirm)
  885.             ))
  886.         )
  887.  
  888.  
  889.         ( set #CDROM_Blocks 2 )
  890.  
  891.         (if (= #CDROM_Device "tandemcd.device")
  892.             (
  893.             ( set #CDROM_Blocks 4 )
  894.             )
  895.         )
  896.  
  897.         (if (= #CDROM_Device "tandemat.device")
  898.             (
  899.             ( set #CDROM_Blocks 4 )
  900.             )
  901.         )
  902.  
  903.         (if (= #CDROM_Device "tandemcd_pcmcia.device")
  904.             (
  905.             ( set #CDROM_Blocks 4 )
  906.             )
  907.         )
  908.  
  909.         (if (= #CDROM_Device "tandemcd_come.device")
  910.             (
  911.             ( set #CDROM_Blocks 4 )
  912.             )
  913.         )
  914.  
  915.         (tooltype
  916.             (dest "CacheCDFS:CD32/CD32" )
  917.             (settooltype "BLOCKS" ("%ld" #CDROM_Blocks ) )
  918.             (settooltype "DOSDEV" #CDDevice_NC)
  919.             )
  920.  
  921.         (set #instInst
  922.             (askbool
  923.             (prompt "\n\nShould the Installer utility be installed?"
  924.                     "\n\nNote that you only need to install the Installer "
  925.                     "utility if you don't have it already installed on "
  926.                     "your harddisk in your actual path!")
  927.             (help "\n\nThis will copy over the Installer utility "
  928.                     "to your CD32 directory\n\nIf you do not "
  929.                     "wish the Installer utility to be transferred to your system, "
  930.                     "skip this step." )
  931.             (default 1)
  932.             )
  933.         )
  934.  
  935.         (if #instInst
  936.             (
  937.             (copyfiles
  938.             (source "CacheCDFSInst:Installer")
  939.             (dest "CacheCDFS:CD32")
  940.             )
  941.         )
  942.         )
  943.     ))
  944. ))
  945.  
  946. (complete 100 )
  947.  
  948. (set #doMount
  949.     (askbool
  950.     (prompt "\n\nMount " #CDDevice " now ?")
  951.     (help "Select, if " #CDDevice " should be mounted now, or not.")
  952.     (default 1)
  953.     )
  954. )
  955.  
  956. (set #MountError 0)
  957.  
  958. ( if @pretend ((set #doMount 0))) 
  959.  
  960. (if #doMount
  961.     (
  962.     (run (cat "CacheCDFSInst:KillDev " #CDDevice " Quiet"))
  963.     (if (< #wbversion 38)
  964.         (
  965.         (set #MountError
  966.             (run (cat "C:Mount " #CDDevice " from devs:MountList." #CDDevice_NC ))
  967.         )
  968.         )
  969.     )
  970.  
  971.     (if (> #wbversion 37)
  972.         (
  973.         (set #MountError
  974.             (run (cat "C:Mount " #CDDevice  ))
  975.         )
  976.         )
  977.     )
  978.     )
  979. )
  980.  
  981. (if #MountError
  982.     (
  983.     (message "\n\nMounting " #CDDevice " failed!")
  984.     )
  985. )
  986.  
  987. (makeassign "CacheCDFSInst" (safe))
  988. (makeassign "CacheCDFS" (safe))
  989.  
  990.