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