(FILECREATED "26-May-84 14:50:41" ("compiled on " {PHYLUM}LIBRARY>GATEWAY.;7) "21-May-84 01:09:37" recompiled exprs: \NSTIMESERVER \HANDLE.NS.TIMEREQ in WORK dated "21-May-84 01:21:39") (FILECREATED "26-May-84 14:50:12" {PHYLUM}LIBRARY>GATEWAY.;7 43046 changes to: (VARS GATEWAYCOMS \XIPT.OLDTIME GATEWAYSERVICES) (FNS \NSTIMESERVER \HANDLE.NS.TIMEREQ) previous date: "16-Dec-83 14:25:29" {PHYLUM}LIBRARY>GATEWAY.;6) GATEWAY D1 (P 1 TRIPLE I 0 FLG F 6 LOCALNETWORKLST F 7 GATEWAYSERVICES) @g@dgVVV!Hio Ydldl 2IYIddIYdIddIhAIdldl 1g0VdZJJhLKh]K&M hhhrHXhi7g hWd n @ddg `gg(367Q \ILLEGAL.ARG 363Q GATEWAY.BYE 344Q RESTART.ETHER 340Q DISMISS 325Q DEL.PROCESS 300Q RESTART.ETHER 247Q /SETATOMVAL 55Q ERROR) (403Q OFF 377Q ON 373Q \GATEWAYFLG 355Q BYE 314Q \GATEWAYFLG 305Q OFF 274Q \GATEWAYFLG 200Q LOCALNETWORKLST 12Q RESTART 3 ON) ( 52Q "Need to set LOCALNETWORKLST correctly") GATEWAY.BYEA0021 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 GATEWAYCURSOR F 2 RESETY) [gi hhPcgj hhPcgQ hhPchcimk lmk l n (127Q BLOCK 120Q ADJUSTCURSORPOSITION 112Q RAND 101Q RAND 65Q READP 50Q CURSOR 27Q SETDISPLAYHEIGHT 6 VIDEOCOLOR) (44Q CURSOR 23Q SETDISPLAYHEIGHT 2 VIDEOCOLOR) NIL GATEWAY.BYE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q GATEWAY.BYEA0021) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) \INIT.GATEWAY D1 (P 7 ENTRY P 6 NET P 5 NDB P 4 ROUTE P 2 PROC P 1 SERVERNAME I 0 EXTRA10MBTRANSLATIONLST F 10Q GATEWAYSERVICES F 11Q LOCALNETWORKLST F 12Q NETDIRSTREAM) l`lo g oo g o g g W!H7hhhhW lo W1K"`hh@Y Z HX\dl`l `o L^/`NjhMl jihh MNM`L^$`NjhMl jihh MNK[adOOj h` ggg cW!HhY ZIhgggg HX (550Q RESTART.PROCESS 537Q ADD.PROCESS 511Q FIND.PROCESS 467Q OPENSTREAM 446Q PUTASSOC 430Q CLOCK 375Q \NCONC2 356Q \CLOCK0 311Q \NCONC2 272Q \CLOCK0 246Q ERROR 204Q SUSPEND.PROCESS 175Q FIND.PROCESS 140Q ERROR 125Q LENGTH 72Q DEL.PROCESS 64Q DEL.PROCESS 55Q ERROR 45Q FIND.PROCESS 36Q ERROR 22Q FIND.PROCESS) (533Q DELETE 530Q AFTEREXIT 525Q SYSTEM 522Q RESTARTABLE 464Q OLD 461Q INPUT 456Q {DSK}PUP-NETWORK.DIRECTORY 441Q NDB 436Q \10MBLOCALNDB 344Q \NS.ROUTING.TABLE 324Q \InterfacePage 260Q \PUP.ROUTING.TABLE 236Q \10MBLOCALNDB 226Q \3MBLOCALNDB 156Q \10MBLOCALNDB 120Q \NS.ROUTING.TABLE 112Q \PUP.ROUTING.TABLE 67Q \NSGATELISTENER 61Q \PUPGATELISTENER 42Q \3MBWATCHER 17Q \10MBWATCHER 2 \MACHINETYPE) ( 243Q "CDR of NETLST entry must be 3 or 10" 135Q "We only support one 3 and one 10 MB network now" 52Q "There's no 3 MB Ethernet!" 33Q " or you did not start Lisp with LISP/Z X3DOLPHINLISPMC.EB/M" 27Q "Either you don't have a 10MB Ethernet in this machine," 12Q "Pup Gateway runs only on Dolphins") \BUILD.PUP.ROUTING.PACKETA0006 D1 (L (0 NETWORK) F 0 BYTE F 1 PUP F 2 DYING F 3 MYNET# F 4 MYHOST#) LQll P@Qll PkSQll PlTQll PlRl@PlcNIL (60Q ETHERPACKET 40Q ETHERPACKET 21Q ETHERPACKET 3 ETHERPACKET) () \BUILD.PUP.ROUTING.PACKET D1 (P 2 MYNET# P 1 MYHOST# P 0 BYTE I 3 DYING I 2 OLDPUPFLG I 1 GATESOC I 0 PUP) :j`l`lB@l@jllhA `g @Hlh(57Q \MAP.ROUTING.TABLE 45Q SETUPPUP) (54Q \BUILD.PUP.ROUTING.PACKETA0006 51Q \PUP.ROUTING.TABLE 11Q \LOCALPUPNETHOST 3 \LOCALPUPNETHOST) () \GATEWAY.FORWARD.PUP D1 (P 2 TRANSPORT P 1 NDB P 0 CSUM I 0 PUP) L@`N@l@kXn:H@l@kk '`k`@gho @no@i Y@lJlZ'`k`@gho @no`jd`jdldgg `(Hn!@l@kH@J@kk @J`k@g`@gho II@lK`jd`jdldgg '`k`@gho @no h(510Q \PUPERROR 474Q PRINTPUP 441Q BKBITBLT 411Q BLOCK 372Q PRINTPUP 321Q \UPDATECHECKSUM 250Q BKBITBLT 205Q PRINTPUP 130Q \ROUTE.PUP 107Q PRINTPUP 53Q \CHECKSUM) (464Q PUP 457Q PUPTRACEFLG 453Q \PUP.ROUTEDBAD 446Q \PUP.ROUTEDBAD 435Q REPLACE 432Q INVERT 422Q ScreenBitMap 415Q ScreenBitMap 362Q PUT 355Q PUPTRACEFLG 347Q FREE 342Q \PUP.ROUTEDPUPS 335Q \PUP.ROUTEDPUPS 254Q \PUP.CHECKSUMFLG 244Q REPLACE 241Q INVERT 231Q ScreenBitMap 224Q ScreenBitMap 175Q PUP 170Q PUPTRACEFLG 164Q \PUP.ROUTEDBAD 157Q \PUP.ROUTEDBAD 77Q PUP 72Q PUPTRACEFLG 66Q \PUP.ROUTEDBAD 61Q \PUP.ROUTEDBAD 5 \PUP.CHECKSUMFLG) ( 505Q "Packet discarded because I'm not the gateway you want" 471Q "Gateway: Discarding Pup addressed to wrong gateway: " 367Q "Gateway: Forwarding Pup: " 216Q "Discarding Pup because too many gateway hops" 202Q "Gateway: Discarding looping Pup: " 120Q "Packet discarded because checksum bad" 104Q "Gateway: Discarding Pup with bad checksum: ") \UPDATECHECKSUM D1 (L (3 #AFTERWORDS 2 NEWWORD 1 OLDWORD 0 OLDCSUM)) nNIL NIL () \HANDLE.PUP.ADDRLOOKUP D1 (P 1 NAME P 0 PORT I 1 PUP I 0 MISCSOC) TAl Al Al H YA IAlAI AlAlAl@A A h(120Q \RELEASE.ETHERPACKET 114Q SENDPUP 65Q PUTPUPSTRING 50Q SWAPPUPPORTS 43Q NetDirAddressLookup) (25Q ETHERPACKET 14Q ETHERPACKET 3 ETHERPACKET) NIL \HANDLE.PUP.ALTOTIMEREQ D1 (P 1 TIME P 0 DATA I 1 PUP I 0 MISCSOC F 2 \TimeZoneComp F 3 \BeginDST F 4 \EndDST) cAll oA HI HI jRHkHjRهHjHRHjHSHTAlAl @A A h(137Q \RELEASE.ETHERPACKET 133Q SENDPUP 41Q \LONUM 32Q \HINUM 25Q SWAPPUPPORTS 11Q IDATE) NIL ( 15Q -20000000000Q) \HANDLE.PUP.MISC D1 (I 1 PUP I 0 MISCSOC) (Adl@A dl@A l@A (45Q \HANDLE.PUP.ALTOTIMEREQ 32Q \HANDLE.PUP.ADDRLOOKUP 16Q \HANDLE.PUP.NAMELOOKUP) NIL NIL \HANDLE.PUP.MISC.BACKGROUND D1 (I 0 MISCSOCKET) 7g g `g ` ggg (61Q GETSTREAM 56Q OPENFILE 42Q CLOSEF 31Q FILENAMEFIELD 13Q FILENAMEFIELD 5 INFILEP) (64Q NETDIRSTREAM 53Q OLD 50Q INPUT 45Q {DSK}PUP-NETWORK.DIRECTORY 37Q NETDIRSTREAM 26Q VERSION 21Q STREAM 16Q NETDIRSTREAM 10Q VERSION 2 {DSK}PUP-NETWORK.DIRECTORY) NIL \HANDLE.PUP.NAMELOOKUP D1 (P 4 PORT P 3 I P 1 PORTS P 0 NAME I 1 PUP I 0 MISCSOC) A H `H H ` YA IAlAl@A A hjJAKlAlAlKL AlKkL AlKlL KlлJZ(214Q \LONUM 170Q \HINUM 74Q \RELEASE.ETHERPACKET 70Q SENDPUP 43Q SWAPPUPPORTS 36Q PUTHASH 30Q NetDirNameLookup 24Q MKATOM 12Q MKATOM 3 GETPUPSTRING) (177Q ETHERPACKET 154Q ETHERPACKET 136Q ETHERPACKET 33Q \ETHERPORTS 15Q \ETHERPORTS) NIL \HANDLE.PUP.ROUTING D1 (I 1 GATESOC I 0 PUP) X@dl@%`@ hl)@%j@"j@d"%@Ai @ A@ `@gho (125Q PRINTPUP 103Q SENDPUP 76Q SWAPPUPPORTS 72Q \BUILD.PUP.ROUTING.PACKET 25Q \HANDLE.PUP.ROUTING.INFO) (115Q GET 107Q PUPTRACEFLG 17Q \LOCALPUPNETHOST) ( 122Q "Gateway: Received non-gateway Pup on gateway socket") \PUPGATESERVER D1 (P 3 EVENT P 2 PUP P 1 TIMER P 0 SOCKET F 4 RESETVARSLST) lli l j"gHhhhTcH [H ZK` K Ig ` IlIl `H (150Q \PUPGATE.BROADCAST 137Q \CLOCK0 120Q \AGE.ROUTING.TABLE 110Q TIMEREXPIRED? 100Q BLOCK 74Q \HANDLE.PUP.ROUTING 64Q AWAIT.EVENT 52Q GETPUP 44Q PUPSOCKETEVENT 13Q \CLOCK0 5 OPENPUPSOCKET) (142Q \RT.AGEINTERVAL 115Q \PUP.ROUTING.TABLE 105Q MILLISECONDS 61Q \RT.AGEINTERVAL 23Q \PUPGATESERVERDYING) () \PUPGATESERVERDYING D1 (I 0 SOCKET) `@i h(10Q \PUPGATE.BROADCAST) (2 \GATEWAYFLG) () \PUPGATE.BROADCASTA0007 D1 (I 0 NETWORK F 0 PUP F 1 SOCKET) @jP@"P@%QP (32Q BLOCK 27Q SENDPUP) NIL () \PUPGATE.BROADCAST D1 (P 0 PUP I 1 DYING I 0 SOCKET) H@hA `g H h(31Q \RELEASE.ETHERPACKET 25Q \MAP.ROUTING.TABLE 14Q \BUILD.PUP.ROUTING.PACKET 2 ALLOCATE.PUP) (22Q \PUPGATE.BROADCASTA0007 17Q \PUP.ROUTING.TABLE) () \PUPMISCSERVER D1 (P 3 PUP P 2 EVENT P 1 TIMER P 0 SOCKET F 4 \PUP.MISC.BACKGROUND.INTERVAL) Yli l T"H ggg H [HK JIi JH IlIl T(123Q \CLOCK0 104Q \HANDLE.PUP.MISC.BACKGROUND 74Q AWAIT.EVENT 64Q BLOCK 60Q \HANDLE.PUP.MISC 51Q GETPUP 41Q OPENSTREAM 24Q PUPSOCKETEVENT 13Q \CLOCK0 5 OPENPUPSOCKET) (44Q NETDIRSTREAM 36Q OLD 33Q INPUT 30Q {DSK}PUP-NETWORK.DIRECTORY) NIL \GATEWAY.FORWARD.XIP D1 (P 2 TRANSPORT P 1 NDB P 0 CSUM I 0 XIP) .@`B@Xn8H@lk@kk #`k`@gho @n@i Y@ lJkZ#`k`@gho @n`jd`jdldgg `Hn@H@ J@kl @J `k@g`@gho II@lK`jd`jdldgg #`k`@gho @n h(452Q \XIPERROR 442Q PRINTXIP 407Q BKBITBLT 357Q BLOCK 340Q PRINTXIP 267Q \UPDATECHECKSUM 227Q BKBITBLT 170Q PRINTXIP 114Q \ROUTE.XIP 77Q PRINTXIP 43Q \CHECKSUM) (432Q XIP 425Q XIPTRACEFLG 421Q \XIP.ROUTEDBAD 414Q \XIP.ROUTEDBAD 403Q REPLACE 400Q INVERT 370Q ScreenBitMap 363Q ScreenBitMap 330Q PUT 323Q XIPTRACEFLG 315Q FREE 310Q \XIP.ROUTEDGOOD 303Q \XIP.ROUTEDGOOD 233Q \NS.CHECKSUMFLG 223Q REPLACE 220Q INVERT 210Q ScreenBitMap 203Q ScreenBitMap 160Q XIP 153Q XIPTRACEFLG 147Q \XIP.ROUTEDBAD 142Q \XIP.ROUTEDBAD 67Q XIP 62Q XIPTRACEFLG 56Q \XIP.ROUTEDBAD 51Q \XIP.ROUTEDBAD 5 \NS.CHECKSUMFLG) ( 437Q "Gateway: Discarding XIP addressed to wrong gateway: " 335Q "Gateway: Forwarding XIP: " 165Q "Gateway: Discarding looping XIP: " 74Q "Gateway: Discarding XIP with bad checksum: ") \NSGATESERVER D1 (P 3 EVENT P 2 XIP P 1 TIMER P 0 SOCKET F 4 RESETVARSLST F 5 \XIP.ROUTING.TABLE) iki l j"gHhhhTcH [H ZK` K Ig U IlIl `H (145Q \NSGATE.BROADCAST 134Q \CLOCK0 115Q \AGE.ROUTING.TABLE 107Q TIMEREXPIRED? 77Q BLOCK 73Q \HANDLE.NS.ROUTING 63Q AWAIT.EVENT 51Q GETXIP 43Q NSOCKETEVENT 12Q \CLOCK0 4 OPENNSOCKET) (137Q \RT.AGEINTERVAL 104Q MILLISECONDS 60Q \RT.AGEINTERVAL 22Q \NSGATESERVERDYING) () \NSGATESERVERDYING D1 (I 0 SOCKET) `@i h(10Q \NSGATE.BROADCAST) (2 \GATEWAYFLG) () \NSGATE.BROADCASTA0008 D1 (I 0 NETWORK F 0 XIP F 1 SOCKET) )@j"Pll@ Pll @ QP (46Q BLOCK 43Q SENDXIP 36Q \PUTFIXP 22Q \PUTFIXP) NIL () \NSGATE.BROADCAST D1 (P 0 XIP I 1 DYING I 0 SOCKET) H@hA `g H h(31Q \RELEASE.ETHERPACKET 25Q \MAP.ROUTING.TABLE 14Q \BUILD.NS.ROUTING.PACKET 2 ALLOCATE.XIP) (22Q \NSGATE.BROADCASTA0008 17Q \NS.ROUTING.TABLE) () \BUILD.NS.ROUTING.PACKETA0091 D1 (I 0 NETWORK F 0 BASE F 1 LENGTH F 2 DYING) !P@ PRl@kPlcQlc(5 \PUTFIXP) NIL () \BUILD.NS.ROUTING.PACKET D1 (P 1 LENGTH P 0 BASE I 3 DYING I 2 OLDXIPFLG I 1 GATESOC I 0 XIP) X@l-l@k B0@l'` @A,@l#` @llj @k&HlHkX`g @Ih(120Q \MAP.ROUTING.TABLE 70Q \PUTFIXP 54Q \STORENSHOSTNUMBER 32Q \STORENSADDRESS) (115Q \BUILD.NS.ROUTING.PACKETA0091 112Q \NS.ROUTING.TABLE 51Q BROADCASTNSHOSTNUMBER 27Q \MY.NSADDRESS) () \HANDLE.NS.ROUTING D1 (I 1 GATESOC I 0 XIP) @ k@-dl@ll ` g@ kM@lH H j*@ll j@ll @lHH @ @Ai A@ `@gho @ (214Q RELEASE.XIP 207Q PRINTXIP 166Q SENDXIP 161Q \BUILD.NS.ROUTING.PACKET 153Q SWAPXIPADDRESSES 146Q \PUTFIXP 111Q \LOADNSHOSTNUMBER 47Q \HANDLE.NS.ROUTING.INFO 41Q EQUAL 33Q \LOADNSHOSTNUMBER) (177Q GET 172Q XIPTRACEFLG 36Q \MY.NSHOSTNUMBER) ( 204Q "Gateway: Received non-gateway Pup on gateway socket") \NSTIMESERVER D1 (P 2 XIP P 1 EVENT P 0 SOCKET F 3 RESETVARSLST) 7li !gHhhhScH YH ZHJ I (63Q AWAIT.EVENT 55Q BLOCK 51Q \HANDLE.NS.TIMEREQ 42Q GETXIP 34Q NSOCKETEVENT 5 OPENNSOCKET) (13Q CLOSENSOCKET) () \HANDLE.NS.TIMEREQ D1 (P 2 LENGTH P 1 BUF P 0 DAYTIME0 I 1 XIP I 0 SOCKET) 0A dlAl-YkIlA l6Zl{Al-mйl2ZA Ik[Il X IH Ij`dkj`هIj`I` I` IlAJA @A A h(241Q RELEASE.XIP 234Q SENDXIP 226Q SWAPXIPADDRESSES 131Q \LONUM 121Q \HINUM 115Q \DAYTIME0 112Q \CREATECELL 74Q RELEASE.XIP 42Q RELEASE.XIP) (204Q \EndDST 175Q \BeginDST 166Q \TimeZoneComp 154Q \TimeZoneComp 141Q \TimeZoneComp) () AddressFromEntry D1 (I 0 ADDRESS) @`@k ` ` (14Q SETFILEPTR) (24Q NETDIRSTREAM 17Q NETDIRSTREAM 5 NETDIRSTREAM) NIL BCPLStringFromFile D1 (P 0 STRING I 0 STREAM) 5@ @HHHJ6JKLMlIH(4 ALLOCSTRING) (46Q FDEV 41Q STREAM 30Q STRINGP 22Q STRINGP 14Q STRINGP) NIL LOADBITS D1 (P 3 OVERFLOW P 2 REALBIT P 1 WHICH P 0 INTEGER I 2 SIZE I 1 RIGHTBIT I 0 INTEGERLST) Z@@ AlYk XAIlZjJBkl[HJ lB kHJ lB k@IklKk lJ (126Q LLSH 117Q LOADBITS 77Q EXPT 71Q LRSH 60Q EXPT 52Q LRSH 20Q FNTH 6 REVERSE) NIL NIL MAKEOCTALSTRING D1 (P 6 C P 5 I P 3 I P 2 B P 0 STRING I 0 WORDS) l l/jkJI*HHlK@Jl l0ǿJlغKkػHkB L_L_OLk_OOOOdk_^l0MkؽHMhH H(205Q SUBSTRING 53Q LOADBITS 4 ALLOCSTRING) (131Q STRINGP 116Q STRINGP 105Q STRINGP 35Q STRINGP 27Q STRINGP) NIL NameFromAddress D1 (P 2 NET/HOST P 1 SOCKET P 0 ADDRESSLIST I 1 ONEFLG I 0 ADDRESS) nhh!@d@ddU@jP`@l ` ` غ` ` ` ` HJI `@ ` ` bAH(130Q SETFILEPTR 117Q TCONC 46Q SETFILEPTR) (141Q NETDIRSTREAM 134Q NETDIRSTREAM 123Q NETDIRSTREAM 104Q NETDIRSTREAM 77Q NETDIRSTREAM 72Q NETDIRSTREAM 65Q NETDIRSTREAM 57Q NETDIRSTREAM 52Q NETDIRSTREAM 36Q NETDIRSTREAM) () NetDirAddressLookup D1 (P 2 ADDRBLOCKTABLE P 1 ADDRBLOCKCNT P 0 ENTRYADDRESS I 0 PORT) N0`` ggg g `l ` ` Y` ` Z@JI (113Q NameFromEntry 110Q SearchNetDirForAddress 54Q SETFILEPTR 40Q GETSTREAM 32Q OPENFILE 14Q OPENP) (77Q NETDIRSTREAM 72Q NETDIRSTREAM 64Q NETDIRSTREAM 57Q NETDIRSTREAM 47Q NETDIRSTREAM 43Q NETDIRSTREAM 35Q INPUT 27Q OLD 24Q INPUT 21Q {DSK}PUP-NETWORK.DIRECTORY 11Q NETDIRSTREAM 5 NETDIRSTREAM) NIL NetDirNameLookup D1 (P 2 ENTRYADDRESS P 1 NAMEBLOCKTABLE P 0 NAMEBLOCKCNT I 0 NAME) Mll`` ggg g j` Xk` Y@IH (112Q PortFromAddress 107Q AddressFromEntry 104Q SearchNetDirForName 73Q MAPWORD 61Q MAPWORD 46Q GETSTREAM 40Q OPENFILE 22Q OPENP) (70Q NETDIRSTREAM 56Q NETDIRSTREAM 51Q NETDIRSTREAM 43Q INPUT 35Q OLD 32Q INPUT 27Q {DSK}PUP-NETWORK.DIRECTORY 17Q NETDIRSTREAM 13Q NETDIRSTREAM) NIL PortCompare D1 (L (1 PORT2 0 PORT1)) )@dAgAg@dAAgNIL (46Q EQ 23Q GREATER 12Q LESS) NIL PortFromAddress D1 (P 2 NET/HOST P 1 SOCKET P 0 ADDRESSLIST I 1 ONEFLG I 0 ADDRESS) rhh!@d@ddY@jT`@l ` ` غ` ` ` ` HJI `@ ` ` bAHH(130Q SETFILEPTR 117Q TCONC 46Q SETFILEPTR) (141Q NETDIRSTREAM 134Q NETDIRSTREAM 123Q NETDIRSTREAM 104Q NETDIRSTREAM 77Q NETDIRSTREAM 72Q NETDIRSTREAM 65Q NETDIRSTREAM 57Q NETDIRSTREAM 52Q NETDIRSTREAM 36Q NETDIRSTREAM) NIL PrintNameBlock D1 (I 0 A) `@l ` (23Q PRINT 20Q BCPLStringFromFile 12Q SETFILEPTR) (15Q NETDIRSTREAM 2 NETDIRSTREAM) NIL SearchNetDirForAddress D1 (P 5 DONE P 4 ADDR P 3 PROBE P 2 PORT1 P 1 TOP P 0 BOTTOM I 2 LENGTH I 1 BLOCK I 0 PORT) njBkBIHIHk@J =M=`KA ` ` \i @J dgigKYKM`Ll ` ` (141Q SETFILEPTR 73Q PortCompare 65Q PortFromAddress 45Q SETFILEPTR 26Q EQUAL) (151Q NETDIRSTREAM 144Q NETDIRSTREAM 131Q NETDIRSTREAM 111Q LESS 77Q EQ 56Q NETDIRSTREAM 51Q NETDIRSTREAM 36Q NETDIRSTREAM) NIL SearchNetDirForName D1 (P 7 FAIL P 6 FAIL? P 5 DONE P 4 ADDR P 3 PROBE P 2 STRING P 1 TOP P 0 BOTTOM I 2 LENGTH I 1 BLOCK I 0 NAME) jBkB IHOeMb`KA ` ` ؼ`Ll ` Ni_@J dgigIKHiKYHKIiKM`Ll ` ` (204Q SETFILEPTR 111Q StringCompare 75Q BCPLStringFromFile 66Q SETFILEPTR 37Q SETFILEPTR) (214Q NETDIRSTREAM 207Q NETDIRSTREAM 174Q NETDIRSTREAM 127Q LESS 115Q EQ 72Q NETDIRSTREAM 56Q NETDIRSTREAM 50Q NETDIRSTREAM 43Q NETDIRSTREAM 30Q NETDIRSTREAM) NIL StringCompare D1 (P 7 C2 P 6 C1 P 5 S2OFFSET P 4 S2LEN P 3 S2BASE P 2 S1OFFSET P 1 S1LEN P 0 S1BASE I 1 S2 I 0 S1) @dl`@k`@ @ b@@@Adl`Ak`A A bAAAj_IOILOgLOgHOJ^KOM_4laNNlzNl پlaOOlzOl _NOONgOkذ(156Q MKSTRING 54Q MKSTRING) (344Q LESS 240Q GREATER 227Q EQ 203Q STRINGP 174Q STRINGP 165Q STRINGP 134Q \PNPSPACE 120Q \PNPSPACE 101Q STRINGP 72Q STRINGP 63Q STRINGP 32Q \PNPSPACE 16Q \PNPSPACE) () MapNameTable D1 (P 3 I P 1 NAMEBLOCKCNT P 0 NAMEBLOCKTABLE I 0 FN) Q `j ` ` Y` ` XIkKJ&`H @` ` h HkظKk[h(102Q APPLY 61Q SETFILEPTR 11Q SETFILEPTR) (73Q NETDIRSTREAM 66Q NETDIRSTREAM 54Q NETDIRSTREAM 34Q NETDIRSTREAM 27Q NETDIRSTREAM 21Q NETDIRSTREAM 14Q NETDIRSTREAM 5 NETDIRSTREAM) NIL NameFromEntry D1 (I 0 ADDRESS) %@"`@ `d ` l ` (42Q BCPLStringFromFile 34Q SETFILEPTR 12Q SETFILEPTR) (37Q NETDIRSTREAM 23Q NETDIRSTREAM 15Q NETDIRSTREAM 5 NETDIRSTREAM) NIL (PRETTYCOMPRINT GATEWAYCOMS) (RPAQQ GATEWAYCOMS ((FNS GATEWAY GATEWAY.BYE \INIT.GATEWAY) (COMS (* Pup Gateway) (FNS \BUILD.PUP.ROUTING.PACKET \GATEWAY.FORWARD.PUP \UPDATECHECKSUM \HANDLE.PUP.ADDRLOOKUP \HANDLE.PUP.ALTOTIMEREQ \HANDLE.PUP.MISC \HANDLE.PUP.MISC.BACKGROUND \HANDLE.PUP.NAMELOOKUP \HANDLE.PUP.ROUTING \PUPGATESERVER \PUPGATESERVERDYING \PUPGATE.BROADCAST \PUPMISCSERVER) (VARS ( \PUP.ROUTEDBAD 0) (\PUP.ROUTEDPUPS 0) GATEWAYSERVICES)) (COMS (* NS Gateway) (FNS \GATEWAY.FORWARD.XIP \NSGATESERVER \NSGATESERVERDYING \NSGATE.BROADCAST \BUILD.NS.ROUTING.PACKET \HANDLE.NS.ROUTING) (VARS (\XIP.ROUTEDBAD 0) (\XIP.ROUTEDGOOD 0)) (FNS \NSTIMESERVER \HANDLE.NS.TIMEREQ) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS \TIMESOCKET \XIPT.EXCHANGE \EXTYPE.TIME \XIPT.OLDTIME \TIMEVERSION \TIMEOP.TIMEREQUEST \TIMEOP.TIMERESPONSE \NSTIMELENGTH \XIPOVLEN) (RECORDS TIMEBODY))) (COMS (* Utilities for handling lookup requests) (FNS AddressFromEntry BCPLStringFromFile LOADBITS MAKEOCTALSTRING NameFromAddress NetDirAddressLookup NetDirNameLookup PortCompare PortFromAddress PrintNameBlock SearchNetDirForAddress SearchNetDirForName StringCompare)) (COMS (* Currently unused) ( FNS MapNameTable NameFromEntry)) (INITVARS (\GATEWAYFLG) (\PUP.MISC.BACKGROUND.INTERVAL 300000) ( EXTRA10MBTRANSLATIONLST) (LOCALNETWORKLST)) (CURSORS GATEWAYCURSOR) (DECLARE: EVAL@COMPILE DONTCOPY ( CONSTANTS \TIMEPUPLENGTH) (RECORDS PUPROUTINGINFO TIMEPUPCONTENTS) (GLOBALVARS \PUP.ROUTEDBAD \PUP.ROUTEDPUPS \XIP.ROUTEDBAD \XIP.ROUTEDGOOD) (GLOBALVARS \BeginDST \EndDST \TimeZoneComp) (MACROS WORDIN WORDOUT) (FILES (SOURCE) ETHERRECORDS) (FILES (LOADCOMP) LLETHER LLNS)) (FILES PUPIDSERVER))) (RPAQQ \PUP.ROUTEDBAD 0) (RPAQQ \PUP.ROUTEDPUPS 0) (RPAQQ GATEWAYSERVICES (\PUP.ID.SERVER \PUPGATESERVER \NSGATESERVER \PUPMISCSERVER \NSTIMESERVER)) (RPAQQ \XIP.ROUTEDBAD 0) (RPAQQ \XIP.ROUTEDGOOD 0) (RPAQ? \GATEWAYFLG) (RPAQ? \PUP.MISC.BACKGROUND.INTERVAL 300000) (RPAQ? EXTRA10MBTRANSLATIONLST) (RPAQ? LOCALNETWORKLST) (RPAQ GATEWAYCURSOR (CURSORCREATE (READBITMAP) 0 15)) (16 16 "@@@@" "OOOO" "OOOO" "D@@@" "DOO@" "DHA@" "GJM@" "@HA@" "@HAN" "@HAB" "@OOB" "@@@B" "OOOO" "OOOO" "@@@@" "@@@@") (FILESLOAD PUPIDSERVER) (PUTPROPS GATEWAY COPYRIGHT ("Schlumberger Technology Corporation" 1983 1984)) NIL