-- MakeLispFloppies.doc
-- Last edit 11-Oct-84 16:27:50 by Masinter
-- Instructions for building Floppies for installing Interlisp-D on 1108s   	

--  Follow these instructions if running in Mesa 11.1 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.
-- 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.

Create FloppyFiles   -- creates a new directory

push FloppyFiles  -- puts the directory on your search path (like Connect) 

-- bring over tool for making floppies.
-- Change "Iris" to to the name of the server has Mesa closest to you (Phylum and Rose are candidates)

ftp Iris directory/c Mesa>11.0 retrieve/a<> MakeDLionBootFloppyTool.bcd  FloppyInitial.db Mesa.db MoonBoot.db DLion.germ

-- get Lisp specific files:

ftp Eris directory/c Lisp>Harmony>Mesa ret/<>A HelloDLion.boot directory/c Lisp>Harmony>CM retrieve/<>A GetHello.othello GetLisp.othello PartitionLisp.othello PartitionLispTajo.othello PartitionLispStarTajo.othello

-- now start up tool. Execute:

MakeDLionBootFloppyTool.bcd

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

--  Drive: 0                            -- default is correct --
--  Floppy Name: LispOthello		 -- *** 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: HelloDLion.boot		-- *** CHANGE THIS ONE *** --

-- Turn on all three options (Format Floppy, Reserve Last Cylinder For Diagnostics, Install Boot Files) and button Start!

-- Now execute the following WITHOUT REMOVING FLOPPY:

floppy write Lisp11SAx000Initial.db DLion.germ Mesa.db HelloDLion.boot getLisp.othello PartitionLisp.othello PartitionLispTajo.othello PartitionLispStarTajo.othello
floppy info list/v

---------------------------------------------------- 
-- You have now made a "LispOthello" diskette
---------------------------------------------------- 
-- To make a floppy with a SYSOUT on it, generally you should use Lisp:
-- COPYFILE of a file to floppy (after FLOPPY.MODE(SYSOUT)) or SYSOUT({FLOPPY})
-- work. However, you can also do this from Tajo:

ftp Eris directory/c Lisp>Harmony>Basics ret/A<> Lisp.SYSOUT

-- Insert a new floppy, then do the following. The "--y" is so that if it asks you if you want to overwrite, it will get a "Yes" response after complaining about the "--", but if it doesn't ask, the "--y" will get ignored.

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

-- Insert a new floppy, and then

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

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

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

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

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

floppy format "Lisp Sysout '#5"/n 3/f
-- y
floppy write lisp.sysout[9000..11499]/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 "FloppyFiles" subdirectory

pop