(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:33:32" ("compiled on " {DSK}larry>il>medley>sources>LLETHER.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED " 3-May-2021 23:13:56" {DSK}larry>ilisp>medley>sources>LLETHER.;4 139646 changes to%: (FNS \ETHEREVENTFN \ETHER-AVAILABLE) (VARS LLETHERCOMS) previous date%: " 2-May-2021 12:37:02" {DSK}larry>ilisp>medley>sources>LLETHER.;3) CANONICAL.HOSTNAME :D8 (L (0 HOSTNAME) F 0 \HOSTNAMES) @`ggµ!}:²r`²o@ Ÿ@ É@d3²•lÿ@ó³@`´:@ d3@ð¨@ b€@Pµ`—@ µ`—@ µ@(137 \CANONICALIZE.PUP.HOSTNAME 123 \CANONICALIZE.IP.HOSTNAME 102 MKATOM 90 IPHOSTNAME 52 \CANONICAL.NSHOSTNAME 45 STRPOS 20 CL:ASSOC) (130 \PUP.READY 116 \IP.READY 82 \IP.READY 59 FDEV 32 \NS.READY 15 STRING-EQUAL 10 :TEST 5 \DEVICENAMETODEVICE) ( 39 ":") \ENQUEUE :D8 (L (1 ITEM 0 Q) P 2 \INTERRUPTABLE) Ÿ @b @dÉ¤A°hÉXÉ¥HA°\oH oHÉold@ÉR k_Kó³)L_É\²!O _¿NµOh^½OkÔ°ÛO&¾°öOµ$MY¿Ah¿@AIšoI AA¿°Ú(149 ERROR 89 LOC 46 LOC) (5 SYSQUEUE) ( 143 "Tail of queue has non-NIL link ptr" 59 "Queue item locations:" 51 "LINK:" 40 "Tail at:") \DEQUEUE :D8 (L (0 Q) P 0 \INTERRUPTABLE) '@b0@ÉY´@IÉZ¿J¤@h¿IhINIL (5 SYSQUEUE) () \QUEUELENGTH :D8 (L (0 Q)) @ÉjHµIÉ¸IkÔ¹°ôNIL (5 SYSQUEUE) () \ONQUEUE :D8 (L (1 Q 0 ITEM)) AÉH¡hHd@ð‘@ÉX°óNIL (5 SYSQUEUE) () \UNQUEUE :D8 (L (2 NOERRORFLG 1 ITEM 0 QUEUE) P 0 \INTERRUPTABLE) q@@Éh»d³µ^B³ZAgg@h dAð²9¿Kµ@AÉY¿I³@hAÉZ¿J©@K¿Ah¿A°©[É°¡h(43 ERROR) (92 SYSQUEUE 75 SYSQUEUE 59 SYSQUEUE 32 on 27 not 8 SYSQUEUE) () \ALLOCATE.ETHERPACKET :D8 NIL D` Hµ&j`kÙñ¿l¿`l"ÐlkØâ H(64 \CLEARWORDS 35 RECLAIM 9 \DEQUEUE) (49 |ETHERPACKETTYPE#| 43 \NEWPACKETCOUNTER 28 \NEWPACKETCOUNTER 21 \NEWPACKETCOUNTER 4 \FREE.PACKET.QUEUE) () \RELEASE.ETHERPACKET :D8 (L (0 EPKT)) F@@dÊjð³g¿@Êjð´'@ddddh¿h¿h¿h¿h¿`@ h(66 \ENQUEUE) (60 \FREE.PACKET.QUEUE 19 FREE 5 ETHERPACKET) () RELEASE.PUP :D8 (L (0 PUP)) @ (5 \RELEASE.ETHERPACKET) NIL () \FLUSH.PACKET.QUEUE :D8 (L (0 QUEUE)) j@ d ¿HkÔ¸°í(17 \RELEASE.ETHERPACKET 9 \DEQUEUE) NIL () \REQUEUE.ETHERPACKET :D8 (L (0 PACKET) P 1 \INTERRUPTABLE) D@ÉHd²5dið’¿°-gð˜@ ¿°HÃ—H@ ¿@hh(54 \ENQUEUE 34 \RELEASE.ETHERPACKET) (61 ETHERPACKET 46 SYSQUEUE 26 FREE 5 ETHERPACKET) () \EP.PUT.AUX :D8 (L (2 VAL 1 KEY 0 PKT)) Z@É!AHY³/Agð®lZB ¿Jb¿@AB@É°Agð“IBŒIB ¿IbB(81 \PUTFIXP 34 \PUTFIXP) (67 AUXPTR 54 ETHERPACKET 45 ETHERPACKET 22 AUXPTR 5 ETHERPACKET) () \SETLOCALNSNUMBERS :D8 (L (0 TYPE)) ™`È&`È'`È(ääjð³g`È&`È'`È(gjnå`Èhj``HdIÍ¿`HdIÍ¿`HdIÍ¿NIL (150 \MY.NSADDRESS 131 \MY.NSHOSTNUMBER 113 \MY.NSHOSTNUMBER 96 \MY.NSHOSTNUMBER 90 |NSADDRESSTYPE#| 85 \MY.NSNETNUMBER 79 \MY.NSHOSTNUMBER 67 \InterfacePage 58 NSHOSTNUMBER 50 \InterfacePage 43 \InterfacePage 36 \InterfacePage 31 NSHOSTNUMBER 18 \InterfacePage 11 \InterfacePage 4 \InterfacePage) () \LOADNSADDRESS :D8 (L (1 A 0 BASE)) AÃ‘A…`H@lÄHNIL (13 |NSADDRESSTYPE#| 5 NSADDRESS) () \STORENSADDRESS :D8 (L (1 A 0 BASE)) @AlÄANIL (6 NSADDRESS) () \PRINTNSADDRESS :D8 (L (1 FILE 0 BASE) P 0 \THISFILELINELENGTH F 1 \LINELENGTH) 4Ag bÈdjð’¿Q‡dnÿÿð‘¿h@A o(44 \NSADDRESS.DEFPRINT 10 \GETSTREAM) (17 STREAM 5 OUTPUT) ( 49 "") \NSADDRESS.DEFPRINT :D8 (L (1 STREAM 0 BASE) P 0 *PRINT-BASE* F 5 *NSADDRESS-FORMAT* F 6 \THISFILELINELENGTH) QUgð’l lo@Èlç@ÈÔ@ÈUdgð¨dgð²¿@Èl ç@ÈlçÔ@ÈÔ\¿V²@lKó’llUgð²Wn'Jó’ll @dÈjð³7¿lÔÔAÈØVñ–A ¿Ugð²cJdjð²E¿oA °=Èjð£l °Çl°ÃJ lÔlÛLµl@Èó²ªl°¨ lÔlÛ°›A ¿IA ¿LA °JJA ¿IA ¿Lµ1@ÈA ¿oA ¿@ÈA ¿oA ¿@ÈA ¿IA Kjð¦KA i(333 PRIN3 322 PRIN3 314 PRIN3 304 PRIN3 292 PRIN3 282 PRIN3 270 PRIN3 257 PRIN3 249 PRIN3 240 \NSADDRESS.PRINT.DECIMAL 232 PRIN3 224 \NSADDRESS.PRINT.DECIMAL 210 CL:INTEGER-LENGTH 184 CL:INTEGER-LENGTH 163 PRIN3 135 FRESHLINE) (142 :DECIMAL 123 STREAM 90 :DECIMAL 48 :OCTAL 40 :DECIMAL 5 :DECIMAL) ( 298 "." 276 "." 157 "0" 17 "#") \NSADDRESS.PRINT.DECIMAL :D8 (L (1 STREAM 0 NUM)) {o!@dnçó¬¿I³%HA °+nè Zb¿JI¹°Ô@A ¿II¹b¿oA ¿ld@ó²HA ¿l @ó—HA ¿@A ¿Id³È(115 PRIN3 107 PRIN3 94 PRIN3 80 PRIN3 60 PRIN3 40 \MVLIST 35 CL:TRUNCATE 25 PRIN3) NIL ( 74 "-" 4 "0") \LOADNSHOSTNUMBER :D8 (L (1 OLDBOX 0 BASE)) EAµg@È@È@Èhgð²A@ÈA@ÈA@ÈAoA (66 ERROR) (29 NSHOSTNUMBER 7 NSHOSTNUMBER) ( 60 "ARG NOT NSHOSTNUMBER") \STORENSHOSTNUMBER :D8 (L (1 NSHNM 0 BASE)) 1Agð²@AÍ¿@AÍ¿@AÍŠoA A(45 ERROR) (7 NSHOSTNUMBER) ( 39 "ARG NOT NSHOSTNUMBER") PRINTNSHOSTNUMBER :D8 (L (1 FILE 0 NSHOSTNUMBER)) Eo@AoA o@AoA o@A(66 PRINTNUM 50 PRIN1 39 PRINTNUM 24 PRIN1 13 PRINTNUM) NIL ( 55 (FIX 1 8) 44 "." 29 (FIX 1 8) 18 "." 4 (FIX 1 8)) \ETHERINIT :D8 (F 0 *DEFAULT-EXTERNALFORMAT*) ×gghigghih`dg¿dg ¿dg¿dg¿dPh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿dg ¿dg¿dg¿dg¿ (212 \DEFINEDEVICE 33 MOVD 16 MOVD) (204 \GENERIC.RENAMEFILE 195 NILL 186 NILL 177 NILL 168 NILL 159 \GENERIC.READP 150 \ILLEGAL.DEVICEOP 141 \GENERIC.BINS 132 \GENERIC.BOUTS 123 NILL 114 \GENERIC.CHARSET 105 \ILLEGAL.DEVICEOP 96 \IS.NOT.RANDACCESSP 87 \IS.NOT.RANDACCESSP 73 NILL 64 NILL 55 \ETHEREVENTFN 46 ETHER 39 |FDEVTYPE#| 26 ALLOCATE.PUP 21 \ALLOCATE.ETHERPACKET 9 RELEASE.PUP 4 \RELEASE.ETHERPACKET) () \ETHEREVENTFN :D8 (L (1 EVENT 0 DEV) F 4 \ETHERPORTS) I@Ad²2gð³)Agð³ Agð³Agð¬Adgð¢±Í¿h¿¡h¿¿A ¿`d² ¸`µTH¿H¿`ZµH`¦`YœA ¿¿A ¿I•¿`•¿`°2H°¬`JlÚÐÈ ¿JÉ°œd»AkK¿µö±ÿQgð³ Adgð³dgð¬gð´‚±ÿ,Agð•…T ¿` ¿±ÿ(323 CLRHASH 312 CLRHASH 305 \STASH.PASSWORDS 228 \LOCKWORDS 192 \INIT.GATEWAY 180 STOPNS 172 \STARTPUP 165 \NS.SETTIME 159 \NSINIT 110 \10MB.CREATENDB 96 \FLUSHNDBS 89 \SETLOCALNSNUMBERS 83 \SETETHERFLAGS 75 \ETHER-AVAILABLE) (318 LOGINPASSWORDS 298 BEFORESAVEVM 285 BEFORESAVEVM 278 BEFORESYSOUT 269 BEFORELOGOUT 259 BEFOREMAKESYS 235 NDB 215 \DTDSpaceBase 205 NDB 198 RESTARTETHERFNS 186 \GATEWAYFLG 151 \10MBFLG 145 \NSFLG 137 \LOCALNDBS 131 \10MBLOCALNDB 124 \LOCALNDBS 116 \LOCALNDBS 102 \10MBFLG 69 \PUP.READY 64 \NS.READY 59 \IP.READY 47 RESTART 38 AFTERSAVEVM 29 AFTERMAKESYS 20 AFTERSYSOUT 11 AFTERLOGOUT) () \ETHER-AVAILABLE :D8 NIL }:NIL NIL () \TIME.NOT.SET :D8 NIL ` o` (24 PRIN1 9 TERPRI) (19 PROMPTWINDOW 4 PROMPTWINDOW) ( 14 "[Time not set]") \SETETHERFLAGS :D8 NIL jhlnÖlDÕNIL (25 *MAXIMUM-PACKET-SIZE* 11 \3MBFLG 5 \10MBFLG) () \FLUSHNDBS :D8 (L (0 EVENT)) ™0`Xd É¿Hh¿@gðHÉºHkJ¿HÉ ¿HHh¿h¿HÉµ'HÉY²•I@g¿Hh¿±ÿ|@g¿°Ï(148 \FLUSH.NDB.QUEUE 123 \FLUSH.NDB.QUEUE 69 DEL.PROCESS) (143 OUTPUT 130 NDB 118 INPUT 106 NDB 96 NDB 82 NDB 76 NDB 62 NDB 48 NDB 40 RESTART 30 NDB 23 \LOCALNDBS 16 NDB 7 \LOCALNDBS) () \FLUSH.NDB.QUEUE :D8 (L (2 USE 1 EVENT 0 QUEUE)) 2@ X¡hAgð™HÉµH ¿°ÝB ¿°ð(45 \RELEASE.IOCB 36 \RELEASE.ETHERPACKET 8 \DEQUEUE) (26 ETHERPACKET 18 RESTART) () \CHECKSUM :D8 (L (2 INITSUM 1 NWORDS 0 BASE)) IBµj@AJjñ²3HdIÈÐÓXñšHkÔX†nÿÿå°ãHnÿñ˜HnÿåàkäHà¸IkÐ¹JkÙZ°ÍHdnÿÿðjNIL NIL () \HANDLE.RAW.OTHER :D8 (L (1 RAWTYPE 0 PACKET)) S`²Fo` ¿A²3o` ¿oA`¿o` ¿@ (80 \RELEASE.ETHERPACKET 73 PRIN1 57 PRINTNUM 40 PRIN1 21 PRIN1) (68 XIPTRACEFILE 52 XIPTRACEFILE 35 XIPTRACEFILE 16 XIPTRACEFILE 4 XIPTRACEFLG) ( 63 "]" 46 (FIX 0 -8) 30 "[ = #" 11 "Dropping packet of unknown encapsulation type: ") \HANDLE.RAW.PACKET :D8 (L (0 PACKET)) J`žj` jð³`@ÈHµ hµ@ º@IlJ•Jµëi°èHX°ß(50 \RELEASE.ETHERPACKET 16 RAND) (31 ETHERPACKET 25 \PACKET.FILTERS 11 \ETHERLIGHTNING 4 \ETHERLIGHTNING) () \ADD.PACKET.FILTER :D8 (L (0 FILTER)) @d`³¿`@h @(23 \NCONC2) (28 \PACKET.FILTERS 15 \PACKET.FILTERS 6 \PACKET.FILTERS) () \DEL.PACKET.FILTER :D8 (L (0 FILTER)) @`´@` i(19 DREMOVE) (24 \PACKET.FILTERS 14 \PACKET.FILTERS 5 \PACKET.FILTERS) () ENCAPSULATE.ETHERPACKET :D8 (L (4 ETYPE 3 NBYTES 2 PDH 1 PACKET 0 NDB)) @É@ABCDlHNIL (17 ETHERPACKET 5 NDB) () TRANSMIT.ETHERPACKET :D8 (L (1 PACKET 0 NDB)) @É@AlHNIL (17 ETHERPACKET 5 NDB) () \AGE.ROUTING.TABLE :D8 (L (0 TABLE)) ¶p@`ð³gg@gg ¿`j»ºKJó‘h@ÉYµ@lÐb¿KkÔ[°êh¾]µN²í@hI ¿°àXjð³LHd ²=²)Hh¿H\Ã‘L‚l `ö‹`–Mh¿i^¿M°™(156 \CLOCK0 114 TIMEREXPIRED? 89 DREMOVE 39 CL:ERROR) (168 \RT.PURGEFLG 161 \RT.TIMEOUTINTERVAL 145 FIXP 45 \ROUTING.TABLE.MASK 33 RoutingTable 28 :EXPECTED-TYPE 22 :CULPRIT 17 CONDITIONS:SIMPLE-TYPE-ERROR 9 \ROUTING.TABLE.TYPENUM) () \ADD.ROUTING.TABLE.ENTRY :D8 (L (1 ENTRY 0 TABLE)) @@d`ð³ ¿gg@gg ¿@A`åàÐbdA@ÉA(38 CL:ERROR) (47 \ROUTING.TABLE.MASK 32 RoutingTable 27 :EXPECTED-TYPE 21 :CULPRIT 16 CONDITIONS:SIMPLE-TYPE-ERROR 7 \ROUTING.TABLE.TYPENUM) () \CLEAR.ROUTING.TABLE :D8 (L (0 OLDTABLE)) 8@µ ` `ð²î`j@IHó¯Jh¿IkÔ¹JlÐº°î@(12 \CREATECELL) (27 \ROUTING.TABLE.MASK 19 \ROUTING.TABLE.TYPENUM 7 \ROUTING.TABLE.TYPENUM) () \MAP.ROUTING.TABLE :D8 (L (1 MAPFN 0 TABLE)) W@`ð³gg@gg ¿`j@IHó³!JÉh †dkA¿µøIkÔ¹JlÐº°Þh(61 \APPEND2 36 CL:ERROR) (42 \ROUTING.TABLE.MASK 30 RoutingTable 25 :EXPECTED-TYPE 19 :CULPRIT 14 CONDITIONS:SIMPLE-TYPE-ERROR 6 \ROUTING.TABLE.TYPENUM) () PRINTROUTINGTABLEA0001 :D8 (L (1 Y 0 X)) @AýóNIL NIL () PRINTROUTINGTABLE :D8 (L (2 FILE 1 SORTFLG 0 TABLE) F 7 *NSADDRESS-FORMAT*) Ñ@dgð–¿`™@dgð—¿`b`ð³gg@gg ¿Bg b`j@IHó³KJÉh »IkÔ¹JlÐº°âK`’l"l@`ð´ WgðCoB ¿IlÕojhiB ¿IlÕhB¿oB ¿B ¿A²HAgð•g€i ±ÊH±Æd^¼J²$lL ½lMñ¡MlÕB ¿LB ‹oLB¿N[µlB ¿oB °"3 œoKBlB ¿KB ¿IhB¿oNB¿Nd—¿o° •o„oB ¿B ¿µ‚±ÿ9hB (462 TERPRI 445 TERPRI 438 PRIN1 420 TIMEREXPIRED? 392 PRINTNUM 377 TAB 368 PRIN3 360 SPACES 351 PRINTNUM 334 PRIN1 322 SPACES 306 PRINTNUM 293 \NSADDRESS.PRINT.DECIMAL 285 SPACES 268 NCHARS 245 SORT 220 TERPRI 213 PRIN1 201 TAB 189 FLUSHRIGHT 169 PRIN1 113 \NCONC2 108 \APPEND2 81 \GETSTREAM 69 CL:ERROR) (238 PRINTROUTINGTABLEA0001 231 :HOPS 154 :DECIMAL 144 \NS.ROUTING.TABLE 132 \10MBLOCALNDB 88 \ROUTING.TABLE.MASK 76 OUTPUT 63 RoutingTable 58 :EXPECTED-TYPE 52 :CULPRIT 47 CONDITIONS:SIMPLE-TYPE-ERROR 39 \ROUTING.TABLE.TYPENUM 31 \PUP.ROUTING.TABLE 23 PUP 14 \NS.ROUTING.TABLE 6 NS) ( 432 " No" 426 " timed out" 408 " Yes" 383 (FIX 2) 344 (FIX 7 8) 328 "---" 299 (FIX 7 8) 207 "#Hops Recent?" 179 "Gateway" 163 " Net#") \ROUTINGTABLE.INFOHOOKA0003 :D8 (L (0 WINDOW)) @g gh(21 PROCESSPROP 10 WINDOWPROP) (15 :WINDOW 5 :NAME) () \ROUTINGTABLE.INFOHOOK :D8 (L (1 BUTTON 0 PROC)) @g @g g gl DHdgð–¿`Œgð´`\µ%lc^Iµ‚±è@glXK `²bl2°``ð³ggLgg ¿`jLjOOó³"OOÉ Ô_¿OkÔ_¿OlÐ_¿°ÛO°…l$Ö KÈ NkØJ’ll(_¿dOñ’¿OÖi Ho Y¿Ig@g ¿Igg„ ¿HAgðJŸgg KI ¿I É]J´MIhdgKo (397 OPENTEXTSTREAM 371 PRINTROUTINGTABLE 363 \INSUREWINDOW 356 DSPFONT 348 OPENSTREAM 322 CLEARW 316 WINDOWADDPROP 299 WINDOWPROP 294 PROCESSPROP 276 PROCESSPROP 270 CREATEW 265 CONCAT 254 GETBOXREGION 249 HEIGHTIFWINDOW 213 WIDTHIFWINDOW 179 LENGTH 149 CL:ERROR 102 CHARWIDTH 43 FONTCREATE 31 GETD 21 PROCESSPROP 10 PROCESSPROP) (383 FONT 343 BOTH 338 {NODIRCORE} 330 MIDDLE 311 \ROUTINGTABLE.INFOHOOKA0003 306 CLOSEFN 289 NAME 283 :NAME 219 FONTDESCRIPTOR 155 \ROUTING.TABLE.MASK 143 RoutingTable 138 :EXPECTED-TYPE 132 :CULPRIT 127 CONDITIONS:SIMPLE-TYPE-ERROR 119 \ROUTING.TABLE.TYPENUM 107 \10MBLOCALNDB 94 :WINDOW 75 \PUP.ROUTING.TABLE 67 PUP 61 \NS.ROUTING.TABLE 53 NS 36 GACHA 26 OPENTEXTSTREAM 16 :WINDOW 5 :PROTOCOL) ( 389 (READONLY T) 260 " Routing Info") \TRANSLATE.10TO3 :D8 (L (1 NDB 0 NSADDR)) ¼AÉaHµ‚±‚^nÍ¿NnAÍ"¿Nl#Ð@lÐlÄ¿Nl'Ð`lÐlÄ¿NAÊ‡Ï*¿AÉ¼ANjlnlL¿`›Ng ¿Ng¿AÉ½ANlMh¹@I»ZÈKÈð²JÈKÈð›JÈKÈð“IHX±ÿT(118 \MAYBEPRINTPACKET 23 \ALLOCATE.ETHERPACKET) (134 NDB 125 FREE 113 PUT 106 XIPTRACEFLG 85 NDB 63 \MY.NSADDRESS 29 ETHERPACKET 5 NDB) () \NOTE.10TO3 :D8 (L (2 NDB 1 PUPADDRESS 0 NSADDR)) nBÉAlÿåBHµ3`]lÐ@lÐlÄ¿BMIj hBÉhº@J¼[ÈLÈð²KÈLÈðœKÈLÈð”JIHX°¥(50 CLOCK) (60 NDB 42 NDB 23 |NSADDRESSTYPE#| 5 NDB) () \HANDLE.RAW.10TO3 :D8 (L (1 TYPE 0 PACKET) F 4 XIPIGNORETYPES) GAnð´‚±=@É1`›@g ¿@È"dnAð¢±È¿@l!ÐYÈ`Èð¢±ùIÈ`Èð¢±êIÈ`Èð¢±Û@ÈllkØâÔýó’±Ê@l%Ð@Ê*H¿@HÊ‡Ï&¿@n8Í"¿HÉºH@dÊ*lnlJ¿`² gT ³@g`¿@g¿HÉ»H@lK¿°Mn8ðŸ@l!Ð@Ê&H°1`²+o` ¿@È"` ¿` ¿@ i(323 \RELEASE.ETHERPACKET 316 TERPRI 305 PRIN1 291 PRIN1 267 \NOTE.10TO3 215 PRINT10TO3 197 MEMB 132 \NOTE.10TO3 38 \MAYBEPRINTPACKET) (311 XIPTRACEFILE 300 XIPTRACEFILE 286 XIPTRACEFILE 274 XIPTRACEFLG 236 NDB 227 FREE 222 ETHERPACKET 210 XIPTRACEFILE 205 PUT 191 TRANS 184 XIPTRACEFLG 160 NDB 140 NDB 94 \MY.NSADDRESS 79 \MY.NSADDRESS 64 \MY.NSADDRESS 33 GET 26 XIPTRACEFLG 16 ETHERPACKET) ( 281 "Bad 10:3 operation: ") PRINTPACKET :D8 (L (4 DOFILTER 3 PRE.NOTE 2 FILE 1 CALLER 0 PACKET)) o@ÈH`Yš@ABCDlIB§`b¿CžB ¿CB ¿A²AB ¿oB ¿oB ¿HB ¿B @(107 TERPRI 100 PRIN1 92 PRIN1 80 PRIN1 68 PRIN1 57 PRIN1 49 TERPRI) (38 XIPTRACEFILE 16 \PACKET.PRINTERS 5 ETHERPACKET) ( 86 "Unknown ether packet type: " 74 ": ") \MAYBEPRINTPACKET :D8 (L (3 PRE.NOTE 2 FILE 1 CALLER 0 PACKET)) 7@ÈAHnð•`„`µ±dgð¢±—¿AgðªAdgð²,¿@ÉZdžÉ¹@JlI–g°Eg°>gð¨Agð²)@É\džÉ»@LlK•gŠg„gBµHnð•`„` °vgð²]Agð©Adgð¿@ABCi °Ogð–g°Agð•g„gBµHnð•`„` °@ABCi ¿h(307 BLOCK 301 PRINTPACKET 288 PRIN1 228 PRINTPACKET 189 PRIN1) (283 XIPTRACEFILE 277 PUPTRACEFILE 263 ? 257 ^ 250 PUT 242 %# 235 GET 214 RAWPUT 205 RAWGET 196 RAW 184 XIPTRACEFILE 178 PUPTRACEFILE 164 ? 158 ! 152 ^ 136 NDB 126 ETHERPACKET 117 RAWPUT 109 PUT 102 + 95 * 79 NDB 69 ETHERPACKET 59 RAWGET 50 GET 38 PEEK 27 XIPTRACEFLG 21 PUPTRACEFLG 5 ETHERPACKET) () PRINT10TO3 :D8 (L (4 DOFILTER 3 PRE.NOTE 2 FILE 1 CALLER 0 EPKT) F 0 XIPIGNORETYPES) øDžgP ’±çBµ `b Cµe@È"dnAð²d¿AB ¿oB @l#Ð B oB @l'Ð B oB @Ê*B B B ¿°–n8ð²@AB ¿oB @l#Ð B oB @Ê&B B AB oB @È"B B h(243 TERPRI 237 PRIN1 228 PRIN1 217 PRIN1 209 TERPRI 203 PRIN1 193 PRIN1 182 PRINTNSHOSTNUMBER 176 \LOADNSHOSTNUMBER 167 PRIN1 155 PRIN1 139 PRIN1 132 TERPRI 126 PRIN1 116 PRIN1 105 PRINTNSHOSTNUMBER 99 \LOADNSHOSTNUMBER 90 PRIN1 79 PRINTNSHOSTNUMBER 73 \LOADNSHOSTNUMBER 64 PRIN1 52 PRIN1 31 FRESHLINE 12 MEMB) (24 XIPTRACEFILE 6 TRANS) ( 222 " unknown 10 to 3 translation operation " 187 " = " 161 " 10:3 trans response: " 110 " = " 84 " from " 58 " 10:3 trans request for ") PRINTPACKETDATA :D8 (L (4 FILE 3 LENGTH 2 MACRO 1 OFFSET 0 BASE)) A£jb¿ojgDg DCAñ¢±ZB§Ob¢±2IAñ’±+Bdgð³dgð¯dgð§dgð–¿BZ±ùdgð³dgð³dgð¨dgð²¿Bg Z±Ådgð²I¿@AâÐÈ½gK ¿MK ¿gK ¿AlÔbMØkØmþå¹Jgð³}gZ°tdgð²¿gK ¿hZ°\dgð–¿B_°Kdgð˜¿B¸B°i g g i g –i ¿g (59 \FLUSHNDBS 48 CLOSENSOCKET 41 \DEFINEDP 31 CLOSEPUPSOCKET 25 DEL.PROCESS 15 DEL.PROCESS 5 BREAKCONNECTION) (54 RESTART 36 CLOSENSOCKET 20 \NSGATELISTENER 10 \PUPGATELISTENER) () PRINTWORDS :D8 (L (1 NWORDS 0 BASE)) ;AkÙjIHó‘hIh ¿oh ¿@IÐÈh ¿h ¿IkÔY°Ð(50 TERPRI 43 PRIN2 31 PRIN1 19 PRIN2) NIL ( 25 ": ") \DEVICE.INPUT :D8 (L (0 TASKREG)) @xNIL (5 SMALLP) () \DEVICE.OUTPUT :D8 (L (1 TASKREG 0 VALUE)) @AyNIL (11 SMALLP 5 SMALLP) () \D0.STARTIO :D8 (L (0 BITS)) @xNIL (5 SMALLP) () (PRETTYCOMPRINT LLETHERCOMS) (RPAQQ LLETHERCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) LLNSDECLS)) (COMS (* ; "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") (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") (EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC)))) (COMS (* ; "General packet management") (DECLARE%: DONTCOPY (* ;; "Skeletal ether packet. Other users define with respect to") (EXPORT (RECORDS ETHERPACKET ETHERAUX) ( CONSTANTS \EPT.PUP \EPT.XIP \3MBTYPE.XIP \10MBTYPE.XIP \EPT.10TO3 \3MBTYPE.10TO3 \EPT.UNKNOWN)) ( GLOBALVARS \FREE.PACKET.QUEUE \NEWPACKETCOUNTER)) (INITRECORDS ETHERPACKET) (SYSRECORDS ETHERPACKET) ( FNS \ALLOCATE.ETHERPACKET \RELEASE.ETHERPACKET RELEASE.PUP \FLUSH.PACKET.QUEUE \REQUEUE.ETHERPACKET \EP.PUT.AUX) (INITVARS (\FREE.PACKET.QUEUE (NCREATE (QUOTE SYSQUEUE))) (\NEWPACKETCOUNTER 5))) (COMS ( INITRECORDS NSADDRESS) (INITVARS (\MY.NSHOSTNUMBER NIL) (\MY.NSNETNUMBER NIL) (\MY.NSADDRESS NIL) ( *NSADDRESS-FORMAT* NIL)) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *NSADDRESS-FORMAT*)))) (VARS BROADCASTNSHOSTNUMBER) (FNS \SETLOCALNSNUMBERS \LOADNSADDRESS \STORENSADDRESS \PRINTNSADDRESS \NSADDRESS.DEFPRINT \NSADDRESS.PRINT.DECIMAL \LOADNSHOSTNUMBER \STORENSHOSTNUMBER PRINTNSHOSTNUMBER) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE NSADDRESS) (QUOTE \NSADDRESS.DEFPRINT))))) (COMS (* ; "Assorted Level 0") (FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS \FLUSH.NDB.QUEUE) (FNS \CHECKSUM \HANDLE.RAW.OTHER \HANDLE.RAW.PACKET \ADD.PACKET.FILTER \DEL.PACKET.FILTER) (DECLARE%: DONTCOPY (EXPORT (CONSTANTS (\NULLCHECKSUM 65535))) (GLOBALVARS \PACKET.FILTERS \ETHERLIGHTNING RESTARTETHERFNS)) (INITVARS (\PACKET.FILTERS NIL) (\ETHERLIGHTNING) ( RESTARTETHERFNS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\ETHERINIT) (MOVD? (QUOTE NILL) (QUOTE BLOCK)) ( MOVD? (QUOTE NILL) (QUOTE \STASH.PASSWORDS))))) (COMS (* ; "Assorted routing stuff") (DECLARE%: DONTCOPY (EXPORT (RECORDS NDB ROUTING)) (CONSTANTS \RT.INFINITY) (MACROS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET BROADCASTP \CHECK.ROUTING.TABLE) (GLOBALVARS \RT.TIMEOUTINTERVAL \RT.AGEINTERVAL \RT.PURGEFLG \GATEWAYFLG \ROUTING.TABLE.MASK \ROUTING.TABLE.TYPENUM) (GLOBALVARS \3MBFLG \10MBFLG \3MBLOCALNDB \10MBLOCALNDB \LOCALNDBS \NSFLG \IPFLG \NS.ROUTING.TABLE \PUP.ROUTING.TABLE \NS.READY \PUP.READY \IP.READY)) (INITRECORDS NDB) (SYSRECORDS NDB) (FNS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET) (* ;; "Routing table management. Table is naked array of specified size (choices are 8, 16, 32, 64, based on availability of pointer hunks for those sizes). These are global vars rather than constants so you can play with them (but you'd better restart ether immediately)." ) (FNS \AGE.ROUTING.TABLE \ADD.ROUTING.TABLE.ENTRY \CLEAR.ROUTING.TABLE \MAP.ROUTING.TABLE PRINTROUTINGTABLE \ROUTINGTABLE.INFOHOOK) (INITVARS (\RT.TIMEOUTINTERVAL 90000) (\RT.AGEINTERVAL 30000 ) (\RT.PURGEFLG T) (\GATEWAYFLG NIL) (\ROUTING.TABLE.MASK 31) (\ROUTING.TABLE.TYPENUM ( \TYPENUMBERFROMNAME (PACK* "\PTRHUNK" (ADD1 \ROUTING.TABLE.MASK))))) (INITVARS (\3MBFLG T) (\10MBFLG) (\3MBLOCALNDB) (\10MBLOCALNDB) (\LOCALNDBS) (\NSFLG) (\IPFLG))) (COMS (* ; "10 to 3 translation ugliness") (FNS \TRANSLATE.10TO3 \NOTE.10TO3 \HANDLE.RAW.10TO3) (DECLARE%: DONTCOPY (RECORDS ETHERTRANS) (CONSTANTS \TRANS.OP.REQUEST \TRANS.OP.RESPONSE \TRANS.DATALENGTH) (* ;; "The \TRANS.DATALENGTH includes the space for 10TO3OPERATION and two 3-word/1-word translation pairs." ))) (COMS (* ; "Printing routines for packets") (FNS PRINTPACKET \MAYBEPRINTPACKET PRINT10TO3 PRINTPACKETDATA PRINTPACKETQUEUE TIME.SINCE.PACKET MAKE-NETWORK-TRACE-WINDOW \CHANGE.ETHER.TRACING) ( INITVARS (\RAWTRACING)) (ADDVARS (\PACKET.PRINTERS (512 . PRINTPUP) (1537 . PRINT10TO3))) (GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND)) (COMS (* ; "For PUP/XIPTRACETIME, functions to convert time from internal ticks to decimal fractions of a second." ) (FNS \CENTICLOCK) (VARS (\CENTICLOCKFACTOR) (\CENTICLOCKBOX (NCREATE (QUOTE FIXP)))) (ADDVARS ( \SYSTEMCACHEVARS \CENTICLOCKFACTOR)) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX) (RECORDS CENTICLOCK))) (COMS (* ; "3MB stuff, which is not needed in DandeLion") (FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE \3MB.BROADCASTP \3MBFLUSH) ( INITVARS (\MAXWATCHERGETS 5)) (DECLARE%: DONTCOPY (RECORDS 3MBENCAPSULATION PBI) (EXPORT (MACROS \SERIALNUMBER)) (CONSTANTS \3MBENCAPSULATION.WORDS \3MBTYPE.PUP) (GLOBALVARS \MAXWATCHERGETS *MAXIMUM-PACKET-SIZE*))) (COMS (* ; "Debugging") (FNS ASSURE.ETHER.ON INITPUPLEVEL1 TURN.ON.ETHER RESTART.ETHER TURN.OFF.ETHER PRINTWORDS) (VARS ROUTINGINFOMACRO) (DECLARE%: EVAL@COMPILE DONTCOPY ( LOCALVARS . T))) (COMS (* ; "Opcodes") (FNS \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO) (DECLARE%: DONTCOPY (CONSTANTS * D0DEVICES) (EXPORT (PROP DOPVAL \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO)))))) (RPAQ? ERRORMESSAGESTREAM T) (RPAQ? PROMPTWINDOW T) (/DECLAREDATATYPE (QUOTE SYSQUEUE) (QUOTE (BYTE POINTER BYTE POINTER)) (QUOTE ((SYSQUEUE 0 (BITS . 7)) (SYSQUEUE 2 POINTER) (SYSQUEUE 1 (BITS . 7)) (SYSQUEUE 4 POINTER))) (QUOTE 6)) (ADDTOVAR SYSTEMRECLST (DATATYPE SYSQUEUE ((NIL BYTE) (SYSQUEUEHEAD POINTER) (NIL BYTE) (SYSQUEUETAIL POINTER)))) (PUTPROPS \DETCONC MACRO (OPENLAMBDA (TQ) (PROG1 (\PEEKTCONC TQ) (if (NULL (CAR (RPLACA TQ (CDAR TQ))) ) then (RPLACD TQ))))) (PUTPROPS \ENTCONC MACRO (= . TCONC)) (PUTPROPS \PEEKTCONC MACRO (= . CAAR)) (/DECLAREDATATYPE (QUOTE ETHERPACKET) (QUOTE (BYTE POINTER BYTE POINTER BYTE POINTER FLAG FLAG (BITS 6 ) POINTER BYTE POINTER BYTE POINTER WORD WORD FIXP POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((ETHERPACKET 0 (BITS . 7)) (ETHERPACKET 2 POINTER) (ETHERPACKET 1 (BITS . 7)) (ETHERPACKET 4 POINTER) (ETHERPACKET 1 (BITS . 135) ) (ETHERPACKET 6 POINTER) (ETHERPACKET 6 (FLAGBITS . 0)) (ETHERPACKET 6 (FLAGBITS . 16)) (ETHERPACKET 0 (BITS . 133)) (ETHERPACKET 8 POINTER) (ETHERPACKET 10 (BITS . 7)) (ETHERPACKET 12 POINTER) ( ETHERPACKET 11 (BITS . 7)) (ETHERPACKET 14 POINTER) (ETHERPACKET 16 (BITS . 15)) (ETHERPACKET 17 (BITS . 15)) (ETHERPACKET 18 FIXP) (ETHERPACKET 20 POINTER) (ETHERPACKET 22 (BITS . 15)) (ETHERPACKET 23 ( BITS . 15)) (ETHERPACKET 24 (BITS . 15)) (ETHERPACKET 25 (BITS . 15)) (ETHERPACKET 26 (BITS . 15)) ( ETHERPACKET 27 (BITS . 15)) (ETHERPACKET 28 (BITS . 15)) (ETHERPACKET 29 (BITS . 15)) (ETHERPACKET 30 (BITS . 15)) (ETHERPACKET 31 (BITS . 15)) (ETHERPACKET 32 (BITS . 15)) (ETHERPACKET 33 (BITS . 15)) ( ETHERPACKET 34 (BITS . 15)) (ETHERPACKET 35 (BITS . 15)) (ETHERPACKET 36 (BITS . 15)) (ETHERPACKET 37 (BITS . 15)) (ETHERPACKET 38 (BITS . 15)) (ETHERPACKET 39 (BITS . 15)) (ETHERPACKET 40 (BITS . 15)) ( ETHERPACKET 41 (BITS . 15)) (ETHERPACKET 42 (BITS . 15)) (ETHERPACKET 43 (BITS . 15)) (ETHERPACKET 44 (BITS . 15)) (ETHERPACKET 45 (BITS . 15)) (ETHERPACKET 46 (BITS . 15)) (ETHERPACKET 47 (BITS . 15)) ( ETHERPACKET 48 (BITS . 15)) (ETHERPACKET 49 (BITS . 15)) (ETHERPACKET 50 (BITS . 15)) (ETHERPACKET 51 (BITS . 15)) (ETHERPACKET 52 (BITS . 15)) (ETHERPACKET 53 (BITS . 15)) (ETHERPACKET 54 (BITS . 15)) ( ETHERPACKET 55 (BITS . 15)) (ETHERPACKET 56 (BITS . 15)) (ETHERPACKET 57 (BITS . 15)) (ETHERPACKET 58 (BITS . 15)) (ETHERPACKET 59 (BITS . 15)) (ETHERPACKET 60 (BITS . 15)) (ETHERPACKET 61 (BITS . 15)) ( ETHERPACKET 62 (BITS . 15)) (ETHERPACKET 63 (BITS . 15)) (ETHERPACKET 64 (BITS . 15)) (ETHERPACKET 65 (BITS . 15)) (ETHERPACKET 66 (BITS . 15)) (ETHERPACKET 67 (BITS . 15)) (ETHERPACKET 68 (BITS . 15)) ( ETHERPACKET 69 (BITS . 15)) (ETHERPACKET 70 (BITS . 15)) (ETHERPACKET 71 (BITS . 15)) (ETHERPACKET 72 (BITS . 15)) (ETHERPACKET 73 (BITS . 15)) (ETHERPACKET 74 (BITS . 15)) (ETHERPACKET 75 (BITS . 15)) ( ETHERPACKET 76 (BITS . 15)) (ETHERPACKET 77 (BITS . 15)) (ETHERPACKET 78 (BITS . 15)) (ETHERPACKET 79 (BITS . 15)) (ETHERPACKET 80 (BITS . 15)) (ETHERPACKET 81 (BITS . 15)) (ETHERPACKET 82 (BITS . 15)) ( ETHERPACKET 83 (BITS . 15)) (ETHERPACKET 84 (BITS . 15)) (ETHERPACKET 85 (BITS . 15)) (ETHERPACKET 86 (BITS . 15)) (ETHERPACKET 87 (BITS . 15)) (ETHERPACKET 88 (BITS . 15)) (ETHERPACKET 89 (BITS . 15)) ( ETHERPACKET 90 (BITS . 15)) (ETHERPACKET 91 (BITS . 15)) (ETHERPACKET 92 (BITS . 15)) (ETHERPACKET 93 (BITS . 15)) (ETHERPACKET 94 (BITS . 15)) (ETHERPACKET 95 (BITS . 15)) (ETHERPACKET 96 (BITS . 15)) ( ETHERPACKET 97 (BITS . 15)) (ETHERPACKET 98 (BITS . 15)) (ETHERPACKET 99 (BITS . 15)) (ETHERPACKET 100 (BITS . 15)) (ETHERPACKET 101 (BITS . 15)) (ETHERPACKET 102 (BITS . 15)) (ETHERPACKET 103 (BITS . 15) ) (ETHERPACKET 104 (BITS . 15)) (ETHERPACKET 105 (BITS . 15)) (ETHERPACKET 106 (BITS . 15)) ( ETHERPACKET 107 (BITS . 15)) (ETHERPACKET 108 (BITS . 15)) (ETHERPACKET 109 (BITS . 15)) (ETHERPACKET 110 (BITS . 15)) (ETHERPACKET 111 (BITS . 15)) (ETHERPACKET 112 (BITS . 15)) (ETHERPACKET 113 (BITS . 15)) (ETHERPACKET 114 (BITS . 15)) (ETHERPACKET 115 (BITS . 15)) (ETHERPACKET 116 (BITS . 15)) ( ETHERPACKET 117 (BITS . 15)) (ETHERPACKET 118 (BITS . 15)) (ETHERPACKET 119 (BITS . 15)) (ETHERPACKET 120 (BITS . 15)) (ETHERPACKET 121 (BITS . 15)) (ETHERPACKET 122 (BITS . 15)) (ETHERPACKET 123 (BITS . 15)) (ETHERPACKET 124 (BITS . 15)) (ETHERPACKET 125 (BITS . 15)) (ETHERPACKET 126 (BITS . 15)) ( ETHERPACKET 127 (BITS . 15)) (ETHERPACKET 128 (BITS . 15)) (ETHERPACKET 129 (BITS . 15)) (ETHERPACKET 130 (BITS . 15)) (ETHERPACKET 131 (BITS . 15)) (ETHERPACKET 132 (BITS . 15)) (ETHERPACKET 133 (BITS . 15)) (ETHERPACKET 134 (BITS . 15)) (ETHERPACKET 135 (BITS . 15)) (ETHERPACKET 136 (BITS . 15)) ( ETHERPACKET 137 (BITS . 15)) (ETHERPACKET 138 (BITS . 15)) (ETHERPACKET 139 (BITS . 15)) (ETHERPACKET 140 (BITS . 15)) (ETHERPACKET 141 (BITS . 15)) (ETHERPACKET 142 (BITS . 15)) (ETHERPACKET 143 (BITS . 15)) (ETHERPACKET 144 (BITS . 15)) (ETHERPACKET 145 (BITS . 15)) (ETHERPACKET 146 (BITS . 15)) ( ETHERPACKET 147 (BITS . 15)) (ETHERPACKET 148 (BITS . 15)) (ETHERPACKET 149 (BITS . 15)) (ETHERPACKET 150 (BITS . 15)) (ETHERPACKET 151 (BITS . 15)) (ETHERPACKET 152 (BITS . 15)) (ETHERPACKET 153 (BITS . 15)) (ETHERPACKET 154 (BITS . 15)) (ETHERPACKET 155 (BITS . 15)) (ETHERPACKET 156 (BITS . 15)) ( ETHERPACKET 157 (BITS . 15)) (ETHERPACKET 158 (BITS . 15)) (ETHERPACKET 159 (BITS . 15)) (ETHERPACKET 160 (BITS . 15)) (ETHERPACKET 161 (BITS . 15)) (ETHERPACKET 162 (BITS . 15)) (ETHERPACKET 163 (BITS . 15)) (ETHERPACKET 164 (BITS . 15)) (ETHERPACKET 165 (BITS . 15)) (ETHERPACKET 166 (BITS . 15)) ( ETHERPACKET 167 (BITS . 15)) (ETHERPACKET 168 (BITS . 15)) (ETHERPACKET 169 (BITS . 15)) (ETHERPACKET 170 (BITS . 15)) (ETHERPACKET 171 (BITS . 15)) (ETHERPACKET 172 (BITS . 15)) (ETHERPACKET 173 (BITS . 15)) (ETHERPACKET 174 (BITS . 15)) (ETHERPACKET 175 (BITS . 15)) (ETHERPACKET 176 (BITS . 15)) ( ETHERPACKET 177 (BITS . 15)) (ETHERPACKET 178 (BITS . 15)) (ETHERPACKET 179 (BITS . 15)) (ETHERPACKET 180 (BITS . 15)) (ETHERPACKET 181 (BITS . 15)) (ETHERPACKET 182 (BITS . 15)) (ETHERPACKET 183 (BITS . 15)) (ETHERPACKET 184 (BITS . 15)) (ETHERPACKET 185 (BITS . 15)) (ETHERPACKET 186 (BITS . 15)) ( ETHERPACKET 187 (BITS . 15)) (ETHERPACKET 188 (BITS . 15)) (ETHERPACKET 189 (BITS . 15)) (ETHERPACKET 190 (BITS . 15)) (ETHERPACKET 191 (BITS . 15)) (ETHERPACKET 192 (BITS . 15)) (ETHERPACKET 193 (BITS . 15)) (ETHERPACKET 194 (BITS . 15)) (ETHERPACKET 195 (BITS . 15)) (ETHERPACKET 196 (BITS . 15)) ( ETHERPACKET 197 (BITS . 15)) (ETHERPACKET 198 (BITS . 15)) (ETHERPACKET 199 (BITS . 15)) (ETHERPACKET 200 (BITS . 15)) (ETHERPACKET 201 (BITS . 15)) (ETHERPACKET 202 (BITS . 15)) (ETHERPACKET 203 (BITS . 15)) (ETHERPACKET 204 (BITS . 15)) (ETHERPACKET 205 (BITS . 15)) (ETHERPACKET 206 (BITS . 15)) ( ETHERPACKET 207 (BITS . 15)) (ETHERPACKET 208 (BITS . 15)) (ETHERPACKET 209 (BITS . 15)) (ETHERPACKET 210 (BITS . 15)) (ETHERPACKET 211 (BITS . 15)) (ETHERPACKET 212 (BITS . 15)) (ETHERPACKET 213 (BITS . 15)) (ETHERPACKET 214 (BITS . 15)) (ETHERPACKET 215 (BITS . 15)) (ETHERPACKET 216 (BITS . 15)) ( ETHERPACKET 217 (BITS . 15)) (ETHERPACKET 218 (BITS . 15)) (ETHERPACKET 219 (BITS . 15)) (ETHERPACKET 220 (BITS . 15)) (ETHERPACKET 221 (BITS . 15)) (ETHERPACKET 222 (BITS . 15)) (ETHERPACKET 223 (BITS . 15)) (ETHERPACKET 224 (BITS . 15)) (ETHERPACKET 225 (BITS . 15)) (ETHERPACKET 226 (BITS . 15)) ( ETHERPACKET 227 (BITS . 15)) (ETHERPACKET 228 (BITS . 15)) (ETHERPACKET 229 (BITS . 15)) (ETHERPACKET 230 (BITS . 15)) (ETHERPACKET 231 (BITS . 15)) (ETHERPACKET 232 (BITS . 15)) (ETHERPACKET 233 (BITS . 15)) (ETHERPACKET 234 (BITS . 15)) (ETHERPACKET 235 (BITS . 15)) (ETHERPACKET 236 (BITS . 15)) ( ETHERPACKET 237 (BITS . 15)) (ETHERPACKET 238 (BITS . 15)) (ETHERPACKET 239 (BITS . 15)) (ETHERPACKET 240 (BITS . 15)) (ETHERPACKET 241 (BITS . 15)) (ETHERPACKET 242 (BITS . 15)) (ETHERPACKET 243 (BITS . 15)) (ETHERPACKET 244 (BITS . 15)) (ETHERPACKET 245 (BITS . 15)) (ETHERPACKET 246 (BITS . 15)) ( ETHERPACKET 247 (BITS . 15)) (ETHERPACKET 248 (BITS . 15)) (ETHERPACKET 249 (BITS . 15)) (ETHERPACKET 250 (BITS . 15)) (ETHERPACKET 251 (BITS . 15)) (ETHERPACKET 252 (BITS . 15)) (ETHERPACKET 253 (BITS . 15)) (ETHERPACKET 254 (BITS . 15)) (ETHERPACKET 255 (BITS . 15)) (ETHERPACKET 256 (BITS . 15)) ( ETHERPACKET 257 (BITS . 15)) (ETHERPACKET 258 (BITS . 15)) (ETHERPACKET 259 (BITS . 15)) (ETHERPACKET 260 (BITS . 15)) (ETHERPACKET 261 (BITS . 15)) (ETHERPACKET 262 (BITS . 15)) (ETHERPACKET 263 (BITS . 15)) (ETHERPACKET 264 (BITS . 15)) (ETHERPACKET 265 (BITS . 15)) (ETHERPACKET 266 (BITS . 15)) ( ETHERPACKET 267 (BITS . 15)) (ETHERPACKET 268 (BITS . 15)) (ETHERPACKET 269 (BITS . 15)) (ETHERPACKET 270 (BITS . 15)) (ETHERPACKET 271 (BITS . 15)) (ETHERPACKET 272 (BITS . 15)) (ETHERPACKET 273 (BITS . 15)) (ETHERPACKET 274 (BITS . 15)) (ETHERPACKET 275 (BITS . 15)) (ETHERPACKET 276 (BITS . 15)) ( ETHERPACKET 277 (BITS . 15)) (ETHERPACKET 278 (BITS . 15)) (ETHERPACKET 279 (BITS . 15)) (ETHERPACKET 280 (BITS . 15)) (ETHERPACKET 281 (BITS . 15)) (ETHERPACKET 282 (BITS . 15)) (ETHERPACKET 283 (BITS . 15)) (ETHERPACKET 284 (BITS . 15)) (ETHERPACKET 285 (BITS . 15)) (ETHERPACKET 286 (BITS . 15)) ( ETHERPACKET 287 (BITS . 15)) (ETHERPACKET 288 (BITS . 15)) (ETHERPACKET 289 (BITS . 15)) (ETHERPACKET 290 (BITS . 15)) (ETHERPACKET 291 (BITS . 15)) (ETHERPACKET 292 (BITS . 15)) (ETHERPACKET 293 (BITS . 15)) (ETHERPACKET 294 (BITS . 15)) (ETHERPACKET 295 (BITS . 15)) (ETHERPACKET 296 (BITS . 15)) ( ETHERPACKET 297 (BITS . 15)) (ETHERPACKET 298 (BITS . 15)) (ETHERPACKET 299 (BITS . 15)) (ETHERPACKET 300 (BITS . 15)) (ETHERPACKET 301 (BITS . 15)) (ETHERPACKET 302 (BITS . 15)) (ETHERPACKET 303 (BITS . 15)) (ETHERPACKET 304 (BITS . 15)) (ETHERPACKET 305 (BITS . 15)) (ETHERPACKET 306 (BITS . 15)) ( ETHERPACKET 307 (BITS . 15)) (ETHERPACKET 308 (BITS . 15)) (ETHERPACKET 309 (BITS . 15)) (ETHERPACKET 310 (BITS . 15)) (ETHERPACKET 311 (BITS . 15)) (ETHERPACKET 312 (BITS . 15)) (ETHERPACKET 313 (BITS . 15)) (ETHERPACKET 314 (BITS . 15)) (ETHERPACKET 315 (BITS . 15)) (ETHERPACKET 316 (BITS . 15)) ( ETHERPACKET 317 (BITS . 15)) (ETHERPACKET 318 (BITS . 15)) (ETHERPACKET 319 (BITS . 15)) (ETHERPACKET 320 (BITS . 15)) (ETHERPACKET 321 (BITS . 15)) (ETHERPACKET 322 (BITS . 15)))) (QUOTE 324)) (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)))) (RPAQ? \FREE.PACKET.QUEUE (NCREATE (QUOTE SYSQUEUE))) (RPAQ? \NEWPACKETCOUNTER 5) (/DECLAREDATATYPE (QUOTE NSADDRESS) (QUOTE (FIXP WORD WORD WORD WORD)) (QUOTE ((NSADDRESS 0 FIXP) ( NSADDRESS 2 (BITS . 15)) (NSADDRESS 3 (BITS . 15)) (NSADDRESS 4 (BITS . 15)) (NSADDRESS 5 (BITS . 15)) )) (QUOTE 6)) (RPAQ? \MY.NSHOSTNUMBER NIL) (RPAQ? \MY.NSNETNUMBER NIL) (RPAQ? \MY.NSADDRESS NIL) (RPAQ? *NSADDRESS-FORMAT* NIL) (CL:PROCLAIM (QUOTE (CL:SPECIAL *NSADDRESS-FORMAT*))) (RPAQQ BROADCASTNSHOSTNUMBER (NSHOSTNUMBER 65535 65535 65535)) (DEFPRINT (QUOTE NSADDRESS) (QUOTE \NSADDRESS.DEFPRINT)) (RPAQ? \PACKET.FILTERS NIL) (RPAQ? \ETHERLIGHTNING) (RPAQ? RESTARTETHERFNS) (\ETHERINIT) (MOVD? (QUOTE NILL) (QUOTE BLOCK)) (MOVD? (QUOTE NILL) (QUOTE \STASH.PASSWORDS)) (/DECLAREDATATYPE (QUOTE NDB) (QUOTE (BYTE POINTER BYTE POINTER BYTE POINTER BYTE POINTER BYTE POINTER POINTER BYTE POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER)) ( QUOTE ((NDB 0 (BITS . 7)) (NDB 2 POINTER) (NDB 1 (BITS . 7)) (NDB 4 POINTER) (NDB 1 (BITS . 135)) (NDB 6 POINTER) (NDB 0 (BITS . 135)) (NDB 8 POINTER) (NDB 10 (BITS . 7)) (NDB 12 POINTER) (NDB 14 POINTER) (NDB 11 (BITS . 7)) (NDB 16 POINTER) (NDB 18 POINTER) (NDB 20 POINTER) (NDB 22 POINTER) (NDB 24 POINTER) (NDB 26 POINTER) (NDB 28 POINTER) (NDB 30 POINTER) (NDB 32 (BITS . 15)) (NDB 33 (BITS . 15)) (NDB 34 POINTER))) (QUOTE 36)) (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)))) (RPAQ? \RT.TIMEOUTINTERVAL 90000) (RPAQ? \RT.AGEINTERVAL 30000) (RPAQ? \RT.PURGEFLG T) (RPAQ? \GATEWAYFLG NIL) (RPAQ? \ROUTING.TABLE.MASK 31) (RPAQ? \ROUTING.TABLE.TYPENUM (\TYPENUMBERFROMNAME (PACK* "\PTRHUNK" (ADD1 \ROUTING.TABLE.MASK)))) (RPAQ? \3MBFLG T) (RPAQ? \10MBFLG) (RPAQ? \3MBLOCALNDB) (RPAQ? \10MBLOCALNDB) (RPAQ? \LOCALNDBS) (RPAQ? \NSFLG) (RPAQ? \IPFLG) (RPAQ? \RAWTRACING) (ADDTOVAR \PACKET.PRINTERS (512 . PRINTPUP) (1537 . PRINT10TO3)) (RPAQQ \CENTICLOCKFACTOR NIL) (RPAQ \CENTICLOCKBOX (NCREATE (QUOTE FIXP))) (ADDTOVAR \SYSTEMCACHEVARS \CENTICLOCKFACTOR) (RPAQ? \MAXWATCHERGETS 5) (RPAQQ ROUTINGINFOMACRO (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR ") " -2 FINALLY ")")) (PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993 2021)) NIL