$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>LIBRARY>TCPUDP.DCOM!1
0000000 ( F I L E C R E A T E D " 1 5
0000020 - A p r - 8 5 1 6 : 4 1 : 4 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > T C P U D P
0000120 . ; 1 ) \r " 1 9 - M a r - 8 5
0000140 1 4 : 3 4 : 1 7 " t c o m p
0000160 l ' d i n " I N T E R L I S
0000200 P - D 1 9 - M a r - 8 5 . .
0000220 . " d a t e d " 1 9 - M a r
0000240 - 8 5 1 4 : 4 8 : 3 5 " ) \r (
0000260 F I L E C R E A T E D " 1 5 -
0000300 A p r - 8 5 1 6 : 4 0 : 1 0 "
0000320 { E R I S } < L I S P C O R E
0000340 > L I B R A R Y > T C P U D P .
0000360 ; 1 9 4 8 4 c h a n g e s
0000400 t o : ( V A R S U D P C O M
0000420 S \r T C P U D P C O M S ) p
0000440 r e v i o u s d a t e : " 1
0000460 0 - F e b - 8 5 0 0 : 1 7 : 3
0000500 0 " { E R I S } < L I S P C O
0000520 R E > L I B R A R Y > U D P . ;
0000540 6 ) \r \ U D P . F L U S H . S O
0000560 C K E T . Q U E U E D 1 \r ( P
0000600 1 P A C K E T P 0 Q U
0000620 E U E I 0 I P S O C K E T
0000640 ) \0 002 \0 \0 001 @ 006 \0 \0 311 002 021 021
0000660 001 H \t \0 \0 Y 265 \v @ 006 \0 \0 j 315 004 h
0000700 020 \t \0 \0 277 260 354 \0 ( 3 3 Q \ R E
0000720 L E A S E . E T H E R P A C K E
0000740 T 1 4 Q \ D E Q U E U E ) \r
0000760 ( 2 3 Q I P S O C K E T 3
0001000 I P S O C K E T ) \r ( ) \r \ U D
0001020 P . P O R T C O M P A R E D 1
0001040 \r ( L ( 1 I P S O C K E T
0001060 0 U D P ) ) \0 032 001 \0 \0 002 @ 021
0001100 001 \0 H l 036 320 H 312 036 C 340 320 022 310 001 A
0001120 006 \0 \0 311 \b 360 020 \0 N I L \r ( 2 4 Q
0001140 I P S O C K E T ) \r ( ) \r \ U
0001160 D P . C H E C K S U M D 1 \r (
0001200 P 4 C H E C K S U M P 3
0001220 L E N G T H P 2 D E S T
0001240 P 1 S O U R C E I 0
0001260 U D P ) \0 205 \n \0 \0 001 @ 313 $ @ 313
0001300 & @ 021 001 \0 H l 036 320 H 312 036 C 340 320 022
0001320 310 002 021 # 005 l 003 j @ l $ 320 j 021 004 \t
0001340 O 016 N 363 263 027 O 022 O 020 O 016 320 310 \0 324
0001360 _ 022 277 O 016 k 324 _ 016 260 351 O 022 022 @ 312
0001400 " 207 K @ d ] l 036 320 M 312 036 C 340 320 K
0001420 \v \0 \0 330 330 330 \ d 343 343 n 377 377 345 L n
0001440 377 377 345 330 \ d d 343 343 n 377 377 345 j 360 255
0001460 277 d 343 343 n 377 377 345 L n 377 377 345 330 020 \0
0001500 ( 1 2 7 Q \ I P C H E C K S U
0001520 M ) \r N I L \r ( ) \r \ U D P . S
0001540 E T . C H E C K S U M D 1 \r (
0001560 P 0 C H E C K S U M I 0
0001600 U D P ) \0 9 004 \0 \0 001 021 @ 003 @
0001620 Y l 036 320 I 312 036 C 340 320 j 315 003 @ \t \0
0001640 \0 X @ Z l 036 320 J 312 036 C 340 320 H n 377
0001660 377 360 250 H m 377 346 n 377 377 345 202 n 377 377 [
0001700 315 003 K 020 \0 ( 2 4 Q \ U D P . C
0001720 H E C K S U M ) \r N I L \r ( ) \r
0001740 U D P . I N I T D 1 \r N I L
0001760 \0 $ \0 \0 \0 \0 ` \0 \0 263 027 l 017 g \0 \0
0002000 o \0 \0 \0 \v \0 \0 g \0 \0 360 223 \b \0 \0 277
0002020 l 021 g \0 \0 \n \0 \0 020 \0 ( 4 1 Q \
0002040 I P . A D D . P R O T O C O L
0002060 3 0 Q \ I P I N I T 2 0 Q
0002100 A S K U S E R ) \r ( 3 6 Q \ U
0002120 D P . P O R T C O M P A R E 2
0002140 3 Q Y 1 1 Q Y 2 \ I P
0002160 F L G ) \r ( 1 5 Q " I P i
0002200 s n o t r u n n i n g .
0002220 S h a l l I a t t e m p t
0002240 t o i n i t i a l i z e i t
0002260 ? " ) \r U D P . S T O P D 1
0002300 \r N I L \0 \a \0 \0 \0 \0 l 021 \t \0 \0
0002320 020 \0 ( 4 \ I P . D E L E T E .
0002340 P R O T O C O L ) \r N I L \r ( )
0002360 \r U D P . O P E N . S O C K E T
0002400 D 1 \r ( P 1 I P S O C K E
0002420 T P 0 U D P C H A I N I
0002440 1 I F C L A S H I 0 S
0002460 K T # ) \0 Y 002 \0 \0 002 @ 005 001 251 k
0002500 n 377 377 \n \0 \0 b \0 277 l 021 \t \0 \0 021 001
0002520 \0 H 264 \a @ H \n \0 \0 021 001 001 H 243 \b \0
0002540 \0 277 I 246 l 021 @ \n \0 \0 020 A i 360 247 A
0002560 d g \0 \0 360 226 277 I \t \0 \0 I 020 g \0 \0
0002600 360 245 A g \0 \0 360 221 h 020 o \0 \0 \0 @ \n
0002620 \0 \0 020 \0 ( 1 2 6 Q E R R O R
0002640 7 7 Q \ U D P . F L U S H . S
0002660 O C K E T . Q U E U E 5 6 Q
0002700 \ I P . O P E N . S O C K E T
0002720 4 5 Q U D P . I N I T 3 5 Q
0002740 \ I P . F I N D . S O C K E T
0002760 2 2 Q \ I P . F I N D . P R
0003000 O T O C O L 1 2 Q R A N D )
0003020 \r ( 1 1 2 Q F A I L 1 0 4 Q
0003040 D O N ' T 7 0 Q A C C E P
0003060 T ) \r ( 1 2 2 Q " U D P P
0003100 o r t i s a l r e a d y i
0003120 n u s e " ) \r U D P . C L O S
0003140 E . S O C K E T D 1 \r ( I 1
0003160 N O E R R O R F L G I 0
0003200 I P S O C K E T ) \0 022 \0 \0 \0 002
0003220 @ \t \0 \0 @ 006 \0 \0 311 \b l 021 A \v \0 \0
0003240 020 \0 ( 1 7 Q \ I P . C L O S E
0003260 . S O C K E T 3 \ U D P . F
0003300 L U S H . S O C K E T . Q U E U
0003320 E ) \r ( 7 I P S O C K E T ) \r
0003340 ( ) \r U D P . S O C K E T . E V
0003360 E N T D 1 \r ( L ( 0 I P S
0003400 O C K E T ) ) \0 \b \0 \0 \0 001 @ 006
0003420 \0 \0 311 \f 020 \0 N I L \r ( 3 I P S
0003440 O C K E T ) \r ( ) \r U D P . S O
0003460 C K E T . N U M B E R D 1 \r (
0003500 L ( 0 I P S O C K E T ) )
0003520 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \b 020 \0 N I
0003540 L \r ( 3 I P S O C K E T ) \r (
0003560 ) \r U D P . G E T D 1 \r ( P
0003600 2 U D P P 1 E V E N T
0003620 P 0 Q U E U E I 1 W A
0003640 I T I 0 I P S O C K E T )
0003660 \0 236 003 \0 \0 002 @ 006 \0 \0 311 002 021 001 \0
0003700 H 006 \0 \0 311 \0 262 030 H \t \0 \0 @ 006 \0 \0
0003720 @ 006 \0 \0 310 004 m 377 324 315 004 277 260 h A d
0003740 262 d d d 005 001 241 005 002 262 , 277 @ 006 \0 \0
0003760 311 \f A \n \0 \0 277 H 006 \0 \0 311 \0 264 G H
0004000 \t \0 \0 @ 006 \0 \0 @ 006 \0 \0 310 004 m 377 324
0004020 315 004 277 260 1 i 360 264 - @ 006 \0 \0 311 \f 021
0004040 001 001 I \t \0 \0 277 H 006 \0 \0 311 \0 262 365 H
0004060 \t \0 \0 @ 006 \0 \0 @ 006 \0 \0 310 004 m 377 324
0004100 315 004 277 022 021 001 002 J d 230 \t \0 \0 \t \0 \0
0004120 264 003 J 020 \0 ( 2 3 0 Q \ I P . C
0004140 H E C K S U M . O K 2 2 5 Q
0004160 \ U D P . C H E C K S U M 1 7
0004200 3 Q \ D E Q U E U E 1 5 6 Q
0004220 A W A I T . E V E N T 1 1 3
0004240 Q \ D E Q U E U E 7 6 Q A
0004260 W A I T . E V E N T 2 4 Q \
0004300 D E Q U E U E ) \r ( 2 0 3 Q I
0004320 P S O C K E T 1 7 7 Q I P S
0004340 O C K E T 1 6 3 Q S Y S Q U
0004360 E U E 1 4 5 Q I P S O C K E
0004400 T 1 2 3 Q I P S O C K E T
0004420 1 1 7 Q I P S O C K E T 1 0
0004440 3 Q S Y S Q U E U E 7 0 Q
0004460 I P S O C K E T 3 4 Q I P S
0004500 O C K E T 3 0 Q I P S O C K
0004520 E T 1 4 Q S Y S Q U E U E
0004540 3 I P S O C K E T ) \r ( ) \r U
0004560 D P . S E N D D 1 \r ( I 1
0004600 U D P I 0 I P S O C K E T
0004620 ) \0 \n \0 \0 \0 002 A \t \0 \0 A \t \0 \0
0004640 020 \0 ( 7 \ I P . T R A N S M I
0004660 T 3 \ U D P . S E T . C H E
0004700 C K S U M ) \r N I L \r ( ) \r U D
0004720 P . E X C H A N G E D 1 \r ( I
0004740 2 T I M E O U T I 1 O
0004760 U T U D P I 0 I P S O C K
0005000 E T ) \0 036 \0 \0 \0 003 @ \t \0 \0 @ A
0005020 \n \0 \0 \b \0 \0 @ B d 005 001 241 005 002 265 005
0005040 ` \0 \0 \n \0 \0 020 \0 ( 3 3 Q U D P
0005060 . G E T 1 3 Q B L O C K 1
0005100 0 Q U D P . S E N D 3 \ U
0005120 D P . F L U S H . S O C K E T .
0005140 Q U E U E ) \r ( 3 0 Q \ E T H
0005160 E R T I M E O U T ) \r ( ) \r U D
0005200 P . S E T U P D 1 \r ( I 5
0005220 R E Q U E U E I 4 I P S O
0005240 C K E T I 3 I D I 2
0005260 D E S T S O C K E T I 1 D
0005300 E S T H O S T I 0 U D P )
0005320 \0 [ 001 \0 \0 006 @ A C D E \r 005 \0 \0
0005340 @ l 036 320 d 310 001 l \b 324 315 001 277 B 005 001
0005360 262 025 @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0005400 022 B 315 001 277 @ 021 001 \0 H l 036 320 H 312 036
0005420 C 340 320 022 D 006 \0 \0 311 \b 315 \0 @ 021 001 \0
0005440 H l 036 320 H 312 036 C 340 320 022 l \b 315 002 @
0005460 020 \0 ( 1 0 Q \ I P . S E T U P
0005500 I P ) \r ( 1 0 0 Q I P S O C K
0005520 E T ) \r ( ) \r U D P . A P P E N
0005540 D . B Y T E D 1 \r ( I 1 B
0005560 Y T E I 0 U D P ) \0 # 002
0005600 \0 \0 002 @ A \n \0 \0 @ 021 001 \0 H l 036 320
0005620 H 312 036 C 340 320 022 d 310 002 k 324 021 002 001 H
0005640 I 315 002 I 020 \0 ( 4 \ I P . A P P
0005660 E N D . B Y T E ) \r N I L \r ( )
0005700 \r U D P . A P P E N D . C E L L
0005720 D 1 \r ( I 1 C E L L I
0005740 0 U D P ) \0 $ 002 \0 \0 002 @ A \n
0005760 \0 \0 @ 021 001 \0 H l 036 320 H 312 036 C 340 320
0006000 022 d 310 002 l 004 324 021 002 001 H I 315 002 I 020
0006020 \0 ( 4 \ I P . A P P E N D . C
0006040 E L L ) \r N I L \r ( ) \r U D P .
0006060 A P P E N D . S T R I N G D 1
0006100 \r ( I 1 S T R I N G I 0
0006120 U D P ) \0 1 002 \0 \0 002 A 005 \a 246
0006140 A \t \0 \0 b 002 277 @ A \n \0 \0 @ 021 001 \0
0006160 H l 036 320 H 312 036 C 340 320 022 d 310 002 A \t
0006200 \0 \0 324 021 002 001 H I 315 002 I 020 \0 ( 4 5
0006220 Q N C H A R S 1 7 Q \ I P
0006240 . A P P E N D . S T R I N G 7
0006260 M K S T R I N G ) \r N I L \r (
0006300 ) \r U D P . A P P E N D . W O R
0006320 D D 1 \r ( I 1 W O R D I
0006340 0 U D P ) \0 $ 002 \0 \0 002 @ A
0006360 \n \0 \0 @ 021 001 \0 H l 036 320 H 312 036 C 340
0006400 320 022 d 310 002 l 002 324 021 002 001 H I 315 002 I
0006420 020 \0 ( 4 \ I P . A P P E N D .
0006440 W O R D ) \r N I L \r ( ) \r ( P R
0006460 E T T Y C O M P R I N T T C P
0006500 U D P C O M S ) \r ( R P A Q Q
0006520 T C P U D P C O M S ( ( C O M
0006540 S ( * U s e r D a t a g r
0006560 a m P r o t o c o l - D e
0006600 f i n i t i o n s ) ( R E C O
0006620 R D S U D P ) ( C O N S T A
0006640 N T S ( \ U D P O V L E N \r
0006660 8 ) ) ( F I L E S ( S Y S L
0006700 O A D F R O M V A L U E O F
0006720 L I S P U S E R S D I R E C T
0006740 O R I E S ) T C P L L I P ) )
0006760 ( C O M S ( * I n t e r n
0007000 a l f u n c t i o n s ) ( F
0007020 N S \r \ U D P . F L U S H . S
0007040 O C K E T . Q U E U E \ U D P
0007060 . P O R T C O M P A R E \ U D
0007100 P . C H E C K S U M \ U D P .
0007120 S E T . C H E C K S U M ) ) (
0007140 C O M S ( * E x t e r n a l
0007160 f u n c t i o n s \r ) ( F N
0007200 S U D P . I N I T U D P . S
0007220 T O P U D P . O P E N . S O C
0007240 K E T U D P . C L O S E . S O
0007260 C K E T U D P . S O C K E T .
0007300 E V E N T U D P . S O C K E T
0007320 . N U M B E R U D P . G E T
0007340 \r U D P . S E N D U D P . E X
0007360 C H A N G E U D P . S E T U P
0007400 U D P . A P P E N D . B Y T E
0007420 U D P . A P P E N D . C E L L
0007440 U D P . A P P E N D . S T R I
0007460 N G U D P . A P P E N D . W O
0007500 R D ) ( P \r ( U D P . I N I
0007520 T ) ) ) ) ) \r ( A C C E S S F N
0007540 S U D P ( ( U D P B A S E
0007560 ( \ I P D A T A B A S E D A T
0007600 U M ) ) ) ( B L O C K R E C O
0007620 R D U D P B A S E ( ( U D P
0007640 S O U R C E P O R T W O R D )
0007660 ( U D P D E S T P O R T \r W
0007700 O R D ) ( U D P L E N G T H
0007720 W O R D ) ( U D P C H E C K S
0007740 U M W O R D ) ) ) ( A C C E
0007760 S S F N S U D P ( ( U D P C
0010000 O N T E N T S ( \ A D D B A S
0010020 E ( \ I P D A T A B A S E D
0010040 A T U M \r ) ( F O L D H I \
0010060 U D P O V L E N B Y T E S P E
0010100 R W O R D ) ) ) ) ) ) \r ( R P A
0010120 Q Q \ U D P O V L E N 8 ) \r
0010140 ( C O N S T A N T S ( \ U D P
0010160 O V L E N 8 ) ) \r ( F I L E S
0010200 L O A D ( S Y S L O A D F R
0010220 O M V A L U E O F L I S P U
0010240 S E R S D I R E C T O R I E S )
0010260 T C P L L I P ) \r ( U D P . I
0010300 N I T ) \r ( P U T P R O P S T
0010320 C P U D P C O P Y R I G H T
0010340 ( " X e r o x C o r p o r a t
0010360 i o n " 1 9 8 5 ) ) \r N I L \r
0010400