home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / EmplantMACEmulatorV4,8.LHA / InstallerScript < prev    next >
Encoding:
Text File  |  1994-09-27  |  20.7 KB  |  778 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: MAC Emulation Installer v2.0 (29 Jun 1994)
  4. ;
  5. ; Title:
  6. ;    EMPLANT's MAC Emulation Software Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for EMPLANT's
  10. ;    MAC emulation module software.
  11. ;
  12. ; Installer script by Jim Drew
  13. ;
  14. ;**************************************************
  15.  
  16. (set true 1)
  17. (set false 0)
  18. (set quote "\"")
  19. (set nothing "")
  20. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  21.  
  22. (set mode 0)                ;default to 32 bit mode
  23.  
  24. (set EMPLANT_dir (getassign "EMPLANT"))
  25. (set c_dir (getassign "C"))
  26. (set libs_dir (getassign "LIBS"))
  27. (set fonts_dir (getassign "FONTS"))
  28. (set devs_dir (getassign "DEVS"))
  29. (set s_dir (getassign "S"))
  30.  
  31. (set Src_c "MacII:MAC_EMU/c/")
  32. (set Src_s "MacII:MAC_EMU/s/")
  33. (set Src_libs "MacII:MAC_EMU/libs/")
  34. (set Src_fonts "MacII:MAC_EMU/fonts/")
  35. (set Src_devs "MacII:MAC_EMU/devs/")
  36. (set Src_main "MacII:MAC_EMU/")
  37. (set Src_Launcher "MacII:MAC_EMU/Launcher/")
  38. (set Src_docs "MacII:MAC_EMU/Documentation/")
  39. (set Src_ROMS "MacII:MAC_EMU/ROM_Images/")
  40. (set Src_Video "MacII:MAC_EMU/Video_Drivers/")
  41. (set Src_Logo "MacII:MAC_EMU/Logos/")
  42. (set Src_ExtIO "MacII:MAC_EMU/Ext_IO/")
  43.  
  44. (if  (<> EMPLANT_dir nothing)
  45.      (if  (askbool
  46.                (prompt "\n\n\nSome version of the MAC emulation software "
  47.                "already exists in your drawer named: \n\n"
  48.                quote EMPLANT_dir quote
  49.                "\n\nDo you want the update installed over it?")
  50.                (help
  51.                "\n\n\nThe installer has determined that you already have a "
  52.                "some version of the MAC emulation software installed "
  53.                "on your system.  If this is wrong or you want the update "
  54.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  55.                )
  56.                (default 1)
  57.           )
  58.                (set is_update true) 
  59.  
  60. ;else ask where to put software
  61.  
  62.                (
  63.                (set is_update false)
  64.                (set EMPLANT_dir
  65.                (askdir
  66.                     (prompt "Where would you like the updated software "
  67.                     "installed?\n"
  68.                     "'EMPLANT' will be automatically appended.")
  69.                     (help @askdir-help)
  70.                     (default @default-dest)
  71.                )
  72.                )
  73.  
  74.                (set EMPLANT_dir
  75.                (tackon EMPLANT_dir "EMPLANT")
  76.                )
  77.  
  78.                (makedir EMPLANT_dir
  79.                (infos)
  80.                )
  81.           )
  82.      )
  83. )
  84.  
  85. ; EMPLANT: was not previously assigned, so ask where to make it
  86. (if  (= EMPLANT_dir nothing)
  87.           (
  88.           (set EMPLANT_dir
  89.                (askdir
  90.                     (prompt "Where would you like the software installed? "
  91.                     "'EMPLANT' will be automatically appended.")
  92.                     (help @askdir-help)
  93.                     (default @default-dest)
  94.                )
  95.           )
  96.  
  97.           (set EMPLANT_dir
  98.           (tackon EMPLANT_dir "EMPLANT")
  99.           )
  100.  
  101.           (makedir EMPLANT_dir
  102.           (infos)
  103.           )
  104.      )
  105. )
  106.  
  107.           (set EMU_Dir
  108.           (tackon EMPLANT_dir "MAC")
  109.           )
  110.  
  111.           (makedir EMU_dir
  112.           (infos)
  113.           )
  114.  
  115. (set @default-dest EMU_dir)
  116.  
  117. (complete 5)
  118.  
  119. ; ask user to locate SYS:C directory
  120.  
  121. (set c_dir
  122.      (askdir
  123.           (prompt "Please locate your C: directory.")
  124.           (help @askdir-help)
  125.           (default c_dir)
  126.      )
  127. )
  128.    
  129. (working omp "...Please Wait...")
  130.  
  131. (copyfiles
  132.      (prompt "Select file(s) to be copied into your C: directory:")
  133.      (help "\n\n\n\n\nThis will copy RsrvMemV to your C: "
  134.      "directory.\n\n\n\n\n\n\n\n"
  135.      @copyfiles-help)
  136.      (source Src_c)
  137.      (dest c_dir)
  138.      (pattern "#?MEM#?")
  139.      (confirm)
  140. )
  141.    
  142. (complete 10)
  143.  
  144. ; ask user to locate LIBS: directory
  145.  
  146. (set libs_dir
  147.      (askdir
  148.           (prompt "Please locate your LIBS: directory.")
  149.           (help @askdir-help)
  150.           (default libs_dir)
  151.           (newpath)
  152.      )
  153. )
  154.  
  155. (working omp "...Please Wait...")
  156.  
  157. (copyfiles
  158.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  159.      (help "\n\n\n\n\nThis will copy the EMPLANT, SYBIL, and "
  160.      "JAM libraries into your system's LIBS: directory.\n\n\n\n\n\n\n"
  161.      @copylib-help)
  162.      (source Src_libs)
  163.      (dest libs_dir)
  164.      (pattern "(#?.library#?)")
  165.      (confirm)
  166. )
  167.  
  168. (complete 20)
  169.  
  170. ; ask user to locate DEVS: directory
  171.  
  172. (set devs_dir
  173.      (askdir
  174.           (prompt "Please locate your DEVS: directory")
  175.           (help @askdir-help)
  176.           (default devs_dir)
  177.      )
  178. )
  179.  
  180. (working omp "...Please Wait...")  
  181.  
  182. (copyfiles
  183.      (prompt "Select file(s) to be copied into your DEVS: directory:")
  184.      (help "\n\n\n\n\nThis will copy the device drivers for the use "
  185.      "with EMPLANT's various I/O ports.\n\n\n\n\n\n\n"
  186.      @copyfiles-help)
  187.      (source Src_devs)
  188.      (dest DEVS_dir)
  189.      (pattern "#?")
  190.      (confirm)
  191. )
  192.  
  193. (complete 30)
  194.  
  195. ; ask user to locate FONTS: directory
  196.  
  197. (set Fonts_dir
  198.      (askdir
  199.           (prompt "Please locate your FONTS: directory")
  200.           (help @askdir-help)
  201.           (default fonts_dir)
  202.           (newpath)
  203.      )
  204. )
  205.  
  206. (working omp "...Please Wait...")
  207.  
  208. (copyfiles
  209.      (prompt "Select file(s) to be copied into your FONTS: directory:")
  210.      (help "\n\n\n\n\nThis will copy over any fonts needed for the "
  211.      "emulation.\n\n\n\n\n\n\n"
  212.      @copyfiles-help)
  213.      (source Src_fonts)
  214.      (dest fonts_dir)
  215.      (pattern "(SCAIV#?)")
  216.      (fonts)
  217.      (confirm)
  218. )
  219.  
  220. (complete 40)
  221.  
  222. (working omp "...Please Wait...")
  223.  
  224. ; Copy utilities
  225.    
  226. (set EMPLANT_dir
  227.      (copyfiles
  228.           (prompt "Select files to be copied to the EMPLANT: directory:")
  229.           (help "\n\n\n\n\nThis will copy all of the utilities for the "
  230.           "EMPLANT hardware and the MAC emulation.\n\n\n\n\n\n\n"
  231.           @copyfiles-help)
  232.           (source Src_main)
  233.           (dest EMPLANT_dir)
  234.           (pattern "(Conv#?|Diag#?|Dump#?|HardFile#?|ROMINFO|InitRet#?|MAC_HDSetup#?|VBRMover#?)")
  235.           (confirm)
  236.      )
  237. )
  238.  
  239. (complete 50)
  240.  
  241. ; Copy over the MAC EMULATION programs
  242.  
  243. (working omp "...Please Wait...")
  244.    
  245. (set EMU_dir
  246.      (copyfiles
  247.           (prompt "Select files to be copied to the EMPLANT:MAC/ directory:")
  248.           (help "\n\n\n\n\n\nThis will copy the MAC emulation's main "
  249.           "programs.\n\n\n\n\n\n\n"
  250.           @copyfiles-help)
  251.           (source Src_main)
  252.           (dest EMU_dir)
  253.           (pattern "(MacII|HardKickMMU|SoftKickMMU)")
  254.           (confirm)
  255.      )
  256. )
  257.  
  258. ;copy AppIcon
  259.  
  260. (copyfiles
  261.      (source Src_Main)
  262.      (dest EMU_dir)
  263.      (pattern "(EMP_AppIcon.info)")
  264. )
  265.  
  266. ;create Launcher directory
  267.  
  268. (set Launcher_dir
  269. (tackon EMU_dir "Launcher")
  270. )
  271.    
  272. (makedir Launcher_dir)
  273.  
  274. (copyfiles
  275.      (source Src_Launcher)
  276.      (dest Launcher_dir)
  277.      (pattern "(launcher.info)")
  278. )
  279.  
  280. (complete 55)
  281.  
  282. ;create Video_Drivers directory
  283.    
  284. (set VideoDrvr_dir
  285. (cat EMU_dir)
  286. )
  287. (set VideoDrvr_dir
  288. (tackon VideoDrvr_dir "Video_Drivers")
  289. )
  290.  
  291. (makedir VideoDrvr_dir
  292. (infos)
  293. )
  294.  
  295. (working omp "...Please Wait...")
  296.  
  297. (copyfiles
  298.      (prompt "Select file(s) to be copied into your Video_Drivers directory:")
  299.      (help "\n\n\n\n\nThis will copy the video drivers to the proper "
  300.      "directory.  ALL MAC video drivers must reside in your "
  301.      "'\EMPLANT:MAC/Video_Drivers\' directory.\n\n\n\n\n\n"
  302.      @copyfiles-help)
  303.      (source Src_video)
  304.      (dest VideoDrvr_dir)
  305.      (pattern "(#?)")
  306.      (confirm)
  307. )
  308.  
  309. (complete 60)
  310.  
  311. ;create ExtIO directory
  312.  
  313. (set ExtIODrvr_dir
  314. (cat EMU_dir)
  315. )
  316. (set ExtIODrvr_dir
  317. (tackon ExtIODrvr_dir "Ext_IO")
  318. )
  319.  
  320. (makedir ExtIODrvr_dir
  321. (infos)
  322. )
  323.  
  324. (working omp "...Please Wait...")
  325.  
  326. (copyfiles
  327. (prompt "Select file(s) to be copied into your Ext_IO directory:")
  328.      (help "\n\n\n\n\nThis will copy the external I/O drivers to the proper "
  329.      "directory.  ALL MAC external I/O drivers must reside in your "
  330.      "'\EMPLANT:MAC/Ext_IO\' directory.\n\n\n\n\n\n"
  331.      @copyfiles-help)
  332.      (source Src_ExtIO)
  333.      (dest ExtIODrvr_dir)
  334.      (pattern "(#?)")
  335.      (confirm)
  336. )
  337.  
  338. (complete 65)
  339.  
  340. ;create Logos directory
  341.  
  342. (set Logos_dir
  343. (cat EMU_dir)
  344. )
  345. (set Logos_dir
  346. (tackon Logos_dir "Logos")
  347. )
  348.  
  349. (makedir Logos_dir
  350. (infos)
  351. )
  352.  
  353. (working omp "...Please Wait...")
  354.  
  355. (copyfiles
  356.      (prompt "Select file(s) to be copied into your Logos directory:")
  357.      (help "\n\n\n\n\nThis will copy the boot logos to the proper "
  358.      "directory.  ALL MAC logos must reside in your "
  359.      "'\EMPLANT:MAC/Logos\' directory.\n\n\n\n\n\n"
  360.      @copyfiles-help)
  361.      (source Src_logo)
  362.      (dest logos_dir)
  363.      (pattern "(#?logo#?)")
  364.      (confirm)
  365. )
  366.  
  367. (complete 70)
  368.  
  369. ;create Documentation directory
  370.  
  371. (set Docs_dir
  372. (cat EMU_dir)
  373. )
  374. (set Docs_dir
  375. (tackon Docs_dir "Documentation")
  376. )
  377.  
  378. (makedir Docs_dir
  379. (infos)
  380. )
  381.  
  382. (working omp "...Please Wait...")
  383.  
  384. (copyfiles
  385.      (prompt "Select file(s) to be copied Documentation directory:")
  386.      (help "\n\n\n\nThis will copy various documentation and "
  387.      "IFF pictures to your documentation directory.  ALL MAC emulation "
  388.      "documentation should reside in your "
  389.      "'\EMPLANT:MAC/Documenation\' directory.\n\n\n\n\n\n"
  390.      @copyfiles-help)
  391.      (source Src_docs)
  392.      (dest Docs_dir)
  393.      (pattern "#?")
  394.      (confirm)
  395. )
  396.  
  397. (complete 75)
  398.  
  399. ;create ROM_Images directory
  400.  
  401. (set ROM_dir
  402. (cat EMU_dir)
  403. )
  404. (set ROM_dir
  405. (tackon ROM_dir "ROM_Images")
  406. )
  407.  
  408. (makedir ROM_dir
  409. (infos)
  410. )
  411.  
  412. (working omp "...Please Wait...")
  413.  
  414. (copyfiles
  415.      (prompt "Select ROM Image(s) and Related Files:")
  416.      (help "\n\n\n\n\nThis will copy your ROM image(s) from your "
  417.      "original installation (if applicable).  ALL ROM image files "
  418.      "must be in your '\EMPLANT:MAC/ROM_Images\' directory.\n\n\n\n\n\n"
  419.      @copyfiles-help)
  420.      (source Src_ROMS)
  421.      (dest ROM_dir)
  422.      (pattern "#?")
  423.      (confirm)
  424. )
  425.  
  426. (complete 80)
  427.  
  428.  
  429. ; add custom EMPLANT setup caller to Startup-Sequence if 'AssignEMPLANT'
  430. ; does not exist yet
  431.  
  432. (if  (not (exists "s:AssignEMPLANT"))
  433.      (if  (askbool
  434.                (prompt "\nIn order for MAC emulation to work correctly, "
  435.                "the FIRST line in your STARTUP-SEQUENCE must be\n\n"
  436.                "'execute >NIL: s:SetupEMPLANT'\n\n"
  437.                "and the LAST line of your USER-STARTUP must be:\n\n"
  438.                "'execute >NIL: s:AssignEMPLANT'\n\n"
  439.                "These lines can be automatically added by this installer "
  440.                "script.  Do you wish to proceed?\n\n")
  441.                (help @askbool-help)
  442.                )
  443.  
  444.                (
  445.                     (if (= @pretend 0)
  446.                     (
  447.                         (
  448.                         (if  (not  (exists "s:user-startup"))
  449.                              (textfile
  450.                              (dest "s:user-startup")
  451.                              (append ";user-startup \n\n")
  452.                          )
  453.                     )
  454.                     (textfile
  455.                     (dest "ram:startup-sequence")
  456.                     (append ";BEGIN EMPLANT \n")
  457.                     (append "execute >NIL: s:SetupEMPLANT \n")
  458.                     (append ";END EMPLANT \n")
  459.                     (include "s:startup-sequence")
  460.                     )
  461.                     (rename "s:startup-sequence" "s:startup-sequence.old")
  462.                     (copyfiles
  463.                     (help @copyfiles-help)
  464.                     (source "ram:startup-sequence")
  465.                     (dest "s:")
  466.                     )
  467.                     (delete "ram:startup-sequence")
  468.  
  469.                     (textfile
  470.                     (dest "ram:user-startup")
  471.                     (include "s:user-startup")
  472.                     (append ";BEGIN EMPLANT \n")
  473.                     (append "execute >NIL: s:AssignEMPLANT \n")
  474.                     (append ";END EMPLANT \n")
  475.                     )
  476.                     (rename "s:user-startup" "s:user-startup.old")
  477.                     (copyfiles
  478.                     (help @copyfiles-help)
  479.                     (source "ram:user-startup")
  480.                     (dest "s:")
  481.                     )
  482.                     (delete "ram:user-startup")
  483.                )
  484.           )
  485.           )
  486.      )
  487.      )
  488. )
  489.  
  490. ;create mini-script files
  491.       
  492. (delete "s:SetupEMPLANT")
  493. (textfile
  494. (dest "s:SetupEMPLANT")
  495. (append "RsrvMemV >NIL: \n")
  496. )
  497. (delete "s:AssignEMPLANT")
  498. (textfile
  499. (dest "s:AssignEMPLANT")
  500. (append "Assign EMPLANT: " EMPLANT_dir "\n")
  501. )
  502.  
  503. (complete 85)
  504.  
  505. (message "\n\n\n\n\n\n"
  506. "Installation of emulation software is complete.  You must now setup "
  507. "the emulation's launcher program for your particular machine."
  508. )
  509.  
  510. (set filename EMU_dir)
  511.  
  512. (set machine
  513.      (askchoice
  514.           (prompt "Select the model of Amiga you are using:")
  515.           (help "\n\n\n\n\nSelect the model that closest matches your "
  516.           "system.  If you have an A4000/030 with an MMU added, select "
  517.           "\Amiga 4000/040\.\n\n\n\n\n\n\n\n"
  518.           @askchoice-help)
  519.                (choices "Amiga 2000 + accelerator w/MMU"
  520.                "Amiga 3000 w/HardKick ROMs"
  521.                "Amiga 3000 w/SoftKick ROMs"
  522.                "Amiga 4000/040"
  523.                "Amiga 4000/030"
  524.                "Other Amiga w/o MMU"
  525.                "I don't want to use the MMU!")
  526.           (default 3)
  527.      )
  528. )
  529.  
  530. (complete 90)
  531.  
  532. (if  (< machine 4)
  533.      (set mode
  534.           (askchoice
  535.                (prompt "Select the addressing mode for the emulation to use:")
  536.                (help "\nIt is highly recommend that you use this emulation "
  537.                "only with Apple's System 7.1 or later software.  This "
  538.                "requires that the emulation is setup in '32 bit mode'.\n\n"
  539.                "You should only use '24 bit' mode if you are going to be "
  540.                "using any version from System 6 thru System 7.0.1.\n\n"
  541.                "24 bit mode may be required for some older applications."
  542.                "\n\n\n\n\n"
  543.                @askchoice-help)
  544.                (choices "32 bit (System 7.1 and later)"
  545.                "24 bit (System 7.01 and earlier)")
  546.                (default 0)
  547.           )
  548.      )
  549. )
  550.  
  551. (complete 95)
  552.  
  553. (if  (< machine 4)
  554.      (if  (<> machine 2)
  555.           (
  556.           (set type "HardKickMMU")
  557.           (set icon_name "HardLaunch_")
  558.           (set flags
  559.                (askoptions
  560.                     (prompt "Setup Launch script options for:\n"
  561.                     "Any Amiga with an MMU & KickStart in ROM")
  562.                     (help "The following features are available with "
  563.                     "the HardLaunch_MAC script:\n\n"
  564.                     "QUIET:\n\n"
  565.                     "Turns off the screen flash when HardLaunch_MAC is "
  566.                     "started up (those of you using long 'beep' samples "
  567.                     "in Preferences will want to select this option.\n\n\n"
  568.                     "\n\n\n\n\n\nREMAP:\n\n"
  569.                     "It is possible to map the EMPLANT's hardware at the "
  570.                     "same memory location as a real MAC's hardware, increasing "
  571.                     "emulation compatibility.  This option may conflict with "
  572.                     "some Zorro III memory boards.\n\n\n"
  573.                     "\n\n\n\n\nFASTROM:\n\n"
  574.                     "The Amiga's Kickstart ROM can be mapped into FAST memory, "
  575.                     "which will result in an overall performance boost to the "
  576.                     "Amiga and EMPLANT's MAC emulation.  This option is highly "
  577.                     "recommended!\n\n\n\n\n"
  578.                     "\n\n\nNOCOPYBACK:\n\n"
  579.                     "Although we know of no programs to date that require this "
  580.                     "option, it exists in case an application can not handle "
  581.                     "the CopyBack mode of the 68040 processor.  It puts the "
  582.                     "processor into 'write-through' mode.\n\n\n\n\n\n\n\n"
  583.                     @askoptions-help)
  584.                     (choices
  585.                     "QUIET      - No screen flash on startup"
  586.                     "REMAP      - Remaps EMPLANT hardware"
  587.                     "FASTROM    - Remaps KickStart into FAST memory"
  588.                     "NOCOPYBACK - Turns off CopyBack mode for 68040s"
  589.                     )
  590.                     (default 6)
  591.                )
  592.           )
  593.           )
  594.  
  595. ;else machine is softkicked
  596.           (
  597.           (set type "SoftKickMMU")
  598.           (set icon_name "SoftLaunch_")
  599.           (set flags
  600.                (askoptions
  601.                     (prompt "Setup Launch script options for:\n"
  602.                     "SoftKick'd A3000")
  603.                     (help "The following features are available with "
  604.                     "the SoftLaunch_MAC script:\n\n"
  605.                     "QUIET:\n\n"
  606.                     "Turns off the screen flash when SoftLaunch_MAC is "
  607.                     "started up (those of you using long 'beep' samples "
  608.                     "in Preferences will want to select this option.\n\n\n"
  609.                     "\n\n\n\n\n\nREMAP:\n\n"
  610.                     "It is possible to map the EMPLANT's hardware at the "
  611.                     "same memory location as a real MAC's hardware, increasing "
  612.                     "emulation compatibility.  This option may conflict with "
  613.                     "some Zorro III memory boards.\n\n\n\n\n\n\n"
  614.                     @askoptions-help)
  615.                     (choices
  616.                     "QUIET      - No screen flash on startup"
  617.                     "REMAP      - Remaps EMPLANT hardware"
  618.                     )
  619.                     (default 2)
  620.                     )
  621.                )
  622.           )
  623.           )
  624.  
  625.      (
  626.      (set type "NoMMU")
  627.      (set icon_name "EC_Launch_")
  628.  
  629.      (Message "\n\nA T T E N T I O N ! ! !\n\n\n\n"
  630.      "Since your system will not be using an MMU, it is "
  631.      "recommended that you use the 'QD' video drivers."
  632.      "\n\n")
  633.      )
  634. )
  635.  
  636. (if  (= mode 0)
  637.      (
  638.      (set icon_name
  639.      (cat icon_name "MAC")
  640.      )
  641.      )
  642. )
  643.  
  644. (if  (= mode 1)
  645.      (
  646.      (set icon_name
  647.      (cat icon_name "24")
  648.      )
  649.      )
  650. )
  651.  
  652. (set filename
  653. (tackon filename icon_name)
  654. )
  655.  
  656. (complete 99)
  657.  
  658. (set iconify
  659.      (askchoice
  660.           (prompt "Select Startup Option:\n")
  661.           (help "\n\n\nWhen the " icon_name " script file is executed, "
  662.           "the emulation will startup and normally stay at the Emulation "
  663.           "Setup Screen.\n\n"
  664.           "It is possible to skip the setup screen and immediately run "
  665.           "the emulation, and even iconify it at the same time.\n\n\n\n"
  666.           @askchoice-help)
  667.                (choices "Skip Emulation Setup"
  668.                "Skip Emulation Setup & Iconify"
  669.                "Don't Skip Emulation Setup"
  670.                (default 2)
  671.                )
  672.      )
  673. )
  674.  
  675. ;delete file if it once existed.
  676.  
  677. (delete filename)
  678.  
  679. (textfile
  680. (dest filename)
  681. (if  (= type "HardKickMMU")
  682.      (append "\n"
  683.      "IF EXISTS " type "\n\n"
  684.      "c:echo " quote "Setting up MMU mirroring system for ROM based machines...." quote "\n\n"
  685.      ";Attention!!  HardKickMMU has 5 different options:\n\n"
  686.      "; -f    Turns on the FASTROM option (remaps KickStart into FAST memory).\n"
  687.      "; -w    Turns off CopyBack mode (turns on write-through, 68040 owners only).\n"
  688.      "; -h    Remaps the EMPLANT hardware to appear at the same memory location\n"
  689.      ";       that the MAC's hardware appears.\n"
  690.      "; -t    Maps 4K pages with MMU for video display refreshing, does not\n"
  691.      ";       mirror memory.  WILL NOT WORK IN 24 BIT MODE!!\n"
  692.      "; -q    Supress screen flash, also known as DisplayBeep().\n\n"
  693.      ";       You can use either upper or lower case letters (ie. -f or -F).\n"
  694.      ";       Options may be in any order.\n\n"
  695.      "HardKickMMU "
  696.      )
  697.      )
  698.  
  699. (if  (= type "SoftKickMMU")
  700.      (append "\n"
  701.      "IF EXISTS " type "\n\n"
  702.      "c:echo " quote "Setting up MMU mirroring system for SuperKickstart machines...." quote "\n\n"
  703.      ";Attention!!  SoftKickMMU has 2 different options:\n\n"
  704.      "; -h    Remaps the EMPLANT hardware to appear at the same memory location\n"
  705.      ";       that the MAC's hardware appears.\n"
  706.      "; -q    Supress screen flash, also known as DisplayBeep().\n\n"
  707.      ";       You can use either upper or lower case letters (ie. -h or -H).\n"
  708.      ";       Options may be in any order.\n\n"
  709.      "SoftKickMMU "
  710.      )
  711.      )
  712.  
  713.      (if  (IN flags 0)
  714.      (append "-q ")
  715.      )
  716.  
  717.      (if  (IN flags 1)
  718.      (append "-h ")
  719.      )
  720.  
  721.      (if  (IN flags 2)
  722.      (append "-f ")
  723.      )
  724.  
  725.      (if  (IN flags 3)
  726.      (append "-w ")
  727.      )
  728.  
  729.      (if  (< machine 4)
  730.           (if  (= mode 0)
  731.           (append "-t ")
  732.           )
  733.      )
  734.  
  735.      (append "\n\n"
  736.      "c:echo " quote " " quote "\n"
  737.      "c:echo " quote "Running emulation configuration menu...." quote "\n\n"
  738.      "RUN >NIL: <NIL: MACII "
  739.      )
  740.  
  741.      (if  (= iconify 0)
  742.      (append "-s ")
  743.      )
  744.  
  745.      (if  (= iconify 1)
  746.      (append "-i ")
  747.      )
  748.      (append "\n\n")
  749. )
  750.  
  751. (copyfiles
  752.      (source launcher_dir)
  753.      (dest EMU_dir)
  754.      (pattern "Launcher.info")
  755. )
  756.  
  757. (set oldname
  758. (tackon EMU_dir "launcher.info")
  759. )
  760.  
  761. (set filename
  762. (cat filename ".info")
  763. )
  764.  
  765. (rename oldname filename)
  766.  
  767. (complete 100)
  768.  
  769. (message "\n\n\n\n"
  770. "A T T E N T I O N ! ! !\n\n"
  771. "You must turn off the power to your Amiga before attempting "
  772. "to run the emulation.  Simply rebooting will NOT work, you "
  773. "MUST physically turn off of the Amiga with its power switch. "
  774. "No exceptions."
  775. )          
  776.  
  777. (exit)
  778.