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