(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 16:33:55" ("compiled on " {DSK}sources>LLNS.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "19-Jan-93 10:52:26" {DSK}lde>lispcore>sources>LLNS.;2 96283 changes to%: ( RECORDS NSROUTINGINFO PACKETEXCHANGEXIP TIMEXIP) previous date%: " 5-Jan-93 00:53:11" {DSK}lde>lispcore>sources>LLNS.;1) PARSE-NSADDRESS :D8 (L (1 DEFAULTSOCKET 0 STR)) 5@ @ bo@ l lqHl0mԹhZ[\]^_@Q Odj k_Odj _OOl _Odj lD_Ok_OOOOOO_l0OOdIL jOl0ԼHְOl#5J[KMLhMOLCnOLԃLjh_]Odl.HlLhMhkl-Hl OnOLԀL_hCKMO`^dLAjhKd4NKK[gNKK[WNKKHhDKj?NKnKm[j(NKnKm[jNKhJdNJJZ0NJJ&h"JjNJnJmZjNJhN(127 %%ARRAY-TYPE-NUMBER 109 \GETBASEFIXP 92 %%ARRAY-BASE 70 %%ARRAY-OFFSET 26 STRPOS 12 MKSTRING 5 STRINGP) (488 NSADDRESS 466 NSADDRESS 443 NSADDRESS 419 NSADDRESS 403 NSADDRESS 387 NSADDRESS 360 NSADDRESS 352 |NSADDRESSTYPE#|) ( 20 "-") COERCE-TO-NSADDRESS :D8 (L (1 DEFAULTSOCKET 0 HOST)) u@!HYIg @ A N@ A Hd*@g,`AjdJdl@  @A (114 \COERCE.NS.SOCKET 98 \STORENSHOSTNUMBER 50 \COERCE.NS.SOCKET 44 LOOKUP.NS.SERVER 36 \PARSE.NSADDRESSCONSTANT 30 MKSTRING 22 TYPENAMEP) (105 NSADDRESS 77 |NSADDRESSTYPE#| 69 NSHOSTNUMBER 58 LISTP 17 STRINGP 10 LITATOM) () \COERCE.NS.SOCKET :D8 (L (1 DEFAULTSOCKET 0 ADDR)) ,@)A%@dj`dAH@lH@NIL (24 |NSADDRESSTYPE#| 12 NSADDRESS) () OPENNSOCKET :D8 (L (1 IFCLASH 0 SKT#) P 9 \INTERRUPTABLE)  @3 @B@`[h@`@Y MLLKH`nb `h_^ahZu`d@d``_dOY`II JbAiAdg8JY J_@OONH@nknbkgAgho@ I(283 ERROR 209 \FLUSHNSOCQUEUE 180 CREATE.EVENT 85 RAND 54 \FLUSHNSOCQUEUE) (268 FAIL 260 DON'T 223 NSOCKET 198 ACCEPT 174 NSOCKET 167 \NSOCKETS 161 \NSOCKETS 145 |SYSQUEUETYPE#| 137 \MAX.EPKTS.ON.NSOCKET 125 |NSOCKETTYPE#| 108 \NSOCKETS 90 \MISCSTATS 66 NSOCKET 46 \NSOCKETS 40 \NSOCKETS 27 \NSOCKETS 19 NSOCKET 11 NSOCKET) ( 277 "Socket number is already in use") CLOSENSOCKET :D8 (L (1 NOERRORFLG 0 NSOC) P 0 \INTERRUPTABLE) |@di4`h``b @hb@ @h@`@` iA@o (121 ERROR 100 DREMOVE 71 \FLUSHNSOCQUEUE 42 \FLUSHNSOCQUEUE) (105 \NSOCKETS 95 \NSOCKETS 86 \NSOCKETS 77 NSOCKET 60 NSOCKET 49 NSOCKET 34 \NSOCKETS 28 \NSOCKETS 22 \NSOCKETS 11 \NSOCKETS) ( 116 "not an open NS socket") NSOCKETEVENT :D8 (L (0 NSOC)) @NIL (5 NSOCKET) () NSOCKETNUMBER :D8 (L (0 NSOC)) @NIL (5 NSOCKET) () NSOCKETFROMNUMBER :D8 (L (0 SOC#)) #`Hh@IIHXNIL (22 NSOCKET 4 \NSOCKETS) () \FLUSHNSOCQUEUE :D8 (L (0 NSOC)) @ @j@(12 \FLUSH.PACKET.QUEUE) (18 NSOCKET 5 NSOCKET) () \NSINIT :D8 (L (1 MINI 0 EVENT)) `d g g `A`g g ` hhl``l j`H-H $H;oggg` ii`  (230 RESTART.PROCESS 224 NOTIFY.EVENT 199 ADD.PROCESS 163 DEL.PROCESS 140 \CLOCK0 92 \CLEAR.ROUTING.TABLE 81 \DEL.PACKET.FILTER 70 \ADD.PACKET.FILTER 37 FIND.PROCESS 27 \ADD.PACKET.FILTER 12 \FLUSHNSOCQUEUE) (219 \NS.READY.EVENT 214 \NS.READY 206 \NSFLG 193 \NS.READY.EVENT 188 AFTEREXIT 183 SYSTEM 178 RESTARTABLE 153 \GATEWAYFLG 147 \NSROUTER.PROBETIMER 131 \NSROUTER.PROBETIMER 125 FIXP 120 \NSROUTER.PROBETIMER 114 \NSROUTER.PROBECOUNT 106 \NSADDRESS.CACHE 97 \NS.ROUTING.TABLE 87 \NS.ROUTING.TABLE 76 \HANDLE.RAW.10TO3 65 \HANDLE.RAW.10TO3 59 \3MBLOCALNDB 45 \LOCALNDBS 32 \NSGATELISTENER 22 \HANDLE.RAW.XIP 4 \NSOCKETS) ( 173 (\NSGATELISTENER)) STOPNS :D8 NIL ,g g g i h(35 CLOSENSOCKET 29 DEL.PROCESS 19 \DEL.PACKET.FILTER 9 \DEL.PACKET.FILTER) (41 \NSFLG 24 \NSGATELISTENER 14 \HANDLE.RAW.10TO3 4 \HANDLE.RAW.XIP) () \HANDLE.RAW.XIP :D8 (L (1 TYPE 0 XIP) P 12 \INTERRUPTABLE) p Anf` `@ M@l%YdH"dHdH@\IIn@ IjI]N:Mj5Nj%NININNjIj ]@ @*_`h__`hZ`g` @d$lwd*lol1_kc@"[n5K@l#@#kk @kC_OOOOOl@ @gh@ @l J@l `+@"[n!K@l#@#kk @k Mj@l"lN fNjbLM`jM Mi `Mhddddd _jOhOLOi J@ JJkJ i(620 NOTIFY.EVENT 587 \ENQUEUE 539 \ADD.ROUTING.TABLE.ENTRY 514 \LOCATE.NSNET 506 \PUTBASEFIXP 467 \PUTBASEFIXP 447 \XIPERROR 438 \CHECKSUM 399 \XIPERROR 369 \XIPERROR 360 SENDXIP 338 SWAPXIPADDRESSES 292 \CHECKSUM 234 PRIN1 181 \FORWARD.XIP 173 \GETBASEFIXP 102 \FORWARD.XIP 30 RELEASE.XIP) (613 NSOCKET 600 NSOCKET 594 NSOCKET 579 NSOCKET 521 \NS.ROUTING.TABLE 501 \MY.NSNETNUMBER 494 NSADDRESS 489 \MY.NSADDRESS 480 NDB 408 \NS.CHECKSUMFLG 386 NSOCKET 378 NSOCKET 350 FREE 345 ETHERPACKET 312 NSOCKET 229 XIPTRACEFILE 224 & 218 XIPTRACEFLG 196 \NSOCKETS 111 NDB 72 ETHERPACKET 23 \NS.READY 15 \MY.NSADDRESS) () \XIPERROR :D8 (L (1 ERRCODE 0 XIP)) |@l'HHHn]@d$lT @l3@l"@#ll عdIIX@A1@j2@Hll#@l$@ @gh@ h@ (121 \RELEASE.ETHERPACKET 113 SENDXIP 93 SWAPXIPADDRESSES) (104 FREE 99 ETHERPACKET) () \FORWARD.XIP :D8 (L (0 XIP)) ;`@ `@ `@gho @ (56 \RELEASE.ETHERPACKET 49 PRINTXIP 24 \MAYBEPEEKNS 11 \GATEWAY.FORWARD.XIP) (38 GET 30 XIPTRACEFLG 17 \PEEKNSNUMBER 4 \GATEWAYFLG) ( 44 "XIP not addressed to this host: ") GETXIP :D8 (L (1 WAIT 0 NSOC) P 3 \INTERRUPTABLE) @!H Y@@mI=AAiJ'A3 Al l A@Ji hn`fIg Y`Q` o` I` o` @` ` hYI(222 TERPRI 211 PRIN1 199 PRIN1 183 PRIN1 171 PRIN1 155 TERPRI 136 \MAYBEPRINTPACKET 101 TIMEREXPIRED? 93 AWAIT.EVENT 80 \CLOCK0 71 \LISPERROR 19 \DEQUEUE) (217 XIPTRACEFILE 206 XIPTRACEFILE 194 XIPTRACEFILE 178 XIPTRACEFILE 166 XIPTRACEFILE 150 XIPTRACEFILE 143 XIPTRACEFLG 131 GET 123 XIPTRACEFLG 110 ETHERPACKET 34 NSOCKET 28 NSOCKET 5 NSOCKET) ( 189 " arrived on " 161 "Non-XIP packet ") DISCARDXIPS :D8 (L (0 NSOC) P 0 \INTERRUPTABLE) @ @jj(15 \FLUSH.PACKET.QUEUE) (21 NSOCKET 8 NSOCKET) () SENDXIP :D8 (L (1 XIP 0 SOCKET)) AnAbdj$`4 AlwAdj+`o` g` X&`Ao` A gA `Ag HHAlIh(160 \MAYBEPRINTPACKET 143 \SETXIPCHECKSUM 131 \REQUEUE.ETHERPACKET 124 PRINTXIPROUTE 98 \ROUTE.XIP 90 AWAIT.EVENT 74 PRIN1) (167 NDB 155 PUT 148 XIPTRACEFLG 136 NoRouting 119 XIPTRACEFILE 106 XIPTRACEFLG 85 \NS.READY.EVENT 79 AlreadyQueued 69 XIPTRACEFILE 58 XIPTRACEFLG 45 ETHERPACKET 28 \NS.READY 16 ETHERPACKET 5 ETHERPACKET) ( 114 "[Put fails--no routing]" 64 "[Put failed--packet already being transmitted]") SWAPXIPADDRESSES :D8 (L (0 XIP)) D@bd@*@l%@l+l@I0@l"l H @l-` h(64 \STORENSHOSTNUMBER 50 \PUTBASEFIXP) (59 \MY.NSHOSTNUMBER 15 NDB 5 ETHERPACKET) () \SETXIPCHECKSUM :D8 (L (0 XIP)) "@`dl#@#kk n"i(24 \CHECKSUM) (5 \NS.CHECKSUMFLG) () \CLEARXIPHEADER :D8 (L (0 XIP)) @l"lk (18 \CLEARWORDS) (5 ETHERPACKET) () \FILLINXIP :D8 (L (6 EPKT 5 LENGTH 4 DESTNET 3 DESTSOCKET# 2 DESTHOST 1 SOURCENSOCKET 0 TYPE)) F$b nF Elb b nFj$F@j$Fl+` AFA0FEl#BdBFl%B DBj jFl"lD CYBjMFC*GgFl'B C!FC*Fl%BC B DFl"lD F(245 \PUTBASEFIXP 230 \STORENSADDRESS 225 \ILLEGAL.ARG 217 PARSE-NSADDRESS 196 \STORENSHOSTNUMBER 154 \PUTBASEFIXP 139 \GETBASEFIXP 123 \STORENSADDRESS 81 \STORENSADDRESS 26 \CLEARXIPHEADER 7 \ALLOCATE.ETHERPACKET) (183 NSHOSTNUMBER 164 NSADDRESS 133 NSADDRESS 110 NSADDRESS 90 NSOCKET 76 \MY.NSADDRESS 48 ETHERPACKET 41 ETHERPACKET 14 ETHERPACKET) () XIPAPPEND.BYTE :D8 (L (2 OFFSET 1 BYTE 0 XIP)) 3@bBd#ln"HB@l"dk@l1HAhNIL (5 ETHERPACKET) () XIPAPPEND.WORD :D8 (L (2 OFFSET 1 WORD 0 XIP)) G@b B7@#kmXlYdln"@o B@Hl#@IA1h(46 ERROR) (5 ETHERPACKET) ( 41 "Not enough room for another word") XIPAPPEND.CELL :D8 (L (2 OFFSET 1 CELL 0 XIP)) Z@b BJ@#kmXlYdln"@o B@Hl#@l1IYdA IA h(81 \LONUM 72 \HINUM 46 ERROR) (5 ETHERPACKET) ( 41 "Not enough room for another word") XIPAPPEND.STRING :D8 (L (3 IFSP 2 OFFST 1 STRING 0 EPKT)) yAd Add3@A b B@#lYC@dkmYHln"7@IH1IlԹHlԸB@l"dH@l1IA IHn"h(107 \PUTBASESTRING 30 NCHARS 23 MKSTRING 6 STRINGP) NIL () XIPAPPEND.IFSSTRING :D8 (L (2 OFFST 1 STRING 0 XIP)) @ABi (8 XIPAPPEND.STRING) NIL () \NSGATELISTENER :D8 NIL #ki l j2`gg `gg HH [J`j` Ii JI %` IIl ``j` kH`kjlll [k1Kl1k\jm LlHK ``l ``k((266 \CLOCK0 240 SENDXIP 226 \PUTBASEFIXP 206 \FILLINXIP 181 TIMEREXPIRED? 155 \CLOCK0 137 \AGE.ROUTING.TABLE 125 TIMEREXPIRED? 115 AWAIT.EVENT 106 BLOCK 100 \HANDLE.NS.ROUTING.INFO 76 GETXIP 60 PROCESSPROP 39 PROCESSPROP 14 \CLOCK0 6 OPENNSOCKET) (285 \NSROUTER.PROBECOUNT 278 \NSROUTER.PROBECOUNT 271 \NSROUTER.PROBEINTERVAL 257 \NSROUTER.PROBETIMER 251 FIXP 246 \NSROUTER.PROBETIMER 190 BROADCASTNSHOSTNUMBER 176 \NSROUTER.PROBETIMER 167 \NSROUTER.PROBECOUNT 160 \RT.AGEINTERVAL 144 FIXP 132 \NS.ROUTING.TABLE 94 \NSROUTER.PROBETIMER 85 \NSROUTER.PROBECOUNT 67 NSOCKET 55 NS 50 :PROTOCOL 45 \RUNNING.PROCESS 34 \ROUTINGTABLE.INFOHOOK 29 INFOHOOK 24 \RUNNING.PROCESS) () \HANDLE.NS.ROUTING.INFO :D8 (L (0 XIP)) @d1l3l+@@#lk@l1k```I @ l H _HI _jlJK_K_LOM_MKjO_Oi7O_-i+O__OOOKO_h4ON)LKj hddl jhd_ ihO_jIOOO$OdOO^OOOIOOlO@OiOOOlİ$O_Ol `_JlպKlл(391 \CLOCK0 251 \ADD.ROUTING.TABLE.ENTRY 234 \CLOCK0 223 \GETBASEFIXP 92 \TRANSLATE.10TO3 81 \CANONICALIZE.NSADDRESS 62 \RELEASE.ETHERPACKET) (396 \RT.TIMEOUTINTERVAL 379 FIXP 179 FIXP 102 \NSROUTER.PROBECOUNT 68 NDB 49 \NS.ROUTING.TABLE.RADIUS 44 \ROUTING.TABLE.MASK 39 \NS.ROUTING.TABLE 17 ETHERPACKET) () \CANONICALIZE.NSADDRESS :D8 (L (0 NSADDR)) p`!HY$`Zl@llĿ`J`JZ@4J@+J@"H``IHII`JIXNIL (100 \NSADDRESS.CACHE 88 \NSADDRESS.CACHE 80 \NSADDRESS.CACHE 41 \NSADDRESS.CACHE 35 \NSADDRESS.CACHE 17 |NSADDRESSTYPE#| 4 \NSADDRESS.CACHE) () \ROUTE.XIP :D8 (L (1 READONLY 0 XIP)) @l"l QHdj``[h ZdJKl @l%а$jJ@l'\LLnUjY@KK K@I@#nlMA.Hj@l"lK @l"l K K@l%K d(202 \TRANSLATE.10TO3 190 \PUTBASEFIXP 170 \PUTBASEFIXP 42 \LOCATE.NSNET 10 \GETBASEFIXP) (183 NDB 163 NDB 126 NDB 117 ETHERPACKET 62 NDB 32 \3MBLOCALNDB 25 \10MBLOCALNDB) () \LOCATE.NSNET :D8 (L (1 DONTPROBE 0 NET)) `@`!HYNA`@`@lhdl nu0hdHl`'`#Z@@jJjlJ)JIl jg h(161 BLOCK 155 WAKE.PROCESS 137 \CLOCK0 55 \CLOCK0) (150 \NSGATELISTENER 144 \NSROUTER.PROBETIMER 97 \NSROUTER.PROBETIMER 90 FIXP 85 \NSROUTER.PROBETIMER 79 \NSROUTER.PROBECOUNT 39 \ROUTING.TABLE.MASK 33 \NS.ROUTING.TABLE 10 \ROUTING.TABLE.MASK 4 \NS.ROUTING.TABLE) () NSNET.DISTANCE :D8 (L (0 NET#)) I@d@j b H%kYl` @ XIk԰Hd(57 \LOCATE.NSNET 50 BLOCK 27 \LOCATE.NSNET 20 \GETBASEFIXP) (45 \ETHERTIMEOUT 14 NSADDRESS 6 NSADDRESS) () BESTNSADDRESS :D8 (L (2 HOSTNAME 1 ERRORSTREAM 0 ADDRESSES))  @"Bhi b AVo$b@blkRKJ;AoXB@@j bAdgoHB lh_@/dYj _lO]iNMMI_OLN`KkO` Kk[e HA oA BA h(235 PRIN1 227 PRIN1 215 PRIN1 207 TERPRI 194 BLOCK 134 \LOCATE.NSNET 129 \GETBASEFIXP 101 ERROR 80 \GETBASEFIXP 13 LOOKUP.NS.SERVER) (189 \ETHERTIMEOUT 175 \NS.ROUTING.TABLE.RADIUS 123 NSADDRESS 90 ERROR 74 NSADDRESS) ( 221 ": " 60 "No route to host" 25 "Host not found") SORT.NSADDRESSES.BY.DISTANCE :D8 (L (0 HOSTLIST)) c@ddj @Hi` @g j i hHX(88 \LOCATE.NSNET 82 \GETBASEFIXP 68 SORT 56 BLOCK 35 BLOCK 25 \LOCATE.NSNET 20 \GETBASEFIXP) (76 NSADDRESS 63 \NSNET.CLOSERP 51 \ETHERTIMEOUT 14 NSADDRESS) () \NSNET.CLOSERP :D8 (L (1 Y 0 X)) ;@j i HhAj i YHIi(44 \LOCATE.NSNET 38 \GETBASEFIXP 18 \LOCATE.NSNET 12 \GETBASEFIXP) (32 NSADDRESS 6 NSADDRESS) () XIPTRACE :D8 (L (1 REGION 0 FLG)) ggoA@ (22 MAKE-NETWORK-TRACE-WINDOW) (9 XIPTRACEFILE 4 XIPTRACEFLG) ( 14 "Xerox Internet Packet Traffic") PRINTXIPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 XIP F 1 FILE F 2 MACRO) PQlRNIL NIL () PRINTXIP :D8 (L (4 DOFILTER 3 PRE.NOTE 1 CALLER) P 3 SI::*RESETFORMS* P 1 MACRO I 2 FILE I 0 XIP) _B`b@$!D\`H`h`EH`