diff --git a/internal/loadups/LOADUP-LISP b/internal/loadups/LOADUP-LISP
index cf318813..9d7dca17 100644
--- a/internal/loadups/LOADUP-LISP
+++ b/internal/loadups/LOADUP-LISP
@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "22-Feb-2026 14:15:31" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;27| 7420   
+(FILECREATED "26-Mar-2026 18:38:22" 
+|{DSK}<Users>briggs>Projects>medley>internal>loadups>LOADUP-LISP.;14| 7604   
 
-      :EDIT-BY |rmk|
+      :EDIT-BY "briggs"
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "22-Feb-2026 09:49:23" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;26|)
+      :PREVIOUS-DATE "22-Feb-2026 14:15:31" 
+|{DSK}<Users>briggs>Projects>medley>internal>loadups>LOADUP-LISP.;13|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +21,8 @@
 (DEFINEQ
 
 (LOADUP-LISP
-  (LAMBDA (DRIBBLEFILE)                                     (* \; "Edited 22-Feb-2026 14:15 by rmk")
+  (LAMBDA (DRIBBLEFILE)                                  (* \; "Edited 26-Mar-2026 18:38 by briggs")
+                                                            (* \; "Edited 22-Feb-2026 14:15 by rmk")
                                                             (* \; "Edited 28-Jan-2026 14:30 by lmm")
                                                             (* \; "Edited 27-Dec-2025 15:02 by rmk")
                                                             (* \; "Edited 16-Oct-2025 16:55 by rmk")
@@ -135,6 +138,7 @@
 
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
+    (RESTART.ETHER)
     (DRIBBLE)
     (SETQ MAKESYSNAME :MEDLEY)))
 )
@@ -147,5 +151,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 7214 (LOADUP-LISP 650 . 7212)))))
+  (FILEMAP (NIL (695 7398 (LOADUP-LISP 705 . 7396)))))
 STOP
diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM
index 03306e2f..2bbfe60e 100644
Binary files a/internal/loadups/LOADUP-LISP.LCOM and b/internal/loadups/LOADUP-LISP.LCOM differ
diff --git a/sources/LLETHER b/sources/LLETHER
index 6bc70986..fd0719d9 100644
--- a/sources/LLETHER
+++ b/sources/LLETHER
@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4 139646 
 
-      changes to%:  (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
-                    (VARS LLETHERCOMS)
+(FILECREATED "23-Jan-2026 12:42:02" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;4 138728 
 
-      previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
+      :EDIT-BY nhb
 
+      :CHANGES-TO (FNS \SETETHERFLAGS)
+
+      :PREVIOUS-DATE "20-Dec-2025 14:12:06" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;3)
 
-(* ; "
-Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT LLETHERCOMS)
 
@@ -17,19 +15,19 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
        [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
                                                 LLNSDECLS))
         [COMS                                                (* ; 
-                                                           "Stuff that should be somewhere else!")
+                                                             "Stuff that should be somewhere else!")
               (INITVARS (ERRORMESSAGESTREAM T)
                      (PROMPTWINDOW T))
               (GLOBALVARS ERRORMESSAGESTREAM PROMPTWINDOW)
               (COMS                                          (* ; 
-                       "Queue management for data which can be chain-linked through the first cell")
+                         "Queue management for data which can be chain-linked through the first cell")
                     (DECLARE%: DONTCOPY (EXPORT (RECORDS SYSQUEUE QABLEITEM)
                                                (MACROS \QUEUEHEAD)))
                     (INITRECORDS SYSQUEUE)
                     (SYSRECORDS SYSQUEUE)
                     (FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
                                                              (* ; 
-                                                           "Queue management constructed by TCONC")
+                                                             "Queue management constructed by TCONC")
                     (EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC]
         (COMS                                                (* ; "General packet management")
               (DECLARE%: DONTCOPY 
@@ -124,7 +122,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
               (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX)
                      (RECORDS CENTICLOCK)))
         (COMS                                                (* ; 
-                                                      "3MB stuff, which is not needed in DandeLion")
+                                                        "3MB stuff, which is not needed in DandeLion")
               (FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE 
                    \3MB.BROADCASTP \3MBFLUSH)
               (INITVARS (\MAXWATCHERGETS 5))
@@ -168,19 +166,18 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (DATATYPE SYSQUEUE ((NIL BYTE)
-                        (SYSQUEUEHEAD POINTER)
-                        (NIL BYTE)
-                        (SYSQUEUETAIL POINTER)))
+                    (SYSQUEUEHEAD POINTER)
+                    (NIL BYTE)
+                    (SYSQUEUETAIL POINTER)))
 
 (BLOCKRECORD QABLEITEM ((NIL BITS 4)
-                            (QLINK POINTER)                  (* ; 
-   "Link to next thing in queue always in first pointer of datum, independent of what the datum is")
-                            )
-                           (BLOCKRECORD QABLEITEM ((NIL BITS 4)
-                                                   (LINK POINTER)
-                                                             (* ; 
-                                                           "Let's also be able to call it a LINK")
-                                                   )))
+                        (QLINK POINTER)                      (* ; 
+     "Link to next thing in queue always in first pointer of datum, independent of what the datum is")
+                        )
+                       (BLOCKRECORD QABLEITEM ((NIL BITS 4)
+                                               (LINK POINTER)(* ; 
+                                                             "Let's also be able to call it a LINK")
+                                               )))
 )
 
 (/DECLAREDATATYPE 'SYSQUEUE '(BYTE POINTER BYTE POINTER)
@@ -192,7 +189,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \QUEUEHEAD MACRO ((Q)
-                                    (fetch (SYSQUEUE SYSQUEUEHEAD) of Q)))
+                            (fetch (SYSQUEUE SYSQUEUEHEAD) of Q)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -208,9 +205,9 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE SYSQUEUE ((NIL BYTE)
-                        (SYSQUEUEHEAD POINTER)
-                        (NIL BYTE)
-                        (SYSQUEUETAIL POINTER)))
+                    (SYSQUEUEHEAD POINTER)
+                    (NIL BYTE)
+                    (SYSQUEUETAIL POINTER)))
 )
 (DEFINEQ
 
@@ -362,9 +359,9 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \DETCONC MACRO [OPENLAMBDA (TQ)
-                                   (PROG1 (\PEEKTCONC TQ)
-                                       (if [NULL (CAR (RPLACA TQ (CDAR TQ]
-                                           then (RPLACD TQ)))])
+                           (PROG1 (\PEEKTCONC TQ)
+                               (if [NULL (CAR (RPLACA TQ (CDAR TQ]
+                                   then (RPLACD TQ)))])
 
 (PUTPROPS \ENTCONC MACRO (= . TCONC))
 
@@ -382,48 +379,48 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (DATATYPE ETHERPACKET ((NIL BYTE)
-                           (EPLINK POINTER)                  (* ; "For queue maintenence")
-                           (EPFLAGS BYTE)                    (* ; 
-                                                           "optional flags for some applications")
-                           (EPUSERFIELD POINTER)             (* ; 
-                                                           "Arbitrary pointer for applications")
-                           (NIL BYTE)
-                           (EPPLIST POINTER)                 (* ; 
-                                                  "Extra field for use as an A-list for properties")
-                           (EPTRANSMITTING FLAG)             (* ; 
-                                "True while packet is being transmitted and hence cannot be reused")
-                           (EPRECEIVING FLAG)                (* ; 
-          "True when a packet has been seen at the head of the network's input queue at least once")
-                           (NIL BITS 6)
-                           (EPREQUEUE POINTER)               (* ; 
-                                                  "Where to requeue this packet after transmission")
-                           (NIL BYTE)
-                           (EPSOCKET POINTER)
-                           (NIL BYTE)
-                           (EPNETWORK POINTER)
-                           (EPTYPE WORD)                     (* ; 
-                                          "Type of packet to be encapsulated (PUP or XIP or 10TO3)")
-                           (NIL WORD)
-                           (EPTIMESTAMP FIXP)                (* ; 
-                                                        "Gets RCLK value when transmitted/received")
-                           (EPREQUEUEFN POINTER)             (* ; "FN to perform requeueing")
-                           (NIL 4 WORD)                      (* ; "Space for expansion")
+                       (EPLINK POINTER)                      (* ; "For queue maintenence")
+                       (EPFLAGS BYTE)                        (* ; 
+                                                             "optional flags for some applications")
+                       (EPUSERFIELD POINTER)                 (* ; 
+                                                             "Arbitrary pointer for applications")
+                       (NIL BYTE)
+                       (EPPLIST POINTER)                     (* ; 
+                                                    "Extra field for use as an A-list for properties")
+                       (EPTRANSMITTING FLAG)                 (* ; 
+                                  "True while packet is being transmitted and hence cannot be reused")
+                       (EPRECEIVING FLAG)                    (* ; 
+            "True when a packet has been seen at the head of the network's input queue at least once")
+                       (NIL BITS 6)
+                       (EPREQUEUE POINTER)                   (* ; 
+                                                    "Where to requeue this packet after transmission")
+                       (NIL BYTE)
+                       (EPSOCKET POINTER)
+                       (NIL BYTE)
+                       (EPNETWORK POINTER)
+                       (EPTYPE WORD)                         (* ; 
+                                            "Type of packet to be encapsulated (PUP or XIP or 10TO3)")
+                       (NIL WORD)
+                       (EPTIMESTAMP FIXP)                    (* ; 
+                                                          "Gets RCLK value when transmitted/received")
+                       (EPREQUEUEFN POINTER)                 (* ; "FN to perform requeueing")
+                       (NIL 4 WORD)                          (* ; "Space for expansion")
                                                              (* ; 
-       "Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
-                           (EPENCAPSULATION 8 WORD)          (* ; 
-                                            "10mb encapsulation, or 3mb encapsulation with padding")
-                           (EPBODY 289 WORD)                 (* ; 
-                                  "Body of packet, header up to 16 words plus data up to 546 bytes")
-                           ))
+         "Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
+                       (EPENCAPSULATION 8 WORD)              (* ; 
+                                              "10mb encapsulation, or 3mb encapsulation with padding")
+                       (EPBODY 289 WORD)                     (* ; 
+                                    "Body of packet, header up to 16 words plus data up to 546 bytes")
+                       ))
 
 (ACCESSFNS ETHERAUX ((AUXPTR (CDR (ASSOC 'AUXPTR (fetch EPPLIST of DATUM)))
-                                (\EP.PUT.AUX DATUM 'AUXPTR NEWVALUE))
-                         (AUXWORD (OR (CDR (ASSOC 'AUXWORD (fetch EPPLIST of DATUM)))
-                                      0)
-                                (\EP.PUT.AUX DATUM 'AUXWORD NEWVALUE))
-                         (AUXBYTE (OR (CDR (ASSOC 'AUXBYTE (fetch EPPLIST of DATUM)))
-                                      0)
-                                (\EP.PUT.AUX DATUM 'AUXBYTE NEWVALUE))))
+                            (\EP.PUT.AUX DATUM 'AUXPTR NEWVALUE))
+                     (AUXWORD (OR (CDR (ASSOC 'AUXWORD (fetch EPPLIST of DATUM)))
+                                  0)
+                            (\EP.PUT.AUX DATUM 'AUXWORD NEWVALUE))
+                     (AUXBYTE (OR (CDR (ASSOC 'AUXBYTE (fetch EPPLIST of DATUM)))
+                                  0)
+                            (\EP.PUT.AUX DATUM 'AUXBYTE NEWVALUE))))
 )
 
 (/DECLAREDATATYPE 'ETHERPACKET
@@ -1140,26 +1137,26 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE ETHERPACKET ((NIL BYTE)
-                           (EPLINK POINTER)
-                           (EPFLAGS BYTE)
-                           (EPUSERFIELD POINTER)
-                           (NIL BYTE)
-                           (EPPLIST POINTER)
-                           (EPTRANSMITTING FLAG)
-                           (EPRECEIVING FLAG)
-                           (NIL BITS 6)
-                           (EPREQUEUE POINTER)
-                           (NIL BYTE)
-                           (EPSOCKET POINTER)
-                           (NIL BYTE)
-                           (EPNETWORK POINTER)
-                           (EPTYPE WORD)
-                           (NIL WORD)
-                           (EPTIMESTAMP FIXP)
-                           (EPREQUEUEFN POINTER)
-                           (NIL 4 WORD)
-                           (EPENCAPSULATION 8 WORD)
-                           (EPBODY 289 WORD)))
+                       (EPLINK POINTER)
+                       (EPFLAGS BYTE)
+                       (EPUSERFIELD POINTER)
+                       (NIL BYTE)
+                       (EPPLIST POINTER)
+                       (EPTRANSMITTING FLAG)
+                       (EPRECEIVING FLAG)
+                       (NIL BITS 6)
+                       (EPREQUEUE POINTER)
+                       (NIL BYTE)
+                       (EPSOCKET POINTER)
+                       (NIL BYTE)
+                       (EPNETWORK POINTER)
+                       (EPTYPE WORD)
+                       (NIL WORD)
+                       (EPTIMESTAMP FIXP)
+                       (EPREQUEUEFN POINTER)
+                       (NIL 4 WORD)
+                       (EPENCAPSULATION 8 WORD)
+                       (EPBODY 289 WORD)))
 )
 (DEFINEQ
 
@@ -1499,21 +1496,19 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
                               HOSTNAMEP _ 'NILL])
 
 (\ETHEREVENTFN
-  [LAMBDA (DEV EVENT)                                  (* ; "Edited  3-May-2021 23:12 by larry")
+  [LAMBDA (DEV EVENT)                                        (* ; "Edited 17-Dec-2025 11:01 by nhb")
+                                                           (* ; "Edited  3-May-2021 23:12 by larry")
     (PROG (NDB TURNOFFNS TIMESET)
           (SELECTQ EVENT
               ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) 
                    (SETQ \PUP.READY (SETQ \NS.READY (SETQ \IP.READY)))
-                   (OR (\ETHER-AVAILABLE)
-                       (RETURN))
                    (\SETETHERFLAGS)
                    (\SETLOCALNSNUMBERS)
                    (\FLUSHNDBS EVENT)
                    (SETQ \10MBLOCALNDB (COND
                                           (\10MBFLG (SETQ NDB (\10MB.CREATENDB \10MBFLG))
                                                  (COND
-                                                    (\LOCALNDBS (replace NDBNEXT of 
-                                                                                           \LOCALNDBS
+                                                    (\LOCALNDBS (replace NDBNEXT of \LOCALNDBS
                                                                    with NDB))
                                                     (T (SETQ \LOCALNDBS NDB)))
                                                  NDB)))
@@ -1536,10 +1531,10 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
               ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) 
                    (COND
                       ((EQ EVENT 'BEFORESAVEVM)              (* ; 
-                       "Save passwords in place outside vmem to avoid having to reenter them later")
+                         "Save passwords in place outside vmem to avoid having to reenter them later")
                        (\STASH.PASSWORDS))
                       (T                                     (* ; 
-                                                           "No need to flush this before SAVEVM")
+                                                             "No need to flush this before SAVEVM")
                          (CLRHASH \ETHERPORTS)))
                    (CLRHASH LOGINPASSWORDS))
               NIL])
@@ -1556,11 +1551,13 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
     (printout PROMPTWINDOW T "[Time not set]"])
 
 (\SETETHERFLAGS
-  [LAMBDA NIL                                          (* ; "Edited  2-May-2021 12:35 by larry")
+  [LAMBDA NIL                                                (* ; "Edited 23-Jan-2026 12:39 by nhb")
+                                                           (* ; "Edited  2-May-2021 12:35 by larry")
 
     (* ;; "for Medley there is no 3MB ethernet ; used to be conditional on \MACHINETYPE")
 
-    (SETQ \10MBFLG 0)
+    (SETQ \10MBFLG (AND (\ETHER-AVAILABLE)
+                        0))
     (SETQ \3MBFLG NIL)
     (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
                                    (UNFOLD (INDEXF (FETCH EPBODY))
@@ -1706,40 +1703,40 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
-(DATATYPE NDB ((NETTYPE BYTE)                            (* ; "10 or 3 for now")
-                   (NDBNEXT POINTER)                         (* ; "Link to next NDB")
-                   (NDBPUPNET# BYTE)                         (* ; 
-          "Pup number of this net.  May be different from NS net number, though not in Xerox world")
-                   (NDBNSNET# POINTER)                       (* ; 
-                                            "Can be 32-bits, so might as well leave its box around")
-                   (NDBTASK# BYTE)                           (* ; "Task # of this network")
-                   (NDBBROADCASTP POINTER)                   (* ; 
-                                        "Function that returns true if packet is of broadcast type")
-                   (NDBPUPHOST# BYTE)                        (* ; 
-                "My pup address on this net.  NS address is global to all nets, so not needed here")
-                   (NDBTRANSMITTER POINTER)                  (* ; 
-                     "(NDB PACKET) -- fn to send a raw packet on this net.  returns NIL on failure")
-                   (NIL BYTE)
-                   (NDBENCAPSULATOR POINTER)                 (* ; 
-   "(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
-                   (NDBCSB POINTER)                          (* ; "Pointer to CSB for this network")
-                   (NDBIQLENGTH BYTE)
-                   (NDBIQ POINTER)                           (* ; 
-                                                           "Queue of empty packets for receiver")
-                   (NDBTQ POINTER)                           (* ; "Queue of packets to transmit")
-                   (NDBTRANSLATIONS POINTER)                 (* ; 
-                                         "Cache of translations, 3:10 or 10:3 according to network")
-                   (NDBETHERFLUSHER POINTER)                 (* ; "Turns off this ether.  Args NDB")
-                   (NDBWATCHER POINTER)
-                   (NDBCANHEARSELF POINTER)                  (* ; 
-                                            "True if receiver can hear packets sent by transmitter")
-                   (NDBIPNET# POINTER)
-                   (NDBIPHOST# POINTER)
-                   (NDBPUPTYPE WORD)                         (* ; 
-                                                      "The packet encapsulation of PUP on this net")
-                   (NIL WORD)
-                   (NIL POINTER)                             (* ; "Spares")
-                   ))
+(DATATYPE NDB ((NETTYPE BYTE)                                (* ; "10 or 3 for now")
+               (NDBNEXT POINTER)                             (* ; "Link to next NDB")
+               (NDBPUPNET# BYTE)                             (* ; 
+            "Pup number of this net.  May be different from NS net number, though not in Xerox world")
+               (NDBNSNET# POINTER)                           (* ; 
+                                              "Can be 32-bits, so might as well leave its box around")
+               (NDBTASK# BYTE)                               (* ; "Task # of this network")
+               (NDBBROADCASTP POINTER)                       (* ; 
+                                          "Function that returns true if packet is of broadcast type")
+               (NDBPUPHOST# BYTE)                            (* ; 
+                  "My pup address on this net.  NS address is global to all nets, so not needed here")
+               (NDBTRANSMITTER POINTER)                      (* ; 
+                       "(NDB PACKET) -- fn to send a raw packet on this net.  returns NIL on failure")
+               (NIL BYTE)
+               (NDBENCAPSULATOR POINTER)                     (* ; 
+     "(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
+               (NDBCSB POINTER)                              (* ; "Pointer to CSB for this network")
+               (NDBIQLENGTH BYTE)
+               (NDBIQ POINTER)                               (* ; 
+                                                             "Queue of empty packets for receiver")
+               (NDBTQ POINTER)                               (* ; "Queue of packets to transmit")
+               (NDBTRANSLATIONS POINTER)                     (* ; 
+                                           "Cache of translations, 3:10 or 10:3 according to network")
+               (NDBETHERFLUSHER POINTER)                     (* ; "Turns off this ether.  Args NDB")
+               (NDBWATCHER POINTER)
+               (NDBCANHEARSELF POINTER)                      (* ; 
+                                              "True if receiver can hear packets sent by transmitter")
+               (NDBIPNET# POINTER)
+               (NDBIPHOST# POINTER)
+               (NDBPUPTYPE WORD)                             (* ; 
+                                                        "The packet encapsulation of PUP on this net")
+               (NIL WORD)
+               (NIL POINTER)                                 (* ; "Spares")
+               ))
 
 (RECORD ROUTING (RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTTIMER RTRECENT))
 )
@@ -1786,26 +1783,24 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE)
-                                                 (SPREADAPPLY* (fetch NDBENCAPSULATOR
-                                                                  of NDB)
-                                                        NDB PACKET HOST LENGTH TYPE)))
+                                         (SPREADAPPLY* (fetch NDBENCAPSULATOR of NDB)
+                                                NDB PACKET HOST LENGTH TYPE)))
 
 (PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET)
-                                              (SPREADAPPLY* (fetch NDBTRANSMITTER of NDB)
-                                                     NDB PACKET)))
+                                      (SPREADAPPLY* (fetch NDBTRANSMITTER of NDB)
+                                             NDB PACKET)))
 
 (PUTPROPS BROADCASTP MACRO ((PACKET)
-                                    ([LAMBDA (NDB)
-                                       (AND NDB (APPLY* (fetch NDBBROADCASTP of NDB)
-                                                       PACKET NDB]
-                                     (fetch EPNETWORK of PACKET))))
+                            ([LAMBDA (NDB)
+                               (AND NDB (APPLY* (fetch NDBBROADCASTP of NDB)
+                                               PACKET NDB]
+                             (fetch EPNETWORK of PACKET))))
 
 (PUTPROPS \CHECK.ROUTING.TABLE MACRO [(TABLE)
-                                              (if (NEQ (NTYPX TABLE)
-                                                           \ROUTING.TABLE.TYPENUM)
-                                                  then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR 
-                                                                  :CULPRIT TABLE :EXPECTED-TYPE
-                                                                  'RoutingTable])
+                                      (if (NEQ (NTYPX TABLE)
+                                               \ROUTING.TABLE.TYPENUM)
+                                          then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :CULPRIT TABLE
+                                                      :EXPECTED-TYPE 'RoutingTable])
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1851,28 +1846,28 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE NDB ((NETTYPE BYTE)
-                   (NDBNEXT POINTER)
-                   (NDBPUPNET# BYTE)
-                   (NDBNSNET# POINTER)
-                   (NDBTASK# BYTE)
-                   (NDBBROADCASTP POINTER)
-                   (NDBPUPHOST# BYTE)
-                   (NDBTRANSMITTER POINTER)
-                   (NIL BYTE)
-                   (NDBENCAPSULATOR POINTER)
-                   (NDBCSB POINTER)
-                   (NDBIQLENGTH BYTE)
-                   (NDBIQ POINTER)
-                   (NDBTQ POINTER)
-                   (NDBTRANSLATIONS POINTER)
-                   (NDBETHERFLUSHER POINTER)
-                   (NDBWATCHER POINTER)
-                   (NDBCANHEARSELF POINTER)
-                   (NDBIPNET# POINTER)
-                   (NDBIPHOST# POINTER)
-                   (NDBPUPTYPE WORD)
-                   (NIL WORD)
-                   (NIL POINTER)))
+               (NDBNEXT POINTER)
+               (NDBPUPNET# BYTE)
+               (NDBNSNET# POINTER)
+               (NDBTASK# BYTE)
+               (NDBBROADCASTP POINTER)
+               (NDBPUPHOST# BYTE)
+               (NDBTRANSMITTER POINTER)
+               (NIL BYTE)
+               (NDBENCAPSULATOR POINTER)
+               (NDBCSB POINTER)
+               (NDBIQLENGTH BYTE)
+               (NDBIQ POINTER)
+               (NDBTQ POINTER)
+               (NDBTRANSLATIONS POINTER)
+               (NDBETHERFLUSHER POINTER)
+               (NDBWATCHER POINTER)
+               (NDBCANHEARSELF POINTER)
+               (NDBIPNET# POINTER)
+               (NDBIPHOST# POINTER)
+               (NDBPUPTYPE WORD)
+               (NIL WORD)
+               (NIL POINTER)))
 )
 (DEFINEQ
 
@@ -2231,48 +2226,49 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS ETHERTRANS [(TRANSBODY (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
-                          [BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
+                      [BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
                                                              (* ; "Request or response")
-                                                  (BASETRANSNSHOST 3 WORD)
+                                              (BASETRANSNSHOST 3 WORD)
                                                              (* ; "Known or desired NS address")
-                                                  (TRANSPUPHOST BYTE)
+                                              (TRANSPUPHOST BYTE)
                                                              (* ; "Known or desired PUP address")
-                                                  (NIL BYTE) (* ; "Padding")
-                                                  (BASETRANSSENDERNSHOST 3 WORD)
+                                              (NIL BYTE)     (* ; "Padding")
+                                              (BASETRANSSENDERNSHOST 3 WORD)
                                                              (* ; "Sender's info")
-                                                  (TRANSSENDERPUPHOST BYTE)
-                                                  (NIL BYTE))
-                                 [ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER
-                                                                           (LOCF DATUM))
-                                                                    (\STORENSHOSTNUMBER (LOCF DATUM)
-                                                                           NEWVALUE]
-                                 (ACCESSFNS BASETRANSSENDERNSHOST ((TRANSSENDERNSHOST
-                                                                    (\LOADNSHOSTNUMBER (LOCF DATUM))
-                                                                    (\STORENSHOSTNUMBER (LOCF DATUM)
-                                                                           NEWVALUE]
-                          [ACCESSFNS ETHERTRANS
-                                 ([TRANSNSADDRESS
-                                   (PROGN                    (* ; 
-                                        "Kludge to get a pointer that looks like a full ns address")
-                                          (\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH
-                                                                                (ETHERPACKET EPBODY)
-                                                                                  of T))
-                                                                       (INDEXF (FETCH
-                                                                                (ETHERTRANS 
+                                              (TRANSSENDERPUPHOST BYTE)
+                                              (NIL BYTE))
+                             [ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER (LOCF DATUM)
+                                                                             )
+                                                                (\STORENSHOSTNUMBER (LOCF DATUM)
+                                                                       NEWVALUE]
+                             (ACCESSFNS BASETRANSSENDERNSHOST ((TRANSSENDERNSHOST (\LOADNSHOSTNUMBER
+                                                                                   (LOCF DATUM))
+                                                                      (\STORENSHOSTNUMBER
+                                                                       (LOCF DATUM)
+                                                                       NEWVALUE]
+                      [ACCESSFNS ETHERTRANS
+                             ([TRANSNSADDRESS (PROGN         (* ; 
+                                          "Kludge to get a pointer that looks like a full ns address")
+                                                     (\ADDBASE
+                                                      DATUM
+                                                      (CONSTANT (+ (INDEXF (FETCH (ETHERPACKET EPBODY
+                                                                                         )
+                                                                              of T))
+                                                                   (INDEXF (FETCH (ETHERTRANS 
                                                                                       BASETRANSNSHOST
-                                                                                       ) of
-                                                                                         T))
-                                                                       -2]
-                                  (TRANSSENDERNSADDRESS
-                                   (\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH (ETHERPACKET
-                                                                                    EPBODY)
-                                                                           of T))
-                                                                (INDEXF (FETCH (ETHERTRANS 
+                                                                                         )
+                                                                              of T))
+                                                                   -2]
+                              (TRANSSENDERNSADDRESS (\ADDBASE
+                                                     DATUM
+                                                     (CONSTANT (+ (INDEXF (FETCH (ETHERPACKET EPBODY)
+                                                                             of T))
+                                                                  (INDEXF (FETCH (ETHERTRANS 
                                                                                 BASETRANSSENDERNSHOST
-                                                                                          )
-                                                                           of T))
-                                                                -2]
-                          (TYPE? (type? ETHERPACKET DATUM)))
+                                                                                        )
+                                                                             of T))
+                                                                  -2]
+                      (TYPE? (type? ETHERPACKET DATUM)))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -2571,7 +2567,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (RPAQ? \RAWTRACING )
 
 (ADDTOVAR \PACKET.PRINTERS (512 . PRINTPUP)
-                               (1537 . PRINT10TO3))
+                           (1537 . PRINT10TO3))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND)
@@ -2615,7 +2611,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD CENTICLOCK ((CENTICLOCKSIGNBIT BITS 1)
-                             (CENTICLOCKMAGNITUDE BITS 31)))
+                         (CENTICLOCKMAGNITUDE BITS 31)))
 )
 )
 
@@ -2757,43 +2753,41 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
-(ACCESSFNS 3MBENCAPSULATION [(3MBENCAPSTART (LOCF (fetch (ETHERPACKET EPENCAPSULATION)
-                                                         of DATUM]
-                                (BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
+(ACCESSFNS 3MBENCAPSULATION [(3MBENCAPSTART (LOCF (fetch (ETHERPACKET EPENCAPSULATION) of DATUM]
+                            (BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
                                                              (* ; "waste space")
-                                                            (3MBLENGTH WORD)
+                                                        (3MBLENGTH WORD)
                                                              (* ; 
-                                             "Length of packet in words, starting at the next word")
-                                                            (3MBDESTHOST BYTE)
+                                               "Length of packet in words, starting at the next word")
+                                                        (3MBDESTHOST BYTE)
                                                              (* ; "Immediate destination host")
-                                                            (3MBSOURCEHOST BYTE)
+                                                        (3MBSOURCEHOST BYTE)
                                                              (* ; "Us")
-                                                            (3MBTYPE WORD)
+                                                        (3MBTYPE WORD)
                                                              (* ; 
-                                                           "Type of packet -- PUP or XIP or 10TO3")
-                                                            )
-                                       [ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
+                                                             "Type of packet -- PUP or XIP or 10TO3")
+                                                        )
+                                   [ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
                                                              (* ; "What to hand to BCPL")
-                                       )
-                                (TYPE? (type? ETHERPACKET DATUM)))
+                                   )
+                            (TYPE? (type? ETHERPACKET DATUM)))
 
 (BLOCKRECORD PBI ((PBILINK WORD)
-                      (PBIQUEUE WORD)
-                      (PBISOCKET WORD)
-                      (PBINDB WORD)
-                      (PBIINPUTP FLAG)
-                      (PBIALLNETSP FLAG)
-                      (PBINOZEROP FLAG)
-                      (NIL BITS 13)
-                      (PBITIMER WORD)
-                      (PBILENGTH WORD)
-                      (PBIENCAPSULATION 2 WORD)
-                      (PBIFIRSTPUPWORD 10 WORD)
-                      (PBIFIRSTPUPDATAWORD WORD))
-                     [ACCESSFNS PBI ((PBIPUPSTART (LOCF (fetch PBIFIRSTPUPWORD of DATUM)))
-                                     (PBIPUPDATASTART (LOCF (fetch PBIFIRSTPUPDATAWORD
-                                                               of DATUM)))
-                                     (PBIRAWSTART (LOCF (fetch PBILENGTH of DATUM])
+                  (PBIQUEUE WORD)
+                  (PBISOCKET WORD)
+                  (PBINDB WORD)
+                  (PBIINPUTP FLAG)
+                  (PBIALLNETSP FLAG)
+                  (PBINOZEROP FLAG)
+                  (NIL BITS 13)
+                  (PBITIMER WORD)
+                  (PBILENGTH WORD)
+                  (PBIENCAPSULATION 2 WORD)
+                  (PBIFIRSTPUPWORD 10 WORD)
+                  (PBIFIRSTPUPDATAWORD WORD))
+                 [ACCESSFNS PBI ((PBIPUPSTART (LOCF (fetch PBIFIRSTPUPWORD of DATUM)))
+                                 (PBIPUPDATASTART (LOCF (fetch PBIFIRSTPUPDATAWORD of DATUM)))
+                                 (PBIRAWSTART (LOCF (fetch PBILENGTH of DATUM])
 )
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
@@ -2879,8 +2873,8 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
                                                              T])
 )
 
-(RPAQQ ROUTINGINFOMACRO (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS
-                               SEPR ") " -2 FINALLY ")"))
+(RPAQQ ROUTINGINFOMACRO (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR
+                           ") " -2 FINALLY ")"))
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -2913,10 +2907,10 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 
 (RPAQQ D0DEVICES ((\DEVICE.3MBETHERIN 7)
-                      (\DEVICE.3MBETHEROUT 6)
-                      (\DEVICE.10MBETHER 21)
-                      (\DEVICE.SA4000 3)
-                      (\DEVICE.DISPLAY 2)))
+                  (\DEVICE.3MBETHEROUT 6)
+                  (\DEVICE.10MBETHER 21)
+                  (\DEVICE.SA4000 3)
+                  (\DEVICE.DISPLAY 2)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \DEVICE.3MBETHERIN 7)
@@ -2947,33 +2941,31 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "END EXPORTED DEFINITIONS")
 
 )
-(PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 
-1992 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
- . 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
- (\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
-) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
-) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS 
-59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
-\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 . 
-68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
- . 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
-) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574) 
-(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
-) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
-TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
-\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
- . 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
-\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
-110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 . 
-114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
- . 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
-125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
-\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
-\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
-135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
- . 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 . 
-137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO 
-138526 . 138686)))))
+  (FILEMAP (NIL (10585 19041 (CANONICAL.HOSTNAME 10595 . 12184) (\ENQUEUE 12186 . 14831) (\DEQUEUE 14833
+ . 16160) (\QUEUELENGTH 16162 . 16462) (\ONQUEUE 16464 . 16730) (\UNQUEUE 16732 . 19039)) (52600 56466
+ (\ALLOCATE.ETHERPACKET 52610 . 53651) (\RELEASE.ETHERPACKET 53653 . 54726) (RELEASE.PUP 54728 . 54873
+) (\FLUSH.PACKET.QUEUE 54875 . 55226) (\REQUEUE.ETHERPACKET 55228 . 55742) (\EP.PUT.AUX 55744 . 56464)
+) (57040 68421 (\SETLOCALNSNUMBERS 57050 . 58435) (\LOADNSADDRESS 58437 . 58729) (\STORENSADDRESS 
+58731 . 58912) (\PRINTNSADDRESS 58914 . 59997) (\NSADDRESS.DEFPRINT 59999 . 64944) (
+\NSADDRESS.PRINT.DECIMAL 64946 . 67077) (\LOADNSHOSTNUMBER 67079 . 67708) (\STORENSHOSTNUMBER 67710 . 
+68114) (PRINTNSHOSTNUMBER 68116 . 68419)) (68534 74394 (\ETHERINIT 68544 . 69114) (\ETHEREVENTFN 69116
+ . 71594) (\ETHER-AVAILABLE 71596 . 71754) (\TIME.NOT.SET 71756 . 72082) (\SETETHERFLAGS 72084 . 72701
+) (\FLUSHNDBS 72703 . 73881) (\FLUSH.NDB.QUEUE 73883 . 74392)) (74395 77687 (\CHECKSUM 74405 . 76337) 
+(\HANDLE.RAW.OTHER 76339 . 76694) (\HANDLE.RAW.PACKET 76696 . 77208) (\ADD.PACKET.FILTER 77210 . 77442
+) (\DEL.PACKET.FILTER 77444 . 77685)) (85191 85716 (ENCAPSULATE.ETHERPACKET 85201 . 85473) (
+TRANSMIT.ETHERPACKET 85475 . 85714)) (86004 98600 (\AGE.ROUTING.TABLE 86014 . 88163) (
+\ADD.ROUTING.TABLE.ENTRY 88165 . 88861) (\CLEAR.ROUTING.TABLE 88863 . 89590) (\MAP.ROUTING.TABLE 89592
+ . 90120) (PRINTROUTINGTABLE 90122 . 93747) (\ROUTINGTABLE.INFOHOOK 93749 . 98598)) (99085 105870 (
+\TRANSLATE.10TO3 99095 . 100879) (\NOTE.10TO3 100881 . 102497) (\HANDLE.RAW.10TO3 102499 . 105868)) (
+109860 124682 (PRINTPACKET 109870 . 110431) (\MAYBEPRINTPACKET 110433 . 112090) (PRINT10TO3 112092 . 
+113460) (PRINTPACKETDATA 113462 . 118752) (PRINTPACKETQUEUE 118754 . 119183) (TIME.SINCE.PACKET 119185
+ . 119670) (MAKE-NETWORK-TRACE-WINDOW 119672 . 123214) (\CHANGE.ETHER.TRACING 123216 . 124680)) (
+125049 125864 (\CENTICLOCK 125059 . 125862)) (126315 132415 (\3MBGETPACKET 126325 . 127745) (
+\3MB.CREATENDB 127747 . 128462) (\3MBSENDPACKET 128464 . 130647) (\3MBWATCHER 130649 . 131387) (
+\3MBENCAPSULATE 131389 . 131937) (\3MB.BROADCASTP 131939 . 132110) (\3MBFLUSH 132112 . 132413)) (
+135157 137100 (ASSURE.ETHER.ON 135167 . 135497) (INITPUPLEVEL1 135499 . 135979) (TURN.ON.ETHER 135981
+ . 136126) (RESTART.ETHER 136128 . 136502) (TURN.OFF.ETHER 136504 . 136822) (PRINTWORDS 136824 . 
+137098)) (137371 137906 (\DEVICE.INPUT 137381 . 137546) (\DEVICE.OUTPUT 137548 . 137742) (\D0.STARTIO 
+137744 . 137904)))))
 STOP
diff --git a/sources/LLETHER.LCOM b/sources/LLETHER.LCOM
index 6398f666..bd6f4cd5 100644
Binary files a/sources/LLETHER.LCOM and b/sources/LLETHER.LCOM differ
diff --git a/sources/MAIKOETHER b/sources/MAIKOETHER
index 56332f19..955495f8 100644
--- a/sources/MAIKOETHER
+++ b/sources/MAIKOETHER
@@ -1,14 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "25-Oct-2021 15:12:33" |{DSK}<home>larry>medley>sources>MAIKOETHER.;2| 28792  
+(FILECREATED "30-Dec-2025 19:09:34" |{DSK}<Users>briggs>projects>medley>sources>MAIKOETHER.;7| 26899  
 
-      |changes| |to:|  (FNS \\DISPLAYLINE)
-                       (VARS MAIKOETHERCOMS)
+      :EDIT-BY |nhb|
 
-      |previous| |date:| "25-Mar-2021 09:50:57" |{DSK}<home>larry>medley>sources>MAIKOETHER.;1|)
+      :CHANGES-TO (VARS MAIKOETHERCOMS)
 
+      :PREVIOUS-DATE "30-Dec-2025 18:50:46" |{DSK}<Users>briggs>projects>medley>sources>MAIKOETHER.;6|
+)
 
-; Copyright (c) 1988-1991, 2021 by Venue & Xerox Corporation.
 
 (PRETTYCOMPRINT MAIKOETHERCOMS)
 
@@ -23,10 +23,6 @@
         (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 10MBDRIVER)
                (GLOBALVARS \\MAIKO.INPUT.PACKET |\\ETHERtopMonitor|)
-               
-               (* |;;| "The NDB for Maiko's 10MB connection; used by \\MAIKO.ETHER-INTERRUPT:")
-
-               (GLOBALVARS \\MAIKO.10MB.NDB)
                (GLOBALVARS \\MAIKO.IO-INTERRUPT-FLAGS \\MAIKO.IO-INTERRUPT-VECTOR))
         (ADDVARS (\\MAIKO.MOVDS (\\MAIKO.10MBSTARTDRIVER \\10MB.STARTDRIVER)
                         (\\MAIKO.10MBWATCHER \\10MBWATCHER)
@@ -35,9 +31,13 @@
                         (\\MAIKO.10MBTURNONETHER \\10MB.TURNONETHER)
                         (\\MAIKO.ETHERRESUME \\10MB.RESTART.ETHER)
                         (\\MAIKO.CHECKSUM \\CHECKSUM)))
-        (COMS                                                (* \; "MAIKO handler for new interrupt-driven incoming ethernet communication, rather than polling for it.")
+        (COMS 
+              (* |;;| "MAIKO handler for new interrupt-driven incoming ethernet communication, rather than polling for it.")
+
               (FNS \\MAIKO.ETHER-INTERRUPT))
-        (COMS                                                (* \; "MAIKO Log & Console message handling.  Interrupt-driven message printing, instead of polled printing.")
+        (COMS 
+              (* |;;| "MAIKO Log & Console message handling.  Interrupt-driven message printing, instead of polled printing.")
+
               (FNS \\MAIKO.CONSOLE-LOG-PRINT))
         (COMS 
               (* |;;| "Asynchronous I/O handling")
@@ -48,13 +48,12 @@
 (DEFINEQ
 
 (\\10MB.RESTART.ETHER
-  (LAMBDA NIL                                        (* \; "Edited 11-May-88 16:09 by MASINTER")
+  (LAMBDA NIL                                            (* \; "Edited 11-May-88 16:09 by MASINTER")
     (SUBRCALL ETHER-RESUME)))
 
 (\\10MB.STARTDRIVER
-  (LAMBDA (NDB RESTARTFLG MYNSNUMBER)                    (* \; "Edited  5-Apr-89 15:03 by snow")
-    (DECLARE (GLOBALVARS \\MAIKO.INPUT.PACKET \\10MB.EXPECTED.RECEIVE.INTERVAL 
-                        \\10MB.INPUT.TIMEOUT))
+  (LAMBDA (NDB RESTARTFLG MYNSNUMBER)                        (* \; "Edited  5-Apr-89 15:03 by snow")
+    (DECLARE (GLOBALVARS \\MAIKO.INPUT.PACKET \\10MB.EXPECTED.RECEIVE.INTERVAL \\10MB.INPUT.TIMEOUT))
     (SUBRCALL ETHER-SUSPEND)
     (OR (\\INIT.ETHER.BUFFER.POOL)
         (ERROR "Unable to create buffer pool"))
@@ -65,21 +64,17 @@
            0 0)
     (PROG ((CSB (|fetch| NDBCSB |of| NDB)))
           (OR \\MAIKO.INPUT.PACKET (SETQ \\MAIKO.INPUT.PACKET (\\ALLOCATE.ETHERPACKET)))
-          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| 
-                                                                                     \\ES.PENDING)
-          (SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE |of| 
-                                                                                 \\MAIKO.INPUT.PACKET
-                                                        ))
-          (|replace| NDBWATCHER |of| NDB |with| (ADD.PROCESS (LIST '\\10MBWATCHER
-                                                                               (KWOTE NDB))
-                                                                   'RESTARTABLE
-                                                                   'SYSTEM
-                                                                   'AFTEREXIT
-                                                                   'DELETE))
+          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| \\ES.PENDING)
+          (SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE |of| \\MAIKO.INPUT.PACKET))
+          (|replace| NDBWATCHER |of| NDB |with| (ADD.PROCESS (LIST '\\10MBWATCHER (KWOTE NDB))
+                                                       'RESTARTABLE
+                                                       'SYSTEM
+                                                       'AFTEREXIT
+                                                       'DELETE))
           (RETURN NDB))))
 
 (\\10MB.TURNOFFETHER
-  (LAMBDA NIL                                        (* \; "Edited 11-May-88 16:11 by MASINTER")
+  (LAMBDA NIL                                            (* \; "Edited 11-May-88 16:11 by MASINTER")
     (SUBRCALL ETHER-SUSPEND)))
 
 (\\10MB.TURNONETHER
@@ -92,20 +87,16 @@
 
     (PROG ((CSB (|fetch| NDBCSB |of| NDB)))
           (\\MAIKO.ETHERSUSPEND)
-          (OR CSB (|replace| NDBCSB |of| NDB |with| (SETQ CSB
-                                                                 (LOCF (|fetch| DLETHERNET
-                                                                          |of| \\IOPAGE)))))
+          (OR CSB (|replace| NDBCSB |of| NDB |with| (SETQ CSB (LOCF (|fetch| DLETHERNET |of| \\IOPAGE
+                                                                           )))))
           (|replace| DLFIRSTOCB |of| CSB |with| 0)
           (|replace| DLFIRSTICB |of| CSB |with| 0)
           (AND NSHOSTNUMBER (COND
                                ((EQ NSHOSTNUMBER T)
                                 (\\BLT (LOCF (|fetch| DLLOCALHOST0 |of| CSB))
-                                       (LOCF (|fetch| (IFPAGE |NSHost0|) |of| 
-                                                                                   |\\InterfacePage|)
-                                             )
+                                       (LOCF (|fetch| (IFPAGE |NSHost0|) |of| |\\InterfacePage|))
                                        \\#WDS.NSHOSTNUMBER))
-                               (T (\\STORENSHOSTNUMBER (LOCF (|fetch| DLLOCALHOST0 |of|
-                                                                                       CSB))
+                               (T (\\STORENSHOSTNUMBER (LOCF (|fetch| DLLOCALHOST0 |of| CSB))
                                          NSHOSTNUMBER))))
           (AND OUTINTERRUPT (|replace| DLOUTPUTMASK |of| CSB |with| OUTINTERRUPT))
           (AND ININTERRUPT (|replace| DLINPUTMASK |of| CSB |with| ININTERRUPT))
@@ -117,7 +108,7 @@
           (RETURN NDB))))
 
 (\\10MBSENDPACKET
-  (LAMBDA (NDB PACKET)                               (* \; "Edited 11-May-88 16:10 by MASINTER")
+  (LAMBDA (NDB PACKET)                                   (* \; "Edited 11-May-88 16:10 by MASINTER")
     (PROG NIL
           (COND
              (\\RAWTRACING (\\MAYBEPRINTPACKET PACKET 'RAWPUT)))
@@ -125,23 +116,23 @@
              ((OR (|fetch| 10MBMULTICASTP |of| PACKET)
                   (EQNSADDRESS.HOST \\MY.NSADDRESS (|fetch| 10MBDESTHOSTBASE |of| PACKET)))
                                                              (* \; 
-                                "We would hear this packet if our hardware let us, so fake receipt")
+                                  "We would hear this packet if our hardware let us, so fake receipt")
               (PROG ((COPYPACKET (\\ALLOCATE.ETHERPACKET)))
                     (\\BLT (LOCF (|fetch| 10MBLENGTH |of| COPYPACKET))
                            (LOCF (|fetch| 10MBLENGTH |of| PACKET))
                            (ADD1 (|fetch| 10MBLENGTH |of| PACKET)))
                                                              (* \; 
-                                                   "Copy all data that would have been transmitted")
+                                                     "Copy all data that would have been transmitted")
                     (|replace| EPNETWORK |of| COPYPACKET |with| NDB)
                     (|replace| EPTYPE |of| COPYPACKET
                        |with| (|for| PAIR |in| \\10MBTYPE.TRANSLATIONS
-                                     |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
-                                     |when| (EQ TYPE (CAR PAIR)) |do| 
+                                 |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
+                                 |when| (EQ TYPE (CAR PAIR)) |do| 
 
                                  (* |;;| "TYPE is the raw type of the etherpacket.  These do not always correspond one-to-one with the EPTYPE constants we use (in particular, for pups), so translate if necessary.")
 
-                                                                           (RETURN (CDR PAIR))
-                                     |finally| (RETURN TYPE)))
+                                                                  (RETURN (CDR PAIR))
+                                 |finally| (RETURN TYPE)))
                     (COND
                        (\\RAWTRACING (\\MAYBEPRINTPACKET COPYPACKET 'RAWGET)))
                     (\\HANDLE.RAW.PACKET COPYPACKET))))
@@ -154,20 +145,21 @@
           (RETURN T))))
 
 (\\10MBWATCHER
-  (LAMBDA (NDB)                                      (* \; "Edited 16-May-88 22:24 by MASINTER")
+  (LAMBDA (NDB)                                          (* \; "Edited 16-May-88 22:24 by MASINTER")
 
     (* |;;| "merge message and packet reading")
 
     (PROG ((CNTR 0)
            MESSAGE-BUFFER MESSAGE-LENGTH PACKET)
       LP  (IF (SUBRCALL MESSAGE-READP)
-              THEN (PROMPTPRINT (IF (SETQ MESSAGE-LENGTH (SUBRCALL MESSAGE-READ
-                                                                        (OR MESSAGE-BUFFER
-                                                                            (SETQ MESSAGE-BUFFER
-                                                                             (ALLOCSTRING 1024)))
-                                                                        1024))
-                                        THEN (SUBSTRING MESSAGE-BUFFER 1 MESSAGE-LENGTH)
-                                      ELSE "?? system message: polling failed")))
+              THEN (PROMPTPRINT (IF (SETQ MESSAGE-LENGTH (SUBRCALL MESSAGE-READ (OR MESSAGE-BUFFER
+                                                                                    (SETQ 
+                                                                                     MESSAGE-BUFFER
+                                                                                     (ALLOCSTRING
+                                                                                      1024)))
+                                                                1024))
+                                    THEN (SUBSTRING MESSAGE-BUFFER 1 MESSAGE-LENGTH)
+                                  ELSE "?? system message: polling failed")))
           (UNINTERRUPTABLY
               (SUBRCALL ETHER-CHECK)
               (SETQ PACKET (\\MAIKO.INPUT.INTERRUPT NDB)))
@@ -182,31 +174,31 @@
           (GO LP))))
 
 (\\MAIKO.10MBSENDPACKET
-  (LAMBDA (NDB PACKET)                                   (* \; "Edited 31-Oct-89 14:10 by bvm")
+  (LAMBDA (NDB PACKET)                                       (* \; "Edited 31-Oct-89 14:10 by bvm")
     (PROG NIL
           (COND
              (\\RAWTRACING (\\MAYBEPRINTPACKET PACKET 'RAWPUT)))
           (COND
              ((OR (|fetch| 10MBMULTICASTP |of| PACKET)
-                  (EQNSADDRESS.HOST \\MY.NSADDRESS (|fetch| 10MBDESTNSADDRESSBASE |of| PACKET
-                                                          )))(* \; 
-                                "We would hear this packet if our hardware let us, so fake receipt")
+                  (EQNSADDRESS.HOST \\MY.NSADDRESS (|fetch| 10MBDESTNSADDRESSBASE |of| PACKET)))
+                                                             (* \; 
+                                  "We would hear this packet if our hardware let us, so fake receipt")
               (PROG ((COPYPACKET (\\ALLOCATE.ETHERPACKET)))
                     (\\BLT (LOCF (|fetch| 10MBLENGTH |of| COPYPACKET))
                            (LOCF (|fetch| 10MBLENGTH |of| PACKET))
                            (ADD1 (|fetch| 10MBLENGTH |of| PACKET)))
                                                              (* \; 
-                                                   "Copy all data that would have been transmitted")
+                                                     "Copy all data that would have been transmitted")
                     (|replace| EPNETWORK |of| COPYPACKET |with| NDB)
                     (|replace| EPTYPE |of| COPYPACKET
                        |with| (|for| PAIR |in| \\10MBTYPE.TRANSLATIONS
-                                     |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
-                                     |when| (EQ TYPE (CAR PAIR)) |do| 
+                                 |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
+                                 |when| (EQ TYPE (CAR PAIR)) |do| 
 
                                  (* |;;| "TYPE is the raw type of the etherpacket.  These do not always correspond one-to-one with the EPTYPE constants we use (in particular, for pups), so translate if necessary.")
 
-                                                                           (RETURN (CDR PAIR))
-                                     |finally| (RETURN TYPE)))
+                                                                  (RETURN (CDR PAIR))
+                                 |finally| (RETURN TYPE)))
                     (COND
                        (\\RAWTRACING (\\MAYBEPRINTPACKET COPYPACKET 'RAWGET)))
                     (\\HANDLE.RAW.PACKET COPYPACKET))))
@@ -219,20 +211,21 @@
           (RETURN T))))
 
 (\\MAIKO.10MBWATCHER
-  (LAMBDA (NDB)                                      (* \; "Edited 16-May-88 22:24 by MASINTER")
+  (LAMBDA (NDB)                                          (* \; "Edited 16-May-88 22:24 by MASINTER")
 
     (* |;;| "merge message and packet reading")
 
     (PROG ((CNTR 0)
            MESSAGE-BUFFER MESSAGE-LENGTH PACKET)
       LP  (IF (SUBRCALL MESSAGE-READP)
-              THEN (PROMPTPRINT (IF (SETQ MESSAGE-LENGTH (SUBRCALL MESSAGE-READ
-                                                                        (OR MESSAGE-BUFFER
-                                                                            (SETQ MESSAGE-BUFFER
-                                                                             (ALLOCSTRING 1024)))
-                                                                        1024))
-                                        THEN (SUBSTRING MESSAGE-BUFFER 1 MESSAGE-LENGTH)
-                                      ELSE "?? system message: polling failed")))
+              THEN (PROMPTPRINT (IF (SETQ MESSAGE-LENGTH (SUBRCALL MESSAGE-READ (OR MESSAGE-BUFFER
+                                                                                    (SETQ 
+                                                                                     MESSAGE-BUFFER
+                                                                                     (ALLOCSTRING
+                                                                                      1024)))
+                                                                1024))
+                                    THEN (SUBSTRING MESSAGE-BUFFER 1 MESSAGE-LENGTH)
+                                  ELSE "?? system message: polling failed")))
           (UNINTERRUPTABLY
               (SUBRCALL ETHER-CHECK)
               (SETQ PACKET (\\MAIKO.INPUT.INTERRUPT NDB)))
@@ -247,15 +240,15 @@
           (GO LP))))
 
 (\\MAIKO.ETHERRESUME
-  (LAMBDA NIL                                        (* \; "Edited 11-May-88 16:09 by MASINTER")
+  (LAMBDA NIL                                            (* \; "Edited 11-May-88 16:09 by MASINTER")
     (SUBRCALL ETHER-RESUME)))
 
 (\\MAIKO.ETHERSUSPEND
-  (LAMBDA NIL                                        (* \; "Edited 11-May-88 16:11 by MASINTER")
+  (LAMBDA NIL                                            (* \; "Edited 11-May-88 16:11 by MASINTER")
     (SUBRCALL ETHER-SUSPEND)))
 
 (\\MAIKO.INPUT.INTERRUPT
-  (LAMBDA (NDB)                                      (* \; "Edited 11-May-88 16:05 by MASINTER")
+  (LAMBDA (NDB)                                          (* \; "Edited 11-May-88 16:05 by MASINTER")
 
     (* |;;| "This routine gets called when 10MB input signals an interrupt.  See if the \\MAIKO.INPUT.PACKET has indeed been processed, and if so, take care of it")
 
@@ -266,43 +259,38 @@
               (|replace| 10MBLENGTH |of| PACKET |with| LENGTH)
               (\\RCLK (LOCF (|fetch| EPTIMESTAMP |of| PACKET)))
               (|replace| EPNETWORK |of| PACKET |with| NDB)
-              (|replace| EPTYPE |of| PACKET |with| (|for| PAIR |in| 
-                                                                              \\10MBTYPE.TRANSLATIONS
-                                                                  |bind| (TYPE _
-                                                                                   (|fetch|
-                                                                                    10MBTYPE
-                                                                                      |of| PACKET
-                                                                                    ))
-                                                                  |when| (EQ TYPE (CAR PAIR))
-                                                                  |do| (RETURN (CDR PAIR))
-                                                                  |finally| (RETURN TYPE)))
+              (|replace| EPTYPE |of| PACKET |with| (|for| PAIR |in| \\10MBTYPE.TRANSLATIONS
+                                                      |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
+                                                      |when| (EQ TYPE (CAR PAIR))
+                                                      |do| (RETURN (CDR PAIR))
+                                                      |finally| (RETURN TYPE)))
               (COND
                  (\\RAWTRACING (\\MAYBEPRINTPACKET PACKET 'RAWGET)))
               (RETURN (PROG1 PACKET
                           (SETQ \\MAIKO.INPUT.PACKET (\\ALLOCATE.ETHERPACKET))
-                          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB)
-                             |with| \\ES.PENDING)
-                          (SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE
-                                                                    |of| \\MAIKO.INPUT.PACKET))))
-              )
+                          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| \\ES.PENDING)
+                          (SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE |of| 
+                                                                                 \\MAIKO.INPUT.PACKET
+                                                                        )))))
              (T (RETURN NIL))))))
 
 (\\NS.SETTIME
-  (LAMBDA (RETFLG)                                   (* \; "Edited 13-May-88 15:22 by MASINTER")
+  (LAMBDA (RETFLG)                                       (* \; "Edited 13-May-88 15:22 by MASINTER")
     (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
         (SETQ |\\TimeZoneComp| (SUBRCALL GETUNIXTIME 8 NIL)))
     (\\PROCESS.RESET.TIMERS)
     (DAYTIME)))
 
 (\\PUP.SETTIME
-  (LAMBDA (RETFLG)                                   (* \; "Edited 13-May-88 15:22 by MASINTER")
+  (LAMBDA (RETFLG)                                       (* \; "Edited 13-May-88 15:22 by MASINTER")
     (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
         (SETQ |\\TimeZoneComp| (SUBRCALL GETUNIXTIME 8 NIL)))
     (\\PROCESS.RESET.TIMERS)
     (DAYTIME)))
 
 (\\MAIKO.10MBSTARTDRIVER
-  (LAMBDA (NDB RESTARTFLG MYNSNUMBER)                    (* \; "Edited  4-May-91 15:50 by jds")
+  (LAMBDA (NDB RESTARTFLG MYNSNUMBER)                       (* \; "Edited 30-Dec-2025 18:50 by nhb")
+                                                             (* \; "Edited  4-May-91 15:50 by jds")
 
     (* |;;| "Start the \"driver\" for the 10MB ethernet on Sun Medley.  In particular, turn on the C ehternet code, queue up the first input packet, and start the \\10MBWATCHER process.")
 
@@ -312,13 +300,11 @@
     (|replace| NDBTQ |of| NDB |with| (|create| SYSQUEUE))
     (SETQ \\10MB.RAWPACKETQ (|create| SYSQUEUE))
     (SETQ \\10MB.INPUT.TIMEOUT (TIMES \\RCLKSECOND \\10MB.EXPECTED.RECEIVE.INTERVAL))
-    (SETQ \\MAIKO.10MB.NDB NDB)
     (\\10MB.TURNONETHER NDB NIL NIL (OR MYNSNUMBER T)
            0 0)
     (PROG ((CSB (|fetch| NDBCSB |of| NDB)))
           (OR \\MAIKO.INPUT.PACKET (SETQ \\MAIKO.INPUT.PACKET (\\ALLOCATE.ETHERPACKET)))
-          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| 
-                                                                                     \\ES.PENDING)
+          (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| \\ES.PENDING)
           (AND (SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE |of| 
                                                                                  \\MAIKO.INPUT.PACKET
                                                              ))
@@ -340,20 +326,16 @@
 
     (PROG ((CSB (|fetch| NDBCSB |of| NDB)))
           (\\MAIKO.ETHERSUSPEND)
-          (OR CSB (|replace| NDBCSB |of| NDB |with| (SETQ CSB
-                                                                 (LOCF (|fetch| DLETHERNET
-                                                                          |of| \\IOPAGE)))))
+          (OR CSB (|replace| NDBCSB |of| NDB |with| (SETQ CSB (LOCF (|fetch| DLETHERNET |of| \\IOPAGE
+                                                                           )))))
           (|replace| DLFIRSTOCB |of| CSB |with| 0)
           (|replace| DLFIRSTICB |of| CSB |with| 0)
           (AND NSHOSTNUMBER (COND
                                ((EQ NSHOSTNUMBER T)
                                 (\\BLT (LOCF (|fetch| DLLOCALHOST0 |of| CSB))
-                                       (LOCF (|fetch| (IFPAGE |NSHost0|) |of| 
-                                                                                   |\\InterfacePage|)
-                                             )
+                                       (LOCF (|fetch| (IFPAGE |NSHost0|) |of| |\\InterfacePage|))
                                        \\#WDS.NSHOSTNUMBER))
-                               (T (\\STORENSHOSTNUMBER (LOCF (|fetch| DLLOCALHOST0 |of|
-                                                                                       CSB))
+                               (T (\\STORENSHOSTNUMBER (LOCF (|fetch| DLLOCALHOST0 |of| CSB))
                                          NSHOSTNUMBER))))
           (AND OUTINTERRUPT (|replace| DLOUTPUTMASK |of| CSB |with| OUTINTERRUPT))
           (AND ININTERRUPT (|replace| DLINPUTMASK |of| CSB |with| ININTERRUPT))
@@ -365,14 +347,14 @@
           (RETURN NDB))))
 
 (\\MAIKO.10MB.RESTART.ETHER
-  (LAMBDA (NDB)                                      (* \; "Edited 11-May-88 16:08 by MASINTER")
+  (LAMBDA (NDB)                                          (* \; "Edited 11-May-88 16:08 by MASINTER")
 
 (* |;;;| "Kick the Ethernet receiver task to restart the Ethernet receiver task.  This function gets called when the 10MBDRIVER thinks the Ethernet has been accidentally disabled")
 
     (SUBRCALL ETHER-RESUME)))
 
 (\\MAIKO.CHECKSUM
-  (LAMBDA (BASE NWORDS INITSUM)                      (* \; "Edited 20-May-88 11:48 by MASINTER")
+  (LAMBDA (BASE NWORDS INITSUM)                          (* \; "Edited 20-May-88 11:48 by MASINTER")
     (SUBRCALL CHECK-SUM BASE NWORDS INITSUM)))
 )
 
@@ -391,41 +373,37 @@
 
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS \\MAIKO.10MB.NDB)
-)
-
-(DECLARE\: DOEVAL@COMPILE DONTCOPY
-
 (GLOBALVARS \\MAIKO.IO-INTERRUPT-FLAGS \\MAIKO.IO-INTERRUPT-VECTOR)
 )
 )
 
 (ADDTOVAR \\MAIKO.MOVDS (\\MAIKO.10MBSTARTDRIVER \\10MB.STARTDRIVER)
-                            (\\MAIKO.10MBWATCHER \\10MBWATCHER)
-                            (\\MAIKO.10MBSENDPACKET \\10MBSENDPACKET)
-                            (\\MAIKO.ETHERSUSPEND \\10MB.TURNOFFETHER)
-                            (\\MAIKO.10MBTURNONETHER \\10MB.TURNONETHER)
-                            (\\MAIKO.ETHERRESUME \\10MB.RESTART.ETHER)
-                            (\\MAIKO.CHECKSUM \\CHECKSUM))
+                        (\\MAIKO.10MBWATCHER \\10MBWATCHER)
+                        (\\MAIKO.10MBSENDPACKET \\10MBSENDPACKET)
+                        (\\MAIKO.ETHERSUSPEND \\10MB.TURNOFFETHER)
+                        (\\MAIKO.10MBTURNONETHER \\10MB.TURNONETHER)
+                        (\\MAIKO.ETHERRESUME \\10MB.RESTART.ETHER)
+                        (\\MAIKO.CHECKSUM \\CHECKSUM))
 
 
 
-(* \; 
+(* |;;| 
 "MAIKO handler for new interrupt-driven incoming ethernet communication, rather than polling for it.")
 
 (DEFINEQ
 
 (\\MAIKO.ETHER-INTERRUPT
-  (LAMBDA NIL                                            (* \; "Edited  4-May-91 13:46 by jds")
+  (LAMBDA NIL                                               (* \; "Edited 30-Dec-2025 18:36 by nhb")
+                                                             (* \; "Edited  4-May-91 13:46 by jds")
 
     (* |;;| "This routine gets called when 10MB input signals an interrupt.  See if the \\MAIKO.INPUT.PACKET has indeed been processed, and if so, take care of it")
 
-    (PROG ((NDB \\MAIKO.10MB.NDB)
+    (PROG ((NDB \\10MBLOCALNDB)
            LENGTH)
 
      (* |;;| "First, turn off the interrupt flag:")
 
-          (REPLACE (INTERRUPTSTATE ETHERINTERRUPT) OF \\INTERRUPTSTATE WITH NIL)
+          (|replace| (INTERRUPTSTATE ETHERINTERRUPT) |of| \\INTERRUPTSTATE |with| NIL)
 
      (* |;;| "Now handle it:")
 
@@ -437,33 +415,27 @@
 
                     READ-MORE-LOOP
                         (COND
-                           ((NEQ (SETQ LENGTH (|fetch| DLFIRSTICB |of| (|fetch| NDBCSB
-                                                                                  |of| NDB)))
+                           ((NEQ (SETQ LENGTH (|fetch| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB)))
                                  \\ES.PENDING)
                             (|replace| 10MBLENGTH |of| PACKET |with| LENGTH)
                             (\\RCLK (LOCF (|fetch| EPTIMESTAMP |of| PACKET)))
                             (|replace| EPNETWORK |of| PACKET |with| NDB)
                             (|replace| EPTYPE |of| PACKET
                                |with| (|for| PAIR |in| \\10MBTYPE.TRANSLATIONS
-                                             |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET
-                                                                       ))
-                                             |when| (EQ TYPE (CAR PAIR))
-                                             |do| (RETURN (CDR PAIR)) |finally| (RETURN
-                                                                                         TYPE)))
+                                         |bind| (TYPE _ (|fetch| 10MBTYPE |of| PACKET))
+                                         |when| (EQ TYPE (CAR PAIR)) |do| (RETURN (CDR PAIR))
+                                         |finally| (RETURN TYPE)))
                             (COND
                                (\\RAWTRACING (\\MAYBEPRINTPACKET PACKET 'RAWGET)))
                             (\\HANDLE.RAW.PACKET PACKET)
                             (SETQ \\MAIKO.INPUT.PACKET (\\ALLOCATE.ETHERPACKET))
-                            (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB)
-                               |with| \\ES.PENDING)
+                            (|replace| DLFIRSTICB |of| (|fetch| NDBCSB |of| NDB) |with| \\ES.PENDING)
                             (COND
                                ((SUBRCALL ETHER-GET \\10MBPACKETLENGTH (|fetch| 10MBPACKETBASE
-                                                                          |of| 
-                                                                                \\MAIKO.INPUT.PACKET)
-                                       )
+                                                                          |of| \\MAIKO.INPUT.PACKET))
 
                                 (* |;;| 
-                              "Returned T, so there's another packet waiting already.  Process it.")
+                                "Returned T, so there's another packet waiting already.  Process it.")
 
                                 (SETQ PACKET \\MAIKO.INPUT.PACKET)
                                 (GO READ-MORE-LOOP)))))))))))
@@ -471,7 +443,7 @@
 
 
 
-(* \; 
+(* |;;| 
 "MAIKO Log & Console message handling.  Interrupt-driven message printing, instead of polled printing."
 )
 
@@ -527,14 +499,13 @@
 (RPAQ \\MAIKO.IO-INTERRUPT-FLAGS (\\CREATECELL \\FIXP))
 
 (RPAQQ \\MAIKO.IO-INTERRUPT-VECTOR NIL)
-(PUTPROPS MAIKOETHER COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 2021))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2591 22216 (\\10MB.RESTART.ETHER 2601 . 2761) (\\10MB.STARTDRIVER 2763 . 4522) (
-\\10MB.TURNOFFETHER 4524 . 4684) (\\10MB.TURNONETHER 4686 . 7056) (\\10MBSENDPACKET 7058 . 9429) (
-\\10MBWATCHER 9431 . 10770) (\\MAIKO.10MBSENDPACKET 10772 . 13150) (\\MAIKO.10MBWATCHER 13152 . 14497)
- (\\MAIKO.ETHERRESUME 14499 . 14658) (\\MAIKO.ETHERSUSPEND 14660 . 14821) (\\MAIKO.INPUT.INTERRUPT 
-14823 . 17085) (\\NS.SETTIME 17087 . 17367) (\\PUP.SETTIME 17369 . 17650) (\\MAIKO.10MBSTARTDRIVER 
-17652 . 19307) (\\MAIKO.10MBTURNONETHER 19309 . 21684) (\\MAIKO.10MB.RESTART.ETHER 21686 . 22039) (
-\\MAIKO.CHECKSUM 22041 . 22214)) (23271 26336 (\\MAIKO.ETHER-INTERRUPT 23281 . 26334)) (26458 27821 (
-\\MAIKO.CONSOLE-LOG-PRINT 26468 . 27819)) (27867 28547 (\\MAIKO.IO-INTERRUPT 27877 . 28545)))))
+  (FILEMAP (NIL (2301 20787 (\\10MB.RESTART.ETHER 2311 . 2475) (\\10MB.STARTDRIVER 2477 . 3863) (
+\\10MB.TURNOFFETHER 3865 . 4029) (\\10MB.TURNONETHER 4031 . 6121) (\\10MBSENDPACKET 6123 . 8481) (
+\\10MBWATCHER 8483 . 9926) (\\MAIKO.10MBSENDPACKET 9928 . 12296) (\\MAIKO.10MBWATCHER 12298 . 13747) (
+\\MAIKO.ETHERRESUME 13749 . 13912) (\\MAIKO.ETHERSUSPEND 13914 . 14079) (\\MAIKO.INPUT.INTERRUPT 14081
+ . 15925) (\\NS.SETTIME 15927 . 16211) (\\PUP.SETTIME 16213 . 16498) (\\MAIKO.10MBSTARTDRIVER 16500 . 
+18150) (\\MAIKO.10MBTURNONETHER 18152 . 20247) (\\MAIKO.10MB.RESTART.ETHER 20249 . 20606) (
+\\MAIKO.CHECKSUM 20608 . 20785)) (21751 24528 (\\MAIKO.ETHER-INTERRUPT 21761 . 24526)) (24652 26015 (
+\\MAIKO.CONSOLE-LOG-PRINT 24662 . 26013)) (26061 26741 (\\MAIKO.IO-INTERRUPT 26071 . 26739)))))
 STOP
diff --git a/sources/MAIKOETHER.LCOM b/sources/MAIKOETHER.LCOM
index 471181fa..3b214126 100644
Binary files a/sources/MAIKOETHER.LCOM and b/sources/MAIKOETHER.LCOM differ
diff --git a/sources/PUP b/sources/PUP
index c64000e1..9f657fb5 100644
--- a/sources/PUP
+++ b/sources/PUP
@@ -1,15 +1,13 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8)
-(FILECREATED " 1-May-2021 19:49:18" {DSK}<home>larry>ilisp>medley>sources>PUP.;2 336270Q
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 8)
 
-      changes to%:  (FNS \PUP.SETTIME CANONICAL.HOSTNAME)
-                    (VARS PUPCOMS)
+(FILECREATED " 2-Apr-2026 09:13:04" {DSK}<Users>briggs>projects>medley>sources>PUP.;8 333567Q
 
-      previous date%: "19-Jan-93 11:14:09" {DSK}<home>larry>ilisp>medley>sources>PUP.;1)
+      :EDIT-BY "briggs"
 
+      :CHANGES-TO (FNS \LOOKUPPORT)
+
+      :PREVIOUS-DATE " 3-Feb-2026 18:40:52" {DSK}<Users>briggs>projects>medley>sources>PUP.;7)
 
-(* ; "
-Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT PUPCOMS)
 
@@ -35,7 +33,7 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
               (FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS GETPUPWORD \PUPINIT)
               (FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 \PUP.SETTIME 
                    \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT \PARSE.PORTCONSTANT \FIXLOCALNET)
-              (FNS PORTSTRING OCTALSTRING)
+              (FNS PORTSTRING)
               (INITVARS (\ETHERPORTS (HASHARRAY 24Q))
                      (\ETHERTIMEOUT 3720Q)
                      (\MAXETHERTRIES 4)
@@ -45,13 +43,13 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
               (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING)
               (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
         (COMS                                                (* ; 
-                                                           "Reading property lists from streams")
+                                                             "Reading property lists from streams")
               (FNS READPLIST)
               (INITVARS \READPLIST.READTABLES)
               (GLOBALVARS \READPLIST.READTABLES))
         (COMS (FNS \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
               (P                                             (* ; 
-                                                           "Default this for when IP not loaded")
+                                                             "Default this for when IP not loaded")
                  (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
               (ADDVARS (\HOSTNAMES)
                      (\SYSTEMCACHEVARS \HOSTNAMES))
@@ -138,53 +136,52 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS PUP [(PUPBASE (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
-                   [BLOCKRECORD PUPBASE ((PUPLENGTH WORD)
-                                         (PUPTCONTROL BYTE)
-                                         (PUPTYPE BYTE)
-                                         (PUPID FIXP)
-                                         (PUPDEST WORD)
-                                         (PUPDESTSOCKET FIXP)
-                                         (PUPSOURCE WORD)
-                                         (PUPSOURCESOCKET FIXP)
-                                         (PUPDATASTART 412Q WORD))
-                          (BLOCKRECORD PUPBASE ((NIL WORD)
-                                                (TYPEWORD WORD)
-                                                (PUPIDHI WORD)
-                                                (PUPIDLO WORD)
-                                                (PUPDESTNET BYTE)
-                                                (PUPDESTHOST BYTE)
-                                                (PUPDESTSOCKETHI WORD)
-                                                (PUPDESTSOCKETLO WORD)
-                                                (PUPSOURCENET BYTE)
-                                                (PUPSOURCEHOST BYTE)
-                                                (PUPSOURCESOCKETHI WORD)
-                                                (PUPSOURCESOCKETLO WORD))
+               [BLOCKRECORD PUPBASE ((PUPLENGTH WORD)
+                                     (PUPTCONTROL BYTE)
+                                     (PUPTYPE BYTE)
+                                     (PUPID FIXP)
+                                     (PUPDEST WORD)
+                                     (PUPDESTSOCKET FIXP)
+                                     (PUPSOURCE WORD)
+                                     (PUPSOURCESOCKET FIXP)
+                                     (PUPDATASTART 412Q WORD))
+                      (BLOCKRECORD PUPBASE ((NIL WORD)
+                                            (TYPEWORD WORD)
+                                            (PUPIDHI WORD)
+                                            (PUPIDLO WORD)
+                                            (PUPDESTNET BYTE)
+                                            (PUPDESTHOST BYTE)
+                                            (PUPDESTSOCKETHI WORD)
+                                            (PUPDESTSOCKETLO WORD)
+                                            (PUPSOURCENET BYTE)
+                                            (PUPSOURCEHOST BYTE)
+                                            (PUPSOURCESOCKETHI WORD)
+                                            (PUPSOURCESOCKETLO WORD))
                                                              (* ; "Temporary extra synonyms")
-                                 (SYNONYM PUPDESTNET (DESTNET))
-                                 (SYNONYM PUPDESTHOST (DESTHOST))
-                                 (SYNONYM PUPDESTSOCKETHI (DESTSKTHI))
-                                 (SYNONYM PUPDESTSOCKETLO (DESTSKTLO))
-                                 (SYNONYM PUPSOURCENET (SOURCENET))
-                                 (SYNONYM PUPSOURCEHOST (SOURCEHOST))
-                                 (SYNONYM PUPSOURCESOCKETHI (SOURCESKTHI))
-                                 (SYNONYM PUPSOURCESOCKETLO (SOURCESKTLO)))
-                          (SYNONYM PUPDEST (DEST))
-                          (SYNONYM PUPDESTSOCKET (DESTSKT))
-                          (SYNONYM PUPSOURCE (SOURCE))
-                          (SYNONYM PUPSOURCESOCKET (SOURCESKT))
-                          (ACCESSFNS PUPDATASTART ((PUPCONTENTS (LOCF DATUM]
-                   [ACCESSFNS PUP [(PUPCHECKSUMBASE (fetch PUPBASE of DATUM))
-                                   (PUPCHECKSUMLOC (\ADDBASE (fetch PUPBASE of DATUM)
-                                                          (FOLDLO (SUB1 (fetch PUPLENGTH
-                                                                           of DATUM))
-                                                                 BYTESPERWORD]
-                          (BLOCKRECORD PUPCHECKSUMLOC ((PUPCHECKSUM WORD]
-                   (TYPE? (type? ETHERPACKET DATUM)))
+                             (SYNONYM PUPDESTNET (DESTNET))
+                             (SYNONYM PUPDESTHOST (DESTHOST))
+                             (SYNONYM PUPDESTSOCKETHI (DESTSKTHI))
+                             (SYNONYM PUPDESTSOCKETLO (DESTSKTLO))
+                             (SYNONYM PUPSOURCENET (SOURCENET))
+                             (SYNONYM PUPSOURCEHOST (SOURCEHOST))
+                             (SYNONYM PUPSOURCESOCKETHI (SOURCESKTHI))
+                             (SYNONYM PUPSOURCESOCKETLO (SOURCESKTLO)))
+                      (SYNONYM PUPDEST (DEST))
+                      (SYNONYM PUPDESTSOCKET (DESTSKT))
+                      (SYNONYM PUPSOURCE (SOURCE))
+                      (SYNONYM PUPSOURCESOCKET (SOURCESKT))
+                      (ACCESSFNS PUPDATASTART ((PUPCONTENTS (LOCF DATUM]
+               [ACCESSFNS PUP [(PUPCHECKSUMBASE (fetch PUPBASE of DATUM))
+                               (PUPCHECKSUMLOC (\ADDBASE (fetch PUPBASE of DATUM)
+                                                      (FOLDLO (SUB1 (fetch PUPLENGTH of DATUM))
+                                                             BYTESPERWORD]
+                      (BLOCKRECORD PUPCHECKSUMLOC ((PUPCHECKSUM WORD]
+               (TYPE? (type? ETHERPACKET DATUM)))
 
 (ACCESSFNS PUPADDRESS ((PUPNET# (LRSH DATUM 10Q))
-                           (PUPHOST# (LOGAND DATUM 377Q)))
-                          (CREATE (IPLUS (LLSH PUPNET# 10Q)
-                                             PUPHOST#)))
+                       (PUPHOST# (LOGAND DATUM 377Q)))
+                      (CREATE (IPLUS (LLSH PUPNET# 10Q)
+                                     PUPHOST#)))
 )
 (DECLARE%: EVAL@COMPILE 
 
@@ -274,23 +271,26 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
                   (RETURN T])])
 
 (\FIND.LOCALPUPHOSTNUMBER
-  [LAMBDA (NDB EVENT QUIET)                              (* bvm%: "26-Jul-84 16:27")
+  [LAMBDA (NDB EVENT QUIET)                                  (* ; "Edited 22-Dec-2025 11:58 by nhb")
+                                                             (* ; "Edited 20-Dec-2025 13:51 by nhb")
+                                                             (* bvm%: "26-Jul-84 16:27")
 
     (* ;; "Finds out our pup address on this 10mb NDB")
 
     (PROG (NEWNUMBER)
           [COND
+             ((NOT (\ETHER-AVAILABLE))
+              (RETURN NIL))
              [(SETQ NEWNUMBER (\LOOKUPPUPNUMBER \MY.NSHOSTNUMBER NDB))
               (COND
-                 (PUPTRACEFLG (printout PUPTRACEFILE "My pup address = " (fetch PUPNET#
-                                                                            of NEWNUMBER)
+                 (PUPTRACEFLG (printout PUPTRACEFILE "My pup address = " (fetch PUPNET# of NEWNUMBER)
                                      "#"
                                      (fetch PUPHOST# of NEWNUMBER)
                                      "#" T]
              (QUIET (RETURN NIL))
              (T (SETQ NEWNUMBER (\PROMPT.FOR.PUP.NUMBER (AND (EQ EVENT 'AFTERLOGOUT)
-                                                                 (NEQ \OLDPUPHOST# 0)
-                                                                 (OCTALSTRING \OLDPUPHOST#]
+                                                             (NEQ \OLDPUPHOST# 0)
+                                                             (OCTALSTRING \OLDPUPHOST#]
 
      (* ;; "Only rely on the host number part of reply.  There is confusion for machines that exist on more than one net")
 
@@ -470,14 +470,14 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS ERRORPUP ((ERRORPUPBASE (fetch PUPCONTENTS of DATUM)))
-                        (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
+                    (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
                                                              (* ; "Copy of pup header")
-                                                   (ERRORPUPCODE WORD)
-                                                   (ERRORPUPARG WORD)
+                                               (ERRORPUPCODE WORD)
+                                               (ERRORPUPARG WORD)
                                                              (* ; "Usually zero")
-                                                   (ERRORPUPSTRINGBASE WORD)
+                                               (ERRORPUPSTRINGBASE WORD)
                                                              (* ; "Human readable message")
-                                                   )))
+                                               )))
 )
 
 (RPAQQ PUPERRORCODES
@@ -969,11 +969,13 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
                                   (\DAYTIME0 (create FIXP])
 
 (\LOOKUPPORT
-  [LAMBDA (NAME)                                         (* ; "Edited  1-Apr-87 12:37 by bvm:")
+  [LAMBDA (NAME)                                          (* ; "Edited  2-Apr-2026 09:08 by briggs")
+                                                             (* ; "Edited  1-Apr-87 12:37 by bvm:")
 
 (* ;;; "Looks up the ether address of NAME, returning a list of dotted pairs (nethost  . socket), or NIL on failure")
 
-    (AND NAME
+    (AND NAME (EQ (OR \PUP.READY (ASSURE.PUP.READY))
+                  T)
          (PROG ((SOC (\GETMISCSOCKET))
                 (OPUP (ALLOCATE.PUP))
                 RESULT BUF LEN IPUP)
@@ -981,35 +983,31 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
                (PUTPUPSTRING OPUP NAME)
                [to \MAXETHERTRIES when (SETQ IPUP (EXCHANGEPUPS SOC OPUP NIL T))
                   do (SELECTC (fetch PUPTYPE of IPUP)
-                             (\PT.NAMERESPONSE 
-                                  [COND
-                                     ((> (SETQ LEN (IQUOTIENT (FOLDLO (- (fetch PUPLENGTH
-                                                                            of IPUP)
-                                                                         \PUPOVLEN)
-                                                                     BYTESPERWORD)
-                                                          \PORTIDLEN))
-                                         1)
-                                      (COND
-                                         (PUPTRACEFLG (printout PUPTRACEFILE 
-                                                             "Multiple response received for " NAME T
-                                                             ]
-                                  [RETURN (SETQ RESULT (from 1 to LEN
-                                                          as (PTR _ (fetch PUPCONTENTS
-                                                                           of IPUP))
-                                                          by (\ADDBASE PTR \PORTIDLEN)
-                                                          collect (CONS (fetch (PORT NETHOST)
-                                                                               of PTR)
-                                                                            (fetch (PORT SOCKET)
-                                                                               of PTR])
-                             (\PT.NAME/ADDRERROR 
+                         (\PT.NAMERESPONSE 
+                              [COND
+                                 ((> (SETQ LEN (IQUOTIENT (FOLDLO (- (fetch PUPLENGTH of IPUP)
+                                                                     \PUPOVLEN)
+                                                                 BYTESPERWORD)
+                                                      \PORTIDLEN))
+                                     1)
                                   (COND
-                                     (PUPTRACEFLG (printout PUPTRACEFILE "Name lookup error for " 
-                                                         NAME ": " (GETPUPSTRING IPUP)
-                                                         T)))
-                                  (RETURN))
-                             NIL) finally (COND
-                                                 (PUPTRACEFLG (printout PUPTRACEFILE 
-                                                                     "Name lookup timed out" T]
+                                     (PUPTRACEFLG (printout PUPTRACEFILE 
+                                                         "Multiple response received for " NAME T]
+                              [RETURN (SETQ RESULT (from 1 to LEN
+                                                      as (PTR _ (fetch PUPCONTENTS of IPUP))
+                                                      by (\ADDBASE PTR \PORTIDLEN)
+                                                      collect (CONS (fetch (PORT NETHOST)
+                                                                       of PTR)
+                                                                    (fetch (PORT SOCKET) of PTR])
+                         (\PT.NAME/ADDRERROR 
+                              (COND
+                                 (PUPTRACEFLG (printout PUPTRACEFILE "Name lookup error for " NAME 
+                                                     ": " (GETPUPSTRING IPUP)
+                                                     T)))
+                              (RETURN))
+                         NIL) finally (COND
+                                         (PUPTRACEFLG (printout PUPTRACEFILE "Name lookup timed out"
+                                                             T]
                (AND IPUP (RELEASE.PUP IPUP))
                (RELEASE.PUP OPUP)
                (RETURN RESULT])
@@ -1080,11 +1078,6 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
            (COND
               (SOCKET (OCTALSTRING SOCKET))
               (T ""])
-
-(OCTALSTRING
-  [LAMBDA (N)                                            (* bvm%: "21-JUL-81 12:16")
-    (GLOBALRESOURCE (\NUMSTR \NUMSTR1)
-           (CONCAT (\CONVERTNUMBER N 10Q NIL NIL \NUMSTR \NUMSTR1])
 )
 
 (RPAQ? \ETHERPORTS (HASHARRAY 24Q))
@@ -1174,24 +1167,22 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 )
 
 (DEFOPTIMIZER GETPUPWORD (PUPARG WORD#)
-                             `(\GETBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
-                                     ,WORD#))
+                         `(\GETBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,WORD#))
 
 (DEFOPTIMIZER PUTPUPWORD (PUPARG WORD# VALUE)
-                             `(\PUTBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
-                                     ,WORD#
-                                     ,VALUE))
+                         `(\PUTBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,WORD#
+                                 ,VALUE))
 
 (DEFOPTIMIZER GETPUPBYTE (PUPARG BYTE#)
-                             `(\GETBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG
-                                                                                 'ETHERPACKET))
-                                     ,BYTE#))
+                         `(\GETBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,BYTE#))
 
 (DEFOPTIMIZER PUTPUPBYTE (PUPARG BYTE# VALUE)
-                             `(\PUTBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG
-                                                                                 'ETHERPACKET))
-                                     ,BYTE#
-                                     ,VALUE))
+                         `(\PUTBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,BYTE#
+                                 ,VALUE))
 
 
 
@@ -1282,7 +1273,7 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 )
 
                                                              (* ; 
-                                                           "Default this for when IP not loaded")
+                                                             "Default this for when IP not loaded")
 
 (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T)
 
@@ -1301,8 +1292,8 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS BINDPUPS MACRO [X (CONS (LIST 'LAMBDA (CAR X)
-                                                (CONS 'PROGN (CDR X)))
-                                          (in (CAR X) collect (LIST 'ALLOCATE.PUP])
+                                        (CONS 'PROGN (CDR X)))
+                                  (in (CAR X) collect (LIST 'ALLOCATE.PUP])
 )
 
 (PUTPROPS BINDPUPS INFO BINDS)
@@ -1597,12 +1588,12 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
-(BLOCKRECORD PUPROUTINGINFO (                            (* ; 
-          "Format of each entry in a pup routing info packet.  We only actually use NET# and #HOPS")
-                                 (NET# BYTE)
-                                 (GATENET# BYTE)
-                                 (GATEHOST# BYTE)
-                                 (%#HOPS BYTE)))
+(BLOCKRECORD PUPROUTINGINFO (                                (* ; 
+            "Format of each entry in a pup routing info packet.  We only actually use NET# and #HOPS")
+                             (NET# BYTE)
+                             (GATENET# BYTE)
+                             (GATEHOST# BYTE)
+                             (%#HOPS BYTE)))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -1628,24 +1619,24 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (DATATYPE PUPSOCKET ((NIL BITS 4)
-                         (PUPSOCLINK POINTER)                (* ; "So that we can Queue them")
-                         (PSOCKET# FIXP)
-                         (INQUEUE POINTER)
-                         (INQUEUELENGTH WORD)
-                         (PUPSOC#ALLOCATION WORD)
-                         (PUPSOCHANDLE WORD)                 (* ; "Back-fitting for Bcpl")
-                         (PUPSOCPUPADDRESS WORD)             (* ; "Local net/host")
-                         (NIL BITS 4)
-                         (PUPSOCEVENT POINTER)               (* ; 
-                                         "Event that is notified when a pup arrives on this socket")
-                         (NIL BITS 4)
-                         (NIL POINTER))
-                        (BLOCKRECORD PUPSOCKET ((NIL BITS 4)
-                                                (NIL POINTER)
-                                                (PSOCKETHI WORD)
-                                                (PSOCKETLO WORD)))
-                        INQUEUE _ (create SYSQUEUE)
-                        PUPSOC#ALLOCATION _ \MAX.EPKTS.ON.PUPSOCKET)
+                     (PUPSOCLINK POINTER)                    (* ; "So that we can Queue them")
+                     (PSOCKET# FIXP)
+                     (INQUEUE POINTER)
+                     (INQUEUELENGTH WORD)
+                     (PUPSOC#ALLOCATION WORD)
+                     (PUPSOCHANDLE WORD)                     (* ; "Back-fitting for Bcpl")
+                     (PUPSOCPUPADDRESS WORD)                 (* ; "Local net/host")
+                     (NIL BITS 4)
+                     (PUPSOCEVENT POINTER)                   (* ; 
+                                           "Event that is notified when a pup arrives on this socket")
+                     (NIL BITS 4)
+                     (NIL POINTER))
+                    (BLOCKRECORD PUPSOCKET ((NIL BITS 4)
+                                            (NIL POINTER)
+                                            (PSOCKETHI WORD)
+                                            (PSOCKETLO WORD)))
+                    INQUEUE _ (create SYSQUEUE)
+                    PUPSOC#ALLOCATION _ \MAX.EPKTS.ON.PUPSOCKET)
 )
 
 (/DECLAREDATATYPE 'PUPSOCKET '((BITS 4)
@@ -1670,11 +1661,11 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO)
-                                           (for SOC in \PUPSOCKETS
-                                              when (AND (EQ (fetch PSOCKETLO of SOC)
-                                                                SOCLO)
-                                                            (EQ (fetch PSOCKETHI of SOC)
-                                                                SOCHI)) do (RETURN SOC))))
+                                   (for SOC in \PUPSOCKETS
+                                      when (AND (EQ (fetch PSOCKETLO of SOC)
+                                                    SOCLO)
+                                                (EQ (fetch PSOCKETHI of SOC)
+                                                    SOCHI)) do (RETURN SOC))))
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1704,17 +1695,17 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE PUPSOCKET ((NIL BITS 4)
-                         (PUPSOCLINK POINTER)
-                         (PSOCKET# FIXP)
-                         (INQUEUE POINTER)
-                         (INQUEUELENGTH WORD)
-                         (PUPSOC#ALLOCATION WORD)
-                         (PUPSOCHANDLE WORD)
-                         (PUPSOCPUPADDRESS WORD)
-                         (NIL BITS 4)
-                         (PUPSOCEVENT POINTER)
-                         (NIL BITS 4)
-                         (NIL POINTER)))
+                     (PUPSOCLINK POINTER)
+                     (PSOCKET# FIXP)
+                     (INQUEUE POINTER)
+                     (INQUEUELENGTH WORD)
+                     (PUPSOC#ALLOCATION WORD)
+                     (PUPSOCHANDLE WORD)
+                     (PUPSOCPUPADDRESS WORD)
+                     (NIL BITS 4)
+                     (PUPSOCEVENT POINTER)
+                     (NIL BITS 4)
+                     (NIL POINTER)))
 )
 (DEFINEQ
 
@@ -1826,21 +1817,21 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD PORT ((NETHOST WORD)
-                       (SOCKET FIXP))
-                      (BLOCKRECORD PORT ((NET BYTE)
-                                         (HOST BYTE)
-                                         (SOCKETHI WORD)
-                                         (SOCKETLO WORD))))
+                   (SOCKET FIXP))
+                  (BLOCKRECORD PORT ((NET BYTE)
+                                     (HOST BYTE)
+                                     (SOCKETHI WORD)
+                                     (SOCKETLO WORD))))
 
 (ACCESSFNS ERRORPUP ((ERRORPUPBASE (fetch PUPCONTENTS of DATUM)))
-                        (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
+                    (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
                                                              (* ; "Copy of pup header")
-                                                   (ERRORPUPCODE WORD)
-                                                   (ERRORPUPARG WORD)
+                                               (ERRORPUPCODE WORD)
+                                               (ERRORPUPARG WORD)
                                                              (* ; "Usually zero")
-                                                   (ERRORPUPSTRINGBASE WORD)
+                                               (ERRORPUPSTRINGBASE WORD)
                                                              (* ; "Human readable message")
-                                                   )))
+                                               )))
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -1868,20 +1859,20 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#)
-                                      (\GETBASE (fetch PUPCONTENTS of PUP)
-                                             WORD#)))
+                              (\GETBASE (fetch PUPCONTENTS of PUP)
+                                     WORD#)))
 
 (PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE)
-                                      (\PUTBASE (fetch PUPCONTENTS of PUP)
-                                             WORD# VALUE)))
+                              (\PUTBASE (fetch PUPCONTENTS of PUP)
+                                     WORD# VALUE)))
 
 (PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#)
-                                      (\GETBASEBYTE (fetch PUPCONTENTS of PUP)
-                                             BYTE#)))
+                              (\GETBASEBYTE (fetch PUPCONTENTS of PUP)
+                                     BYTE#)))
 
 (PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE)
-                                      (\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
-                                             BYTE# VALUE)))
+                              (\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
+                                     BYTE# VALUE)))
 )
 
 (RPAQQ RAWPUPTYPES
@@ -2033,13 +2024,13 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (RPAQ? PUPTYPES RAWPUPTYPES)
 
 (RPAQQ WELLKNOWNPUPSOCKETS ((\PUPSOCKET.TELNET 1)
-                                (\PUPSOCKET.ROUTING 2)
-                                (\PUPSOCKET.FTP 3)
-                                (\PUPSOCKET.MISCSERVICES 4)
-                                (\PUPSOCKET.ECHO 5)
-                                (\PUPSOCKET.EFTP 20Q)
-                                (\PUPSOCKET.PRINTERSTATUS 21Q)
-                                (\PUPSOCKET.LEAF 43Q)))
+                            (\PUPSOCKET.ROUTING 2)
+                            (\PUPSOCKET.FTP 3)
+                            (\PUPSOCKET.MISCSERVICES 4)
+                            (\PUPSOCKET.ECHO 5)
+                            (\PUPSOCKET.EFTP 20Q)
+                            (\PUPSOCKET.PRINTERSTATUS 21Q)
+                            (\PUPSOCKET.LEAF 43Q)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PUPSOCKET.TELNET 1)
@@ -2074,9 +2065,9 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 
 
 (RPAQQ PUPCONSTANTS ((\PUPHEADERLEN 24Q)
-                         (\NetMask 177400Q)
-                         (\HILOCALSOCKET 1)
-                         (\PORTIDLEN 3)))
+                     (\NetMask 177400Q)
+                     (\HILOCALSOCKET 1)
+                     (\PORTIDLEN 3)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PUPHEADERLEN 24Q)
@@ -2097,28 +2088,28 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS PUPDEBUGGING MACRO [(X . Y)
-                                      (COND
-                                         (PUPTRACEFLG (printout PUPTRACEFILE X . Y])
+                              (COND
+                                 (PUPTRACEFLG (printout PUPTRACEFILE X . Y])
 )
 
 
 (ADDTOVAR PUPPRINTMACROS (210Q CHARS)
-                             (214Q CHARS)
-                             (211Q CHARS)
-                             (213Q CHARS)
-                             (201Q WORDS 2 CHARS 24Q |...|)
-                             (30Q CHARS))
+                         (214Q CHARS)
+                         (211Q CHARS)
+                         (213Q CHARS)
+                         (201Q WORDS 2 CHARS 24Q |...|)
+                         (30Q CHARS))
 
 (DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD TIMEPUPCONTENTS ((TIMEPUPVALUEHI WORD)
-                                  (TIMEPUPVALUELO WORD)
-                                  (TIMEPUPEASTP FLAG)
-                                  (TIMEPUPHOURS BITS 7)
-                                  (TIMEPUPMINUTES BITS 10Q)
-                                  (TIMEPUPBEGINDST WORD)
-                                  (TIMEPUPENDDST WORD))      (* ; "format of alto time response")
-                                 )
+                              (TIMEPUPVALUELO WORD)
+                              (TIMEPUPEASTP FLAG)
+                              (TIMEPUPHOURS BITS 7)
+                              (TIMEPUPMINUTES BITS 10Q)
+                              (TIMEPUPBEGINDST WORD)
+                              (TIMEPUPENDDST WORD))          (* ; "format of alto time response")
+                             )
 )
 )
 
@@ -2447,10 +2438,10 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (ADDTOVAR PUPIGNORETYPES )
 
 (ADDTOVAR PUPPRINTMACROS (4 . PRINTERRORPUP)
-                             (220Q CHARS)
-                             (221Q REPEAT BYTES -2 WORDS -4)
-                             (223Q BYTES -2 WORDS)
-                             (224Q CHARS))
+                         (220Q CHARS)
+                         (221Q REPEAT BYTES -2 WORDS -4)
+                         (223Q BYTES -2 WORDS)
+                         (224Q CHARS))
 (DECLARE%: DONTEVAL@LOAD 
 
 (\PUPINIT)
@@ -2469,32 +2460,30 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
 
 (PUTPROPS PUP FILETYPE CL:COMPILE-FILE)
-(PUTPROPS PUP COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3705Q 
-3706Q 3707Q 3710Q 3711Q 3745Q))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25631Q 61606Q (\STARTPUP 25643Q . 26515Q) (ASSURE.PUP.READY 26517Q . 34612Q) (
-\FIND.LOCALPUPHOSTNUMBER 34614Q . 37012Q) (\PROMPT.FOR.PUP.NUMBER 37014Q . 41034Q) (\HANDLE.RAW.PUP 
-41036Q . 57136Q) (\FORWARD.PUP 57140Q . 60060Q) (\SETPUPCHECKSUM 60062Q . 61604Q)) (66376Q 73470Q (
-\PUPERROR 66410Q . 73466Q)) (73527Q 112663Q (SETUPPUP 73541Q . 76727Q) (SWAPPUPPORTS 76731Q . 77546Q) 
-(GETPUP 77550Q . 102462Q) (SENDPUP 102464Q . 106306Q) (EXCHANGEPUPS 106310Q . 110346Q) (DISCARDPUPS 
-110350Q . 111154Q) (GETPUPWORD 111156Q . 111475Q) (\PUPINIT 111477Q . 112661Q)) (112664Q 154244Q (
-ETHERHOSTNAME 112676Q . 122024Q) (ETHERHOSTNUMBER 122026Q . 122441Q) (ETHERPORT 122443Q . 126162Q) (
-BESTPUPADDRESS 126164Q . 136224Q) (NETDAYTIME0 136226Q . 136557Q) (\PUP.SETTIME 136561Q . 137206Q) (
-\SETNEWTIME0 137210Q . 140270Q) (\NET.SETTIME 140272Q . 141361Q) (NETDATE 141363Q . 141720Q) (
-\LOOKUPPORT 141722Q . 147561Q) (\PARSE.PORTCONSTANT 147563Q . 152673Q) (\FIXLOCALNET 152675Q . 154242Q
-)) (154245Q 155602Q (PORTSTRING 154257Q . 155246Q) (OCTALSTRING 155250Q . 155600Q)) (156174Q 165305Q (
-CLEARPUP 156206Q . 160721Q) (PUTPUPWORD 160723Q . 161250Q) (GETPUPBYTE 161252Q . 161575Q) (PUTPUPBYTE 
-161577Q . 162130Q) (GETPUPSTRING 162132Q . 163563Q) (GETPUPSTREAM 163565Q . 164514Q) (PUTPUPSTRING 
-164516Q . 165303Q)) (167410Q 175227Q (READPLIST 167422Q . 175225Q)) (175410Q 200610Q (
-\CANONICAL.HOSTNAME 175422Q . 176467Q) (\CANONICALIZE.PUP.HOSTNAME 176471Q . 200606Q)) (203163Q 
-236370Q (\PUPGATELISTENER 203175Q . 207026Q) (\HANDLE.PUP.ROUTING.INFO 207030Q . 221367Q) (\ROUTE.PUP 
-221371Q . 225224Q) (\LOCATE.PUPNET 225226Q . 231763Q) (SORT.PUPHOSTS.BY.DISTANCE 231765Q . 234241Q) (
-\PUPNET.CLOSERP 234243Q . 235424Q) (PUPNET.DISTANCE 235426Q . 236366Q)) (250017Q 257771Q (
-OPENPUPSOCKET 250031Q . 254512Q) (CLOSEPUPSOCKET 254514Q . 256173Q) (PUPSOCKETNUMBER 256175Q . 256426Q
-) (PUPSOCKETFROMNUMBER 256430Q . 257067Q) (PUPSOCKETEVENT 257071Q . 257350Q) (\FLUSHPUPSOCQUEUE 
-257352Q . 257767Q)) (257772Q 260537Q (\GETMISCSOCKET 260004Q . 260535Q)) (300551Q 313341Q (
-PUP.ECHOSERVER 300563Q . 303370Q) (PUP.ECHOUSER 303372Q . 313337Q)) (313372Q 322523Q (\PEEKPUP 313404Q
- . 320535Q) (\MAYBEPEEKPUP 320537Q . 322521Q)) (323124Q 334361Q (PRINTPUP 323136Q . 327306Q) (
-PRINTPUPROUTE 327310Q . 331255Q) (PRINTPUPDATA 331257Q . 331727Q) (PRINTERRORPUP 331731Q . 332431Q) (
-PUPTRACE 332433Q . 332744Q) (PRINTCONSTANT 332746Q . 334357Q)))))
+  (FILEMAP (NIL (25073Q 61361Q (\STARTPUP 25105Q . 25757Q) (ASSURE.PUP.READY 25761Q . 34054Q) (
+\FIND.LOCALPUPHOSTNUMBER 34056Q . 36565Q) (\PROMPT.FOR.PUP.NUMBER 36567Q . 40607Q) (\HANDLE.RAW.PUP 
+40611Q . 56711Q) (\FORWARD.PUP 56713Q . 57633Q) (\SETPUPCHECKSUM 57635Q . 61357Q)) (66125Q 73217Q (
+\PUPERROR 66137Q . 73215Q)) (73256Q 112412Q (SETUPPUP 73270Q . 76456Q) (SWAPPUPPORTS 76460Q . 77275Q) 
+(GETPUP 77277Q . 102211Q) (SENDPUP 102213Q . 106035Q) (EXCHANGEPUPS 106037Q . 110075Q) (DISCARDPUPS 
+110077Q . 110703Q) (GETPUPWORD 110705Q . 111224Q) (\PUPINIT 111226Q . 112410Q)) (112413Q 153423Q (
+ETHERHOSTNAME 112425Q . 121553Q) (ETHERHOSTNUMBER 121555Q . 122170Q) (ETHERPORT 122172Q . 125711Q) (
+BESTPUPADDRESS 125713Q . 135753Q) (NETDAYTIME0 135755Q . 136306Q) (\PUP.SETTIME 136310Q . 136735Q) (
+\SETNEWTIME0 136737Q . 140017Q) (\NET.SETTIME 140021Q . 141110Q) (NETDATE 141112Q . 141447Q) (
+\LOOKUPPORT 141451Q . 146740Q) (\PARSE.PORTCONSTANT 146742Q . 152052Q) (\FIXLOCALNET 152054Q . 153421Q
+)) (153424Q 154427Q (PORTSTRING 153436Q . 154425Q)) (155021Q 164132Q (CLEARPUP 155033Q . 157546Q) (
+PUTPUPWORD 157550Q . 160075Q) (GETPUPBYTE 160077Q . 160422Q) (PUTPUPBYTE 160424Q . 160755Q) (
+GETPUPSTRING 160757Q . 162410Q) (GETPUPSTREAM 162412Q . 163341Q) (PUTPUPSTRING 163343Q . 164130Q)) (
+165723Q 173542Q (READPLIST 165735Q . 173540Q)) (173723Q 177123Q (\CANONICAL.HOSTNAME 173735Q . 175002Q
+) (\CANONICALIZE.PUP.HOSTNAME 175004Q . 177121Q)) (201460Q 234665Q (\PUPGATELISTENER 201472Q . 205323Q
+) (\HANDLE.PUP.ROUTING.INFO 205325Q . 217664Q) (\ROUTE.PUP 217666Q . 223521Q) (\LOCATE.PUPNET 223523Q
+ . 230260Q) (SORT.PUPHOSTS.BY.DISTANCE 230262Q . 232536Q) (\PUPNET.CLOSERP 232540Q . 233721Q) (
+PUPNET.DISTANCE 233723Q . 234663Q)) (246060Q 256032Q (OPENPUPSOCKET 246072Q . 252553Q) (CLOSEPUPSOCKET
+ 252555Q . 254234Q) (PUPSOCKETNUMBER 254236Q . 254467Q) (PUPSOCKETFROMNUMBER 254471Q . 255130Q) (
+PUPSOCKETEVENT 255132Q . 255411Q) (\FLUSHPUPSOCQUEUE 255413Q . 256030Q)) (256033Q 256600Q (
+\GETMISCSOCKET 256045Q . 256576Q)) (276276Q 311066Q (PUP.ECHOSERVER 276310Q . 301115Q) (PUP.ECHOUSER 
+301117Q . 311064Q)) (311117Q 320250Q (\PEEKPUP 311131Q . 316262Q) (\MAYBEPEEKPUP 316264Q . 320246Q)) (
+320651Q 332106Q (PRINTPUP 320663Q . 325033Q) (PRINTPUPROUTE 325035Q . 327002Q) (PRINTPUPDATA 327004Q
+ . 327454Q) (PRINTERRORPUP 327456Q . 330156Q) (PUPTRACE 330160Q . 330471Q) (PRINTCONSTANT 330473Q . 
+332104Q)))))
 STOP
diff --git a/sources/PUP.LCOM b/sources/PUP.LCOM
index 82a81790..e806a51e 100644
Binary files a/sources/PUP.LCOM and b/sources/PUP.LCOM differ
