home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / ASIMCD30.LHA / Install-AsimCDFS < prev    next >
Encoding:
Text File  |  1994-08-01  |  31.5 KB  |  1,017 lines
  1. ;$VER: AsimCDFS Install 2.2 (16.1.94) 
  2. ;Copyright ©1993 Asimware Innovations
  3.  
  4. (onerror (makeassign "AsimCDFSInst") )
  5.  
  6. (set #autoMount 1)
  7. (set #CDDefault_NC "CD0" )
  8. (set #isPioneer 0)
  9. (set #PioneerSeparate 0)
  10. (set #supportLUN 1)
  11.  
  12. (set #wbversion (getversion "libs:version.library"))
  13. (set #wbversion (/ #wbversion 65536) )
  14.  
  15. (set #SCSIDevice "scsi.device")
  16. (set #SCSIUnit 4)
  17.  
  18. (set @default-dest "SYS:AsimCDFS")
  19.  
  20. (complete 0)
  21.  
  22. (if (< #wbversion 37)
  23.     (abort "\n\nAmigaDOS 2.0 or higher is required for AsimCDFS 2.0. "
  24.              "\n\nAn upgrade will be needed for your Amiga."
  25.              "\n\nYou are currently running version " #wbversion ".")
  26. )
  27.  
  28.  
  29. (if (< (getdiskspace "SYS:") 66560)
  30.     (abort "\n\nApproximately 65K of disk space is needed on your SYS: volume."
  31.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  32.              "Delete or transfer some files from the SYS: volume and try again." )
  33. )
  34.  
  35. (askdisk
  36.     (prompt "Please insert the disk labeled \"AsimCDFS_v2_Install\".")
  37.     (help    "AsimCDFS FileSystem and other utilities will be copied "
  38.             "from this disk into your system.")
  39.     (dest  "AsimCDFS_v2_Install")
  40.     (newname "AsimCDFSInst")
  41. )
  42.  
  43. (set #theirlevel @user-level )
  44. (user 2)
  45.  
  46. (complete 0 )
  47. (set #IsAmiga
  48.     (askbool
  49.         (prompt "\n\nAre you installing AsimCDFS on a CDTV or Amiga?" )
  50.         (default 1 )
  51.         (choices "Amiga" "CDTV" )
  52.         (help "\n\nIf AsimCDFS is being used in conjunction with a CDTV/A570 unit "
  53.                 "then note this with the CDTV gadget.\n\n "
  54.                 "Otherwise, you will be installing AsimCDFS on an Amiga equipped "
  55.                 "with a SCSI controller and SCSI CD-Rom drive." )
  56.     )
  57. )
  58.  
  59. (complete 5 )
  60. (if (not #IsAmiga) 
  61.     ((set #CDDefault_NC "CD1" )
  62.     (set #SCSIDevice "cdtv.device")
  63.     (set #SCSIUnit 0)
  64.     )
  65. )
  66.  
  67. (if #IsAmiga
  68.     (set #isPioneer 
  69.         (askbool
  70.             (prompt "\n\n\nIs your CD-Rom drive a Pioneer DRM-60x?" )
  71.             (default 0)
  72.             (choices "Pioneer DRM-60x" "Other CD-Rom")
  73.             (help "\n\nIf you are using AsimCDFS with a Pioneer DRM-60x, indicate this "
  74.                     "in your choice.\n\nThis drive is a high-performance 6-disc minichanger and "
  75.                     "is not common."
  76.                     "\n\nOtherwise select Other CD-Rom." )
  77.         )
  78.     )
  79. )
  80.  
  81.  
  82. (complete 10 )
  83. (if #isPioneer
  84.     (
  85.     (set #PioneerSeparate
  86.             (askbool
  87.                 (prompt "\n\nDo you wish to have 6 separate devices mounted, or would you like all 6 discs pooled into 1 device?\n\n" )
  88.                 (default 0 )
  89.                 (choices "Separate" "Pooled")
  90.                 (help "\n\nIf you wish to have access to all 6 discs simultaneously, then "
  91.                         "select Separate, otherwise select Pooled  --  in the latter case, "
  92.                         "you can switch between the discs with DiscChanger." )
  93.             )
  94.         )
  95.  
  96.     (if #PioneerSeparate
  97.         ((set #CDDevice_NC 
  98.                 (askstring
  99.                     (prompt "\n\nWhat is the base-name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present.  See manual for explanation.)" )
  100.                     (default "CD" )
  101.                     (help "\n\nThis is the base name under which AmigaDOS will reference the "
  102.                             "CD-Rom as.  As you are installing AsimCDFS for a Pioneer 6-disc changer "
  103.                             ", 6 such devices named <basename>0 through <basename>5 will be mounted (ie.  CD0, CD1, ..., CD5) "
  104.                             "\n\nThe trailing : (colon) or the 0 through 5 MUST NOT be present." )
  105.                 )
  106.             )
  107.         (set #CDDevice (cat #CDDevice_NC "0:")))
  108.         )
  109.     )
  110. )
  111.  
  112.  
  113. (if (not #PioneerSeparate)
  114.     ((set #CDDevice_NC 
  115.         (askstring
  116.             (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
  117.             (default #CDDefault_NC )
  118.             (help "\n\nThis is the name under which AmigaDOS will reference the "
  119.                     "CD-Rom as.  While usually "
  120.                     #CDDefault_NC
  121.                     ", it can be any name you choose. "
  122.                     "\n\nThe trailing : (colon) MUST NOT be present." )
  123.         )
  124.     )
  125.  
  126.     (set #CDDevice (cat #CDDevice_NC ":") ))
  127. )
  128.  
  129.  
  130.  
  131. (if #IsAmiga
  132.     (set #useInquire
  133.         (askbool
  134.             (prompt "\n\nWould you like to use the SCSI Inquire utility to locate your CD-Rom drive?" )
  135.             (default 1 )
  136.             (help "\n\nThe SCSI Inquire utility will scan your system for suitable SCSI "
  137.                     "devices and display a listing of all units connected to the device.  "
  138.                     "Your CD-Rom drive must be powered-on and correctly connected "
  139.                     "for it to be acknowledged by this utility.  Consult the SCSI Inquire "
  140.                     "chapter for more information." )
  141.         )
  142.     )
  143. )
  144.  
  145.  
  146. (if #useInquire
  147.     (
  148.     (run "AsimCDFS_v2_Install:SCSI_Inquire")    
  149.     
  150.     (if (exists "ENV:SCSI_Device")
  151.         ((set #SCSIDevice (getenv "SCSI_Device"))
  152.         (set #SCSIUnit (+ (getenv "SCSI_Unit")))
  153.         ))
  154.     )
  155. )
  156.  
  157.  
  158.  
  159. (complete 15 )
  160. (if #IsAmiga
  161.     ((set #SCSIDevice 
  162.         (askstring
  163.             (prompt "\n\nWhat is the name of your SCSI device?" )
  164.             (default #SCSIDevice )
  165.             (help "\n\nThis is the name of the device driver for your particular "
  166.                     "SCSI card.  For example, the Commodore 2091/590/Amiga3000 has "
  167.                     "a name of \"scsi.device\".\n\n"
  168.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number. "
  169.                     "Otherwise, consult either the AsimCDFS User's Guide or contact the SCSI Controller's manufacturer." )
  170.         )
  171.     )
  172.     
  173. (complete 18 )
  174.     (set #SCSIUnit 
  175.         (asknumber
  176.             (prompt "\n\nWhat is the SCSI Unit number of your CD-Rom drive?" )
  177.             (default #SCSIUnit )
  178.             (help "\n\nThis is the unit # of the CD-Rom drive.  This is usually a "
  179.                     "numerical value between 0 and 6.\n\n"
  180.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number.  "
  181.                     "Otherwise, consult the CDRom drive documentation for instructions on "
  182.                     "determining the unit #." )
  183.         )
  184.     ))
  185. )
  186.  
  187.  
  188. (complete 35 )
  189. (set #autoMount
  190.     (askbool
  191.         (prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?" )
  192.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount AsimCDFS.\n")
  193.         (default 1)
  194.     )
  195. )
  196.  
  197.  
  198. (if #autoMount
  199.     (set #mountDirectory "devs:DOSDrivers/")
  200. )
  201.  
  202. (if (not #autoMount)
  203.     (set #mountDirectory "sys:storage/DOSDrivers/")
  204. )
  205.  
  206.  
  207. (set #tunesDir
  208.     (askdir
  209.         (prompt "Specify the directory in which the AsimCDFS support programs will be placed:" )
  210.         (help "AsimCDFS 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.")
  211.         (default @default-dest)
  212.         (newpath)
  213.     )
  214. )
  215.  
  216. (if (not (exists #tunesDir (noreq)))
  217.     (makedir #tunesDir
  218.         (prompt "Creating the AsimTunes directory...")
  219.         (help "This will create the specified directory for the support programs.")
  220.         (infos)
  221.         )
  222. )
  223. (makeassign "AsimTunes" #tunesDir)
  224.  
  225.  
  226.  
  227.  
  228. (user #theirlevel)
  229. (complete 20 )
  230.  
  231. (complete 30 )
  232. (protect "l:AsimCDFS" "rwed" )
  233. (copyfiles
  234.     (prompt "\n\nCopying AsimCDFS FileSystem to the l: directory.\n" )
  235.     (source "AsimCDFSInst:l/AsimCDFS")
  236.     (dest "l:")
  237.     (confirm)
  238.     (help "\n\nThis will copy over the AsimCDFS FileSystem program to your "
  239.         "l: directory\n\nThis is an essential step in the installation "
  240.         "process.\n" )
  241. )
  242.  
  243.  
  244.  
  245. (complete 30 )
  246. (protect "devs:asimcdfs.device" "rwed" )
  247. (copyfiles
  248.     (prompt "\n\nCopying asimcdfs.device to the devs: directory.\n" )
  249.     (source "AsimCDFSInst:devs/asimcdfs.device")
  250.     (dest "devs:")
  251.     (confirm)
  252.     (help "\n\nThis will copy over the asimcdfs.device program to your "
  253.         "devs: directory\n\nThis is an essential step in the installation "
  254.         "process.\n" )
  255. )
  256.  
  257.  
  258.  
  259.  
  260.  
  261. (if (= #wbversion 37) 
  262.     ((if #PioneerSeparate
  263.         ((set #startupCommand1 (cat "mount " #CDDevice_NC "0: from devs:MountList." #CDDevice_NC "\n") )
  264.         (set #startupCommand2 (cat "mount " #CDDevice_NC "1: from devs:MountList." #CDDevice_NC "\n") )
  265.         (set #startupCommand3 (cat "mount " #CDDevice_NC "2: from devs:MountList." #CDDevice_NC "\n") )
  266.         (set #startupCommand4 (cat "mount " #CDDevice_NC "3: from devs:MountList." #CDDevice_NC "\n") )
  267.         (set #startupCommand5 (cat "mount " #CDDevice_NC "4: from devs:MountList." #CDDevice_NC "\n") )
  268.         (set #startupCommand6 (cat "mount " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n") )
  269.         (set #startupWait "wait sec=4\n" )
  270.         
  271.         (if #autoMount
  272.             ((protect "S:User-Startup" "rwed" )
  273.             (protect "S:Startup-Sequence" "rwed" )
  274.             
  275.             (startup "AsimCDFS"
  276.                 (command (cat "assign AsimTunes: " #tunesDir "\n"))
  277.                 (command #startupCommand1 )
  278.                 (command #startupCommand2 )
  279.                 (command #startupCommand3 )
  280.                 (command #startupCommand4 )
  281.                 (command #startupCommand5 )
  282.                 (command #startupCommand6 )
  283.                 (prompt "Inserting MOUNT commands into the startup-sequence")
  284.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  285.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  286.                         "automatically start AsimCDFS upon bootup." )
  287.             ))
  288.         ))
  289.     )
  290.  
  291.     (if (not #PioneerSeparate)
  292.         ((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  293.         (if #autoMount
  294.             ((protect "S:User-Startup" "rwed" )
  295.             (protect "S:Startup-Sequence" "rwed" )
  296.             
  297.             (startup "AsimCDFS"
  298.                 (command (cat "assign AsimTunes: " #tunesDir "\n"))
  299.                 (command #startupCommand )
  300.                 (prompt "Inserting MOUNT command into the startup-sequence")
  301.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  302.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  303.                         "automatically start AsimCDFS upon bootup." )
  304.             ))
  305.         ))
  306.     )
  307.     
  308.     (if (not #autoMount)
  309.         ((protect "S:User-Startup" "rwed" )
  310.         (protect "S:Startup-Sequence" "rwed" )
  311.         
  312.         (startup "AsimCDFS"
  313.             (command (cat "assign AsimTunes: " #tunesDir "\n"))
  314.             (prompt "Inserting MOUNT command into the startup-sequence")
  315.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  316.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  317.                     "automatically start AsimCDFS upon bootup." )
  318.         ))
  319.     )
  320.  
  321.     (protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  322.  
  323.     (if #isPioneer
  324.         (textfile
  325.             (dest (cat "devs:MountList." #CDDevice_NC) )
  326.             (append "/************************************************************/\n"
  327.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  328.                       "/************************************************************/\n")
  329.             (append #CDDevice_NC "0:\n")
  330.             (append "    Device         = " #SCSIDevice "\n" )
  331.             (append "    Unit           = 0" #SCSIUnit "\n" )
  332.             (append "    Buffers        = 0\n")
  333.             (append "    BufMemType     = 5\n" )
  334.             (append "    Mask           = 0xffffffe\n" )
  335.             (append "    Flags          = 0\n" )
  336.             (append "    FileSystem     = l:AsimCDFS\n")
  337.             (append "    DosType        = 0x662dabac\n")
  338.             (append "    GlobVec        = -1\n")
  339.             (append "    Mount          = 1\n")
  340.             (append "    Reserved       = 0\n")
  341.             (append "    LowCyl         = 0\n")
  342.             (append "    HighCyl        = 999\n")
  343.             (append "    Surfaces       = 1\n")
  344.             (append "    BlocksPerTrack = 32\n")
  345.             (append "    Priority       = 10\n")
  346.             (append "    StackSize      = 5000\n")
  347.             (append "#\n\n")
  348.             (append #CDDevice_NC "1:\n")
  349.             (append "    Device         = " #SCSIDevice "\n" )
  350.             (append "    Unit           = 1" #SCSIUnit "\n" )
  351.             (append "    Buffers        = 0\n")
  352.             (append "    BufMemType     = 5\n" )
  353.             (append "    Mask           = 0xffffffe\n" )
  354.             (append "    Flags          = 0\n" )
  355.             (append "    FileSystem     = l:AsimCDFS\n")
  356.             (append "    DosType        = 0x662dabac\n")
  357.             (append "    GlobVec        = -1\n")
  358.             (append "    Mount          = 1\n")
  359.             (append "    Reserved       = 0\n")
  360.             (append "    LowCyl         = 0\n")
  361.             (append "    HighCyl        = 999\n")
  362.             (append "    Surfaces       = 1\n")
  363.             (append "    BlocksPerTrack = 32\n")
  364.             (append "    Priority       = 10\n")
  365.             (append "    StackSize      = 5000\n")
  366.             (append "#\n\n")
  367.             (append #CDDevice_NC "2:\n")
  368.             (append "    Device         = " #SCSIDevice "\n" )
  369.             (append "    Unit           = 2" #SCSIUnit "\n" )
  370.             (append "    Buffers        = 0\n")
  371.             (append "    BufMemType     = 5\n" )
  372.             (append "    Mask           = 0xffffffe\n" )
  373.             (append "    Flags          = 0\n" )
  374.             (append "    FileSystem     = l:AsimCDFS\n")
  375.             (append "    DosType        = 0x662dabac\n")
  376.             (append "    GlobVec        = -1\n")
  377.             (append "    Mount          = 1\n")
  378.             (append "    Reserved       = 0\n")
  379.             (append "    LowCyl         = 0\n")
  380.             (append "    HighCyl        = 999\n")
  381.             (append "    Surfaces       = 1\n")
  382.             (append "    BlocksPerTrack = 32\n")
  383.             (append "    Priority       = 10\n")
  384.             (append "    StackSize      = 5000\n")
  385.             (append "#\n\n")
  386.             (append #CDDevice_NC "3:\n")
  387.             (append "    Device         = " #SCSIDevice "\n" )
  388.             (append "    Unit           = 3" #SCSIUnit "\n" )
  389.             (append "    Buffers        = 0\n")
  390.             (append "    BufMemType     = 5\n" )
  391.             (append "    Mask           = 0xffffffe\n" )
  392.             (append "    Flags          = 0\n" )
  393.             (append "    FileSystem     = l:AsimCDFS\n")
  394.             (append "    DosType        = 0x662dabac\n")
  395.             (append "    GlobVec        = -1\n")
  396.             (append "    Mount          = 1\n")
  397.             (append "    Reserved       = 0\n")
  398.             (append "    LowCyl         = 0\n")
  399.             (append "    HighCyl        = 999\n")
  400.             (append "    Surfaces       = 1\n")
  401.             (append "    BlocksPerTrack = 32\n")
  402.             (append "    Priority       = 10\n")
  403.             (append "    StackSize      = 5000\n")
  404.             (append "#\n\n")
  405.             (append #CDDevice_NC "4:\n")
  406.             (append "    Device         = " #SCSIDevice "\n" )
  407.             (append "    Unit           = 4" #SCSIUnit "\n" )
  408.             (append "    Buffers        = 0\n")
  409.             (append "    BufMemType     = 5\n" )
  410.             (append "    Mask           = 0xffffffe\n" )
  411.             (append "    Flags          = 0\n" )
  412.             (append "    FileSystem     = l:AsimCDFS\n")
  413.             (append "    DosType        = 0x662dabac\n")
  414.             (append "    GlobVec        = -1\n")
  415.             (append "    Mount          = 1\n")
  416.             (append "    Reserved       = 0\n")
  417.             (append "    LowCyl         = 0\n")
  418.             (append "    HighCyl        = 999\n")
  419.             (append "    Surfaces       = 1\n")
  420.             (append "    BlocksPerTrack = 32\n")
  421.             (append "    Priority       = 10\n")
  422.             (append "    StackSize      = 5000\n")
  423.             (append "#\n\n")
  424.             (append #CDDevice_NC "5:\n")
  425.             (append "    Device         = " #SCSIDevice "\n" )
  426.             (append "    Unit           = 5" #SCSIUnit "\n" )
  427.             (append "    Buffers        = 0\n")
  428.             (append "    BufMemType     = 5\n" )
  429.             (append "    Mask           = 0xffffffe\n" )
  430.             (append "    Flags          = 0\n" )
  431.             (append "    FileSystem     = l:AsimCDFS\n")
  432.             (append "    DosType        = 0x662dabac\n")
  433.             (append "    GlobVec        = -1\n")
  434.             (append "    Mount          = 1\n")
  435.             (append "    Reserved       = 0\n")
  436.             (append "    LowCyl         = 0\n")
  437.             (append "    HighCyl        = 999\n")
  438.             (append "    Surfaces       = 1\n")
  439.             (append "    BlocksPerTrack = 32\n")
  440.             (append "    Priority       = 10\n")
  441.             (append "    StackSize      = 5000\n")
  442.             (append "#\n\n")
  443.         )
  444.     )
  445.  
  446.  
  447.  
  448.     (if (not #isPioneer)
  449.         (textfile
  450.             (dest (cat "devs:MountList." #CDDevice_NC) )
  451.             (append "/************************************************************/\n"
  452.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  453.                       "/************************************************************/\n")
  454.             (append #CDDevice "\n")
  455.             (append "    Device         = " #SCSIDevice "\n" )
  456.             (append "    Unit           = " #SCSIUnit "\n" )
  457.             (append "    Buffers        = 0\n")
  458.             (append "    BufMemType     = 5\n" )
  459.             (append "    Mask           = 0xffffffe\n" )
  460.             (append "    Flags          = 0\n" )
  461.             (append "    FileSystem     = l:AsimCDFS\n")
  462.             (append "    DosType        = 0x662dabac\n")
  463.             (append "    GlobVec        = -1\n")
  464.             (append "    Mount          = " #autoMount "\n")
  465.             (append "    Reserved       = 0\n")
  466.             (append "    LowCyl         = 0\n")
  467.             (append "    HighCyl        = 999\n")
  468.             (append "    Surfaces       = 1\n")
  469.             (append "    BlocksPerTrack = 32\n")
  470.             (append "    Priority       = 10\n")
  471.             (append "    StackSize      = 5000\n")
  472.             (append "#\n")
  473.         )
  474.     ))
  475. )
  476.  
  477.  
  478.  
  479. (if (> #wbversion 37) 
  480.     ((if (not #PioneerSeparate)
  481.         ((textfile
  482.             (dest (cat #mountDirectory #CDDevice_NC) )
  483.             (append "/************************************************************/\n"
  484.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  485.                       "/************************************************************/\n")
  486.             (append "    Device         = " #SCSIDevice "\n" )
  487.             (append "    Unit           = " #SCSIUnit "\n" )
  488.             (append "    Buffers        = 0\n")
  489.             (append "    BufMemType     = 5\n" )
  490.             (append "    Mask           = 0xffffffe\n" )
  491.             (append "    Flags          = 0\n" )
  492.             (append "    FileSystem     = l:AsimCDFS\n")
  493.             (append "    DosType        = 0x662dabac\n")
  494.             (append "    GlobVec        = -1\n")
  495.             (append "    Reserved       = 0\n")
  496.             (append "    LowCyl         = 0\n")
  497.             (append "    HighCyl        = 999\n")
  498.             (append "   Mount          = 1\n")
  499.             (append "    Surfaces       = 1\n")
  500.             (append "    BlocksPerTrack = 32\n")
  501.             (append "    Priority       = 10\n")
  502.             (append "    StackSize      = 5000\n")
  503.         )
  504.  
  505.         (copyfiles
  506.                 (prompt "\n\nCopying Mountlist icon")
  507.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  508.                 (dest #mountDirectory)
  509.                 (newname (cat #CDDevice_NC ".info"))
  510.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  511.                 (confirm)
  512.             )        
  513.  
  514.     ))
  515.  
  516.  
  517.     (if #PioneerSeparate
  518.         ((textfile
  519.             (dest (cat #mountDirectory #CDDevice_NC "0") )
  520.             (append "/************************************************************/\n"
  521.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  522.                       "/************************************************************/\n")
  523.             (append "    Device         = " #SCSIDevice "\n" )
  524.             (append "    Unit           = 0" #SCSIUnit "\n" )
  525.             (append "    Buffers        = 0\n")
  526.             (append "    BufMemType     = 5\n" )
  527.             (append "    Mask           = 0xffffffe\n" )
  528.             (append "    Flags          = 0\n" )
  529.             (append "    FileSystem     = l:AsimCDFS\n")
  530.             (append "    DosType        = 0x662dabac\n")
  531.             (append "    GlobVec        = -1\n")
  532.             (append "    Reserved       = 0\n")
  533.             (append "    LowCyl         = 0\n")
  534.             (append "    HighCyl        = 999\n")
  535.             (append "   Mount          = 1\n")
  536.             (append "    Surfaces       = 1\n")
  537.             (append "    BlocksPerTrack = 32\n")
  538.             (append "    Priority       = 10\n")
  539.             (append "    StackSize      = 5000\n")
  540.         )
  541.  
  542.         (copyfiles
  543.                 (prompt "\n\nCopying Mountlist icon")
  544.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  545.                 (dest #mountDirectory)
  546.                 (newname (cat #CDDevice_NC "0.info"))
  547.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  548.                 (confirm)
  549.             )
  550.         
  551.         (textfile
  552.             (dest (cat #mountDirectory #CDDevice_NC "1") )
  553.             (append "/************************************************************/\n"
  554.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  555.                       "/************************************************************/\n")
  556.             (append "    Device         = " #SCSIDevice "\n" )
  557.             (append "    Unit           = 1" #SCSIUnit "\n" )
  558.             (append "    Buffers        = 0\n")
  559.             (append "    BufMemType     = 5\n" )
  560.             (append "    Mask           = 0xffffffe\n" )
  561.             (append "    Flags          = 0\n" )
  562.             (append "    FileSystem     = l:AsimCDFS\n")
  563.             (append "    DosType        = 0x662dabac\n")
  564.             (append "    GlobVec        = -1\n")
  565.             (append "    Reserved       = 0\n")
  566.             (append "    LowCyl         = 0\n")
  567.             (append "    HighCyl        = 999\n")
  568.             (append "   Mount          = 1\n")
  569.             (append "    Surfaces       = 1\n")
  570.             (append "    BlocksPerTrack = 32\n")
  571.             (append "    Priority       = 10\n")
  572.             (append "    StackSize      = 5000\n")
  573.         )
  574.  
  575.         (copyfiles
  576.                 (prompt "\n\nCopying Mountlist icon")
  577.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  578.                 (dest #mountDirectory)
  579.                 (newname (cat #CDDevice_NC "1.info"))
  580.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  581.                 (confirm)
  582.             )
  583.  
  584.         (textfile
  585.             (dest (cat #mountDirectory #CDDevice_NC "2") )
  586.             (append "/************************************************************/\n"
  587.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  588.                       "/************************************************************/\n")
  589.             (append "    Device         = " #SCSIDevice "\n" )
  590.             (append "    Unit           = 2" #SCSIUnit "\n" )
  591.             (append "    Buffers        = 0\n")
  592.             (append "    BufMemType     = 5\n" )
  593.             (append "    Mask           = 0xffffffe\n" )
  594.             (append "    Flags          = 0\n" )
  595.             (append "    FileSystem     = l:AsimCDFS\n")
  596.             (append "    DosType        = 0x662dabac\n")
  597.             (append "    GlobVec        = -1\n")
  598.             (append "    Reserved       = 0\n")
  599.             (append "    LowCyl         = 0\n")
  600.             (append "    HighCyl        = 999\n")
  601.             (append "   Mount          = 1\n")
  602.             (append "    Surfaces       = 1\n")
  603.             (append "    BlocksPerTrack = 32\n")
  604.             (append "    Priority       = 10\n")
  605.             (append "    StackSize      = 5000\n")
  606.         )
  607.         
  608.  
  609.         (copyfiles
  610.                 (prompt "\n\nCopying Mountlist icon")
  611.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  612.                 (dest #mountDirectory)
  613.                 (newname (cat #CDDevice_NC "2.info"))
  614.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  615.                 (confirm)
  616.             )
  617.  
  618.         (textfile
  619.             (dest (cat #mountDirectory #CDDevice_NC "3") )
  620.             (append "/************************************************************/\n"
  621.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  622.                       "/************************************************************/\n")
  623.             (append "    Device         = " #SCSIDevice "\n" )
  624.             (append "    Unit           = 3" #SCSIUnit "\n" )
  625.             (append "    Buffers        = 0\n")
  626.             (append "    BufMemType     = 5\n" )
  627.             (append "    Mask           = 0xffffffe\n" )
  628.             (append "    Flags          = 0\n" )
  629.             (append "    FileSystem     = l:AsimCDFS\n")
  630.             (append "    DosType        = 0x662dabac\n")
  631.             (append "    GlobVec        = -1\n")
  632.             (append "    Reserved       = 0\n")
  633.             (append "    LowCyl         = 0\n")
  634.             (append "    HighCyl        = 999\n")
  635.             (append "   Mount          = 1\n")
  636.             (append "    Surfaces       = 1\n")
  637.             (append "    BlocksPerTrack = 32\n")
  638.             (append "    Priority       = 10\n")
  639.             (append "    StackSize      = 5000\n")
  640.         )
  641.         
  642.         (copyfiles
  643.                 (prompt "\n\nCopying Mountlist icon")
  644.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  645.                 (dest #mountDirectory)
  646.                 (newname (cat #CDDevice_NC "3.info"))
  647.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  648.                 (confirm)
  649.             )
  650.  
  651.         (textfile
  652.             (dest (cat #mountDirectory #CDDevice_NC "4") )
  653.             (append "/************************************************************/\n"
  654.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  655.                       "/************************************************************/\n")
  656.             (append "    Device         = " #SCSIDevice "\n" )
  657.             (append "    Unit           = 4" #SCSIUnit "\n" )
  658.             (append "    Buffers        = 0\n")
  659.             (append "    BufMemType     = 5\n" )
  660.             (append "    Mask           = 0xffffffe\n" )
  661.             (append "    Flags          = 0\n" )
  662.             (append "    FileSystem     = l:AsimCDFS\n")
  663.             (append "    DosType        = 0x662dabac\n")
  664.             (append "    GlobVec        = -1\n")
  665.             (append "    Reserved       = 0\n")
  666.             (append "    LowCyl         = 0\n")
  667.             (append "    HighCyl        = 999\n")
  668.             (append "   Mount          = 1\n")
  669.             (append "    Surfaces       = 1\n")
  670.             (append "    BlocksPerTrack = 32\n")
  671.             (append "    Priority       = 10\n")
  672.             (append "    StackSize      = 5000\n")
  673.         )
  674.  
  675.         (copyfiles
  676.                 (prompt "\n\nCopying Mountlist icon")
  677.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  678.                 (dest #mountDirectory)
  679.                 (newname (cat #CDDevice_NC "4.info"))
  680.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  681.                 (confirm)
  682.             )
  683.  
  684.         (textfile
  685.             (dest (cat #mountDirectory #CDDevice_NC "5") )
  686.             (append "/************************************************************/\n"
  687.                       "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
  688.                       "/************************************************************/\n")
  689.             (append "    Device         = " #SCSIDevice "\n" )
  690.             (append "    Unit           = 5" #SCSIUnit "\n" )
  691.             (append "    Buffers        = 0\n")
  692.             (append "    BufMemType     = 5\n" )
  693.             (append "    Mask           = 0xffffffe\n" )
  694.             (append "    Flags          = 0\n" )
  695.             (append "    FileSystem     = l:AsimCDFS\n")
  696.             (append "    DosType        = 0x662dabac\n")
  697.             (append "    GlobVec        = -1\n")
  698.             (append "    Reserved       = 0\n")
  699.             (append "    LowCyl         = 0\n")
  700.             (append "    HighCyl        = 999\n")
  701.             (append "   Mount          = 1\n")
  702.             (append "    Surfaces       = 1\n")
  703.             (append "    BlocksPerTrack = 32\n")
  704.             (append "    Priority       = 10\n")
  705.             (append "    StackSize      = 5000\n")
  706.         )
  707.         (copyfiles
  708.                 (prompt "\n\nCopying Mountlist icon")
  709.                 (source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
  710.                 (dest #mountDirectory)
  711.                 (newname (cat #CDDevice_NC "5.info"))
  712.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  713.                 (confirm)
  714.             )
  715.     ))
  716.  
  717.  
  718.     (protect "S:User-Startup" "rwed" )
  719.     (protect "S:Startup-Sequence" "rwed" )
  720.     (startup "AsimCDFS"
  721.         (command (cat "assign AsimTunes: " #tunesDir "\n"))
  722.         (prompt "Inserting MOUNT command into the startup-sequence")
  723.         (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  724.                 "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  725.                 "automatically start AsimCDFS upon bootup." )
  726.         )
  727. ))
  728.  
  729.  
  730.  
  731. (if #IsAmiga
  732.     ((if #isPioneer
  733.         ((if #PioneerSeparate
  734.             ((copyfiles
  735.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  736.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  737.                 (dest "ENVArc:AsimCDFS")
  738.                 (newname (cat #CDDevice_NC "0"))
  739.                 (help "\n\nThis will copy over a default preferences file.")
  740.                 (confirm)
  741.             )
  742.     
  743.             (copyfiles
  744.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  745.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  746.                 (dest "ENVArc:AsimCDFS")
  747.                 (newname (cat #CDDevice_NC "1"))
  748.                 (help "\n\nThis will copy over a default preferences file.")
  749.                 (confirm)
  750.             )
  751.     
  752.             (copyfiles
  753.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  754.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  755.                 (dest "ENVArc:AsimCDFS")
  756.                 (newname (cat #CDDevice_NC "2"))
  757.                 (help "\n\nThis will copy over a default preferences file.")
  758.                 (confirm)
  759.             )
  760.     
  761.             (copyfiles
  762.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  763.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  764.                 (dest "ENVArc:AsimCDFS")
  765.                 (newname (cat #CDDevice_NC "3"))
  766.                 (help "\n\nThis will copy over a default preferences file.")
  767.                 (confirm)
  768.             )
  769.     
  770.             (copyfiles
  771.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  772.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  773.                 (dest "ENVArc:AsimCDFS")
  774.                 (newname (cat #CDDevice_NC "4"))
  775.                 (help "\n\nThis will copy over a default preferences file.")
  776.                 (confirm)
  777.             )
  778.     
  779.             (copyfiles
  780.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  781.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  782.                 (dest "ENVArc:AsimCDFS")
  783.                 (newname (cat #CDDevice_NC "5"))
  784.                 (help "\n\nThis will copy over a default preferences file.")
  785.                 (confirm)
  786.             ))
  787.         )
  788.             
  789.         (if (not #PioneerSeparate)
  790.             (copyfiles
  791.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  792.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Pool")
  793.                 (dest "ENVArc:AsimCDFS")
  794.                 (newname #CDDevice_NC)
  795.                 (help "\n\nThis will copy over a default preferences file.")
  796.                 (confirm)
  797.             )
  798.         )        
  799.     ))
  800.     
  801.     
  802.     (if (not #isPioneer)
  803.         (copyfiles
  804.             (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  805.             (source "AsimCDFSInst:Default_Prefs/Default")
  806.             (dest "ENVArc:AsimCDFS")
  807.             (newname #CDDevice_NC)
  808.             (help "\n\nThis will copy over a default preferences file.")
  809.             (confirm)
  810.         )
  811.     ))
  812. )
  813.  
  814.  
  815. (if (not #IsAmiga)
  816.     (copyfiles
  817.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  818.         (source "AsimCDFSInst:Default_Prefs/CDTV")
  819.         (dest "ENVArc:AsimCDFS")
  820.         (newname #CDDevice_NC)
  821.         (help "\n\nThis will copy over a default preferences file.")
  822.         (confirm)
  823.     )
  824. )
  825.  
  826. (complete 60 )
  827.  
  828.  
  829. (set #instTunes
  830.     (askbool
  831.         (prompt "\n\nShould the AsimTunes utility be installed?")
  832.         (help "\n\nThis will copy over the AsimTunes utility "
  833.                 "to your AsimTunes: directory\n\nIf you do not "
  834.                 "wish the AsimTunes program to be transferred to your system, "
  835.                 "skip this step.\n" )
  836.         (default 1)
  837.     )
  838. )
  839.  
  840. (if #instTunes 
  841.     ((protect "AsimTunes:AsimTunes" "rwed" )
  842.     (protect "AsimTunes:AsimTunes.info" "rwed" )
  843.     (copyfiles
  844.         (prompt "\n\nCopying AsimTunes CDAudio controller program to the "
  845.                   "AsimTunes: directory.\n" )
  846.         (source "AsimCDFSInst:AsimTunes")
  847.         (dest "AsimTunes:")
  848.         (infos)
  849.         (help "\n\nThis will copy over the AsimTunes CDAudio controller "
  850.                 "program to your AsimTunes: directory\n\nIf you do not "
  851.                 "wish the AsimTunes program to be transferred to your system, "
  852.                 "skip this step.\n" )
  853.         (confirm)
  854.     )
  855.     
  856.     (tooltype
  857.         (dest "AsimTunes:AsimTunes" )
  858.         (settooltype "CDROM" #CDDevice )
  859.         (noposition)
  860.     )
  861.         
  862.         
  863.     (complete 70 )
  864.     (protect "fonts:AsimTunes2" "rwed" )
  865.     (protect "fonts:AsimTunes2.font" "rwed" )
  866.     (protect "fonts:AsimTunes2/11" "rwed" )
  867.     (protect "fonts:AsimTunes2/20" "rwed" )
  868.     (copyfiles
  869.         (prompt "\n\nCopying AsimTunes fonts to the FONTS: directory\n" )
  870.         (source "AsimCDFSInst:fonts")
  871.         (dest "fonts:" )
  872.         (all)
  873.         (help "\n\nThis will copy over the fonts needed for AsimTunes.\n\n"
  874.                 "They will be placed into your fonts: directory.\n\n" )
  875.         (confirm) )
  876. ))
  877.  
  878.  
  879.  
  880.  
  881.  
  882. (complete 80 )
  883.  
  884. (set #instChanger
  885.     (askbool
  886.         (prompt "\n\nShould the DiscChanger utility be installed?")
  887.         (help "\n\nThis will copy over the DiscChanger utility "
  888.                 "to your AsimTunes: directory\n\nIf you do not "
  889.                 "wish the DiscChanger program to be transferred to your system, "
  890.                 "skip this step.\n" )
  891.         (default 1)
  892.     )
  893. )
  894.  
  895. (complete 85 )
  896. (if #instChanger
  897.     ((protect "AsimTunes:DiscChanger" "rwed" )
  898.     (copyfiles
  899.         (prompt "\n\nCopying the DiscChanger utility to the AsimTunes: "
  900.                   "directory.\n" )
  901.         (source "AsimCDFSInst:DiscChanger")
  902.         (dest "AsimTunes:")
  903.         (infos)
  904.         (help "\n\nThis will copy over the DiscChanger utility "
  905.                 "program to your AsimTunes: directory\n\nIf you do not "
  906.                 "wish the DiscChanger program to be transferred to your system, "
  907.                 "skip this step.\n" )
  908.         (confirm)
  909.     )
  910.     
  911.     (tooltype
  912.         (dest "AsimTunes:DiscChanger" )
  913.         (settooltype "CDROM" #CDDevice )
  914.         (noposition)
  915.     )
  916. ))
  917.  
  918.  
  919.  
  920.  
  921.  
  922. (complete 80 )
  923.  
  924. (set #instPrefs
  925.     (askbool
  926.         (prompt "\n\nShould the AsimCDFS_Prefs utility be installed?")
  927.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  928.                 "to your AsimTunes: directory\n\nIf you do not "
  929.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  930.                 "skip this step.\n" )
  931.         (default 1)
  932.     )
  933. )
  934.  
  935. (complete 85 )
  936. (if #instPrefs
  937.     ((protect "AsimTunes:AsimCDFS_Prefs" "rwed" )
  938.     (copyfiles
  939.         (prompt "\n\nCopying the AsimCDFS_Prefs utility to the AsimTunes: "
  940.                   "directory.\n" )
  941.         (source "AsimCDFSInst:AsimCDFS_Prefs")
  942.         (dest "AsimTunes:")
  943.         (infos)
  944.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  945.                 "program to your AsimTunes: directory\n\nIf you do not "
  946.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  947.                 "skip this step.\n" )
  948.         (confirm)
  949.     )
  950. ))
  951.  
  952.  
  953.  
  954.  
  955. (complete 80 )
  956.  
  957. (set #instPhoto
  958.     (askbool
  959.         (prompt "\n\nShould the AsimPhoto utility be installed?")
  960.         (help "\n\nThis will copy over the AsimPhoto utility "
  961.                 "to your AsimTunes: directory\n\nIf you do not "
  962.                 "wish the AsimPhoto program to be transferred to your system, "
  963.                 "skip this step.\n" )
  964.         (default 1)
  965.     )
  966. )
  967.  
  968. (complete 85 )
  969. (if #instPhoto
  970.     ((protect "AsimTunes:AsimPhoto" "rwed" )
  971.     (copyfiles
  972.         (prompt "\n\nCopying the AsimPhoto utility to the AsimTunes: "
  973.                   "directory.\n" )
  974.         (source "AsimCDFSInst:AsimPhoto")
  975.         (dest "AsimTunes:")
  976.         (infos)
  977.         (help "\n\nThis will copy over the AsimPhoto utility "
  978.                 "program to your AsimTunes: directory\n\nIf you do not "
  979.                 "wish the AsimPhoto program to be transferred to your system, "
  980.                 "skip this step.\n" )
  981.         (confirm)
  982.     )
  983.  
  984. ))
  985.  
  986.  
  987.  
  988.  
  989.  
  990. (makedir "ENVARC:AsimCDFS"
  991.     (prompt "Making the ENVARC:AsimCDFS directory, in which various default files will be placed.")
  992.     (help "This will create a directory in your ENVARC: directory")
  993.     )
  994.  
  995.  
  996. (makedir "ENV:AsimCDFS"
  997.     (prompt "Making the ENV:AsimCDFS directory, in which various default files will be placed.")
  998.     (help "This will create a directory in your ENV: directory")
  999.     )
  1000.  
  1001.  
  1002. (copyfiles
  1003.     (prompt "\n\nCopying default icons to the ENVARC:AsimCDFS "
  1004.               "directory.\n" )
  1005.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1006.     (dest "ENVArc:AsimCDFS")
  1007.     (infos)
  1008.     (all)
  1009.     (help "\n\nThis will copy over default icon files to the ENVArc:AsimCDFS directory.")
  1010.     (confirm)
  1011. )
  1012.  
  1013.  
  1014. (complete 100 )
  1015.  
  1016. (makeassign "AsimCDFSInst")
  1017.