(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED "16-Apr-87 15:59:54" ("compiled on " {ERIS}LIBRARY>TCPDEBUG.;16) "15-Apr-87 10:39:13" "COMPILE-FILEd" in "Xerox Lisp 15-Apr-87 ..." dated "15-Apr-87 11:06:40") (FILECREATED "16-Apr-87 15:15:22" {ERIS}LIBRARY>TCPDEBUG.;16 27007 changes to%: (FNS TCPTRACE) previous date%: " 2-Apr-87 12:12:35" {ERIS}LIBRARY>TCPDEBUG.;15) (RPAQQ TCPDEBUGCOMS ((COMS (* ;; "standard TCP small servers") (FNS TCP.SINK.SERVER TCP.TELNET.SERVER \TCP.SINK.PROCESS TCP.ECHO.SERVER \TCP.ECHO.PROCESS)) (COMS (* ;; "TCP tracing and debugging info") ( DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS LIGHTGRAYSHADE)) (GLOBALVARS TCPTRACEFLG TCPTRACEFILE TCPTRACEMENU \TCP.ELAPSED.TIME \TCP.DEBUGGABLE) (INITVARS TCPTRACEFLG TCPTRACEFILE TCPTRACEMENU \TCP.ELAPSED.TIME NETTRACETITLEREG) (VARS (\TCP.DEBUGGABLE T)) (BITMAPS NETTRACEICON NETTRACEMASK) ( FILES (SYSLOAD) TCP) (FNS TCP.PRINT.SEGMENT \TCP.PRINT.OPTIONS \TCP.PRINT.ELAPSED.TIME \TCP.PRINT.SEGMENT.QUEUE TCPTRACE \TCPTRACEMENU.ITEMFN \TCPTRACEMENU.DISPLAYFN TCP.DRIBBLE)) (COMS (* ;; "miscellaneous TCP debugging") (GLOBALVARS \TCP.LOSSAGE \TCP.LOOPBACK.QUEUE \TCP.LOOPBACK.EVENT \TCP.MASTER.SOCKET) (INITVARS \TCP.LOSSAGE \TCP.LOOPBACK.QUEUE \TCP.LOOPBACK.EVENT) (FNS TCP.DEBUG TCP.WATCHER DUMMY\IP\Transmit\Packet \TCP.CHECK.INPUT.QUEUE TCP.FAUCET TCP.ECHOTEST TCP.QUIET.ECHOTEST TCP.SINKTEST GENERATE.RANDOM.CHARS COPYBYTESTREAM TCP.COPYTOWINDOW TEST.CHECKSUM)))) TCP.SINK.SERVER :D4 (P 0 STREAM I 0 PORT) -hd@µl ggi X´îgHhgo ¿°Ù(40 ADD.PROCESS 20 TCP.OPEN) (33 NAME 26 \TCP.SINK.PROCESS 15 INPUT 12 PASSIVE) ( 37 "TCP Sink") TCP.TELNET.SERVER :D4 (P 1 OUTSTREAM P 0 INSTREAM) \hdlgg Hd²G YgHdždiðª3µ gHhId´diðª3µ gIhhgo o I (89 GENERATE.RANDOM.CHARS 85 ADD.PROCESS 78 ADD.PROCESS 23 TCP.OTHER.STREAM 13 TCP.OPEN) (71 NAME 60 QUOTE 41 QUOTE 27 \TCP.ECHO.PROCESS 9 INPUT 6 PASSIVE) ( 82 (TCP.TELNET.SERVER) 75 "Telnet echo") \TCP.SINK.PROCESS :D4 (I 0 STREAM F 0 SI::*RESETFORMS*) %g@hhdPc@g*@ ‘h@ ¿°ö(27 EOFP) (21 NILL 18 STREAM 2 CLOSEF) () TCP.ECHO.SERVER :D4 (P 0 STREAM I 0 PORT) 2hd@µlggi X´îgHd hgo ¿°Ô(45 ADD.PROCESS 31 TCP.OTHER.STREAM 20 TCP.OPEN) (38 NAME 26 \TCP.ECHO.PROCESS 15 INPUT 12 PASSIVE) ( 42 "TCP Echo") \TCP.ECHO.PROCESSA0001 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INSTR F 3 SI::NLSETQ-VALUE) i@R hcg(8 READP) (15 :NORMAL) () \TCP.ECHO.PROCESSA0002 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INSTR F 3 SI::NLSETQ-VALUE) i@R hcgNIL (13 :NORMAL) () \TCP.ECHO.PROCESSA0003 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INSTR F 3 SI::NLSETQ-VALUE) i@R hcgNIL (13 :NORMAL) () \TCP.ECHO.PROCESSA0004 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OUTSTR F 3 C F 4 SI::NLSETQ-VALUE) i@RS hcg(9 BOUT) (16 :NORMAL) () \TCP.ECHO.PROCESSA0005 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INSTR F 3 SI::NLSETQ-VALUE) i@R hcg(8 READP) (15 :NORMAL) () \TCP.ECHO.PROCESSA0006 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OUTSTR F 3 SI::NLSETQ-VALUE) i@R hcg(8 FORCEOUTPUT) (15 :NORMAL) () \TCP.ECHO.PROCESS :D4 (P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 C I 1 OUTSTR I 0 INSTR F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS* F 7 SI::*RESETFORMS*) g@hhdWcgAhhdWc@g ´@ ‘h`UioVJ gð´I²#`UioVJ gð´I°&A ¿`UioVJ gð´IX²`UioVJ `UioVJ gð´IŸ@g —@ ¢±ÿ@`UioVJ ±ÿ%(251 \TCP.ECHO.PROCESSA0006 225 EOFP 220 OPENP 203 \TCP.ECHO.PROCESSA0005 179 \TCP.ECHO.PROCESSA0004 144 \TCP.ECHO.PROCESSA0003 121 FORCEOUTPUT 106 \TCP.ECHO.PROCESSA0002 72 \TCP.ECHO.PROCESSA0001 47 EOFP 41 OPENP) (235 SI::NLSETQ-PROCEED-CASE 217 INPUT 207 :NORMAL 187 SI::NLSETQ-PROCEED-CASE 163 SI::NLSETQ-PROCEED-CASE 148 :NORMAL 128 SI::NLSETQ-PROCEED-CASE 110 :NORMAL 90 SI::NLSETQ-PROCEED-CASE 76 :NORMAL 56 SI::NLSETQ-PROCEED-CASE 38 INPUT 18 CLOSEF 2 CLOSEF) ( 242 (CL:ERROR . SI::NLSETQHANDLER) 194 (CL:ERROR . SI::NLSETQHANDLER) 170 (CL:ERROR . SI::NLSETQHANDLER) 135 (CL:ERROR . SI::NLSETQHANDLER) 97 (CL:ERROR . SI::NLSETQHANDLER) 63 (CL:ERROR . SI::NLSETQHANDLER)) (RPAQ? TCPTRACEFLG NIL) (RPAQ? TCPTRACEFILE NIL) (RPAQ? TCPTRACEMENU NIL) (RPAQ? \TCP.ELAPSED.TIME NIL) (RPAQ? NETTRACETITLEREG NIL) (RPAQQ \TCP.DEBUGGABLE T) (RPAQQ NETTRACEICON #*(72 72)AOOOOOOOOOOOOOOOL@@@COOOOOOOOOOOOOOON@@@G@@@@@@@@@@@@@@@G@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@F@@@@@@@@@@@@@@@C@@@G@@@@@@@@@@@@@@@G@@@COOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@F@@@DIBDL@@@@@@@@@@@F@@@DIBDL@@@@@@@@@@@F@@@DIBDL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@F@@@@@@@L@@@@@L@@@@@F@@@@@@@L@@@@@N@@@@@F@@@@@@@L@@@@@K@@@@@GH@@@@@CLCOOOOIH@@@@F@@@@@@@LGOOOOHL@@@@F@@@@@@@LD@@@@@F@@@@F@@@@@@@LD@@@@@C@@@@GOOOOOOOLD@@@@@A@@@@F@@@@@@@LD@@@@@B@@@@F@@@@@@@LD@@@@@D@@@@F@@@@@@@LGOOOOHH@@@@GH@@@@@CL@@@@@I@@@@@F@@@@@@@L@@@@@J@@@@@F@@@@@@@L@@@@@L@@@@@F@@@@@@@L@@@@@H@@@@@GH@@@@@CL@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@GOOOOOOOL@@D@@@@@@@@F@@@@@@@L@@L@@@@@@@@F@@@@@@@L@AL@@@@@@@@F@@@@@@@L@BL@@@@@@@@GH@@@@@CL@DOOOOOH@@@F@@@@@@@L@HOOOOOH@@@F@@@@@@@LA@@@@@AH@@@F@@@@@@@LB@@@@@AH@@@GOOOOOOOLD@@@@@AH@@@F@@@@@@@LB@@@@@AH@@@F@@@D@@@LA@@@@@AH@@@F@@@D@@@L@HOOOOO@@@@F@@@@@@@L@DL@@@@@@@@F@@@D@@@L@BL@@@@@@@@F@@@D@@@L@AL@@@@@@@@F@@@@@@@L@@H@@@@@@@@F@@@D@@@L@@@@@@@@@@@F@@@D@@@L@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@F@@@@@@@L@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@ ) (RPAQQ NETTRACEMASK #*(72 72)AOOOOOOOOOOOOOOOL@@@COOOOOOOOOOOOOOON@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@GOOOOOOOOOOOOOOOO@@@COOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@L@@@@@GOOOOOOOL@@@@@N@@@@@GOOOOOOOL@@@@@O@@@@@GOOOOOOOLCOOOOOH@@@@GOOOOOOOLGOOOOOL@@@@GOOOOOOOLGOOOOON@@@@GOOOOOOOLGOOOOOO@@@@GOOOOOOOLGOOOOOO@@@@GOOOOOOOLGOOOOON@@@@GOOOOOOOLGOOOOOL@@@@GOOOOOOOLGOOOOOH@@@@GOOOOOOOL@@@@@O@@@@@GOOOOOOOL@@@@@N@@@@@GOOOOOOOL@@@@@L@@@@@GOOOOOOOL@@@@@H@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@D@@@@@@@@GOOOOOOOL@@L@@@@@@@@GOOOOOOOL@AL@@@@@@@@GOOOOOOOL@CL@@@@@@@@GOOOOOOOL@GOOOOOH@@@GOOOOOOOL@OOOOOOH@@@GOOOOOOOLAOOOOOOH@@@GOOOOOOOLCOOOOOOH@@@GOOOOOOOLGOOOOOOH@@@GOOOOOOOLCOOOOOOH@@@GOOOOOOOLAOOOOOOH@@@GOOOOOOOL@OOOOOO@@@@GOOOOOOOL@GL@@@@@@@@GOOOOOOOL@CL@@@@@@@@GOOOOOOOL@AL@@@@@@@@GOOOOOOOL@@H@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@GOOOOOOOL@@@@@@@@@@@ ) (FILESLOAD (SYSLOAD) TCP) TCP.PRINT.SEGMENTA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 SEGMENT F 2 FILE) joh QlÐl R oh QHlÐHÊCàÐÈh oh QlÐl R oh QHlÐHÊCàÐÈh h (103 TERPRI 99 PRIN1 78 PRIN1 70 \IP.PRINT.ADDRESS 66 \GETBASEFIXP 57 PRIN1 49 PRIN1 28 PRIN1 20 \IP.PRINT.ADDRESS 16 \GETBASEFIXP 7 PRIN1) NIL ( 74 ":" 53 " to " 24 ":" 3 "from ") TCP.PRINT.SEGMENT :D4 (P 16 I P 14 SI::*RESETFORMS* P 7 BASE P 6 TOP P 5 FLAGS P 4 LEN P 3 SEQ P 2 COMMA P 1 SEPR I 3 DATAFLG I 2 NOFROMTOFLG I 1 FILE I 0 SEGMENT) oo@HlÐHÊCàÐl @ @HlÐHÊCàÐÊ¥… B³$gA hhhg ¿ KA KLMi ØØkÙ^jKNÙñžoA ¿NA ¿oA ¿@_lÐOÊCàÐl A ¿oA Mdl åjð³¿IA ¿oA ¿J¹Mlåjð³IA ¿oA ¿J¹Mdlåjð³¿IA ¿oA ¿J¹Mlåjð³IA ¿oA ¿J¹Mdlåjð³¿IA ¿oA ¿J¹Mkåjð³IA ¿oA ¿J¹oA ¿@_lÐOÊCàÐÈA ¿oA ¿@_lÐOÊCàÐÈA ¿oA ¿LA ¿A @_lÐOÊCàÐÊlñ•@A ¿C´eLjð³_L•L ³UoA ¿@_lÐOÊCàÐ@_lÐOÊCàÐÊàÐ_¿LkÙjO Oó³OO  A ¿O kÔ_ °èA h(526 TERPRI 512 PRIN1 508 CHARACTER 451 PRIN1 441 \FZEROP 424 \TCP.PRINT.OPTIONS 399 TERPRI 394 PRIN1 388 PRIN1 379 PRIN1 359 PRIN1 350 PRIN1 330 PRIN1 319 PRIN1 310 PRIN1 295 PRIN1 286 PRIN1 268 PRIN1 259 PRIN1 243 PRIN1 234 PRIN1 216 PRIN1 207 PRIN1 191 PRIN1 182 PRIN1 167 PRIN1 158 PRIN1 154 \GETBASEFIXP 135 PRIN1 126 PRIN1 120 PRIN1 101 \TCP.SYN.OR.FIN 94 PRIN1 88 CL:VALUES-LIST 84 SI::RESETUNWIND 81 \MVLIST 78 TCP.PRINT.SEGMENTA0001 62 OUTPUT 31 \TCP.DATA.LENGTH 27 \GETBASEFIXP) (75 SI::RESETUNWIND 58 OUTPUT) ( 447 "Contents:" 384 " length = " 355 " checksum = " 326 "] window = " 315 "FIN" 291 "SYN" 264 "RST" 239 "PSH" 212 "ACK" 187 "URG" 163 " [" 131 "/" 116 ".." 7 "," 3 "") \TCP.PRINT.OPTIONS :D4 (P 3 OPTION P 2 OPTIONOFFSET P 1 OPTIONBASE I 1 FILE I 0 SEGMENT) €oA @HlÐHÊCàÐl ÐjIJÂ[djð‘hjðœoA ¿Jk°