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