From 09b6b1e8542cab26db4a4b4a3d9d14d3923dc994 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 23 Jan 2026 18:31:19 -0800
Subject: [PATCH] Updates \SETETHERFLAGS to avoid setting \10MBFLG when no
 ethernet

---
 sources/LLETHER      |  66 +++++++++++++++++++++++--------------------
 sources/LLETHER.LCOM | Bin 43618 -> 43657 bytes
 2 files changed, 35 insertions(+), 31 deletions(-)

diff --git a/sources/LLETHER b/sources/LLETHER
index 7171a26e..fd0719d9 100644
--- a/sources/LLETHER
+++ b/sources/LLETHER
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Dec-2025 14:12:06" {DSK}<users>briggs>projects>medley>sources>LLETHER.;2
 138541 
+
(FILECREATED "23-Jan-2026 12:42:02" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;4
 138728 
 
-      :CHANGES-TO (FNS \ETHEREVENTFN)
+      :EDIT-BY nhb
 
-      :PREVIOUS-DATE "17-Dec-2025 11:02:51" {DSK}<users>briggs>projects>medley>sources>LLETHER.;1)
+      :CHANGES-TO (FNS \SETETHERFLAGS)
+
+      :PREVIOUS-DATE "20-Dec-2025 14:12:06" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;3)
 
 
 (PRETTYCOMPRINT LLETHERCOMS)
@@ -1549,11 +1551,13 @@
     (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))
@@ -2938,30 +2942,30 @@
 
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (10564 19020 (CANONICAL.HOSTNAME 10574 . 12163) (\ENQUEUE 12165 . 14810) (\DEQUEUE 14812
- . 16139) (\QUEUELENGTH 16141 . 16441) (\ONQUEUE 16443 . 16709) (\UNQUEUE 16711 . 19018)) (52579 56445
- (\ALLOCATE.ETHERPACKET 52589 . 53630) (\RELEASE.ETHERPACKET 53632 . 54705) (RELEASE.PUP 54707 . 54852
-) (\FLUSH.PACKET.QUEUE 54854 . 55205) (\REQUEUE.ETHERPACKET 55207 . 55721) (\EP.PUT.AUX 55723 . 56443)
-) (57019 68400 (\SETLOCALNSNUMBERS 57029 . 58414) (\LOADNSADDRESS 58416 . 58708) (\STORENSADDRESS 
-58710 . 58891) (\PRINTNSADDRESS 58893 . 59976) (\NSADDRESS.DEFPRINT 59978 . 64923) (
-\NSADDRESS.PRINT.DECIMAL 64925 . 67056) (\LOADNSHOSTNUMBER 67058 . 67687) (\STORENSHOSTNUMBER 67689 . 
-68093) (PRINTNSHOSTNUMBER 68095 . 68398)) (68513 74207 (\ETHERINIT 68523 . 69093) (\ETHEREVENTFN 69095
- . 71573) (\ETHER-AVAILABLE 71575 . 71733) (\TIME.NOT.SET 71735 . 72061) (\SETETHERFLAGS 72063 . 72514
-) (\FLUSHNDBS 72516 . 73694) (\FLUSH.NDB.QUEUE 73696 . 74205)) (74208 77500 (\CHECKSUM 74218 . 76150) 
-(\HANDLE.RAW.OTHER 76152 . 76507) (\HANDLE.RAW.PACKET 76509 . 77021) (\ADD.PACKET.FILTER 77023 . 77255
-) (\DEL.PACKET.FILTER 77257 . 77498)) (85004 85529 (ENCAPSULATE.ETHERPACKET 85014 . 85286) (
-TRANSMIT.ETHERPACKET 85288 . 85527)) (85817 98413 (\AGE.ROUTING.TABLE 85827 . 87976) (
-\ADD.ROUTING.TABLE.ENTRY 87978 . 88674) (\CLEAR.ROUTING.TABLE 88676 . 89403) (\MAP.ROUTING.TABLE 89405
- . 89933) (PRINTROUTINGTABLE 89935 . 93560) (\ROUTINGTABLE.INFOHOOK 93562 . 98411)) (98898 105683 (
-\TRANSLATE.10TO3 98908 . 100692) (\NOTE.10TO3 100694 . 102310) (\HANDLE.RAW.10TO3 102312 . 105681)) (
-109673 124495 (PRINTPACKET 109683 . 110244) (\MAYBEPRINTPACKET 110246 . 111903) (PRINT10TO3 111905 . 
-113273) (PRINTPACKETDATA 113275 . 118565) (PRINTPACKETQUEUE 118567 . 118996) (TIME.SINCE.PACKET 118998
- . 119483) (MAKE-NETWORK-TRACE-WINDOW 119485 . 123027) (\CHANGE.ETHER.TRACING 123029 . 124493)) (
-124862 125677 (\CENTICLOCK 124872 . 125675)) (126128 132228 (\3MBGETPACKET 126138 . 127558) (
-\3MB.CREATENDB 127560 . 128275) (\3MBSENDPACKET 128277 . 130460) (\3MBWATCHER 130462 . 131200) (
-\3MBENCAPSULATE 131202 . 131750) (\3MB.BROADCASTP 131752 . 131923) (\3MBFLUSH 131925 . 132226)) (
-134970 136913 (ASSURE.ETHER.ON 134980 . 135310) (INITPUPLEVEL1 135312 . 135792) (TURN.ON.ETHER 135794
- . 135939) (RESTART.ETHER 135941 . 136315) (TURN.OFF.ETHER 136317 . 136635) (PRINTWORDS 136637 . 
-136911)) (137184 137719 (\DEVICE.INPUT 137194 . 137359) (\DEVICE.OUTPUT 137361 . 137555) (\D0.STARTIO 
-137557 . 137717)))))
+  (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 4250c3b100c994dd2ec893225ad44272612afc7a..bd6f4cd55ab364b9e06a57394fa98091dcbfa1fd 100644
GIT binary patch
delta 415
zcmaEKg{ku@(}V~iV_mPrJY6FLBQpg<BP$bgE5nIdQhcGssYS(hNky6I>BV*dlTR}$
z)SGB3C>fd|sW!7RFtRc*R#Hex&d)8#QBP6G%v0b}atrnGQ9xFxr>Cc+kdj!Enu5&$
zLsKP9E)6$NA6MrfSH}=n7X>9FG&cclF;bFKsCEhVuC+mRS&+Y%t8+-Oo$q9SM)7(R
z1w&&Cb0Z4{E-P0T&k$XwNQJzNBn2yH4@W<D*I?Zce+3OUzhH%!VAl}W5D(WNHy=m$
zU`++9fFRc}Pyf(hT^FDWfDSOwbxBPI1&XPHp@|hRTnx;V6u9s@AT=dtauA~kqw(f9
zjH{%0lo^1414L|Lo;+JdMnc0xAqH%xu49;^r;nqPk1NpM#zvF($w=^6D8v~1I=T6{
M1LI)xLz%{200<~=2mk;8

delta 398
zcmeCY%Jk?8(}V~i16`NYWL+ZzBU1%K6Dva_E2D{7QsSk>sYS(hNky6I>BV*hMfq8&
z$tA^hxs&}F#WRdF6_kunwHcUMnVKpolqBcp7UZa>C}id-a4ETk`uHdyE7a4|Q&LDt
zEJ;nlG{D@-z)VS#OT*36$JIH=)iK1?W%3$E3E66wVDDNRJkF^%QZO{OFf}n$;IeY|
zaP)I`4b~0uSI}_t3s#764e@Xdat(9!3vu()RImyFvOWDngLPei<|`-}nj`t$(8|Eb
z%G6LvfeWvdsVO<Bm3GDXrA5i9#dbbEu9FiO*%%Es|6*Jv#VW%91d}(&$Y}X_`fzCg
tgH+4cF~ZX~)K@pa(b?NIL^s$o%2i9j&`=@9*w@L;$6dj6Gly(rF95JkaUcKy