(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8) (FILECREATED " 1-May-2021 19:49:18" ("compiled on " {DSK}larry>ilisp>medley>sources>PUP.;2) " 1-May-2021 18:53:46" "COMPILE-FILEd" in "Medley Full Sysout 30-Apr-2021 ..." dated "30-Apr-2021 14:49:58") (FILECREATED " 1-May-2021 19:49:18" {DSK}larry>ilisp>medley>sources>PUP.;2 336270Q changes to%: (FNS \PUP.SETTIME CANONICAL.HOSTNAME) (VARS PUPCOMS) previous date%: "19-Jan-93 11:14:09" {DSK}larry>ilisp>medley>sources>PUP.;1) (RPAQQ PUPCOMS ((COMS (* ; "Low level pup") (DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS) ( MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER \LOCALPUPNETNUMBER)) (GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#)) (FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER \PROMPT.FOR.PUP.NUMBER \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM) (INITVARS (\PUP.CHECKSUMFLG T) (\MAX.EPKTS.ON.PUPSOCKET 20Q) (\LOCALPUPNETHOST) (\OLDPUPHOST# 0))) (COMS (* ; "Pup error stuff") (DECLARE%: DONTCOPY (EXPORT ( RECORDS ERRORPUP) (CONSTANTS * PUPERRORCODES)) (GLOBALVARS PUPERRORMESSAGES)) (VARS PUPERRORMESSAGES) (FNS \PUPERROR)) (COMS (* ; "Pup utilities") (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) (INITVARS (\ETHERPORTS (HASHARRAY 24Q)) (\ETHERTIMEOUT 3720Q) (\MAXETHERTRIES 4) (\PUPCOUNTER 0)) (GLOBALVARS \ETHERPORTS \PUPCOUNTER)) (COMS (* ; "Accessing a PUP's contents") (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING) (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE)) (COMS (* ; "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") (MOVD? (QUOTE NILL) (QUOTE \CANONICALIZE.IP.HOSTNAME) NIL T)) ( ADDVARS (\HOSTNAMES) (\SYSTEMCACHEVARS \HOSTNAMES)) (GLOBALVARS \HOSTNAMES)) (COMS (* ; "PUP allocation") (EXPORT (MACROS BINDPUPS) (PROP INFO BINDPUPS) (ALISTS (PRETTYPRINTMACROS BINDPUPS)) )) (COMS (* ; "Pup routing") (FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE) (INITVARS (\PUP.ROUTING.TABLE (CONS)) ( \PUP.ROUTING.TABLE.RADIUS 2) (\PUPROUTER.PROBECOUNT 0) (\PUPROUTER.PROBETIMER) ( \PUPROUTER.PROBEINTERVAL 5670Q) (\PUP.READY) (\PUP.READY.EVENT (CREATE.EVENT "Pup Ready")) ( \PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready"))) (ADDVARS (\SYSTEMCACHEVARS \PUP.READY)) (DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO) (CONSTANTS \PUP.ROUTINGINFO.WORDS) (GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS \PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER \PUPROUTER.PROBEINTERVAL \PUP.READY \PUP.READY.EVENT \PUP.READY.LOCK))) (COMS (* ; "Sockets") (DECLARE%: DONTCOPY (RECORDS PUPSOCKET) (MACROS \PUPSOCKET.FROM#) (GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET \PUP.CHECKSUMFLG)) (INITRECORDS PUPSOCKET) (SYSRECORDS PUPSOCKET) (FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER PUPSOCKETEVENT \FLUSHPUPSOCQUEUE) (FNS \GETMISCSOCKET) (GLOBALVARS \MISC.SOCKET \PUPSOCKETS) (INITVARS (\MISC.SOCKET) (\PUPSOCKETS))) (DECLARE%: DONTCOPY (EXPORT ( RECORDS PORT ERRORPUP) (GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES PUPTRACEFLG LOGINPASSWORDS ) (GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES PUPPRINTMACROS) (CONSTANTS (\PUPOVLEN 26Q) ( \MAX.PUPLENGTH 1024Q) (\TIME.GETPUP 5)) (PROP VARTYPE PUPPRINTMACROS) (MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE \PUTPUPBYTE) (CONSTANTS * RAWPUPTYPES) (INITVARS (PUPTYPES RAWPUPTYPES)) (CONSTANTS * WELLKNOWNPUPSOCKETS)) (CONSTANTS * PUPCONSTANTS) (MACROS PUPDEBUGGING) (ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q)) (RECORDS TIMEPUPCONTENTS)) (COMS (* ; "echo utilities") (FNS PUP.ECHOSERVER PUP.ECHOUSER)) (COMS (* ; "Peeking") (FNS \PEEKPUP \MAYBEPEEKPUP) (INITVARS (\PEEKPUPNUMBER)) ( DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC) (GLOBALVARS \PEEKPUPNUMBER))) (COMS (* ; "Debugging assistance") (FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE PRINTCONSTANT) (INITVARS (PUPTRACEFLG) (PUPTRACEFILE T) (PUPTRACETIME)) (GLOBALVARS PUPTRACETIME) (ADDVARS ( PUPPRINTMACROS) (PUPONLYTYPES) (PUPIGNORETYPES)) (ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q))) ( DECLARE%: DONTEVAL@LOAD (P (\PUPINIT))) (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) (FILES ( LOADCOMP) LLETHER)) (PROP (MAKEFILE-ENVIRONMENT FILETYPE) PUP))) \STARTPUP :D8 (L (0 EVENT)) `ˆd ¿µö@ (27Q ASSURE.PUP.READY 14Q \FLUSHPUPSOCQUEUE) (4 \PUPSOCKETS) () ASSURE.PUP.READYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 QUIET) e`hg`’±„`g ` ¿` ¿Hµg¿j¿Id• hÊ‡jð¦HÊ‡Z°1J³)HSdZ³j¿g ¿Id• hHJÏ‡¿HÉXµ¿`ÊáJØ¿J¿`šg ‰g ¿l¿`Ã•`‚l jö¿`šI²-I °$IµFoggg` ¿g ¿i¿` ¿i °Ö(541Q RESTART.PROCESS 532Q BLOCK 524Q NOTIFY.EVENT 502Q \ADD.PACKET.FILTER 467Q ADD.PROCESS 423Q DEL.PROCESS 374Q \CLOCK0 332Q \DEL.PACKET.FILTER 317Q \ADD.PACKET.FILTER 231Q DEL.PROCESS 220Q \DEL.PACKET.FILTER 174Q \FIND.LOCALPUPHOSTNUMBER 142Q DEL.PROCESS 104Q CLRHASH 64Q \CLEAR.ROUTING.TABLE 47Q FIND.PROCESS 17Q OBTAIN.MONITORLOCK) (517Q \PUP.READY.EVENT 511Q \PUP.READY 475Q \HANDLE.RAW.PUP 461Q \PUP.READY.EVENT 454Q AFTEREXIT 447Q SYSTEM 442Q RESTARTABLE 411Q \GATEWAYFLG 403Q \PUPROUTER.PROBETIMER 363Q \PUPROUTER.PROBETIMER 355Q FIXP 350Q \PUPROUTER.PROBETIMER 342Q \PUPROUTER.PROBECOUNT 325Q \HANDLE.RAW.3TO10 312Q \HANDLE.RAW.3TO10 304Q \10MBFLG 276Q \OLDPUPHOST# 267Q \LOCALPUPNETHOST 254Q \LOCALNDBS 213Q \HANDLE.RAW.PUP 205Q \LOCALPUPNETHOST 131Q \LOCALPUPNETHOST 122Q \PUP.READY 115Q NO 77Q \ETHERPORTS 71Q \PUP.ROUTING.TABLE 57Q \PUP.ROUTING.TABLE 42Q \PUPGATELISTENER 35Q \LOCALNDBS 24Q \PUP.READY 12Q WITH.MONITOR 4 \PUP.READY.LOCK) ( 435Q (\PUPGATELISTENER)) ASSURE.PUP.READY :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 QUIET) g ¿$(26Q SI::MONITOR-UNWIND 21Q \MVLIST 14Q ASSURE.PUP.READYA0001) (7 SI::MONITOR-UNWIND) () \FIND.LOCALPUPHOSTNUMBER :D8 (L (2 QUIET 1 EVENT 0 NDB)) ¡`@ X²c`¢±„o` ¿Hã` ¿o` ¿Hlÿå` ¿o` ¿` °*B‘hAgð´`jðhð´` X¿Hlÿå(230Q \PROMPT.FOR.PUP.NUMBER 223Q OCTALSTRING 157Q TERPRI 144Q PRIN1 124Q PRIN1 105Q PRIN1 65Q PRIN1 50Q PRIN1 15Q \LOOKUPPUPNUMBER) (216Q \OLDPUPHOST# 203Q \OLDPUPHOST# 173Q AFTERLOGOUT 152Q PUPTRACEFILE 137Q PUPTRACEFILE 117Q PUPTRACEFILE 100Q PUPTRACEFILE 60Q PUPTRACEFILE 43Q PUPTRACEFILE 25Q PUPTRACEFLG 7 \MY.NSHOSTNUMBER) ( 132Q "#" 73Q "#" 36Q "My pup address = ") \PROMPT.FOR.PUP.NUMBERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 READBUF F 3 DEFAULT F 4 \TERM.OFD) Žo ¿¿hiRoShddi g ¹i ¿I3 ™Ijñ•lþIñ³3i ¿oi ¿i ¿i ¿i ¿T ¿°¡IH–H ¿(212Q BKBUFS 176Q FLASHWINDOW 167Q CLEARBUF 160Q TERPRI 151Q TERPRI 142Q PRIN1 126Q TERPRI 101Q TERPRI 72Q PACK* 60Q PROMPTFORWORD 35Q CLBUFS 24Q SYSBUF 16Q LINBUF 11Q PROVIDE.PROMPTING.WINDOW) (65Q Q) ( 134Q "Pup host number must be between 1 and 376" 45Q "Please enter my pup host number (in octal):" 4 "Ethernet info needed") \PROMPT.FOR.PUP.NUMBER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 DEFAULT F 3 LISPXHIST) S!g ¿$(27Q SI::RESETUNWIND 22Q \MVLIST 15Q \PROMPT.FOR.PUP.NUMBERA0001) (10Q SI::RESETUNWIND) () \HANDLE.RAW.PUP :D8 (L (1 TYPE 0 PACKET) P 12Q \INTERRUPTABLE) ùAnð´‚±ï`©@ ¿±Þ@É‘ H©@ ¿±Ì@dÊ&‡HÊ‡ð¯dÊ&‡jð¨ ¿±±Ê&[HÊ\ð³LjðKjð©@ ¿±“@È'@È(_¿_¿`h¾]µehZµ‚±Ÿ`Ÿg` ¿@dÊ#‡kð²tdÈ(lð²ldÈ'jð²edl"Ð@È"kÙâÐÈYnÿÿð³1I@l"Ð@È"kØâkÙ ð³l°^ÈOð™NdÈOð³¿M°…lÍ#¿@ ¿@g¿h@ ¿±ãl ¿±ØÈJÈýñ«@l ¿±Ä`²5@l"Ð@È"kÙâÐÈYnÿÿð³!I@l"Ð@È"kØâkÙ ðª@k ¿±ŠKjð–@LÏ&°_Ljð²[HKÏ¿HÊ‡jð¬KáHÊ‡Ø¿Ki µ`Khddddd _j¿Oh¿OH¿Oi¿ JÉ@ ¿JdÈkÔÍ¿JÉ i(765Q NOTIFY.EVENT 743Q \ENQUEUE 670Q \ADD.ROUTING.TABLE.ENTRY 637Q \LOCATE.PUPNET 552Q \PUPERROR 541Q \CHECKSUM 460Q \PUPERROR 434Q \PUPERROR 421Q SENDPUP 400Q SWAPPUPPORTS 330Q \CHECKSUM 231Q PRIN1 141Q \FORWARD.PUP 103Q \FORWARD.PUP 50Q RELEASE.PUP 26Q RELEASE.PUP) (646Q \PUP.ROUTING.TABLE 627Q \LOCALPUPNETHOST 471Q \PUP.CHECKSUMFLG 407Q FREE 224Q PUPTRACEFILE 217Q & 211Q PUPTRACEFLG 166Q \PUPSOCKETS 17Q \PUP.READY) () \FORWARD.PUP :D8 (L (0 PUP)) ;`–@ `–@ `²@gho¿@ (70Q \RELEASE.ETHERPACKET 61Q PRINTPUP 30Q \GATEWAY.FORWARD.PUP 13Q \MAYBEPEEKPUP) (46Q GET 36Q PUPTRACEFLG 21Q \GATEWAYFLG 4 \PEEKPUPNUMBER) ( 54Q "PUP not addressed to this host: ") \SETPUPCHECKSUM :D8 (L (0 PUP)) ,@l"Ð@È"kÙâÐ`²@l"Ð@È"kØâkÙ ‚nÿÿÍi(42Q \CHECKSUM) (17Q \PUP.CHECKSUMFLG) () (RPAQ? \PUP.CHECKSUMFLG T) (RPAQ? \MAX.EPKTS.ON.PUPSOCKET 20Q) (RPAQ? \LOCALPUPNETHOST) (RPAQ? \OLDPUPHOST# 0) (RPAQQ PUPERRORMESSAGES ((1 "Bad Checksum") (2 "No such socket") (3 "Socket full") (1001Q "Inconsistent pup") (1002Q "No route to that host") (1003Q "Host is down") (1004Q "Too many hops") ( 1005Q "Pup too long") (1006Q "Wrong gateway for that host") (1007Q "Gateway IQ full"))) \PUPERROR :D8 (L (2 MSG 1 ERRCODE 0 PUP)) ß`–@ @dÊ&‡jð’±ÃdÊ#‡lð’±¸¿`µ\@l,Ð@l"Ðl Ä@AÍ6@jÍ7@llØldÚØ@l8ÐjBµA`µoØÍ"@lÏ#‡@ @gh@ gð³ o` ¿A`µA` ¿` ¿`gð’±ÿ`@ ¿±ÿV (334Q \RELEASE.ETHERPACKET 323Q PRINTPUP 275Q TERPRI 262Q PRIN1 233Q PRIN1 203Q SENDPUP 164Q SWAPPUPPORTS 145Q \PUTBASESTRING 13Q \MAYBEPEEKPUP) (310Q RAW 303Q PUPTRACEFLG 270Q PUPTRACEFILE 255Q PUPTRACEFILE 242Q PUPERRORMESSAGES 226Q PUPTRACEFILE 211Q PEEK 172Q FREE 126Q PUPERRORMESSAGES 50Q PUPTRACEFLG 4 \PEEKPUPNUMBER) ( 221Q "Incoming packet dropped because: " 140Q "") SETUPPUP :D8 (L (6 REQUEUE 5 SOC 4 ID 3 TYPE 2 DESTSOCKET 1 DESTHOST 0 PUP)) }`¥¿@blÍ"@CÍ#@l"ÐlDµnÿÿ`ñ¡k†`kØ@Ai bd3 Í&@l"ÐlAµBF”@F¿Eµjð³çA°ä(161Q OPENPUPSOCKET 142Q \PUTBASEFIXP 111Q ETHERPORT 101Q \PUTBASEFIXP 12Q ASSURE.PUP.READY) (74Q \PUPCOUNTER 65Q \PUPCOUNTER 54Q \PUPCOUNTER 21Q ETHERPACKET 4 \PUP.READY) () SWAPPUPPORTS :D8 (L (0 PUP)) N@l"Ð@l"ÐHIÈIHÈÍ¿Í@l"Ð@l"ÐHIÈIHÈÍ¿Í@l"Ð@l"ÐHIÈIHÈ Í¿ZÍ JNIL NIL () GETPUP :D8 (L (1 WAIT 0 PUPSOC) P 2 \INTERRUPTABLE) Ü@b @É X™@dÈmÿÔÍ¿HµBAµ ±«ið³Iµ'A3 ¨Al ¿l Aö¹@É Ii¿°° ²îhÈnð²`²fHg °Y`´Q` ¿o` ¿H` ¿o` ¿@` ¿` ¿hXH(325Q TERPRI 312Q PRIN1 276Q PRIN1 256Q PRIN1 242Q PRIN1 222Q TERPRI 177Q \MAYBEPRINTPACKET 141Q TIMEREXPIRED? 131Q AWAIT.EVENT 114Q \CLOCK0 103Q \LISPERROR 55Q BLOCK 25Q \DEQUEUE) (320Q PUPTRACEFILE 305Q PUPTRACEFILE 271Q PUPTRACEFILE 251Q PUPTRACEFILE 235Q PUPTRACEFILE 215Q PUPTRACEFILE 206Q PUPTRACEFLG 172Q GET 162Q PUPTRACEFLG 5 PUPSOCKET) ( 264Q " arrived on " 230Q "Non-PUP packet ") SENDPUP :D8 (L (1 PUP 0 PUPSOC)) çAb@˜@b¿AnÍAjÏ# AlÐw@²AÈ+jð²AÈ*jðA@ÈÍ*¿A@ÈÍ+¿`µið«A gAdÊjð³*¿`²o` ¿` g X³&`²Ao`¿A gA `›Ag ¿HÉ¹HAlI¿h(343Q BLOCK 322Q \MAYBEPRINTPACKET 301Q \SETPUPCHECKSUM 265Q \REQUEUE.ETHERPACKET 256Q PRINTPUPROUTE 224Q \ROUTE.PUP 211Q TERPRI 176Q PRIN1 130Q \REQUEUE.ETHERPACKET 117Q ASSURE.PUP.READY) (315Q PUT 306Q PUPTRACEFLG 272Q NoRouting 251Q PUPTRACEFILE 234Q PUPTRACEFLG 216Q AlreadyQueued 204Q PUPTRACEFILE 171Q PUPTRACEFILE 155Q PUPTRACEFLG 135Q NoEther 110Q \PUP.READY 17Q PUPSOCKET 5 ETHERPACKET) ( 244Q "[Put fails: no routing]" 164Q "[Packet not sent--already being transmitted]") EXCHANGEPUPS :D8 (L (4 TIMEOUT 3 IDFILTER 2 DUMMY 1 OUTPUP 0 SOC)) e@ @A l Dµ`ö@É @ Z²!C²Jl"Ðl Al"Ðl Ùjð‘JIHi¿H ²Éh(137Q TIMEREXPIRED? 130Q AWAIT.EVENT 112Q \GETBASEFIXP 77Q \GETBASEFIXP 56Q GETPUP 31Q \CLOCK0 21Q SENDPUP 12Q DISCARDPUPS) (41Q \ETHERTIMEOUT 5 PUPSOCKET) () DISCARDPUPS :D8 (L (0 SOC) P 0 \INTERRUPTABLE) @b@È@É ¿@jÍ¿(25Q \FLUSH.PACKET.QUEUE) (5 PUPSOCKET) () GETPUPWORD :D8 (L (1 WORD# 0 PUP)) @AÐÈ,NIL (5 ETHERPACKET) () \PUPINIT :D8 NIL EoHµ`lðµi ¹gI d «I i¿HX°Ç(75Q PUTD 67Q GETD 60Q \DEFINEDP 52Q PACK* 34Q INITPUPLEVEL1) (44Q \ 21Q \MACHINETYPE) ( 4 (SETUPPUP EXCHANGEPUPS GETPUP SENDPUP CLEARPUP GETPUPSTRING PUTPUPSTRING ALLOCATE.PUP RELEASE.PUP CREATESOCKET FLUSHSOCKET)) ETHERHOSTNAME :D8 (L (1 USE.OCTAL.DEFAULT 0 PORT)) æjc`µið¡h@µ`lÿå°)3 µ%@d›Y3 •@3 µ@¨@ [µg@l [dãjð™`ãáKØ»Jjll“hHi Jl"ÐdÈlÔÍ¿Jl,Ð]KÍMkI`_¿k_Oó²`¢±o±þ¹K°ŸHJhi^µOkÔ°ÒÊ#‡dl”ð¢±•¿N \QOdÊjð¥ ÈkÙ_¿OdÊjð¥ É_¿OOl Ø_¿OdÊjð¥ ‚Ê‡lDð_¿OkØ_Oñ³%O—OOÐÈ„OOÂ_¿l8Oñ´l0Oñ²Öh€i²bh\°]l’ð¢±ÿY`²Po` ¿KI ` ¿o` ¿N ` ¿` ¿N–N ¿J LµA´KIjðhð´I (743Q PORTSTRING 717Q RELEASE.PUP 710Q RELEASE.PUP 677Q TERPRI 664Q PRIN1 652Q GETPUPSTRING 643Q PRIN1 623Q PRIN1 611Q PORTSTRING 601Q PRIN1 444Q %%ARRAY-TYPE-NUMBER 422Q \GETBASEFIXP 401Q %%ARRAY-BASE 353Q %%ARRAY-OFFSET 331Q GETPUPSTRING 276Q EXCHANGEPUPS 216Q \PUTBASEFIXP 161Q SETUPPUP 122Q \LISPERROR 107Q \PARSE.PORTCONSTANT 31Q ASSURE.PUP.READY 12Q ALLOCATE.PUP 4 \GETMISCSOCKET) (672Q PUPTRACEFILE 657Q PUPTRACEFILE 636Q PUPTRACEFILE 616Q PUPTRACEFILE 574Q PUPTRACEFILE 560Q PUPTRACEFLG 243Q PUPTRACEFLG 223Q \MAXETHERTRIES 135Q \LOCALPUPNETHOST 46Q \LOCALPUPNETHOST 22Q \PUP.READY) ( 631Q ": " 567Q "Address lookup error for " 254Q "Address lookup timed out") ETHERHOSTNUMBER :D8 (L (0 NAME)) `¥¿@µ` (31Q BESTPUPADDRESS 12Q ASSURE.PUP.READY) (23Q \LOCALPUPNETHOST 4 \PUP.READY) () ETHERPORT :D8 (L (2 MULTFLG 1 ERRORFLG 0 NAME)) t@d3 ˜j °%d²3 ›@3 –@ ŽA´L@ „ X—B“HhH@` µ@d `X•B³ÝHA´ o@ (161Q ERROR 133Q PUTHASH 121Q \LOOKUPPORT 110Q GETHASH 63Q \PARSE.PORTCONSTANT 55Q \ILLEGAL.ARG 43Q \FIXLOCALNET 16Q \FIXLOCALNET) (126Q \ETHERPORTS 103Q \ETHERPORTS) ( 153Q "host not found") BESTPUPADDRESS :D8 (L (1 ERRORSTREAM 0 HOST)) C@`µið³xh²@3 œ@3 —@ °A´éoº°A@ Xµ\@` µ@d `X²RlkR MLó²VA´©oZAdgð¢±¢¿J@ ¿@d3 ²ˆj °¥ãYjð¨I`ãð‘HHh¸°²A´‚±ÿaoº°¸l_¿h_¾H°,d[ã _™lO_ñ¢i¾ŽOOñ˜O_¿K_¿µÕO²NœO`ñ“Mkñ’O` ¿MkÔ]±ÿJ ¿JA ¿oA ¿@A h(477Q PRIN1 467Q PRIN1 453Q PRIN1 443Q TERPRI 426Q BLOCK 323Q \LOCATE.PUPNET 225Q \FIXLOCALNET 207Q ERROR 133Q PUTHASH 121Q \LOOKUPPORT 110Q GETHASH 72Q \PARSE.PORTCONSTANT 47Q \FIXLOCALNET 16Q ASSURE.PUP.READY) (421Q \ETHERTIMEOUT 403Q \PUP.ROUTING.TABLE.RADIUS 243Q \LOCALPUPNETHOST 172Q ERROR 126Q \ETHERPORTS 103Q \ETHERPORTS 7 \PUP.READY) ( 461Q ": " 272Q "Host not found" 161Q "No route to host" 61Q "Invalid port specification") NETDAYTIME0 :D8 NIL i (5 \NET.SETTIME) NIL () \PUP.SETTIME :D8 (L (0 RETFLG)) !@–@ ›lh}1¿(36Q DAYTIME 31Q \PROCESS.RESET.TIMERS 7 STRINGP) (23Q \TimeZoneComp) () \SETNEWTIME0 :D8 (L (0 NEWTIME)) fl @ @HÙ¹jIñ¡I‚jIÙn,ñ´B` ¿o` ¿o ` ¿o` h(142Q PRIN1 122Q PRIN1 110Q DATE 75Q PRIN1 55Q TERPRI 20Q \SETDAYTIME0 7 \DAYTIME0) (135Q PROMPTWINDOW 115Q PROMPTWINDOW 70Q PROMPTWINDOW 50Q PROMPTWINDOW) ( 130Q "]" 103Q (DATEFORMAT TIME.ZONE) 63Q "[Time reset to ") \NET.SETTIME :D8 (L (0 RETFLG)) <`d²4ÊdlðŸ¿@ µ#@ l ð´@ µ`´@ (71Q \PUP.SETTIME 52Q \NS.SETTIME 36Q \NS.SETTIME 26Q \PUP.SETTIME) (61Q \PUP.READY 4 \LOCALNDBS) () NETDATE :D8 NIL µ l oæ (31Q GDATE 16Q \DAYTIME0 4 NETDAYTIME0) NIL ( 23Q -20000000000Q) \LOOKUPPORT :D8 (L (0 NAME)) W @´‚±QRIjllhHi I@ `½k^Mó²`¢± o±ëHIhi\µNkÔ°ÛÊ#‡dl‘ð¢±¿LÈ"lÕâlÛ[dkó²2¿`²)o` ¿@` ¿` ¿KkLl,Ð3OOó³8OÈOk _¿OµOh__¿OkÔ_¿OlÐ_¿°ÍO&_¿°éOZ°Wl’ð¢±ÿ``²Jo` ¿@` ¿o` ¿L ` ¿` ¿L–L ¿I J(523Q RELEASE.PUP 514Q RELEASE.PUP 503Q TERPRI 470Q PRIN1 456Q GETPUPSTRING 447Q PRIN1 427Q PRIN1 413Q PRIN1 276Q \GETBASEFIXP 241Q TERPRI 226Q PRIN1 212Q PRIN1 117Q EXCHANGEPUPS 51Q PUTPUPSTRING 42Q SETUPPUP 20Q ALLOCATE.PUP 13Q \GETMISCSOCKET) (476Q PUPTRACEFILE 463Q PUPTRACEFILE 442Q PUPTRACEFILE 422Q PUPTRACEFILE 406Q PUPTRACEFILE 372Q PUPTRACEFLG 234Q PUPTRACEFILE 221Q PUPTRACEFILE 205Q PUPTRACEFILE 171Q PUPTRACEFLG 72Q PUPTRACEFLG 56Q \MAXETHERTRIES) ( 435Q ": " 401Q "Name lookup error for " 200Q "Multiple response received for " 103Q "Name lookup timed out") \PARSE.PORTCONSTANT :D8 (L (0 STR)) Å @ µ @ bHdÊjð¥ ÈkÙ»HdÊjð¥ É¼KHl ØºHdÊjð¥ ‚Ê‡lDð½KkØ[Jñ³KM•LKÐÈ‚LKÂ¹l0Iñ³Idl7ñ³¿Oµ jIl0ÙØ_¿°Ñààà°óIl#ð´/N‘hO¾Oµj_¿h_¿°±OµO´OµjNµjäOµjá°÷(116Q %%ARRAY-TYPE-NUMBER 77Q \GETBASEFIXP 62Q %%ARRAY-BASE 37Q %%ARRAY-OFFSET 15Q MKSTRING 5 STRINGP) NIL () \FIXLOCALNET :D8 (L (0 PORT)) 5n@ñ²@djð³¿`š`ÊXµ@jð³ü@Há@Ø¿°òNIL (35Q \LOCALNDBS 27Q \LOCALNDBS) () PORTSTRING :D8 (L (1 SOCKET 0 NETHOST)) B@dbjð“hb¿@bã g@lÿå gAµo °ô(76Q OCTALSTRING 70Q CONCAT 45Q OCTALSTRING 27Q OCTALSTRING) (52Q %# 34Q %#) ( 62Q "") OCTALSTRING :D8 (L (0 N)) Q`µ9l€ `µ4@lhdHI H¿I¿h¿°Éh¿°Ì(56Q CONCAT 51Q \CONVERTNUMBER 31Q CONCAT 15Q ALLOCSTRING) (114Q \\NUMSTR1.GLOBALRESOURCE 103Q \\NUMSTR.GLOBALRESOURCE 73Q \\NUMSTR1.GLOBALRESOURCE 64Q \\NUMSTR.GLOBALRESOURCE 22Q \\NUMSTR1.GLOBALRESOURCE 4 \\NUMSTR.GLOBALRESOURCE) () (RPAQ? \ETHERPORTS (HASHARRAY 24Q)) (RPAQ? \ETHERTIMEOUT 3720Q) (RPAQ? \MAXETHERTRIES 4) (RPAQ? \PUPCOUNTER 0) CLEARPUP :D8 (L (0 PUP)) A@bh@ddddh¿h¿h¿h¿h@l"Ð@l*ÐkÐ @l,Ðjn(76Q \ZEROBYTES 61Q \ZEROWORDS) (5 ETHERPACKET) () PUTPUPWORD :D8 (L (2 VALUE 1 WORD# 0 PUP)) @l,ÐAÐBÍBNIL (5 ETHERPACKET) () GETPUPBYTE :D8 (L (1 BYTE# 0 PUP)) @l,ÐAÂNIL (5 ETHERPACKET) () PUTPUPBYTE :D8 (L (2 VALUE 1 BYTE# 0 PUP)) @l,ÐABÇNIL (5 ETHERPACKET) () GETPUPSTRING :D8 (L (1 OFFSET 0 PUP)) /@bÈ"lÙAµjbÙHjñ›@l,ÐAHj (54Q ALLOCSTRING 45Q \GETBASESTRING) (5 ETHERPACKET) () GETPUPSTREAM :D8 (L (4 WRITEXTENSIONFN 3 ACCESS 2 LENGTH 1 OFFSET 0 PUP)) -@bl,ÐAµjbBµ @È"lÙAÙCµgD (52Q \MAKEBASEBYTESTREAM) (43Q INPUT 5 ETHERPACKET) () PUTPUPSTRING :D8 (L (1 STR 0 PUP)) )@bl"ÐdÈ@l,Ð@È"lÙAÔHIÍI(35Q \PUTBASESTRING) (5 ETHERPACKET) () optimize-GETPUPWORD :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 9@!H¹HºgggggIohJhNIL (44Q \DTEST 37Q of 32Q PUPCONTENTS 25Q fetch 20Q \GETBASE) ( 52Q ((QUOTE ETHERPACKET))) (PUTPROP (QUOTE GETPUPWORD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-GETPUPWORD) ( GET (QUOTE GETPUPWORD) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-PUTPUPWORD :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @@AH¹HZ»J¼gggggIohKLhNIL (51Q \DTEST 44Q of 37Q PUPCONTENTS 32Q fetch 25Q \PUTBASE) ( 57Q ((QUOTE ETHERPACKET))) (PUTPROP (QUOTE PUTPUPWORD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-PUTPUPWORD) ( GET (QUOTE PUTPUPWORD) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-GETPUPBYTE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 9@!H¹HºgggggIohJhNIL (44Q \DTEST 37Q of 32Q PUPCONTENTS 25Q fetch 20Q \GETBASEBYTE) ( 52Q ((QUOTE ETHERPACKET))) (PUTPROP (QUOTE GETPUPBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-GETPUPBYTE) ( GET (QUOTE GETPUPBYTE) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-PUTPUPBYTE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @@AH¹HZ»J¼gggggIohKLhNIL (51Q \DTEST 44Q of 37Q PUPCONTENTS 32Q fetch 25Q \PUTBASEBYTE) ( 57Q ((QUOTE ETHERPACKET))) (PUTPROP (QUOTE PUTPUPBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-PUTPUPBYTE) ( GET (QUOTE PUTPUPBYTE) (QUOTE COMPILER:OPTIMIZER-LIST)))) READPLIST :D8 (L (1 NOERRORFLG 0 STREAM)) Ó`µqg hdH¿ggH¿ggH¿H ¹ohI¿ohH¿Hgi¿HI@ l(ð²B0@ dl(ð²2¿@H @ ¿@H h@ l)ð¢°»Jµ KhZ¹°ÏK&º°Êl)ð¯Aªo@ hI(315Q ERROR 237Q RSTRING 224Q RATOM 154Q READTABLEPROP 137Q SETBRK 122Q SETBRK 105Q COPYREADTABLE 76Q SETSYNTAX 55Q SETSYNTAX 34Q SETSEPR 21Q COPYREADTABLE) (166Q \READPLIST.READTABLES 146Q CASEINSENSITIVE 70Q OTHER 63Q %% 47Q ESCAPE 42Q %' 14Q ORIG 4 \READPLIST.READTABLES) ( 307Q "Malformed property list in stream" 130Q (40Q) 113Q (51Q)) (RPAQ? \READPLIST.READTABLES NIL) \CANONICAL.HOSTNAME :D8 (L (0 NAME)) 1@d3›´(lÿ@ó´"@d3@ð¨@ b€@`µ@ (56Q \CANONICALIZE.PUP.HOSTNAME 33Q MKATOM) (44Q \HOSTNAMES) () \CANONICALIZE.PUP.HOSTNAME :D8 (L (0 NAME)) U@ Hµ`´B@``i µ@ Yd3@ð¦@ ¹@I`I(102Q U-CASE 66Q MKATOM 61Q U-CASE 51Q ETHERHOSTNAME 43Q FIXSPELL 5 ETHERPORT) (121Q \HOSTNAMES 113Q \HOSTNAMES 35Q \HOSTNAMES 30Q FIXSPELLREL 20Q \HOSTNAMES) () (MOVD? (QUOTE NILL) (QUOTE \CANONICALIZE.IP.HOSTNAME) NIL T) (ADDTOVAR \HOSTNAMES) (ADDTOVAR \SYSTEMCACHEVARS \HOSTNAMES) (PUTPROPS BINDPUPS MACRO (X (CONS (LIST (QUOTE LAMBDA) (CAR X) (CONS (QUOTE PROGN) (CDR X))) (in (CAR X) collect (LIST (QUOTE ALLOCATE.PUP)))))) (PUTPROPS BINDPUPS INFO BINDS) (ADDTOVAR PRETTYPRINTMACROS (BINDPUPS LAMBDA (FORM) (PROG ((POS (IPLUS 2 (POSITION)))) (PRIN1 "(") ( PRIN2 (CAR FORM)) (SPACES 1) (PRINTDEF (CADR FORM) (POSITION)) (OR (EQ COMMENTFLG (CAAR (SETQ FORM ( CDDR FORM)))) (TAB POS 0)) (PRINTDEF FORM POS T T FNSLST) (PRIN1 ")")))) \PUPGATELISTENER :D8 NIL li l jö"`gg¿`gg¿HÉ »H ZµK`jó²` ¿¿ŠIiKð³ÑI ²%` ¿IÃ‘I‚l `ö¿`jó²` ²‘Zjll€hH ¿HJ ¿`Ã•`‚l `ö¿`kÙ¿±ÿF(350Q \CLOCK0 316Q SENDPUP 306Q SETUPPUP 270Q ALLOCATE.PUP 261Q TIMEREXPIRED? 227Q \CLOCK0 205Q \AGE.ROUTING.TABLE 171Q TIMEREXPIRED? 157Q AWAIT.EVENT 146Q BLOCK 140Q \HANDLE.PUP.ROUTING.INFO 110Q GETPUP 75Q PROCESSPROP 50Q PROCESSPROP 17Q \CLOCK0 7 OPENPUPSOCKET) (373Q \PUPROUTER.PROBECOUNT 364Q \PUPROUTER.PROBECOUNT 355Q \PUPROUTER.PROBEINTERVAL 337Q \PUPROUTER.PROBETIMER 331Q FIXP 324Q \PUPROUTER.PROBETIMER 254Q \PUPROUTER.PROBETIMER 243Q \PUPROUTER.PROBECOUNT 234Q \RT.AGEINTERVAL 214Q FIXP 200Q \PUP.ROUTING.TABLE 132Q \PUPROUTER.PROBETIMER 121Q \PUPROUTER.PROBECOUNT 70Q PUP 63Q :PROTOCOL 56Q \RUNNING.PROCESS 43Q \ROUTINGTABLE.INFOHOOK 36Q INFOHOOK 31Q \RUNNING.PROCESS) () \HANDLE.PUP.ROUTING.INFO :D8 (L (0 PUP)) M@dÊ#‡lð²9Ê)‡@É@È"lÙâ@l,Ð```w IÊlð³HI X§@ j¿lJó³íKÊ‡kØ_¿KÊ_¿LOMåàÐÉ_²O_Oð‘i‡O_d³ð³/ONó³$LOhddl jöhd_ ¿i€h¢±ŽO_jð’±‚IOð˜HOð³#Od™¿OOó²]OH¿OI¿OO¿lOó²@Oi¿OOOlÄ°$O_Ã’O‚l `ö_¿JlÕºKlÐ»±ÿ(465Q \CLOCK0 253Q \ADD.ROUTING.TABLE.ENTRY 232Q \CLOCK0 105Q \RELEASE.ETHERPACKET 74Q \TRANSLATE.3TO10) (472Q \RT.TIMEOUTINTERVAL 451Q FIXP 114Q \PUPROUTER.PROBECOUNT 51Q \PUP.ROUTING.TABLE.RADIUS 44Q \ROUTING.TABLE.MASK 37Q \PUP.ROUTING.TABLE) () \ROUTE.PUP :D8 (L (1 READONLY 0 PUP)) ™@Ê&@Ê&‡BHdjð™¿`\¯h [d²v¼Kµ LÊlðI°jð³ñK‹Idjð²I¿`Z@LLÉ½L@J@È"LÈ lM¿A³'Hjð˜@LÊÏ&¿@LÊÏ)¿@Ê)‡jð—@LÊ‡Ï)‡LL d³¸(223Q \TRANSLATE.3TO10 36Q \LOCATE.PUPNET) (114Q BROADCASTNSHOSTNUMBER 25Q \LOCALNDBS) () \LOCATE.PUPNET :D8 (L (1 DONTPROBE 0 NET)) Ð@«o@ ¿`¥¿`@`åàÐÉ!HYµ@jð².@jhddddZ@:©@jðŸJjð™lJó´qJI°ÍA³g`@`åàÐ@lhdl nu0öhdH¿l¿`Ã•`‚l jö¿g ¿h(314Q BLOCK 306Q WAKE.PROCESS 264Q \CLOCK0 202Q \CLOCK0 32Q ASSURE.PUP.READY 16Q HELP) (301Q \PUPGATELISTENER 273Q \PUPROUTER.PROBETIMER 253Q \PUPROUTER.PROBETIMER 245Q FIXP 240Q \PUPROUTER.PROBETIMER 232Q \PUPROUTER.PROBECOUNT 162Q \ROUTING.TABLE.MASK 154Q \PUP.ROUTING.TABLE 46Q \ROUTING.TABLE.MASK 40Q \PUP.ROUTING.TABLE 24Q \PUP.READY) ( 10Q "Bad network number") SORT.PUPHOSTS.BY.DISTANCE :D8 (L (0 HOSTLIST)) N@d«dã ¿µô@Hµiª` ¿@g ãi ¢h°ÜHX°Ó(103Q \LOCATE.PUPNET 71Q SORT 55Q BLOCK 30Q BLOCK 16Q \LOCATE.PUPNET) (64Q \PUPNET.CLOSERP 50Q \ETHERTIMEOUT) () \PUPNET.CLOSERP :D8 (L (1 Y 0 X)) '@ãi H¡hAãi Y˜HIýñi(30Q \LOCATE.PUPNET 10Q \LOCATE.PUPNET) NIL () PUPNET.DISTANCE :D8 (L (0 NET#)) 2@ HµkYló•Hd‘` ¿@ XµéIkÔ°Þ(50Q \LOCATE.PUPNET 41Q BLOCK 5 \LOCATE.PUPNET) (34Q \ETHERTIMEOUT) () (RPAQ? \PUP.ROUTING.TABLE (CONS)) (RPAQ? \PUP.ROUTING.TABLE.RADIUS 2) (RPAQ? \PUPROUTER.PROBECOUNT 0) (RPAQ? \PUPROUTER.PROBETIMER) (RPAQ? \PUPROUTER.PROBEINTERVAL 5670Q) (RPAQ? \PUP.READY) (RPAQ? \PUP.READY.EVENT (CREATE.EVENT "Pup Ready")) (RPAQ? \PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready")) (ADDTOVAR \SYSTEMCACHEVARS \PUP.READY) (/DECLAREDATATYPE (QUOTE PUPSOCKET) (QUOTE ((BITS 4) POINTER FIXP POINTER WORD WORD WORD WORD (BITS 4) POINTER (BITS 4) POINTER)) (QUOTE ((PUPSOCKET 0 (BITS . 3)) (PUPSOCKET 0 POINTER) (PUPSOCKET 2 FIXP) (PUPSOCKET 4 POINTER) (PUPSOCKET 6 (BITS . 17Q)) (PUPSOCKET 7 (BITS . 17Q)) (PUPSOCKET 10Q (BITS . 17Q )) (PUPSOCKET 11Q (BITS . 17Q)) (PUPSOCKET 4 (BITS . 3)) (PUPSOCKET 12Q POINTER) (PUPSOCKET 12Q (BITS . 3)) (PUPSOCKET 14Q POINTER))) (QUOTE 16Q)) (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)))) OPENPUPSOCKET :D8 (L (1 IFCLASH 0 SKT#) P 15Q \INTERRUPTABLE) /@3 Á@Ã²E@Y ¿IdÈIÈ_¿_¿`]µhð’±ýIo±ï^ÈOð™NdÈOð³ã¿M°ÙHŸ@ »@ ¼° n€ä¼k» `h_¿_µdhZ³w`d`Í¿`_¿dO¿_dKÍ¿OLÍ¿Yd ¿I`¿J²_AiðªAdgð²5¿JY °G_ÈLð™OdÈKð³¿O°„H³ÌLnÿåkØn€ä¼±ÿjgð§Agð‘ho@ I(453Q ERROR 344Q \FLUSHPUPSOCQUEUE 272Q CREATE.EVENT 154Q \LONUM 147Q DAYTIME 137Q \LONUM 130Q \HINUM 24Q \FLUSHPUPSOCQUEUE) (434Q FAIL 424Q DON'T 331Q ACCEPT 311Q \PUPSOCKETS 303Q \PUPSOCKETS 234Q |SYSQUEUETYPE#| 224Q \MAX.EPKTS.ON.PUPSOCKET 215Q |PUPSOCKETTYPE#| 173Q \PUPSOCKETS 47Q \PUPSOCKETS 13Q PUPSOCKET) ( 445Q "Socket number is already in use" 67Q "Attempt to re-open a released PUPSOCKET.") CLOSEPUPSOCKET :D8 (L (1 NOERRORFLG 0 PUPSOC)) f@dið²&¿`d `¿b ¿@h °Þ @`²@` ¿iŽA«@o €h@h ¿(134Q ERROR 107Q DREMOVE 63Q \FLUSHPUPSOCQUEUE 42Q \FLUSHPUPSOCQUEUE) (114Q \PUPSOCKETS 102Q \PUPSOCKETS 71Q \PUPSOCKETS 56Q PUPSOCKET 32Q \PUPSOCKETS 24Q \PUPSOCKETS 13Q \PUPSOCKETS) ( 127Q "not an open PUP socket") PUPSOCKETNUMBER :D8 (L (0 PUPSOC)) @l (7 \GETBASEFIXP) NIL () PUPSOCKETFROMNUMBER :D8 (L (1 SOCHI 0 SOC#orSOCLO)) 8A³@ b¿@nÿÿåb¿`HµhYÈ@ð˜IdÈAð³ò¿HX°è(10Q \HINUM) (30Q \PUPSOCKETS) () PUPSOCKETEVENT :D8 (L (0 PUPSOC)) @É NIL (5 PUPSOCKET) () \FLUSHPUPSOCQUEUE :D8 (L (0 PUPSOC)) @É @jÍ@(7 \FLUSH.PACKET.QUEUE) NIL () \GETMISCSOCKET :D8 NIL !`µ `²ï`(13Q OPENPUPSOCKET) (36Q \MISC.SOCKET 26Q \PUPSOCKETS 20Q \MISC.SOCKET 4 \MISC.SOCKET) () (RPAQ? \MISC.SOCKET) (RPAQ? \PUPSOCKETS) PUP.ECHOSERVERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 FLG F 5 ECHOWINDOW F 6 SI::*RESETFORMS*) li 1gHhhdVc¿T§gc¿HÉ Z¿H Yµ J °ðÊ#‡kð»U²,Tµ°'gð²K•g„gU ‡IhU¿K² IlÍ#¿I ¿Ig¿HI …I ¿°Ž(234Q BLOCK 226Q RELEASE.PUP 217Q SENDPUP 176Q SWAPPUPPORTS 156Q PRINTPUP 145Q PRIN1 72Q AWAIT.EVENT 61Q GETPUP 7 OPENPUPSOCKET) (205Q FREE 137Q ? 131Q ! 117Q PEEK 43Q PEEK 17Q CLOSEPUPSOCKET) () PUP.ECHOSERVER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FLG I 0 ECHOWINDOW F 3 LISPXHIST) S!g ¿$(27Q SI::RESETUNWIND 22Q \MVLIST 15Q PUP.ECHOSERVERA0001) (10Q SI::RESETUNWIND) () PUP.ECHOUSERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 10Q ECHOSTREAM F 11Q NTIMES F 12Q INTERVAL F 13Q SI::*RESETFORMS* F 14Q HOST) ¯WWµ` l jöDgJhhdWc¿I¡hW¥nèc¿W¥nèc¿Wµig c¿HIlkhJi ¿Hk_Í,¿Hl"ÐdÈlÔÍ¿Ho ¿HÈ"¾JÉ ]¿JH ¿gW ¿KÃ‘K‚l Wö¿J \µZMKi¿K ²èHÊjð¬oW ¿gW ¿Wiðµ WmÿÔcjñ´‚±ÿ'HOkÔ_Í,±ÿwÊ#‡dlðž¿gW °1dlð²Z¿LÈ$HÈ$ð²LÈ%HÈ%ð˜LdÈ"Nð³¿gW ¿hL ¿¢±ÿc°‰È,OÙjðgW °Úo°Êlð²ÀLW °Â(653Q PRINTERRORPUP 625Q PRIN1 565Q RELEASE.PUP 555Q PRIN1 476Q PRIN1 402Q PRIN1 365Q PRIN1 340Q TIMEREXPIRED? 331Q AWAIT.EVENT 316Q GETPUP 304Q \CLOCK0 262Q PRIN1 245Q SENDPUP 224Q PUTPUPSTRING 157Q SETUPPUP 136Q GETSTREAM 41Q \CLOCK0 31Q OPENPUPSOCKET 24Q BESTPUPADDRESS 4 ALLOCATE.PUP) (616Q + 601Q ETHERPACKET 546Q ? 467Q x 436Q ETHERPACKET 373Q %. 271Q FIXP 253Q ! 166Q ETHERPACKET 131Q OUTPUT 53Q CLOSEPUPSOCKET 17Q PROMPTWINDOW) ( 634Q "(late)" 356Q "[not yet transmitted; maybe transmitter is off]" 217Q "Random string for echo") PUP.ECHOUSER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 NTIMES I 2 INTERVAL I 1 ECHOSTREAM I 0 HOST F 3 LISPXHIST) S!g ¿$(27Q SI::RESETUNWIND 22Q \MVLIST 15Q PUP.ECHOUSERA0001) (10Q SI::RESETUNWIND) () \PEEKPUP :D8 (L (1 FILE 0 HOST)) ú @µ=`Êdlð²¿oˆ`Ê‡Í‚l ð¿lYjñ´ ¿IkÙ°òið’i°_@AJµ Kd²Q°P£J¾h„J¾JºN` XµNo ½Lµ Mh\»°ÆM&¼°Ádãjð¬¿Hã`ãð²ÖHlÿå°Û¿`Êdlð™¿oˆjÍ‚l ð¿Aµ`¥i`g µ Ag ¿°Ñ(360Q OPENFILE 343Q OPENP 173Q ERROR 154Q BESTPUPADDRESS 64Q BLOCK) (365Q PUPTRACEFILE 353Q OUTPUT 336Q OUTPUT 330Q \PEEKPUPNUMBER 323Q PUPTRACEFLG 314Q PUPTRACEFLG 256Q \LOCALNDBS 250Q \PEEKPUPNUMBER 230Q \LOCALPUPNETHOST 147Q PROMPTWINDOW 77Q \PEEKPUPNUMBER 36Q \LOCALNDBS 12Q \LOCALNDBS) ( 166Q "not a host on local network") \MAYBEPEEKPUP :D8 (L (0 PUP)) y`²:`²30`ið³@dÊ&‡jð¬¿`¹Id³Ÿ@H`hi ¿@ £Iºh„IºI¹@dÊ)‡Jð˜¿gX¯@Ê&‡Jð²ÁgX²¹J³»i°·(104Q \RELEASE.ETHERPACKET 74Q PRINTPUP) (156Q GET 137Q PUT 64Q PUPTRACEFILE 47Q \PEEKPUPNUMBER 25Q \PEEKPUPNUMBER 13Q PUPTRACEFLG 4 \PEEKPUPNUMBER) () (RPAQ? \PEEKPUPNUMBER) PRINTPUPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PACKET F 1 FILE F 2 MACRO) PQlRNIL NIL () PRINTPUP :D8 (L (4 DOFILTER 3 PRE.NOTE 1 CALLER) P 3 SI::*RESETFORMS* P 1 MACRO I 2 FILE I 0 PACKET F 4 PUPTYPES) @B§`b¿@Ê#‡!D²q`™H`hð`²ZH`²QAgðªAdgð²¿@Ê&‡jð–g°#g°gð§Agð•g„g` ±âC—CB ¿@AB¿H`Yµ‚±ÂoB ¿@È"ZB ¿oB ¿oB ¿JlÙB ¿oB ¿B ¿oB ¿HTBo¿oB ¿@l"Ðl B ¿B ¿Jlñ²'oB ¿@l,ÐjIµoJlÙB ¿B @’±ÿ?gB hhhg ¿$°Ë(627Q SI::RESETUNWIND 622Q \MVLIST 615Q PRINTPUPA0001 571Q OUTPUT 547Q TERPRI 540Q PRINTPACKETDATA 507Q PRIN1 465Q TERPRI 456Q PRIN2 450Q \GETBASEFIXP 434Q PRIN1 420Q PRINTCONSTANT 402Q PRIN1 366Q TERPRI 357Q PRIN1 343Q PRIN2 330Q PRIN1 314Q PRIN1 300Q PRIN2 265Q PRIN1 232Q PRINTPUPROUTE 221Q PRIN1 205Q PRIN1) (610Q SI::RESETUNWIND 563Q OUTPUT 241Q PUPPRINTMACROS 200Q PUPTRACEFILE 173Q ? 165Q ! 156Q RAWPUT 146Q PUT 137Q + 130Q * 110Q RAWGET 77Q GET 66Q PUPIGNORETYPES 56Q PUPIGNORETYPES 45Q PUPONLYTYPES 36Q PUPONLYTYPES 14Q PUPTRACEFILE 5 ETHERPACKET) ( 525Q (BYTES 14Q |...|) 501Q "Contents: " 426Q ", ID = " 413Q "\PT." 374Q "Type = " 351Q ")" 322Q " (header + " 306Q " bytes" 257Q "Length = ") PRINTPUPROUTE :D8 (L (2 FILE 1 CALLER 0 PACKET)) èjdBA²AB ¿oB ¿@Ê#oB ¿@È)@l"Ðl B ¿oB ¿@È&@l"Ðl B Hjð³oB ¿HââââB ¿`²LoB ¿o@ YldÛB¿gB ¿oIldÜB¿oB ¿B h(344Q TERPRI 335Q PRIN1 321Q PRINTNUM 301Q PRIN1 265Q PRINTNUM 253Q \CENTICLOCK 237Q PRIN1 214Q PRIN2 200Q PRIN1 160Q PRIN1 152Q PORTSTRING 145Q \GETBASEFIXP 126Q PRIN1 112Q PRIN1 104Q PORTSTRING 77Q \GETBASEFIXP 60Q PRIN1 35Q PRIN1 21Q PRIN1 7 TAB) (273Q %. 222Q PUPTRACETIME) ( 327Q "]" 307Q (FIX 2 NIL T) 245Q (FIX 4) 231Q " [" 172Q ", Hops = " 120Q " to " 52Q "From " 27Q ": ") PRINTPUPDATA :D8 (L (3 FILE 2 OFFSET 1 MACRO 0 PUP)) @l,ÐBA@È"lÙC (22Q PRINTPACKETDATA) NIL () PRINTERRORPUP :D8 (L (1 FILE 0 PUP)) NoA @È) A oA @È6A oA @l A A (113Q TERPRI 105Q PRIN1 77Q GETPUPSTRING 67Q PRIN1 54Q PRIN2 43Q PRIN1 30Q PRIN1 22Q PORTSTRING 12Q PRIN1) NIL ( 61Q "] " 35Q ": [Error " 4 "From ") PUPTRACE :D8 (L (1 REGION 0 FLG)) ggoA@ (26Q MAKE-NETWORK-TRACE-WINDOW) (11Q PUPTRACEFILE 4 PUPTRACEFLG) ( 16Q "Pup traffic") PRINTCONSTANT :D8 (L (3 PREFIX 2 FILE 1 CONSTANTLIST 0 VAR)) l@B A´/oB AHµhµgB oB Y@ð²'CµI°ÙIkhi ²ñIC kØ °»HX°²(143Q SUBSTRING 134Q NCHARS 122Q STRPOS 67Q PRIN1 54Q PRIN1 25Q PRIN1 6 PRIN2) (46Q ?) ( 61Q ")" 17Q " (") (RPAQ? PUPTRACEFLG) (RPAQ? PUPTRACEFILE T) (RPAQ? PUPTRACETIME) (ADDTOVAR PUPPRINTMACROS) (ADDTOVAR PUPONLYTYPES) (ADDTOVAR PUPIGNORETYPES) (ADDTOVAR PUPPRINTMACROS (4 . PRINTERRORPUP) (220Q CHARS) (221Q REPEAT BYTES -2 WORDS -4) (223Q BYTES -2 WORDS) (224Q CHARS)) (\PUPINIT) (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)) NIL