home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GVPINST.DMS / in.adf / Install040 < prev    next >
Encoding:
Text File  |  1993-02-04  |  15.6 KB  |  317 lines
  1. ;****************************************************************************
  2. ; G-Force 040 Install Script
  3. ; Version 3.4
  4. ; $VER: 3.4 (04 February 1993) © GVP
  5. ;
  6. ; Original       by J.W. Lockhart ---- 21 February 1992
  7. ; Re-Write       by Gary Nush -------- 06 July     1992
  8. ; Re-re-Write    by Gary Nush -------- 18 July     1992
  9. ; Re-re-re-Write by Gary Nush -------- 04 February 1993
  10. ; Copyright 1992 by Great Valley Products, Inc.
  11. ;
  12. ; Written for use with Commodore's Installer V1.24
  13. ;****************************************************************************
  14.  
  15. ;****************************************************************************
  16. ; Some useful variables
  17. ;****************************************************************************
  18. (set disklab "GVP.Install")           ; Source disk for new files
  19. (set disklab2 (cat disklab ":"))      ; Source disk, with colon
  20. (set os_ver
  21.      (/ (getversion) $0000FFFF))      ; version of AmigaDOS...
  22.  
  23. ;****************************************************************************
  24. ; Various parts of this install program require AmigaDOS 2.0.
  25. ; Then again, GForce requires 2.0.  Prevent usage by those
  26. ; running obsolete versions of the operating system.
  27. ;****************************************************************************
  28. (if (< os_ver 36)
  29.   (
  30.     (abort "You need AmigaDOS V36 or later to complete the installation "
  31.            "process.  Furthermore, you need AmigaDOS V37 or later to run "
  32.            "using the Motorola 68040.  Please upgrade your system and "
  33.            "try again.")
  34.   ))
  35.  
  36. ;****************************************************************************
  37. ; We need to find out where the usual SYS: partition is.  Currently looks
  38. ; for WB_2.x:, System2.0:, or dh0:.  Ask user if we can't figure out where
  39. ; s/he boots from, and/or for confirmation.
  40. ;****************************************************************************
  41. (set target (getassign "wb_2.x" 'd'))             ; Device-only check.
  42. (if (= target "")
  43.     (set target (getassign "System2.0" 'v')))     ; VolumeName-only check.
  44. (if (= target "")
  45.     (set target (getassign "dh0" 'd')))           ; Device-only check.
  46. (if (= target "")
  47.     (set target (getassign "System2.0")))         ; Logical assign check.
  48. (if (= target "")
  49.     (set target (getassign "dh0")))               ; Logical assign check.
  50.  
  51. ;****************************************************************************
  52. ; If we're at Wit's End:
  53. ;****************************************************************************
  54. (if (= target "")
  55.     (set target @default-dest))                   ; default destination
  56.  
  57. ;****************************************************************************
  58. ; Now, make absolutely, positively sure that we go to the right place.
  59. ;****************************************************************************
  60. (set target (askdir (prompt "Which partition do you usually boot from?\n"
  61.                             "The required utilities should be installed there.")
  62.                     (help @askdir-help)
  63.                     (default target)))
  64.  
  65. ;****************************************************************************
  66. ; Install new SetPatch command.  Use CopyLib so that version numbers are checked.
  67. ;****************************************************************************
  68. (copylib (source (tackon disklab2 "c/SetPatch")) (dest (tackon target "c"))
  69.          (infos) (confirm)
  70.          (prompt "Shall I install the new SetPatch command?")
  71.          (help "You need the very latest SetPatch in order for the '040 "
  72.                "system to function properly and reliably.  Please check "
  73.                "the version numbers carefully, and use the newer version.\n\n"
  74.                @copylib-help))
  75.  
  76. ;****************************************************************************
  77. ; Install new CPU.   Use CopyLib so that version numbers are checked.
  78. ;****************************************************************************
  79. (copylib (source (tackon disklab2 "c/cpu")) (dest (tackon target "c"))
  80.          (infos) (confirm)
  81.          (prompt "Shall I install the new CPU command?")
  82.          (help "You need the very latest CPU command in order for the '040 "
  83.                "system to function properly and reliably.  Please check "
  84.                "the version numbers carefully, and use the newer version.\n\n"
  85.                @copylib-help))
  86.  
  87. ;****************************************************************************
  88. ; Install 68040.library
  89. ;****************************************************************************
  90. (copylib (source (tackon disklab2 "libs/68040.library")) (dest (tackon target "libs"))
  91.          (infos) (confirm)
  92.          (prompt "Shall I install the 68040.library?")
  93.          (help "This library is required by the system in "
  94.                "order to function properly and reliably.  Please check "
  95.                "the version numbers carefully, and use the newer version.\n\n"
  96.                @copylib-help))
  97.  
  98. ;****************************************************************************
  99. ; Install sys:l/gvpporthandler
  100. ;****************************************************************************
  101. (copylib (source (tackon disklab2 "L/gvpporthandler"))
  102.          (dest (tackon target "L"))
  103.          (infos) (confirm)
  104.          (prompt "The following MUST be installed in sys:L\n")
  105.          (help "Gvpporthandler - the handler needed for proper\n"
  106.                "                 operation of the on-board serial\n"
  107.                "                 and parallel ports.\n             "
  108.                @copylib-help))
  109.  
  110. ;****************************************************************************
  111. ; Install sys:devs/gvpscsi.amhd
  112. ;****************************************************************************
  113. (copylib (source (tackon disklab2 "devs/gvpscsi.amhd"))
  114.          (dest (tackon target "Devs"))
  115.          (infos) (confirm)
  116.          (prompt "The following MUST be installed in sys:devs for AMAX-II\n")
  117.          (help "Gvpscsi.amhd - the handler needed for proper\n"
  118.                "               operation of the SCSI interface\n"
  119.                "               for AMAX-II.\n"
  120.                @copylib-help))
  121.  
  122. ;****************************************************************************
  123. ; Install SetDevice command.  Use CopyLib so that version numbers are checked.
  124. ;****************************************************************************
  125. (copylib (source (tackon disklab2 "GVP/IO/SetDevice")) (dest (tackon target "c"))
  126.          (infos) (confirm)
  127.          (prompt "Shall I install the SetDevice command?")
  128.          (help "You need SetDevice in order to set the '040 parallel and "
  129.                "serial ports as system defaults.\n\n"
  130.                @copylib-help))
  131.  
  132. ;****************************************************************************
  133. ; Install sys:gvp/68040/gvpcpuctrl
  134. ;****************************************************************************
  135. (copyfiles (source (tackon disklab2 "GVP/68040"))
  136.          (dest (tackon target "Utilities"))
  137.          (pattern "(GvpCpu)#?")
  138.          (infos) (confirm)
  139.          (prompt "The following MUST be installed in sys:utilities:\n")
  140.          (help "GvpCpuCtrl - controls GForce040 CPU functions;\n"
  141.                "             very useful 040 utility.         \n"
  142.                @copyfiles-help))
  143.  
  144. ;****************************************************************************
  145. ; Install sys:expansion/gvpio and sys:expansion/gvpscsi
  146. ;****************************************************************************
  147. (copyfiles (source (tackon disklab2 "Expansion"))
  148.          (dest (tackon target "Expansion"))
  149.          (pattern "(Gvpi|GvpS)#?")
  150.          (infos) (confirm)
  151.          (prompt "The following MUST be installed in sys:Expansion:\n")
  152.          (help "GvpSCSI - the disk-based version of FastROM for use\n"
  153.                "          with Binddrivers.\n\n                      "
  154.                "GvpIo   - the device driver for the on-board serial\n"
  155.                "          and parallel ports.\n                      "
  156.                @copyfiles-help))
  157.  
  158. ;****************************************************************************
  159. ; Install sys:gvp/SCSI/gvpscsictrl, sys:gvp/SCSI/(Fast|Expert)Prep
  160. ;****************************************************************************
  161. (copyfiles (source (tackon disklab2 "GVP/SCSI"))
  162.          (dest (tackon target "Utilities"))
  163.          (pattern "(GvpSCSI|Fast|Expert)#?")
  164.          (infos) (confirm)
  165.          (prompt "The following should be installed in sys:utilities:\n")
  166.          (help "GvpScsiCtrl - controls GForce040 SCSI functions;\n"
  167.                "              useful utility for altering SCSI  \n"
  168.                "              parameters on-the-fly.            \n"
  169.                "FastPrep    - Automated Hard Drive Prep-and-    \n"
  170.                "              Format utility.                   \n"
  171.                "ExpertPrep  - Advanced Hard Drive Prep-and-     \n"
  172.                "              Format utility.                   \n"
  173.                @copyfiles-help))
  174.  
  175. ;****************************************************************************
  176. ; Install sys:gvp/IO/GVPIOCtrl, sys:gvp/IO/GVPSerial
  177. ;****************************************************************************
  178. (copyfiles (source (tackon disklab2 "GVP/IO"))
  179.          (dest (tackon target "Prefs"))
  180.          (pattern "(GvpIO|GvpSer)#?")
  181.          (infos) (confirm)
  182.          (prompt "The following should be installed in sys:Prefs:\n")
  183.          (help "GVPIOCtrl - controls default serial and\n"
  184.                "            parallel port preferences.\n"
  185.                "GVPSerial - controls serial port default\n"
  186.                "            setting for items like baud rate,\n"
  187.                "            buffer size, etc.\n"
  188.                @copyfiles-help))
  189.  
  190. ;****************************************************************************
  191. ; Alter user-startup and add FastROM option.
  192. ;****************************************************************************
  193. (startup "68040_FastROM"
  194.          (prompt "Would you like to turn on all performance "
  195.                  "enhancement options?  If so, click on "
  196.                  "'Proceed'.")
  197.          (help "This will automatically copy the Kickstart image "
  198.                "and the Supervisor Stack Pointer into the 68040's "
  199.                "extremely Fast RAM.  It will be MUCH faster than "
  200.                "reading from ROM and Chip RAM, and will increase "
  201.                "system performance greatly.\n")
  202.          (command "sys:utilities/GvpCPUCtrl FastROM MoveSSP"))
  203.  
  204. ;****************************************************************************
  205. ; Alter user-startup and add SetDevice.
  206. ;****************************************************************************
  207. (startup "SetDevice"
  208.          (prompt "Would you like the ability to redirect output "
  209.                  "to the default parallel or serial port to the "
  210.                  "A2000-040's parallel or serial port?  If so, "
  211.                  "Click 'Proceed'.")
  212.          (help "This will automatically check the settings "
  213.                "created by the GvpIOCtrl program, and if "
  214.                "indicated, it will redirect the standard parallel "
  215.                "or serial port output to the ports on the A2000 "
  216.                "GForce040 board. ")
  217.          (command "run >nil: c:SetDevice"))
  218.  
  219. ;****************************************************************************
  220. ; Modify Startup-sequence.  Use plenty of safeguards.
  221. ;****************************************************************************
  222. (set mods_ok (askbool (prompt "Is it okay to modify your startup-sequence? "
  223.                               "The first line MUST set up the system for "
  224.                               "running under the 68040. ")
  225.                       (choices "Yes" "No")
  226.                       (default "Yes")
  227.                       (help "SetPatch MUST appear in the first line of "
  228.                             "the s:startup-sequence file.\n"
  229.                             "For additional security, a copy of your original\n"
  230.                             "startup-sequence will be made and will be stored as\n"
  231.                             "\"s:startup-sequence.backup\".")
  232.              )
  233. )
  234.  
  235. (if mods_ok
  236.     (
  237.         ; Make backup copy of s:startup-sequence safely...
  238.         ; Do NOT check the return code---this may be an update, or
  239.         ; s/he may already have a delete-protected backup copy.
  240.         (run (cat
  241.              "c:copy \""
  242.              (tackon target "S/Startup-Sequence") "\" \""
  243.              (tackon target "S/Startup-Sequence.Backup")
  244.               "\" clone")
  245.                    (prompt "Making backup copy of "
  246.                            (tackon target "S/Startup-sequence") ".\n"
  247.                            "It will be called '"
  248.                            (tackon target "S/Startup-Sequence.Backup") "'.")
  249.         )
  250.  
  251.         ; Protect recently made backup copy from re-installations.
  252.         ; Works ONLY for Installer 1.9 or better
  253.         (protect (cat (tackon target "s/Startup-Sequence.Backup") " -d"))
  254.  
  255.         ; Now patch the beginning of s:startup-sequence.  This requires V36.
  256.         ; fsrc = run "gforce_040:utilities/fixstartup" "target:s/startup-sequence"
  257.         ; BTW, fs_rc stands for FixStartup_ReturnCode...
  258.         (set fs_rc (run (cat "\""
  259.                    (tackon disklab2 "GVP/68040/FixStartup") "\" \""
  260.                    (tackon target "s/Startup-Sequence")
  261.                    "\" NOREPEAT"
  262.                    )))
  263.         ; Check return code; this operation is vital to proper installation.
  264.         (if (> fs_rc 5)
  265.           (
  266.             (message "WARNING:  there was a problem patching your "
  267.                      "startup-sequence (" fs_rc ").  Please add the following "
  268.                      "line at the beginning of your s:startup-sequence "
  269.                      " file:\n\n"
  270.                      "c:Setpatch >nil:\n")
  271.           )
  272.         )
  273.  
  274.         (onerror
  275.             (message "Sorry, but either your startup-sequence is missing "
  276.                      "or is too heavily modified for the Installer program "
  277.                      "to understand and make the change.\n\n"
  278.                      "Modifying the startup-sequence is the last step in "
  279.                      "the GForce 040 installation; all of the other "
  280.                      "necessary files have been installed.  After "
  281.                      "Installer exits, you must examine your "
  282.                      "startup-sequence file and use a text editor to make "
  283.                      "the following change:\n\n"
  284.                      "<click Proceed for the next screen>")
  285.             (message
  286.                  "Make sure that the first line in the startup-sequence "
  287.                  "is:\n\n"
  288.                  "   c:SetPatch >nil:\n\n")
  289.         )
  290.     )
  291.     ; else
  292.     (
  293.         (message "You will have to make the following change by hand:\n\n"
  294.                  "The first line of your startup-sequence MUST read "
  295.                  "as follows:\n\n"
  296.                  "   c:setpatch >nil:\n\n")
  297.     )
  298. )
  299.  
  300. ;****************************************************************************
  301. ; Binddrivers message
  302. ;****************************************************************************
  303. (message
  304.          "One final NOTE:\n"
  305.          "The default Startup-Sequence file that is supplied with "
  306.          "Workbench 2.04 automatically calls the command Binddrivers "
  307.          "as part of the startup procedure.  If you have removed this "
  308.          "command, please add it back in.  The drivers for the serial "
  309.          "and parallel ports on the A2000 GForce040 are loaded by this "
  310.          "command.")
  311.  
  312. ;****************************************************************************
  313. ; For automatic end-of-script message displaying the name of the place where
  314. ; the software was installed...
  315. ;****************************************************************************
  316. (set @default-dest target)
  317.