-- LispInstallation.Script
-- Last edited: JFung.pasa  8-Jan-86  9:30:20/40mb with (10,10) & (16,6) options

\Partition 10 Mb disk for 1 Lisp volume(14000 pages) and 1 LispFiles volume(1500 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 10Mb 3
SystemTools 3600 normal
LispFiles 1500 normal
Lisp  normal
Check RD0 Y
Comment Disk partitioned for Interlisp-D

\Partition 20 Mb disk for 1 Lisp volume(8Mb) and 1 LispFiles volume(~10900 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 20Mb 3
SystemTools 3600 normal
Lisp 16200 normal
LispFiles  normal
Check RD0 Y
Comment Disk partitioned for Interlisp-D

\Partition 40 Mb disk for 2 Lisp(10Mb, 10Mb) volumes and 1 LispFiles volume(~17500 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 Q40Mb 4
SystemTools 3600 normal
Lisp 32500 normal
Lisp2 12000 normal
LispFiles  normal
Check RD0
Comment Disk partitioned for Lisp


\Partition 40 Mb disk for 2 Lisp(16Mb, 6Mb) volumes and 1 LispFiles volume(~13000 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 Q40Mb 4
SystemTools 3600 normal
Lisp 32500 normal
Lisp2 12000 normal
LispFiles  normal
Check RD0
Comment Disk partitioned for Lisp

\Partition 40 Mb disk for 3 Lisp(16Mb, 8Mb, 4Mb) volumes and 1 LispFiles volume(~750 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 40Mb 5
SystemTools 3600 normal
Lisp 32500 normal
Lisp2 16200 normal
Lisp3 8000 normal
LispFiles  normal
Check RD0 Y
Comment Disk partitioned for Interlisp-D

\Partition 80 Mb disk for 4 Lisp volumes(32Mb, 8Mb, 8Mb, 4Mb) and 2 LispFiles volumes(7000, ~7000 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 80Mb 7
SystemTools 3600 normal
Lisp 65000 normal
Lisp2 16200 normal
Lisp3 16200 normal
Lisp4 8000 normal
LispFiles 7000 normal
LispFiles2  normal
Check RD0 Y
Comment Disk partitioned for Interlisp-D

\Partition 80 Mb disk for 4 Lisp volumes(16Mb, 16Mb, 16Mb, 4Mb) and 2 LispFiles volumes(7000, ~7000 pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Physical RD0 Y
Online RD0
Create RD0 80Mb 7
SystemTools 3600 normal
Lisp 32500 normal
Lisp2 32500 normal
Lisp3 32500 normal
Lisp4 8000 normal
LispFiles 7000 normal
LispFiles2  normal
Check RD0 Y
Comment Disk partitioned for Interlisp-D

\Initialize Workstation SystemTools Volume
Physical RD0 Y
Online RD0
Comment Erasing SystemTools volume...
Erase SystemTools
Request System Files #1
Comment Installing microcode...
Initial RD0 DiskInitialDove.db
Germ SystemTools Dove.germ Y
Pilot SystemTools MesaDove.db Y
Pilot LispFiles LispDove.db Y
Comment microcode files installed
Comment Installing System files...
Request System Files #2
Fetch SystemTools TajoDove.boot
Request System Files #3
Fetch SystemTools TajoDove.boot
Request System Files #4
Fetch SystemTools TajoDove.boot
Request System Files #5
Fetch SystemTools TajoDove.boot
Set Physical SystemTools YYY
Set Boot SystemTools \200
Comment SystemTools volume installed.
Comment To complete initialization of the SystemTools volume:
Comment Select item: "Boot SystemTools volume",
Comment then activate the Exec window, insert "System Files #5" floppy
Comment and type "Floppy Read Init.cm; @Init.cm"

\Boot SystemTools volume
Online RD0
Boot SystemTools 

\Erase SystemTools volume
Confirm Continue?
Online RD0
Check RD0 Y
Comment Erasing SystemTools volume...
Erase SystemTools
Comment SystemTools erased

\Erase LispFiles volume
Confirm Continue?
Online RD0
Comment Erasing LispFiles volume...
Erase LispFiles
Comment LispFiles erased

\Physical Volume Scavenge
Online RD0
Comment Scavenging Physical volume...
Physical RD0 Y
Comment physical volume scavenged

\Scavenge LispFiles Volume
Online RD0
Comment Scavenging LispFiles volume...
Scavenge LispFiles
Comment LispFiles scavenged

\Scavenge SystemTools Volume
Online RD0
Comment Scavenging SystemTools volume...
Scavenge SystemTools
Comment SystemTools scavenged


\Boot from Lisp volume
Online RD0
Set Physical Lisp Y
Quit Y

\Install Lisp Microcode Only
Online RD0
Request System Files #1
Comment Installing Disk Initial microcode file...
Initial RD0 DiskInitialDove.db
Comment Disk Initial microcode file installed
Pilot LispFiles LispDove.db Y
Comment Lisp run time microcode installed on LispFiles
\