$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPUDP.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r ( F I L E C R E
0000120 A T E D " 6 - A p r - 8 7
0000140 2 0 : 5 6 : 1 0 " ( " c o m p
0000160 i l e d o n " { E R I S }
0000200 < L I S P C O R E > L I B R A R
0000220 Y > T C P U D P . ; 1 2 ) \r "
0000240 3 1 - M a r - 8 7 2 1 : 3 3 :
0000260 3 5 " b r e c o m p i l e d
0000300 c h a n g e s % : n o t h i n
0000320 g i n " X e r o x L i s p
0000340 3 1 - M a r - 8 7 . . . "
0000360 d a t e d \r " 3 1 - M a r - 8
0000400 7 2 1 : 5 8 : 3 0 " ) \r ( F I
0000420 L E C R E A T E D " 6 - A p
0000440 r - 8 7 2 0 : 5 4 : 5 5 " {
0000460 E R I S } < L I S P C O R E > L
0000500 I B R A R Y > T C P U D P . ; 1
0000520 2 1 4 5 1 5 c h a n g e s
0000540 t o % : ( V A R S \r T C P U
0000560 D P C O M S ) p r e v i o u s
0000600 d a t e % : " 2 - A p r -
0000620 8 7 1 2 : 2 3 : 4 4 " { E R
0000640 I S } < L I S P C O R E > L I B
0000660 R A R Y > T C P U D P . ; 1 1 )
0000700 \r U D P . G E T . B Y T E : D
0000720 4 \r ( I 1 B Y T E # I 0
0000740 U D P ) \0 3 001 \0 \0 002 j A 361 263
0000760 - A @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0001000 022 310 002 375 361 264 030 @ 021 001 \0 H l 036 320 H
0001020 312 036 C 340 320 022 l 004 320 A 302 020 h 020 \0 N
0001040 I L \r N I L \r ( ) \r U D P . G E
0001060 T . C E L L : D 4 \r ( I 1
0001100 C E L L # I 0 U D P ) \0
0001120 L 001 \0 \0 002 j A 361 263 F A @ 021 001 \0 H
0001140 l 036 320 H 312 036 C 340 320 022 310 002 342 342 375 361
0001160 264 / @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0001200 022 A 340 320 310 004 @ 021 001 \0 H l 036 320 H 312
0001220 036 C 340 320 022 A 340 k 330 320 310 004 365 020 h 020
0001240 \0 N I L \r N I L \r ( ) \r U D P .
0001260 G E T . S T R I N G : D 4 \r (
0001300 P 3 S T R I N G P 1 L
0001320 E N G T H I 1 O F F S E T
0001340 I 0 U D P ) \0 Z 004 \0 \0 002
0001360 A 005 001 243 j b 002 277 @ 021 001 \0 H l 036 320
0001400 H 312 036 C 340 320 022 310 002 A 331 021 021 002 I \t
0001420 \0 \0 021 001 003 @ Z l 036 320 J 312 036 C 340 320
0001440 l 004 320 A K 312 002 020 j 360 244 K \t \0 \0 202
0001460 K 311 \0 K 312 002 020 j 360 244 K \t \0 \0 202 K
0001500 310 003 I \r 005 \0 \0 K 020 \0 ( 8 6 \ M
0001520 O V E B Y T E S 7 7 % % A R
0001540 R A Y - O F F S E T 6 2 % %
0001560 A R R A Y - B A S E 3 3 A L
0001600 L O C S T R I N G ) \r N I L \r (
0001620 ) \r U D P . G E T . W O R D :
0001640 D 4 \r ( L ( 1 W O R D # 0
0001660 U D P ) ) \0 3 001 \0 \0 002 j A 361
0001700 263 - A @ 021 001 \0 H l 036 320 H 312 036 C 340
0001720 320 022 310 002 342 375 361 264 027 @ 021 001 \0 H l 036
0001740 320 H 312 036 C 340 320 022 A 320 310 004 020 h 020 \0
0001760 N I L \r N I L \r ( ) \r \ U D P .
0002000 F L U S H . S O C K E T . Q U E
0002020 U E : D 4 \r ( P 1 P A C K
0002040 E T P 0 Q U E U E I 0
0002060 I P S O C K E T ) \0 002 \0 \0
0002100 001 @ 006 \0 \0 311 002 021 021 001 H \t \0 \0 Y 265
0002120 \v @ 006 \0 \0 j 315 004 h 020 \t \0 \0 277 260 354
0002140 \0 ( 2 7 \ R E L E A S E . E T
0002160 H E R P A C K E T 1 2 \ D E
0002200 Q U E U E ) \r ( 1 9 I P S O C
0002220 K E T 3 I P S O C K E T ) \r
0002240 ( ) \r \ U D P . P O R T C O M P
0002260 A R E : D 4 \r ( I 1 I P S
0002300 O C K E T I 0 U D P ) \0
0002320 032 001 \0 \0 002 @ 021 001 \0 H l 036 320 H 312 036
0002340 C 340 320 022 310 001 A 006 \0 \0 311 \b 360 020 \0 N
0002360 I L \r ( 2 0 I P S O C K E T )
0002400 \r ( ) \r \ U D P . C H E C K S U
0002420 M : D 4 \r ( P 4 C H E C K
0002440 S U M P 3 L E N G T H P
0002460 2 D E S T P 1 S O U R
0002500 C E I 1 Z e r o C h e c k
0002520 S u m I s O K I 0 U D P )
0002540 \0 260 \n \0 \0 002 A 262 030 @ 021 001 \0 H l
0002560 036 320 H 312 036 C 340 320 022 310 003 j 360 221 j 020
0002600 @ l 036 320 l 006 \n \0 \0 @ l 036 320 l \b \n
0002620 \0 \0 @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0002640 022 310 002 021 # 005 l 003 j @ l $ 320 j 021 004
0002660 \t O 016 N 363 263 027 O 022 O 020 O 016 320 310 \0
0002700 324 _ 022 277 O 016 k 324 _ 016 260 351 O 022 022 @
0002720 312 " 207 K @ d ] l 036 320 M 312 036 C 340 320
0002740 K \v \0 \0 330 330 330 \ d m 360 347 n 377 377 345
0002760 L n 377 377 345 330 \ d d m 360 347 n 377 377 345
0003000 j 360 222 261 377 | 277 d m 360 347 n 377 377 345 L
0003020 n 377 377 345 330 020 \0 ( 1 2 4 \ I P C
0003040 H E C K S U M 4 2 \ G E T B
0003060 A S E F I X P 3 3 \ G E T B
0003100 A S E F I X P ) \r N I L \r ( ) \r
0003120 \ U D P . S E T . C H E C K S U
0003140 M : D 4 \r ( P 0 C H E C K
0003160 S U M I 0 U D P ) \0 9 004
0003200 \0 \0 001 021 @ 003 @ Y l 036 320 I 312 036 C 340
0003220 320 j 315 003 @ \t \0 \0 X @ Z l 036 320 J 312
0003240 036 C 340 320 H n 377 377 360 250 H m 377 346 n 377
0003260 377 345 202 n 377 377 [ 315 003 K 020 \0 ( 2 0
0003300 \ U D P . C H E C K S U M ) \r N
0003320 I L \r ( ) \r P R I N T U D P :
0003340 D 4 \r ( I 1 F I L E I 0
0003360 U D P ) \0 270 001 \0 \0 002 o \0 \0 \0
0003400 A \n \0 \0 277 @ 021 001 \0 H l 036 320 H 312 036
0003420 C 340 320 022 310 \0 A \n \0 \0 277 o \0 \0 \0 A
0003440 \n \0 \0 277 @ 021 001 \0 H l 036 320 H 312 036 C
0003460 340 320 022 310 001 A \n \0 \0 277 A \t \0 \0 277 o
0003500 \0 \0 \0 A \n \0 \0 277 @ 021 001 \0 H l 036 320
0003520 H 312 036 C 340 320 022 310 002 A \n \0 \0 277 o \0
0003540 \0 \0 A \n \0 \0 277 @ 021 001 \0 H l 036 320 H
0003560 312 036 C 340 320 022 310 003 A \n \0 \0 277 A \t \0
0003600 \0 @ 021 001 \0 H l 036 320 H 312 036 C 340 320 022
0003620 310 001 l E 360 263 030 @ 021 001 \0 H l 036 320 H
0003640 312 036 C 340 320 022 310 \0 l E 360 264 \a @ A \n
0003660 \0 \0 020 \0 ( 1 8 1 P R I N T T F
0003700 T P 1 3 2 T E R P R I 1 2
0003720 7 P R I N 1 1 0 5 P R I N
0003740 1 9 6 P R I N 1 7 4 P R
0003760 I N 1 6 5 T E R P R I 6 0
0004000 P R I N 1 3 8 P R I N 1
0004020 2 9 P R I N 1 7 P R I N 1
0004040 ) \r N I L \r ( 1 0 1 " C h
0004060 e c k s u m : " 7 0 " L e
0004100 n g t h : " 3 4 " D e s
0004120 t p o r t : " 3 " S o u
0004140 r c e p o r t : " ) \r U D P
0004160 . I N I T : D 4 \r N I L \0 $
0004200 \0 \0 \0 \0 ` \0 \0 263 027 l 017 g \0 \0 o \0
0004220 \0 \0 \v \0 \0 g \0 \0 360 223 \b \0 \0 277 l 021
0004240 g \0 \0 \n \0 \0 020 \0 ( 3 3 \ I P .
0004260 A D D . P R O T O C O L 2 4
0004300 \ I P I N I T 1 6 A S K U S
0004320 E R ) \r ( 3 0 \ U D P . P O R
0004340 T C O M P A R E 1 9 Y 9
0004360 Y 2 \ I P F L G ) \r ( 1 3
0004400 " I P i s n o t r u n n
0004420 i n g . S h a l l I a t
0004440 t e m p t t o i n i t i a l
0004460 i z e i t ? " ) \r U D P . S
0004500 T O P : D 4 \r N I L \0 \a \0 \0
0004520 \0 \0 l 021 \t \0 \0 020 \0 ( 4 \ I P .
0004540 D E L E T E . P R O T O C O L )
0004560 \r N I L \r ( ) \r U D P . O P E N
0004600 . S O C K E T : D 4 \r ( P 1
0004620 I P S O C K E T P 0 U D
0004640 P C H A I N I 1 I F C L A
0004660 S H I 0 S K T # ) \0 [ 002
0004700 \0 \0 002 @ 005 001 253 n 003 350 n 377 377 \n \0 \0
0004720 b \0 277 l 021 \t \0 \0 021 001 \0 H 264 \a @ H
0004740 \n \0 \0 021 001 001 H 243 \b \0 \0 277 I 246 l 021
0004760 @ \n \0 \0 020 A i 360 247 A d g \0 \0 360 226
0005000 277 I \t \0 \0 I 020 g \0 \0 360 245 A g \0 \0
0005020 360 221 h 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 8
0005040 8 E R R O R 6 5 \ U D P .
0005060 F L U S H . S O C K E T . Q U E
0005100 U E 4 8 \ I P . O P E N . S
0005120 O C K E T 3 9 U D P . I N I
0005140 T 3 1 \ I P . F I N D . S O
0005160 C K E T 2 0 \ I P . F I N D
0005200 . P R O T O C O L 1 2 R A N
0005220 D ) \r ( 7 6 F A I L 7 0 D
0005240 O N ' T 5 8 A C C E P T ) \r
0005260 ( 8 4 " U D P P o r t i
0005300 s a l r e a d y i n u s e
0005320 " ) \r U D P . C L O S E . S O C
0005340 K E T : D 4 \r ( I 1 N O E
0005360 R R O R F L G I 0 I P S O
0005400 C K E T ) \0 022 \0 \0 \0 002 @ \t \0 \0
0005420 @ 006 \0 \0 311 \b l 021 A \v \0 \0 020 \0 ( 1
0005440 5 \ I P . C L O S E . S O C K
0005460 E T 3 \ U D P . F L U S H .
0005500 S O C K E T . Q U E U E ) \r ( 7
0005520 I P S O C K E T ) \r ( ) \r U D
0005540 P . S O C K E T . E V E N T :
0005560 D 4 \r ( I 0 I P S O C K E T
0005600 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \f 020 \0
0005620 N I L \r ( 3 I P S O C K E T )
0005640 \r ( ) \r U D P . S O C K E T . N
0005660 U M B E R : D 4 \r ( I 0 I
0005700 P S O C K E T ) \0 \b \0 \0 \0 001 @
0005720 006 \0 \0 311 \b 020 \0 N I L \r ( 3 I P
0005740 S O C K E T ) \r ( ) \r U D P . G
0005760 E T : D 4 \r ( P 3 \ I N T
0006000 E R R U P T A B L E P 2 T
0006020 I M E R P 1 U D P P 0
0006040 Q U E U E I 1 W A I T
0006060 I 0 I P S O C K E T ) \0 o
0006100 004 \0 \0 002 @ 006 \0 \0 311 002 021 ! 002 021 020 003
0006120 H \t \0 \0 Y 237 @ 006 \0 \0 @ 006 \0 \0 310 004
0006140 m 377 324 315 004 277 023 I 265 : A 265 \a \b \0 \0
0006160 I 020 i 360 263 031 J 265 $ A 3 246 A l \n
0006200 \n \0 \0 277 l 002 037 \t \0 \0 A 366 272 @ 006 \0
0006220 \0 311 \f J i \v \0 \0 277 260 264 \t \0 \0 262 357
0006240 h 020 i \n \0 \0 \t \0 \0 263 307 I \t \0 \0 277
0006260 260 235 \0 ( 1 0 6 \ R E L E A S E
0006300 . E T H E R P A C K E T 1 0 0
0006320 \ I P . C H E C K S U M . O K
0006340 9 7 \ U D P . C H E C K S U
0006360 M 8 9 T I M E R E X P I R E
0006400 D ? 8 3 A W A I T . E V E N
0006420 T 6 9 \ C L O C K 0 6 2
0006440 \ L I S P E R R O R 4 3 B L
0006460 O C K 1 5 \ D E Q U E U E )
0006500 \r ( 7 6 I P S O C K E T 2 5
0006520 I P S O C K E T 2 1 I P S
0006540 O C K E T 3 I P S O C K E T
0006560 ) \r ( ) \r U D P . S E N D : D
0006600 4 \r ( I 1 U D P I 0 I
0006620 P S O C K E T ) \0 \n \0 \0 \0 002 A
0006640 \t \0 \0 A \t \0 \0 020 \0 ( 7 \ I P .
0006660 T R A N S M I T 3 \ U D P .
0006700 S E T . C H E C K S U M ) \r N I
0006720 L \r ( ) \r U D P . E X C H A N G
0006740 E : D 4 \r ( I 2 T I M E O
0006760 U T I 1 O U T U D P I
0007000 0 I P S O C K E T ) \0 032 \0 \0
0007020 \0 003 @ \t \0 \0 @ A \n \0 \0 \b \0 \0 @ B
0007040 3 265 005 ` \0 \0 \n \0 \0 020 \0 ( 2 3
0007060 U D P . G E T 1 1 B L O C K
0007100 8 U D P . S E N D 3 \ U
0007120 D P . F L U S H . S O C K E T .
0007140 Q U E U E ) \r ( 2 0 \ E T H E
0007160 R T I M E O U T ) \r ( ) \r U D P
0007200 . S E T U P : D 4 \r ( I 5
0007220 R E Q U E U E I 4 I P S O
0007240 C K E T I 3 I D I 2
0007260 D E S T S O C K E T I 1 D
0007300 E S T H O S T I 0 U D P )
0007320 \0 [ 001 \0 \0 006 @ A C D E \r 005 \0 \0
0007340 @ l 036 320 d 310 001 l \b 324 315 001 277 B 005 001
0007360 262 025 @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0007400 022 B 315 001 277 @ 021 001 \0 H l 036 320 H 312 036
0007420 C 340 320 022 D 006 \0 \0 311 \b 315 \0 @ 021 001 \0
0007440 H l 036 320 H 312 036 C 340 320 022 l \b 315 002 @
0007460 020 \0 ( 8 \ I P . S E T U P I P
0007500 ) \r ( 6 4 I P S O C K E T ) \r
0007520 ( ) \r U D P . A P P E N D . B Y
0007540 T E : D 4 \r ( I 1 B Y T E
0007560 I 0 U D P ) \0 # 002 \0 \0 002
0007600 @ A \n \0 \0 @ 021 001 \0 H l 036 320 H 312 036
0007620 C 340 320 022 d 310 002 k 324 021 002 001 H I 315 002
0007640 I 020 \0 ( 4 \ I P . A P P E N D
0007660 . B Y T E ) \r N I L \r ( ) \r U D
0007700 P . A P P E N D . C E L L : D
0007720 4 \r ( I 1 C E L L I 0
0007740 U D P ) \0 $ 002 \0 \0 002 @ A \n \0 \0
0007760 @ 021 001 \0 H l 036 320 H 312 036 C 340 320 022 d
0010000 310 002 l 004 324 021 002 001 H I 315 002 I 020 \0 (
0010020 4 \ I P . A P P E N D . C E L
0010040 L ) \r N I L \r ( ) \r U D P . A P
0010060 P E N D . S T R I N G : D 4 \r
0010100 ( I 1 S T R I N G I 0
0010120 U D P ) \0 2 002 \0 \0 002 A \t \0 \0 246
0010140 A \t \0 \0 b 002 277 @ A \n \0 \0 @ 021 001 \0
0010160 H l 036 320 H 312 036 C 340 320 022 d 310 002 A \t
0010200 \0 \0 324 021 002 001 H I 315 002 I 020 \0 ( 3 8
0010220 N C H A R S 1 6 \ I P . A
0010240 P P E N D . S T R I N G 8 M
0010260 K S T R I N G 3 S T R I N G
0010300 P ) \r N I L \r ( ) \r U D P . A P
0010320 P E N D . W O R D : D 4 \r ( I
0010340 1 W O R D I 0 U D P )
0010360 \0 $ 002 \0 \0 002 @ A \n \0 \0 @ 021 001 \0
0010400 H l 036 320 H 312 036 C 340 320 022 d 310 002 l 002
0010420 324 021 002 001 H I 315 002 I 020 \0 ( 4 \ I
0010440 P . A P P E N D . W O R D ) \r N
0010460 I L \r ( ) \r U D P . I N C R E M
0010500 E N T . L E N G T H : D 4 \r (
0010520 L ( 1 I N C R E M E N T 0
0010540 U D P ) ) \0 % 001 \0 \0 002 @ l 036
0010560 320 d 310 001 A 324 315 001 277 @ 021 001 \0 H l 036
0010600 320 H 312 036 C 340 320 022 d 310 002 A 324 315 002 A
0010620 020 \0 N I L \r N I L \r ( ) \r ( P R
0010640 E T T Y C O M P R I N T T C P
0010660 U D P C O M S ) \r ( R P A Q Q
0010700 T C P U D P C O M S ( ( C O M
0010720 S ( * ; ; " U s e r D a
0010740 t a g r a m P r o t o c o l
0010760 - - - D e f i n i t i o n s "
0011000 ) ( D E C L A R E % : E V A
0011020 L @ C O M P I L E \r D O N T C
0011040 O P Y ( E X P O R T ( R E C
0011060 O R D S U D P ) ( C O N S T
0011100 A N T S ( \ U D P O V L E N
0011120 8 ) ) ) ) ( F I L E S ( S Y
0011140 S L O A D ) T C P L L I P ) )
0011160 ( C O M S ( * ; ; \r " I
0011200 n t e r n a l f u n c t i o n
0011220 s " ) ( F N S U D P . G E T
0011240 . B Y T E U D P . G E T . C E
0011260 L L U D P . G E T . S T R I N
0011300 G U D P . G E T . W O R D \r
0011320 \ U D P . F L U S H . S O C K E
0011340 T . Q U E U E \ U D P . P O R
0011360 T C O M P A R E \ U D P . C H
0011400 E C K S U M \ U D P . S E T .
0011420 C H E C K S U M ) ) ( C O M S
0011440 ( * ; ; \r " E x t e r n a
0011460 l f u n c t i o n s " ) ( F
0011500 N S P R I N T U D P U D P .
0011520 I N I T U D P . S T O P U D
0011540 P . O P E N . S O C K E T U D
0011560 P . C L O S E . S O C K E T \r
0011600 U D P . S O C K E T . E V E N T
0011620 U D P . S O C K E T . N U M B
0011640 E R U D P . G E T U D P . S
0011660 E N D U D P . E X C H A N G E
0011700 U D P . S E T U P U D P . A
0011720 P P E N D . B Y T E \r U D P .
0011740 A P P E N D . C E L L U D P .
0011760 A P P E N D . S T R I N G U D
0012000 P . A P P E N D . W O R D U D
0012020 P . I N C R E M E N T . L E N G
0012040 T H ) ( A D D V A R S ( I P
0012060 P R I N T M A C R O S ( 1 7
0012100 . \r P R I N T U D P ) ) ) (
0012120 P ( U D P . I N I T ) ) ) ) )
0012140 \r ( F I L E S L O A D ( S Y S
0012160 L O A D ) T C P L L I P ) \r (
0012200 A D D T O V A R I P P R I N T
0012220 M A C R O S ( 1 7 . P R I
0012240 N T U D P ) ) \r ( U D P . I N I
0012260 T ) \r ( P U T P R O P S T C P
0012300 U D P C O P Y R I G H T ( "
0012320 X e r o x C o r p o r a t i o
0012340 n " 1 9 8 5 1 9 8 6 1 9 8
0012360 7 ) ) \r N I L \r
0012370