File [_CD8_]<portola>Parameters>FetchBootServerDLionFiles.cm!3

-- Copyright (C) 1984  by Xerox Corporation. All rights reserved. 
-- FetchBootServerDLionFiles.cm, HGM, 19-Sep-85  0:38:57
-- Fetches/updates DLion files used in DLion etherbooting.
-- Lehner/bj, 16-Sep-85 19:00:20
-- bj, 27-Feb-86 12:04:00
-- Morrill, updated to fetch 12.2 for 3 boot, 21-Aug-86 17:13:34

// Main boot files (3 boot, 12.2)
FTP Open "PARC Public:Parc:Xerox" ↑
  Retr/<>sa "<Boot Service>12.2>EtherInitial.db" EtherInitialDLion.db ↑
  Retr/<>sa "<Boot Service>12.2>Mesa.db" MesaDLion.db ↑
  Retr/<>sa "<Boot Service>12.2>TridentRavenMesa.db" TridentMesaDLion.db ↑
  Retr/<>sa "<Boot Service>12.2>DLion.germ" DLion.germ ↑
  Retr/<>sa "<Boot Service>12.2>TriDLion.germ" TridentDLion.germ ↑
  Retr/<>sa "<Boot Service>12.2>SimpleNetExecDLion.boot" SimpleNetExecDLion.boot ↑
  Retr/<>sa "<Boot Service>12.2>LispInstallerPupDLion.boot" LispInstallerDLion.boot ↑
  Retr/<>sa "<Boot Service>12.2>SimpleNetExecTriDLion.boot" SimpleNetExecDTriLion.boot ↑
  Retr/<>sa "<Boot Service>12.2>InstallerNSTriDLion.boot" LispInstallerTriDLion.boot ↑

// Diagnostics (4 boot)
FTP Open "PARC Public:Parc:Xerox" ↑
  Retr/<>sa "<Boot Service>12.2>MoonBoot.db" DiagDLion.db ↑
  Retr/<>sa "<Boot Service>12.2>MoonBoot.db" TridentDiagDLion.db ↑

// Other boot files (For Othello's EtherBoot command, or NetExec when it arrives)
// NB: Update only.  Won't fetch if they are not here yet.
FTP Open "PARC Public:Parc:Xerox" ↑
  Retr/<>sa "<Boot Service>12.2>EIDiskDLion.boot" EIDiskDLion.boot ↑
  Retr/<>sa "<Boot Service>12.2>EILCDDiagDLion.boot" EILCDDiagDLion.boot ↑

// Alternate boot files (6-6 boot, 12.0)
FTP Open "PARC Public:Parc:Xerox" ↑
  Retr/<>sa "<Boot Service>EtherInitialAlt.db" EtherInitialDLionAlt.db ↑
  Retr/<>sa "<Boot Service>Mesa.db" MesaDLionAlt.db ↑
  Retr/<>sa "<Boot Service>TridentRavenMesa.db" TridentMesaDLionAlt.db ↑
  Retr/<>sa "<Boot Service>DLion.germ" DLionAlt.germ ↑
  Retr/<>sa "<Boot Service>TriDLion.germ" TridentDLionAlt.germ ↑
  Retr/<>sa "<Boot Service>PupOthelloDLion.boot" DLionAlt.boot ↑
  Retr/<>sa "<Boot Service>PupOthelloTriDLion.boot" TridentDLionAlt.boot ↑