-- MakeLispFloppies.doc
-- Instructions for building Floppies for installing Interlisp-D on 1108s
--	last edited  22-Apr-84 11:29:00 by Masinter.PA 
--	keep versions uptodate for Fugue6 release
--	filed at [Phylum/Rose]<Lisp>Current>MakeLispFloppies.doc

--  Follow these instructions if running in Mesa 10.0 Tajo or Copilot. To execute these commands, make sure the insertion point is in the executive window (by clicking left mouse button in Executive window). Then, while holding the "Copy" key down, select the command you want to execute (including the "return" at the end of line.) When you let up on Copy, the command will be "unread" the Executive input buffer.

-----------------------------------------------------------------------
-- Getting Started
-----------------------------------------------------------------------

-- Before you transfer files, you should have approximate 6000 pages in your volume to contain all the files. If you want to keep the files separate, you can work on separate directory to keep files in one place, for example:

Create Floppy -- creates a new directory
push Floppy   -- puts the directory on your search path (like Connect) 

-- alternatively, you can do this on a separate volume, e.g.:
Open Lisp/w -- open Lisp volume
Create <Lisp> -- create a directory on Lisp volume
push <Lisp> -- put <Lisp> on search path

-----------------------------------------------------------------------
-- bring over files for making Installation Utility and Diagnostics Files
-----------------------------------------------------------------------

ftp Rose directory/c Mesa>10.0>tools retrieve/a<> MakeDLionBootFloppyTool.bcd ftp Rose directory/c Mesa>10.0>basics retrieve/a<> TajoDLion.boot

-- More Mesa files for installing on floppy. 

ftp Rose directory/c Apilot100>Microcode>Public retrieve/a<> FloppyInitial.db Mesa.db MoonBoot.db

ftp Rose directory/c Apilot100>Pilot>Public retrieve/a<> DLion.germ

-- Following file is "Prometheus" utility for installing software from floppies.  It isn't released and access is controlled. See Masinter.pa or JFung.pasa if you have trouble getting access.

ftp Sun directory/c AServices>7.0>Top>Public retrieve/a<> PrometheusDLion.boot

-- bring over Lisp specific files to be installed on floppies. 

ftp Rose directory/c Lisp>Fugue6 ret/A<> Lisp10SAx000Initial.db prometheus.script InstallLispTool.bcd  

-- bring over SYSOUT file

ftp Rose directory/c Lisp>Fugue6 ret/A<>S Lisp.SYSOUT

-- start over if new version of MakeLispFloppies.doc required confirmation

-- now start up tool. Execute:

MakeDLionBootFloppyTool.bcd

-- Insert new floppy
-- Make the following settings in MakeDLionBootFloppyTool:

--  Drive: 0                            -- default is correct --
--  Floppy Name: Installation Utility -- *** CHANGE THIS ONE *** --
--  Initial uCode: FloppyInitial.db     -- default is correct --
--  Diagnostic uCode: MoonBoot.db       -- default is correct --
--  Pilot uCode: Mesa.db                -- default is correct --
--  Germ File: DLion.germ               -- default is correct --
--  Boot File: PrometheusDLion.boot	-- *** CHANGE THIS ONE *** --

-- Bug the "Format And Install Boot Files!" command

-- Now execute the following WITHOUT REMOVING FLOPPY:

floppy write prometheus.script InstallLispTool.bcd  
floppy info list/v


--------------------------------------------------------------------- 
-- You have now made a "Installation Utility" diskette
-- It can be used to:
--configure the disk into one, two or three logical volumes
--install Diagnostics onto the disk
--      install sysouts on any of three logical volumes
--------------------------------------------------------------------- 

-- To make a "Diagnostics Files" floppy, INSERT A NEW FLOPPY, AND THEN:

floppy format "Diagnostics Files"/n 
-- y
floppy write Lisp10SAx000Initial.db Mesa.db DLion.germ TajoDLion.boot 
floppy info list/v


---------------------------------------------------------------------- 
-- To make a floppy with a SYSOUT on it:
-- Insert a new floppy, then:

floppy format "Lisp Sysout '#1"/n
-- y
floppy write lisp.sysout[0..2250]/s lisp.sysout
floppy info list/v

-- Insert a new floppy, and then

floppy format "Lisp Sysout '#2"/n 
-- y
floppy write lisp.sysout[2251..4500]/s lisp.sysout
floppy info list/v

-- If SYSOUT>4500 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#3"/n 
-- y
floppy write lisp.sysout[4501..6750]/s lisp.sysout
floppy info list/v

-- If SYSOUT>6750 pages, insert a new floppy, and then:

floppy format "Lisp Sysout '#4"/n 3/f
-- y
floppy write lisp.sysout[6751..9000]/s lisp.sysout
floppy info list/v

-- done (extend for sysouts bigger than 11500 pages). If any changes to files were made, back up:

 
-- stop working in the "Floppy" subdirectory

pop