(FILECREATED "15-Jan-87 13:39:40" {MCS:MCS:STANFORD}<LANE>ETHERBOOT.LSP;16
        

      changes to:  (VARS ETHERBOOTCOMS)

      previous date: "14-Jan-87 09:30:05" {MCS:MCS:STANFORD}<LANE>ETHERBOOT.LSP;15)


(* Copyright (c) 1985, 1986, 1987 by Stanford University. All rights reserved.)

(PRETTYCOMPRINT ETHERBOOTCOMS)

(RPAQQ ETHERBOOTCOMS
 ((FNS ETHERBOOT SENDSIMPLEDATA SENDSPPDATA CACHE.BOOT.FILES)
			(VARS ETHERBOOTFILES BOOTREQUESTTYPES)
			(ADDVARS (BOOTFILEDIRECTORIES {CORE} {DSK})
				 (BOOTFILECACHETYPES DB GERM))
			(INITVARS (BOOTFILECACHEDIRECTORY '{CORE}))
			(DECLARE: DONTCOPY (RECORDS ETHERBOOTFILE BOOTREQUESTTYPE)
				  (MACROS LOADNSHOSTNUMBER)
				  (CONSTANTS (ETHERBOOTPACKETTYPE 9)
					     (BOOTSERVERSOCKET 10)
					     (SIMPLEREQUEST 1)
					     (SIMPLEDATA 2)
					     (SPPREQUEST 3))
				  (GLOBALVARS BOOTFILEDIRECTORIES ETHERBOOTFILES BOOTREQUESTTYPES 
					      BOOTFILECACHETYPES BOOTFILECACHEDIRECTORY))))
(DEFINEQ

(ETHERBOOT

  [LAMBDA (LOGFILE)                                          (* cdl "14-Jan-87 09:29")

    (DECLARE
 (
SPECVARS
 . T))
    (LET (XIP NSOCKET BOOTFILE BOOTSTREAM BOOTREQUESTTYPE FILENUMBER ETHERBOOTFILE)
         (DECLARE
 (
SPECVARS
 . T))
         (
RESETLST

	   [
RESETSAVE
 NIL (
BQUOTE
 (
DISCARDXIPS
 , (
SETQ
 NSOCKET (
OPENNSOCKET
 
										 BOOTSERVERSOCKET
										      'ACCEPT]
	   (do

	     (if
 LOGFILE
		 then
 (printout LOGFILE "Listening ..." T))
	     (
RESETLST

	       [
RESETSAVE
 NIL (
BQUOTE
 (
RELEASE.XIP
 , (
SETQ
 XIP (
GETXIP
 NSOCKET T]
	       (if
 (
SETQ
 BOOTREQUESTTYPE (
FASSOC
 (
\GETBASE
 (with
 XIP XIP XIPCONTENTS)
								   0)
						       BOOTREQUESTTYPES))
		   then
 (
SETQ
 FILENUMBER
			    (for
 D to
 3 as
 N from
 32 by
 -16
			       sum
 (
LSH
 (
\GETBASE
 (with
 XIP XIP XIPCONTENTS)
							D)
					    N)))
			  (if
 [
SETQ
 ETHERBOOTFILE (for
 BOOTFILE in
 ETHERBOOTFILES
							 thereis
 (with
 ETHERBOOTFILE BOOTFILE
									   (
EQP
 BOOTFILENUMBER 
										  FILENUMBER]
			      then
 (with

				       ETHERBOOTFILE ETHERBOOTFILE
				       (if
 LOGFILE
					   then
 (printout LOGFILE (
DATE
)
							    ,
							    (with
 BOOTREQUESTTYPE BOOTREQUESTTYPE 
								    REQUESTDESCRIPTION)
							    , "Request for" , BOOTFILEDESCRIPTION , 
							    "from"
							    ,
							    (with
 XIP XIP XIPSOURCENSADDRESS)
							    T))
				       (if
 (
SETQ
 BOOTFILE (
FINDFILE
 BOOTFILENAME NIL 
									  BOOTFILEDIRECTORIES))
					   then
 [
RESETLST

						    [
RESETSAVE
 NIL
								 (
BQUOTE

								   (
CLOSEF?
 ,
									      (
SETQ
 BOOTSTREAM
										(
OPENSTREAM

										  BOOTFILE
										  'INPUT]
						    (if
 LOGFILE
							then
 (printout LOGFILE "Opened" ,
									 (
FULLNAME
 BOOTSTREAM)
									 T))
						    (
NLSETQ
 (with
 XIP XIP
								      (with
 BOOTREQUESTTYPE 
									      BOOTREQUESTTYPE
									      (
APPLY*
 REQUESTFN 
										       BOOTSTREAM 
										    XIPSOURCEHOST 
										  XIPSOURCESOCKET 
										      XIPCONTENTS 
											NSOCKET 
											LOGFILE]
						  (if
 LOGFILE
						      then
 (printout LOGFILE T "Closed" ,
								       (
FULLNAME
 BOOTSTREAM)
								       T))
					 elseif
 LOGFILE
					   then
 (printout LOGFILE "Error, File Not Found:" , 
							    BOOTFILENAME T)))
			    elseif
 LOGFILE
			      then
 (printout LOGFILE "Error, Unknown File Number:" , FILENUMBER T))
		 elseif
 LOGFILE
		   then
 (printout LOGFILE "Error, Unknown Request Type:" ,
				    (
\GETBASE
 (with
 XIP XIP XIPCONTENTS)
						0)
				    T])

(SENDSIMPLEDATA

  [LAMBDA (BOOTSTREAM DESTHOST DESTSOCKET CONTENTS NSOCKET LOGFILE)
                                                             (* cdl "14-Jan-87 09:21")

    (LET (XIP LENGTH (PACKETCOUNT (
GETFILEINFO
 BOOTSTREAM 'SIZE))
	      (BYTECOUNT (
GETFILEINFO
 BOOTSTREAM 'LENGTH))
	      (COUNTER 0))
         (if
 LOGFILE
	     then
 (printout LOGFILE "Packets"))
         (for
 PACKETNUMBER to
 (
ADD1
 PACKETCOUNT)
	    do
 (if
 LOGFILE
		     then
 (printout LOGFILE , PACKETNUMBER))
		 (with
 XIP (
SETQ
 XIP (
CREATE.PACKET.EXCHANGE.XIP
 NSOCKET DESTHOST DESTSOCKET 
								       ETHERBOOTPACKETTYPE))
			 (
SETQ
 XIPTYPE ETHERBOOTPACKETTYPE))
		 (
XIPAPPEND.WORD
 XIP SIMPLEDATA 0)
		 (for
 OFFSET to
 3 do
 (
XIPAPPEND.WORD
 XIP (
\GETBASE
 CONTENTS OFFSET)
							     OFFSET))
		 (
XIPAPPEND.WORD
 XIP PACKETNUMBER 4)
		 (to
 512 as
 OFFSET from
 10 as
 old
 COUNTER by
 1
		    do
 (
XIPAPPEND.BYTE
 XIP (if
 (
LESSP
 COUNTER BYTECOUNT)
						   then
 (
BIN
 BOOTSTREAM)
						 else
 0)
					   OFFSET))
		 [with
 XIP XIP (
SETQ
 XIPLENGTH
			   (
PLUS
 (
CONSTANT
 (
PLUS
 30 10))
				   (if
 (
GREATERP
 PACKETNUMBER PACKETCOUNT)
				       then
 0
				     elseif
 [
AND
 (
EQP
 PACKETNUMBER PACKETCOUNT)
						     (
NOT
 (
ZEROP
 (
SETQ
 LENGTH (
IMOD
 BYTECOUNT 
											    512]
				       then
 LENGTH
				     else
 512]
		 (
SENDXIP
 NSOCKET XIP)
		 (
BLOCK
])

(SENDSPPDATA

  [LAMBDA (BOOTSTREAM DESTHOST DESTSOCKET CONTENTS NSOCKET LOGFILE)
                                                             (* cdl "14-Jan-87 09:28")

    (DECLARE
 (
SPECVARS
 . T))
    (LET (INPUTSTREAM OUTPUTSTREAM)
         (DECLARE
 (
SPECVARS
 . T))
         (
RESETLST
 [
RESETSAVE
 NIL (
BQUOTE
 (
SPP.CLOSE
 , (
SETQ
 INPUTSTREAM (
SPP.OPEN
 
											 DESTHOST 
										       DESTSOCKET]
		     (with
 STREAM (
SETQ
 OUTPUTSTREAM (
SPPOUTPUTSTREAM
 INPUTSTREAM))
			     (
REPLACEFIELD
 '(SPPCON 16 (BITS . 15))
					     F1
					     (
\GETBASE
 CONTENTS 4)))
		     (if
 LOGFILE
			 then
 (printout LOGFILE "Packets"))
		     (bind
 (DECADE _ 0) for
 I to
 (
SUB1
 (
GETFILEINFO
 BOOTSTREAM
									      'SIZE))
			as
 COUNTER from
 0
			do
 (
COPYBYTES
 BOOTSTREAM OUTPUTSTREAM 512)
			     (
SPP.SENDEOM
 OUTPUTSTREAM)
			     (if
 (
EQ
 COUNTER 10)
				 then
 (
SETQ
 COUNTER 0)
					(
ADD1VAR
 DECADE)
					(if
 LOGFILE
					    then
 (printout LOGFILE , DECADE "0")))
			finally
 (
COPYBYTES
 BOOTSTREAM OUTPUTSTREAM)))
         (if
 LOGFILE
	     then
 (printout LOGFILE T "SPP Stream closed"])

(CACHE.BOOT.FILES

  [LAMBDA (TYPES)                                            (* cdl "24-Sep-86 15:31")

    (bind
 FILE TOFILE for
 ETHERBOOTFILE in
 ETHERBOOTFILES
       do
 (with
 ETHERBOOTFILE ETHERBOOTFILE (if
 (
AND
 (
EQMEMB
 (
U-CASE
 (
FILENAMEFIELD

										   BOOTFILENAME
										   'EXTENSION))
								       (
OR
 TYPES BOOTFILECACHETYPES)
								       )
							     [
NOT
 (
INFILEP
 (
SETQ
 TOFILE
										 (
PACKFILENAME

										   'NAME
										   BOOTFILENAME
										   'DIRECTORY
										   
									   BOOTFILECACHEDIRECTORY]
							     (
SETQ
 FILE (
FINDFILE
 BOOTFILENAME 
										      NIL 
									      BOOTFILEDIRECTORIES)))
						    then
 (
COPYFILE
 FILE TOFILE)
							   (PRINTOUT T FILE T])
)

(RPAQQ ETHERBOOTFILES
 (("Standard DLion Ethernet Initial Microcode" EtherInitial.db 2852126720)
			 ("Standard DLion Diagnostic Microcode" MoonBoot.db 2852126728)
			 ("Standard DLion Mesa Microcode" Mesa.db 2852126736)
			 ("Standard DLion Germ" DLion.germ 2852126744)
			 ("Standard DLion Boot File" SimpleNetExecDLion.boot 2852126752)
			 ("Standard DLion Diagnostics Boot File" EIDiskDLion.boot 2852127232)
			 ("Standard DLion Installer Boot File" InstallerNSDLion.boot 2852127234)
			 ("Alternate DLion Ethernet Initial Microcode" EtherInitialAlt.db 2852126721)
			 ("Alternate DLion Mesa Microcode" Mesa.db 2852126738)
			 ("Alternate DLion Germ" DLion.germ 2852126746)
			 ("Alternate DLion Boot File" InstallerNSDLion.boot 2852126754)
			 ("Standard TriDLion Diagnostic Microcode" Moonboot.db 2852126729)
			 ("Standard TriDLion Mesa Microcode" TridentRavenMesa.db 2852126737)
			 ("Standard TriDLion Germ" TriDlion.germ 2852126745)
			 ("Standard TriDLion Boot File" SimpleNetExecTriDlion.boot 2852126753)
			 ("Alternate TriDLion Mesa Microcode" TridentRavenMesa.db 2852126739)
			 ("Alternate TriDLion Germ" TriDlion.germ 2852126747)
			 ("Alternate TriDLion Boot File" InstallerNSTriDlion.boot 2852126753)
			 ("Standard Dove Ethernet Initial Microcode" EtherInitialDove.db 2852128768)
			 ("Standard Dove Diagnostic Microcode" MoonRise.db 2852128776)
			 ("Standard Dove Mesa Microcode" MesaDove.db 2852128784)
			 ("Standard Dove Germ" Dove.germ 2852128792)
			 ("Standard Dove Boot File" SimpleNetExecDove.boot 2852128800)
			 ("Alternate Dove Ethernet Initial Microcode" EtherInitialDove.db 2852128769)
			 ("Alternate Dove Diagnostic Microcode" MoonRise.db 2852128777)
			 ("Alternate Dove Mesa Microcode" MesaDove.db 2852128785)
			 ("Alternate Dove Germ" Dove.germ 2852128793)
			 ("Alternate Dove Boot File" LispInstallerDove.boot 2852128801)
			 ("Dove Simple Net Exec" SimpleNetExecDove.boot 2852128824)
			 ("Dove Configuration Utility" SysConfigOfflineDove.boot 2852128825)
			 ("Dove Installer" LispInstallerDove.boot 2852128826)
			 ("Dove Diagnostics Utility" DiagDiskUtilDove.boot 2852128828)
			 ("Dove Rigid Disk Diagnostics Utility" DiagRDDove.boot 2852128829)
			 ("Dove Ethernet Diagnostics Utility" DiagEtherDove.boot 2852128830)
			 ("Dove Keyboard & Display Diagnostics Utility" KDMDove.boot 2852128831)))

(RPAQQ BOOTREQUESTTYPES
 ((1 Simple SENDSIMPLEDATA)
			   (3 SPP SENDSPPDATA)))

(ADDTOVAR BOOTFILEDIRECTORIES
 {CORE} {DSK})

(ADDTOVAR BOOTFILECACHETYPES
 DB GERM)

(RPAQ? BOOTFILECACHEDIRECTORY
 '{CORE})
(DECLARE: DONTCOPY 
[DECLARE: EVAL@COMPILE 

(RECORD ETHERBOOTFILE
 (BOOTFILEDESCRIPTION BOOTFILENAME BOOTFILENUMBER))

(RECORD BOOTREQUESTTYPE
 (REQUESTTYPE REQUESTDESCRIPTION REQUESTFN))
]

(DECLARE: EVAL@COMPILE 
(PUTPROPS LOADNSHOSTNUMBER MACRO (= . \LOADNSHOSTNUMBER))
)

(DECLARE: EVAL@COMPILE 

(RPAQQ ETHERBOOTPACKETTYPE
 9)

(RPAQQ BOOTSERVERSOCKET
 10)

(RPAQQ SIMPLEREQUEST
 1)

(RPAQQ SIMPLEDATA
 2)

(RPAQQ SPPREQUEST
 3)

(CONSTANTS (ETHERBOOTPACKETTYPE 9)
	   (BOOTSERVERSOCKET 10)
	   (SIMPLEREQUEST 1)
	   (SIMPLEDATA 2)
	   (SPPREQUEST 3))
)

(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS BOOTFILEDIRECTORIES ETHERBOOTFILES BOOTREQUESTTYPES BOOTFILECACHETYPES 
	    BOOTFILECACHEDIRECTORY)
)
)
(PUTPROPS ETHERBOOT.LSP COPYRIGHT ("Stanford University" 1985 1986 1987))
STOP