$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TCPLLICMP!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 8 - J a n - 8 7 1 6 : 4 4 : 2
0000140 5 " 006 004 { E R I S } < L I S P
0000160 C O R E > T C P > T C P L L I C
0000200 M P . ; 2 006 001 N I L \r \r
0000220 p r e v i o u s d a
0000240 t e % : " 1 2 - M a y - 8 6
0000260 1 8 : 2 3 : 1 4 " { E R I S }
0000300 < L I S P C O R E > T C P > T C
0000320 P L L I C M P . ; 1 ) \r \r \r ( *
0000340 " \r C o p y r i g h t ( c )
0000360 1 9 8 5 , 1 9 8 6 , 1 9 8
0000400 7 b y X e r o x C o r p o
0000420 r a t i o n . A l l r i g
0000440 h t s r e s e r v e d . \r " )
0000460 \r \r ( P R E T T Y C O M P R I N
0000500 T T C P L L I C M P C O M S )
0000520 \r \r ( R P A Q Q 006 002 T C P L L
0000540 I C M P C O M S 006 001 [ ( C O M
0000560 S ( * * I C M P f u n c
0000600 t i o n s ) \r
0000620
0000640 ( D E C L A R E % : D O
0000660 N T C O P Y ( E X P O R T (
0000700 R E C O R D S I C M P I C M
0000720 P E C H O I C M P D E S T U N
0000740 \r
0000760
*
0001040 I C M P R E D I R E C T ) \r
0001060
*
0001140 ( C O N S T A N T S
0001160 * I C M P T Y P E S ) \r
0001200
*
0001260 ( C O N S T A N T S
0001300 * I C M P U N R E A C H A B L
0001320 E S ) \r
0001340
*
0001400 ( C O N S
0001420 T A N T S * I C M P R E D I
0001440 R E C T S ) \r
0001460
*
0001520 ( C
0001540 O N S T A N T S * I C M P T
0001560 I M E X S ) \r
0001600
*
0001640 ( C
0001660 O N S T A N T S \ I C M P O V
0001700 L E N ) \r
0001720
*
0001760 ( M A C
0002000 R O S I C M P L E N G T H ) )
0002020 ) \r
0002040 ( I
0002060 N I T V A R S ( \ I C M P . E
0002100 C H O . R E P L Y . Q U E U E
0002120 ( N C R E A T E ' S Y S Q U E
0002140 U E ) ) \r
0002160
0002200 ( \ I C M P . E
0002220 C H O . R E P L Y . E V E N T
0002240 ( C R E A T E . E V E N T " I
0002260 C M P E c h o r e p l y " )
0002300 ) \r
0002320
0002340 ( \ I C M P . E C H O
0002360 I N G ) ) \r
0002400
0002420 ( G L O B A L V A R S \ I
0002440 C M P . E C H O . R E P L Y . Q
0002460 U E U E \ I C M P . E C H O .
0002500 R E P L Y . E V E N T \ I C M
0002520 P . E C H O I N G ) \r
0002540
0002560 ( F N S P R I N
0002600 T I C M P \ I C M P . D E S T
0002620 . U N R E A C H A B L E \ I C
0002640 M P . R E D I R E C T \ I C M
0002660 P . E C H O . T E S T \r
0002700
0002720 \ I
0002740 C M P . H A N D L E . E C H O .
0002760 R E P L Y \ I C M P . H A N D
0003000 L E . R E D I R E C T \ I C M
0003020 P . I N P U T \r
0003040
0003060 \ I C M P .
0003100 R E P L Y . T O . E C H O \ I
0003120 C M P . S E T U P I C M P \ I
0003140 C M P . T I M E . E X C E E D E
0003160 D \r
0003200
0003220 \ I C M P . T R A N S M
0003240 I T ) \r
0003260
0003300 ( A D D V A R S ( I P P R I N
0003320 T M A C R O S ( 1 . P R I
0003340 N T I C M P ] ) \r \f 006 004 ( * *
0003360 I C M P f u n c t i o n s )
0003400 006 001 \r \r ( D E C L A R E % : D
0003420 O N T C O P Y \r ( * " F O L
0003440 L O W I N G D E F I N I T I O
0003460 N S E X P O R T E D " ) \r \r (
0003500 D E C L A R E % : E V A L @ C
0003520 O M P I L E \r \r ( A C C E S S F
0003540 N S 006 002 I C M P 006 001 ( ( I C
0003560 M P B A S E ( \ I P D A T A B
0003600 A S E D A T U M ) ) ) \r
0003620 ( B L
0003640 O C K R E C O R D I C M P B A
0003660 S E ( ( I C M P T Y P E B Y
0003700 T E ) \r
0003720
0003740 ( I C M P
0003760 C O D E B Y T E ) \r
0004000
*
0004040 ( I C M P C H E C K S U M
0004060 W O R D ) \r
0004100
0004120 ( I C
0004140 M P D A T A S T A R T W O R D
0004160 ) ) ) \r
0004200 [ A C C E S S F N S I
0004220 C M P ( ( I C M P C O N T E N
0004240 T S ( L O C F ( 006 002 f e t c
0004260 h 006 001 ( I C M P I C M P D A
0004300 T A S T A R T ) 006 002 o f 006 001
0004320 D A T U M ] ) \r \r ( A C C E S S
0004340 F N S 006 002 I C M P E C H O 006 001
0004360 ( ( I C M P E C H O B A S E
0004400 ( 006 002 f e t c h 006 001 ( I C M P
0004420 I C M P C O N T E N T S ) 006
0004440 002 o f 006 001 D A T U M ) ) ) \r
0004460
0004500 ( B L O C K R E C O R D
0004520 I C M P E C H O B A S E ( ( I
0004540 C M P E C H O I D W O R D ) \r
0004560
*
0004620 (
0004640 I C M P E C H O S E Q N O W O
0004660 R D ) \r
0004700
*
0004740 ( I C M P E C H O D A T A
0004760 B Y T E ) ) ) ) \r \r ( A C C E
0005000 S S F N S 006 002 I C M P D E S T
0005020 U N 006 001 ( ( I C M P E C H O B
0005040 A S E ( 006 002 f e t c h 006 001 (
0005060 I C M P I C M P C O N T E N T
0005100 S ) 006 002 o f 006 001 D A T U M )
0005120 ) ) \r
0005140 ( B L O C K R
0005160 E C O R D I C M P E C H O B A
0005200 S E ( ( N I L F I X P ) \r
0005220
*
0005300 ( I C M P I P S T A R T W O R
0005320 D ) ) ) \r
0005340 [ A C C E
0005360 S S F N S I C M P D E S T U N
0005400 ( ( I C M P I P H E A D E R
0005420 ( L O C F ( 006 002 f e t c h 006 001
0005440 ( I C M P D E S T U N I C M
0005460 P I P S T A R T ) \r
0005500
*
0005560 006 002
0005600 o f 006 001 D A T U M ] ) \r \r ( A
0005620 C C E S S F N S 006 002 I C M P R
0005640 E D I R E C T 006 001 ( ( I C M P
0005660 R E D I R E C T B A S E ( 006 002
0005700 f e t c h 006 001 ( I C M P I C
0005720 M P C O N T E N T S ) 006 002 o f
0005740 006 001 D A T U M ) ) ) \r
0005760
0006000 ( B L O C K R E C O R D
0006020 I C M P R E D I R E C T B A S
0006040 E ( ( I C M P G A T E W A Y
0006060 F I X P ) \r
0006100
*
0006140 ( I C
0006160 M P I P S T A R T W O R D ) )
0006200 ) \r
0006220 [ A C C E S
0006240 S F N S I C M P R E D I R E C
0006260 T ( ( I C M P I P H E A D E R
0006300 ( L O C F ( 006 002 f e t c h 006
0006320 001 ( I C M P R E D I R E C T
0006340 I C M P I P S T A R T \r
0006360
*
0006460 )
0006500 006 002 o f 006 001 D A T U M ] ) \r
0006520 ) \r \r ( R P A Q Q 006 002 I C M P
0006540 T Y P E S 006 001 ( ( \ I C M P .
0006560 E C H O . R E P L Y 0 ) \r
0006600
0006620 ( \ I C M P . D E S T . U N R E
0006640 A C H A B L E 3 ) \r
0006660 ( \ I
0006700 C M P . S O U R C E . Q U E N C
0006720 H 4 ) \r
0006740 ( \ I C M P . R E
0006760 D I R E C T 5 ) \r
0007000 ( \ I C
0007020 M P . E C H O 8 ) \r
0007040 ( \ I
0007060 C M P . T I M E . E X C E E D E
0007100 D 1 1 ) \r
0007120 ( \ I C M P . P
0007140 A R A M E T E R . P R O B L E M
0007160 1 2 ) \r
0007200 ( \ I C M P . T I
0007220 M E S T A M P 1 3 ) \r
0007240 ( \
0007260 I C M P . T I M E S T A M P . R
0007300 E P L Y 1 4 ) \r
0007320 ( \ I C M
0007340 P . I N F O . R E Q U E S T 1
0007360 5 ) \r
0007400 ( \ I C M P . I N F O
0007420 . R E P L Y 1 6 ) ) ) \r ( D E
0007440 C L A R E % : E V A L @ C O M
0007460 P I L E \r \r ( R P A Q Q 006 002
0007500 \ I C M P . E C H O . R E P L Y
0007520 006 001 0 ) \r \r ( R P A Q Q 006 002
0007540 \ I C M P . D E S T . U N R E A
0007560 C H A B L E 006 001 3 ) \r \r ( R P
0007600 A Q Q 006 002 \ I C M P . S O U R
0007620 C E . Q U E N C H 006 001 4 ) \r \r
0007640 ( R P A Q Q 006 002 \ I C M P . R
0007660 E D I R E C T 006 001 5 ) \r \r ( R
0007700 P A Q Q 006 002 \ I C M P . E C H
0007720 O 006 001 8 ) \r \r ( R P A Q Q 006
0007740 002 \ I C M P . T I M E . E X C E
0007760 E D E D 006 001 1 1 ) \r \r ( R P A
0010000 Q Q 006 002 \ I C M P . P A R A M
0010020 E T E R . P R O B L E M 006 001 1
0010040 2 ) \r \r ( R P A Q Q 006 002 \ I C
0010060 M P . T I M E S T A M P 006 001 1
0010100 3 ) \r \r ( R P A Q Q 006 002 \ I C
0010120 M P . T I M E S T A M P . R E P
0010140 L Y 006 001 1 4 ) \r \r ( R P A Q Q
0010160 006 002 \ I C M P . I N F O . R E
0010200 Q U E S T 006 001 1 5 ) \r \r ( R P
0010220 A Q Q 006 002 \ I C M P . I N F O
0010240 . R E P L Y 006 001 1 6 ) \r \r ( C
0010260 O N S T A N T S ( \ I C M P .
0010300 E C H O . R E P L Y 0 ) \r
0010320 ( \ I C M P . D E S T
0010340 . U N R E A C H A B L E 3 ) \r
0010360 ( \ I C M P . S O
0010400 U R C E . Q U E N C H 4 ) \r
0010420 ( \ I C M P . R E D
0010440 I R E C T 5 ) \r
0010460 ( \ I C M P . E C H O 8 ) \r
0010500 ( \ I C M P . T I M
0010520 E . E X C E E D E D 1 1 ) \r
0010540 ( \ I C M P . P A R
0010560 A M E T E R . P R O B L E M 1
0010600 2 ) \r ( \ I C M P
0010620 . T I M E S T A M P 1 3 ) \r
0010640 ( \ I C M P . T I M
0010660 E S T A M P . R E P L Y 1 4 )
0010700 \r ( \ I C M P . I
0010720 N F O . R E Q U E S T 1 5 ) \r
0010740 ( \ I C M P . I N
0010760 F O . R E P L Y 1 6 ) ) \r ) \r
0011000 \r ( R P A Q Q 006 002 I C M P U N
0011020 R E A C H A B L E S 006 001 ( ( \
0011040 I C M P . N E T . U N R E A C H
0011060 A B L E 0 ) \r
0011100
0011120 ( \ I C M P . H O S T . U N R
0011140 E A C H A B L E 1 ) \r
0011160
0011200 ( \ I C M P . P R O T
0011220 O C O L . U N R E A C H A B L E
0011240 2 ) \r
0011260 ( \ I
0011300 C M P . P O R T . U N R E A C H
0011320 A B L E 3 ) \r
0011340
0011360 ( \ I C M P . C A N T . F R A
0011400 G M E N T 4 ) \r
0011420
0011440 ( \ I C M P . S O U R C E .
0011460 R O U T E 5 ) ) ) \r ( D E C L
0011500 A R E % : E V A L @ C O M P I
0011520 L E \r \r ( R P A Q Q 006 002 \ I
0011540 C M P . N E T . U N R E A C H A
0011560 B L E 006 001 0 ) \r \r ( R P A Q Q
0011600 006 002 \ I C M P . H O S T . U N
0011620 R E A C H A B L E 006 001 1 ) \r \r
0011640 ( R P A Q Q 006 002 \ I C M P . P
0011660 R O T O C O L . U N R E A C H A
0011700 B L E 006 001 2 ) \r \r ( R P A Q Q
0011720 006 002 \ I C M P . P O R T . U N
0011740 R E A C H A B L E 006 001 3 ) \r \r
0011760 ( R P A Q Q 006 002 \ I C M P . C
0012000 A N T . F R A G M E N T 006 001 4
0012020 ) \r \r ( R P A Q Q 006 002 \ I C M
0012040 P . S O U R C E . R O U T E 006 001
0012060 5 ) \r \r ( C O N S T A N T S
0012100 ( \ I C M P . N E T . U N R E A
0012120 C H A B L E 0 ) \r
0012140 ( \ I C M P . H O S T . U N R
0012160 E A C H A B L E 1 ) \r
0012200 ( \ I C M P . P R O T O C
0012220 O L . U N R E A C H A B L E 2
0012240 ) \r ( \ I C M P .
0012260 P O R T . U N R E A C H A B L E
0012300 3 ) \r ( \ I C M
0012320 P . C A N T . F R A G M E N T
0012340 4 ) \r ( \ I C M P
0012360 . S O U R C E . R O U T E 5 )
0012400 ) \r ) \r \r ( R P A Q Q 006 002 I C
0012420 M P R E D I R E C T S 006 001 ( (
0012440 \ I C M P . R E D I R E C T . N
0012460 E T 0 ) \r
0012500 ( \ I C
0012520 M P . R E D I R E C T . H O S T
0012540 1 ) \r
0012560 ( \ I C M P
0012600 . R E D I R E C T . S V C . A N
0012620 D . N E T 2 ) \r
0012640 (
0012660 \ I C M P . R E D I R E C T . S
0012700 V C . A N D . H O S T 3 ) ) )
0012720 \r ( D E C L A R E % : E V A L
0012740 @ C O M P I L E \r \r ( R P A Q
0012760 Q 006 002 \ I C M P . R E D I R E
0013000 C T . N E T 006 001 0 ) \r \r ( R P
0013020 A Q Q 006 002 \ I C M P . R E D I
0013040 R E C T . H O S T 006 001 1 ) \r \r
0013060 ( R P A Q Q 006 002 \ I C M P . R
0013100 E D I R E C T . S V C . A N D .
0013120 N E T 006 001 2 ) \r \r ( R P A Q Q
0013140 006 002 \ I C M P . R E D I R E C
0013160 T . S V C . A N D . H O S T 006 001
0013200 3 ) \r \r ( C O N S T A N T S
0013220 ( \ I C M P . R E D I R E C T .
0013240 N E T 0 ) \r ( \
0013260 I C M P . R E D I R E C T . H O
0013300 S T 1 ) \r ( \ I
0013320 C M P . R E D I R E C T . S V C
0013340 . A N D . N E T 2 ) \r
0013360 ( \ I C M P . R E D I R E
0013400 C T . S V C . A N D . H O S T
0013420 3 ) ) \r ) \r \r ( R P A Q Q 006 002
0013440 I C M P T I M E X S 006 001 ( ( \
0013460 I C M P . T R A N S I T . T I M
0013500 E . E X C E E D E D 0 ) \r
0013520
0013540 ( \ I C M P . F R A G M E N T
0013560 . T I M E . E X C E E D E D 1
0013600 ) ) ) \r ( D E C L A R E % : E
0013620 V A L @ C O M P I L E \r \r ( R
0013640 P A Q Q 006 002 \ I C M P . T R A
0013660 N S I T . T I M E . E X C E E D
0013700 E D 006 001 0 ) \r \r ( R P A Q Q
0013720 006 002 \ I C M P . F R A G M E N T
0013740 . T I M E . E X C E E D E D 006 001
0013760 1 ) \r \r ( C O N S T A N T S
0014000 ( \ I C M P . T R A N S I T . T
0014020 I M E . E X C E E D E D 0 ) \r
0014040 ( \ I C M P . F R
0014060 A G M E N T . T I M E . E X C E
0014100 E D E D 1 ) ) \r ) \r ( D E C L
0014120 A R E % : E V A L @ C O M P I
0014140 L E \r \r ( R P A Q Q 006 002 \ I
0014160 C M P O V L E N 006 001 4 ) \r \r (
0014200 C O N S T A N T S \ I C M P O
0014220 V L E N ) \r ) \r ( D E C L A R E
0014240 % : E V A L @ C O M P I L E
0014260 \r [ P U T P R O P S I C M P L
0014300 E N G T H M A C R O ( L A M
0014320 B D A ( I C M P ) \r
0014340
0014360 ( I D
0014400 I F F E R E N C E ( f e t c h
0014420 ( I P I P T O T A L L E N G
0014440 T H ) \r
0014460
*
0014520 o f I C M
0014540 P ) \r
0014560
0014600 ( L L S
0014620 H ( f e t c h ( I P I P H
0014640 E A D E R L E N G T H ) \r
0014660
*
0014740 o f I C M P ) \r
0014760
*
0015020 2 ] \r ) \r
0015040 \r ( * " E N D E X P O R T E
0015060 D D E F I N I T I O N S " ) \r
0015100 \r ) \r \r ( R P A Q ? 006 002 \ I C
0015120 M P . E C H O . R E P L Y . Q U
0015140 E U E 006 001 ( N C R E A T E '
0015160 S Y S Q U E U E ) ) \r \r ( R P A
0015200 Q ? 006 002 \ I C M P . E C H O .
0015220 R E P L Y . E V E N T 006 001 ( C
0015240 R E A T E . E V E N T " I C M
0015260 P E c h o r e p l y " ) ) \r
0015300 \r ( R P A Q ? 006 002 \ I C M P .
0015320 E C H O I N G 006 001 ) \r ( D E C
0015340 L A R E % : D O E V A L @ C O
0015360 M P I L E D O N T C O P Y \r \r
0015400 ( G L O B A L V A R S \ I C M
0015420 P . E C H O . R E P L Y . Q U E
0015440 U E \ I C M P . E C H O . R E
0015460 P L Y . E V E N T \ I C M P .
0015500 E C H O I N G ) \r ) \r ( D E F I
0015520 N E Q \r \r ( 006 004 P R I N T I C M
0015540 P 006 001 \r [ L A M B D A ( I
0015560 C M P F I L E ) 006 006 006 001
0015600
*
0015640 006 006 ( * e j s % :
0015660 " 2 8 - D e c - 8 4 0 9 : 5 6
0015700 " ) 006 001 \r ( P R I N T C
0015720 O N S T A N T ( 006 002 f e t c h
0015740 006 001 ( I C M P I C M P T Y P
0015760 E ) 006 002 o f 006 001 I C M P ) \r
0016000 I C M P T
0016020 Y P E S F I L E " I C M P :
0016040 " ) \r ( T E R P R I
0016060 F I L E ] ) \r \r ( 006 004 \ I C M P
0016100 . D E S T . U N R E A C H A B L
0016120 E 006 001 \r [ L A M B D A ( P
0016140 A C K E T C O D E ) 006 006 006 001
0016160
*
0016220 006 006 ( * e j s % :
0016240 " 2 - F e b - 8 6 1 1 : 3 5
0016260 " ) 006 001 \r \r
0016300 006 006 ( * *
0016320 R e t u r n s a n I C M P
0016340 u n r e a c h a b l e p a c
0016360 k e t o f p r o p e r c o
0016400 d e t o s e n d e r ) 006 001 \r
0016420 \r ( P R O G ( ( I C M
0016440 P ( \ A L L O C A T E . E T H
0016460 E R P A C K E T ) ) \r
0016500 N W O R D S ) \r
0016520 ( \ I P . S E T
0016540 U P I P I C M P ( 006 002 f e t
0016560 c h 006 001 ( I P I P S O U R C
0016600 E A D D R E S S ) 006 002 o f 006 001
0016620 P A C K E T ) \r
0016640 0 \r
0016660 ( \ I
0016700 P . F I N D . P R O T O C O L
0016720 \ I C M P . P R O T O C O L ) )
0016740 \r ( 006 002 \ I
0016760 C M P . S E T U P I C M P 006 001
0017000 I C M P \ I C M P . D E S T .
0017020 U N R E A C H A B L E C O D E
0017040 ) \r ( S E T
0017060 Q N W O R D S ( I P L U S
0017100 ( F O L D H I 6 4 B I T S P
0017120 E R W O R D ) \r
0017140
0017160 ( U N F O L D ( 006
0017200 002 f e t c h 006 001 ( I P I P H
0017220 E A D E R L E N G T H ) 006 002 o
0017240 f 006 001 P A C K E T ) \r
0017260
*
0017320 W O R D S P E R C E L L ) ) )
0017340 \r ( \ B L T
0017360 ( 006 002 f e t c h 006 001 ( I C M
0017400 P D E S T U N I C M P I P H E
0017420 A D E R ) 006 002 o f 006 001 I C M
0017440 P ) \r
0017460 ( 006 002 f e t c h 006 001 ( I
0017500 P I P B A S E ) 006 002 o f 006 001
0017520 P A C K E T ) \r
0017540 N W O R D S )
0017560 \r ( 006 002 a d
0017600 d 006 001 ( 006 002 f e t c h 006 001 (
0017620 I P I P T O T A L L E N G T H
0017640 ) 006 002 o f 006 001 I C M P ) \r
0017660 ( U
0017700 N F O L D N W O R D S B Y T
0017720 E S P E R W O R D ) ) \r
0017740 ( 006 002 \ I C M P . T
0017760 R A N S M I T 006 001 I C M P ) \r
0020000 ( \ R E L E
0020020 A S E . E T H E R P A C K E T
0020040 P A C K E T ] ) \r \r ( 006 004 \ I C
0020060 M P . R E D I R E C T 006 001 \r
0020100 [ L A M B D A ( P A C K E T
0020120 C O D E ) 006 006 006 001
0020140
0020160 006
0020200 006 ( * e j s % : " 2 - F e
0020220 b - 8 6 1 2 : 1 3 " ) 006 001 \r
0020240 \r
0020260 006 006 ( * * R e t u r
0020300 n s a n I C M P u n r e a
0020320 c h a b l e p a c k e t o f
0020340 p r o p e r c o d e t o
0020360 s e n d e r ) 006 001 \r \r (
0020400 P R O G ( ( I C M P ( \ A L
0020420 L O C A T E . E T H E R P A C K
0020440 E T ) ) \r
0020460 N W O R D S ) \r
0020500 ( \ I P . S E T U P I P I
0020520 C M P ( 006 002 f e t c h 006 001 (
0020540 I P I P S O U R C E A D D R E
0020560 S S ) 006 002 o f 006 001 P A C K E
0020600 T ) \r
0020620 0 \r
0020640 ( \ I P . F I N D
0020660 . P R O T O C O L \ I C M P .
0020700 P R O T O C O L ) ) \r
0020720 ( 006 002 \ I C M P . S E
0020740 T U P I C M P 006 001 I C M P \
0020760 I C M P . R E D I R E C T C O
0021000 D E ) \r ( S
0021020 E T Q N W O R D S ( I P L U
0021040 S ( F O L D H I 6 4 B I T
0021060 S P E R W O R D ) \r
0021100
0021120 ( U N F O L D
0021140 ( 006 002 f e t c h 006 001 ( I P I
0021160 P H E A D E R L E N G T H ) 006
0021200 002 o f 006 001 P A C K E T ) \r
0021220
*
0021260 W O R D S P E R C E L L )
0021300 \r
0021320 W
0021340 O R D S P E R C E L L ) ) \r
0021360 ( 006 002 r e p l a
0021400 c e 006 001 ( I C M P R E D I R E
0021420 C T I C M P G A T E W A Y )
0021440 006 002 o f 006 001 I C M P 006 002 w i
0021460 t h 006 001 ( O R \ I P . D E F
0021500 A U L T . G A T E W A Y 0 ) )
0021520 \r ( \ B L T
0021540 ( 006 002 f e t c h 006 001 ( I C M
0021560 P R E D I R E C T I C M P I P
0021600 H E A D E R ) 006 002 o f 006 001 I
0021620 C M P ) \r
0021640 ( 006 002 f e t c h 006 001
0021660 ( I P I P B A S E ) 006 002 o f
0021700 006 001 P A C K E T ) \r
0021720 N W O R D
0021740 S ) \r ( 006 002
0021760 a d d 006 001 ( 006 002 f e t c h 006 001
0022000 ( I P I P T O T A L L E N G
0022020 T H ) 006 002 o f 006 001 I C M P )
0022040 \r
0022060 ( U N F O L D N W O R D S B
0022100 Y T E S P E R W O R D ) ) \r
0022120 ( 006 002 \ I C M P
0022140 . T R A N S M I T 006 001 I C M P
0022160 ) \r ( \ R E
0022200 L E A S E . E T H E R P A C K E
0022220 T P A C K E T ] ) \r \r ( 006 004 \
0022240 I C M P . E C H O . T E S T 006 001
0022260 \r [ L A M B D A ( I P A D
0022300 D R E S S E C H O S T R E A M
0022320 D A T A L E N G T H ) 006 006 006 001
0022340
0022360 006 006 ( * e j s % : " 1 2
0022400 - M a y - 8 6 1 8 : 0 1 " ) 006
0022420 001 \r \r
0022440 006 006 ( * * A n
0022460 I C M P e c h o t e s t e
0022500 r ) 006 001 \r \r ( 006 002 w h i
0022520 l e 006 001 ( \ Q U E U E H E A D
0022540 \ I C M P . E C H O . R E P L
0022560 Y . Q U E U E ) 006 002 d o 006 001
0022600 ( \ R E L E A S E . E T H E R P
0022620 A C K E T ( \ D E Q U E U E
0022640 \r
0022660
*
0022760 \ I C M P . E C H O . R E P L Y
0023000 . Q U E U E \r
0023020
*
0023120 ) ) ) \r ( R
0023140 E S E T V A R \ I C M P . E C
0023160 H O I N G T ( P R O G ( I
0023200 C M P ( I P S O C K E T ( \
0023220 I P . F I N D . P R O T O C O L
0023240 \ I C M P . P R O T O C O L )
0023260 ) ) \r
0023300
0023320 ( 006 002 f o r 006 001
0023340 S E Q U E N C E 006 002 f r o m 006
0023360 001 0 \r
0023400
0023420 006 002 d o 006
0023440 001 ( ( S E T Q I C M P ( \
0023460 A L L O C A T E . E T H E R P A
0023500 C K E T ) ) \r
0023520
*
0023560 ( \ I P . S E T U P I P I
0023600 C M P ( D O D I P . H O S T P
0023620 I P A D D R E S S ) \r
0023640
*
0023700 0
0023720 I P S O C K E T ) \r
0023740
*
0024000 ( 006 002 \ I C M P . S E
0024020 T U P I C M P 006 001 I C M P \
0024040 I C M P . E C H O 0 ) \r
0024060
*
0024120 ( 006 002 r e p l a
0024140 c e 006 001 ( I C M P E C H O I
0024160 C M P E C H O I D ) 006 002 o f 006
0024200 001 I C M P 006 002 w i t h 006 001
0024220 0 ) \r
0024240
0024260 ( 006
0024300 002 r e p l a c e 006 001 ( I C M P
0024320 E C H O I C M P E C H O S E Q
0024340 N O ) 006 002 o f 006 001 I C M P
0024360 006 002 w i t h 006 001 S E Q U E N C
0024400 E ) \r
0024420
0024440 ( 006
0024460 002 a d d 006 001 ( 006 002 f e t c h 006
0024500 001 ( I P I P T O T A L L E N
0024520 G T H ) 006 002 o f 006 001 I C M P
0024540 ) \r
0024560
*
0024620 4 ) \r
0024640
*
0024700 ( A N D ( N U M B E R P D A
0024720 T A L E N G T H ) \r
0024740
*
0025000 ( 006 002 a d d
0025020 006 001 ( 006 002 f e t c h 006 001 ( I
0025040 P I P T O T A L L E N G T H )
0025060 006 002 o f 006 001 I C M P ) \r
0025100
*
0025160 D A T A L E N G T H ) ) \r
0025200
*
0025240 ( p r i n
0025260 t o u t E C H O S T R E A M
0025300 " ! " ) \r
0025320
*
0025360 ( 006 002 \ I C M P . T R A N S M I
0025400 T 006 001 I C M P ) \r
0025420
*
0025460 ( A W A I T . E V E N
0025500 T \ I C M P . E C H O . R E P
0025520 L Y . E V E N T \ E T H E R T
0025540 I M E O U T ) \r
0025560
*
0025620 ( C O N D \r
0025640
*
0025700 [ ( S E T Q I C
0025720 M P ( \ D E Q U E U E \ I C
0025740 M P . E C H O . R E P L Y . Q U
0025760 E U E ) ) \r
0026000
*
0026040 ( C O N D \r
0026060
*
0026120 ( ( I
0026140 G R E A T E R P ( 006 002 f e t c
0026160 h 006 001 ( I C M P E C H O I C
0026200 M P E C H O S E Q N O ) \r
0026220
*
0026300 006 002
0026320 o f 006 001 I C M P ) \r
0026340
*
0026420 S E Q U E N C E ) \r
0026440
*
0026520 ( p r i n t o u t T " I
0026540 C M P e c h o o u t o f
0026560 s e q u e n c e " T ) \r
0026600
*
0026660 ( P R I N T P A C K E T I C M
0026700 P ' G E T E C H O S T R E A
0026720 M ) \r
0026740
*
0027000 ( R E T U R N I C
0027020 M P ) ) \r
0027040
*
0027100 ( T ( p r i n t
0027120 o u t E C H O S T R E A M "
0027140 + " ) \r
0027160
*
0027220 ( \ R E L E A
0027240 S E . E T H E R P A C K E T I
0027260 C M P ] \r
0027300
*
0027340 ( T ( p r i n t o u t
0027360 E C H O S T R E A M " . " ] )
0027400 \r \r ( 006 004 \ I C M P . H A N D L
0027420 E . E C H O . R E P L Y 006 001 \r
0027440 [ L A M B D A ( I C M P ) 006
0027460 006 006 001
0027500
*
0027540 006 006 ( * e j s % : " 2 8 - D
0027560 e c - 8 4 0 9 : 0 2 " ) 006 001 \r
0027600 ( C O N D \r
0027620 ( \ I C M P . E C H O I N G
0027640 ( \ E N Q U E U E \ I C M P .
0027660 E C H O . R E P L Y . Q U E U E
0027700 I C M P ) \r
0027720 ( N O T I F Y . E V E
0027740 N T \ I C M P . E C H O . R E
0027760 P L Y . E V E N T ) ) \r
0030000 ( T ( \ R E L E A S E .
0030020 E T H E R P A C K E T I C M P
0030040 ] ) \r \r ( 006 004 \ I C M P . H A N
0030060 D L E . R E D I R E C T 006 001 \r
0030100 [ L A M B D A ( I C M P ) 006
0030120 006 006 001
0030140
*
0030200 006 006 ( * e j s % : " 2 - F
0030220 e b - 8 6 1 2 : 3 4 " ) 006 001 \r
0030240 \r
0030260 006 006 ( * * C a l l
0030300 e d w h e n a g a t e w a
0030320 y t e l l s u s a b e t
0030340 t e r r o u t e t o t h e
0030360 d e s t i n a t i o n ) 006 001 \r
0030400 \r ( L E T * ( ( I C M
0030420 P C O D E ( 006 002 f e t c h 006 001
0030440 ( I C M P I C M P C O D E )
0030460 006 002 o f 006 001 I C M P ) ) \r
0030500 [ I P ( \
0030520 A D D B A S E ( 006 002 f e t c h
0030540 006 001 ( I C M P R E D I R E C T
0030560 I C M P I P H E A D E R ) 006
0030600 002 o f 006 001 I C M P ) \r
0030620
0030640 ( I M I N U S ( I N D E X
0030660 F ( 006 002 f e t c h 006 001 E P B
0030700 O D Y 006 002 o f 006 001 T ] \r
0030720 ( N D B ( 006
0030740 002 f e t c h 006 001 E P N E T W O
0030760 R K 006 002 o f 006 001 I C M P ) )
0031000 \r ( S O U
0031020 R C E A D D R E S S ( 006 002 f e
0031040 t c h 006 001 ( N D B N D B I P
0031060 H O S T # ) 006 002 o f 006 001 N D
0031100 B ) ) \r (
0031120 S U B N E T M A S K ( C D R
0031140 ( S A S S O C S O U R C E A D
0031160 D R E S S \ I P . S U B N E T
0031200 . M A S K S ) ) ) \r
0031220 ( D E S T A D D R E S
0031240 S ( 006 002 f e t c h 006 001 ( I P
0031260 I P D E S T I N A T I O N A D
0031300 D R E S S ) 006 002 o f 006 001 I P
0031320 ) ) \r ( D
0031340 E S T N E T ( \ I P N E T A D
0031360 D R E S S D E S T A D D R E S
0031400 S ) ) \r (
0031420 G A T E W A Y ( 006 002 f e t c h
0031440 006 001 ( I C M P R E D I R E C T
0031460 I C M P G A T E W A Y ) 006 002
0031500 o f 006 001 I C M P ) ) ) \r
0031520 ( C O N D \r
0031540 ( ( E Q I
0031560 C M P C O D E \ I C M P . R E
0031600 D I R E C T . N E T ) \r
0031620 \r
0031640 006 006 ( * * S t o r e t h
0031660 e n e w r o u t e i n t
0031700 h e r o u t i n g t a b l e
0031720 ) 006 001 \r \r
0031740 ( C O N D \r
0031760 [ ( E Q P
0032000 D E S T N E T ( 006 002 f e t c h
0032020 006 001 ( N D B N D B I P N E T
0032040 # ) 006 002 o f 006 001 N D B ) ) \r
0032060 \r
0032100 006 006 ( * T h e d e
0032120 s t n e t i s a l o c a
0032140 l n e t . E i t h e r w e
0032160 f o u l e d u p i n o u
0032200 r r o u t i n g , o r t h
0032220 e d e s t \r 006 001
0032240 006 006 n e t i s r e a
0032260 l l y a s u b n e t ) 006 001 \r
0032300 \r
0032320 ( C O N D \r
0032340 ( (
0032360 N O T ( E Q P ( L O G A N D
0032400 D E S T A D D R E S S S U B
0032420 N E T M A S K ) \r
0032440
0032460 ( L O G A N D
0032500 S O U R C E A D D R E S S S
0032520 U B N E T M A S K ) ) ) \r
0032540 \r
0032560 006 006 ( * Y e s , t h i s
0032600 i s a r e d i r e c t f
0032620 o r a s u b n e t , i f
0032640 s u c h i s p o s s i b l e
0032660 ) 006 001 \r \r
0032700 ( S P U T
0032720 A S S O C ( L O G A N D D E
0032740 S T A D D R E S S S U B N E T
0032760 M A S K ) \r
0033000
0033020 G A T E W A Y \ I P . R
0033040 O U T I N G . T A B L E ] \r
0033060 (
0033100 T ( S P U T A S S O C D E S
0033120 T N E T G A T E W A Y \ I P
0033140 . R O U T I N G . T A B L E ) )
0033160 ) \r \r
0033200 006 006 ( * * I f
0033220 i t ' s a 1 0 M B n e t
0033240 w o r k , s e e i f w e
0033260 h a v e t h e 1 0 M B a d
0033300 d r e s s o f t h i s g a
0033320 t e w a y , \r 006 001
0033340 006 006 a n d i f n o t
0033360 , r e q u e s t t h e a d
0033400 d r e s s ) 006 001 \r \r
0033420 ( S E L E C T Q
0033440 ( 006 002 f e t c h 006 001 ( N D B
0033460 N E T T Y P E ) 006 002 o f 006 001
0033500 N D B ) \r
0033520 ( 1 0 ( C O N
0033540 D \r
0033560 ( ( N O T
0033600 ( \ A R . T R A N S L A T E .
0033620 T O . 1 0 M B G A T E W A Y
0033640 T ) ) \r
0033660 ( \
0033700 A R . T R A N S L A T E . T O .
0033720 1 0 M B G A T E W A Y ) ) ) )
0033740 \r
0033760 N I L ) ) ) \r
0034000 ( \ R E L E A S E . E T
0034020 H E R P A C K E T I C M P ] )
0034040 \r \r ( 006 004 \ I C M P . I N P U T
0034060 006 001 \r [ L A M B D A ( I C
0034100 M P ) 006 006 006 001
0034120
*
0034160 006 006 ( * e j s % : "
0034200 7 - J u n - 8 5 1 2 : 2 6 "
0034220 ) 006 001 \r \r
0034240 006 006 ( * *
0034260 I C M P p a c k e t r e c e
0034300 i v e d ) 006 001 \r \r ( C O
0034320 N D \r ( ( \ I P .
0034340 C H E C K S U M . O K ( \ I P
0034360 C H E C K S U M I C M P ( 006
0034400 002 f e t c h 006 001 ( I C M P I
0034420 C M P B A S E ) 006 002 o f 006 001
0034440 I C M P ) \r
0034460
0034500 ( \ I P D A T A L E
0034520 N G T H I C M P ) ) ) \r
0034540 ( S E L E C T C ( 006
0034560 002 f e t c h 006 001 ( I C M P I
0034600 C M P T Y P E ) 006 002 o f 006 001
0034620 I C M P ) \r
0034640 ( \ I C M P . E C H O . R E
0034660 P L Y \r
0034700 ( 006 002 \ I C M P . H
0034720 A N D L E . E C H O . R E P L Y
0034740 006 001 I C M P ) ) \r
0034760 ( \ I C M P . E C H
0035000 O ( 006 002 \ I C M P . R E P L Y
0035020 . T O . E C H O 006 001 I C M P )
0035040 ) \r ( \
0035060 I C M P . D E S T . U N R E A C
0035100 H A B L E \r
0035120 [ L E T * [ (
0035140 S E G M E N T ( \ A D D B A S
0035160 E I C M P ( F O L D H I (
0035200 I P L U S \ I C M P O V L E N
0035220 ( U N F O L D ( 006 002 f e t c
0035240 h 006 001 ( I P \r
0035260
*
0035400 I P H E A D E R L E N G T H \r
0035420
*
0035540 ) \r
0035560
*
0035700 006 002 o f 006 001 I C M P ) \r
0035720
*
0036040 B Y T E S P E R C E L L ) \r
0036060
*
0036140 4 )
0036160 \r
0036200
*
0036240 B Y T E S P E R
0036260 W O R D ) ) ) \r
0036300
0036320 ( P R O T O C O L ( \ I P . F
0036340 I N D . P R O T O C O L ( 006 002
0036360 f e t c h 006 001 ( I P I P P R
0036400 O T O C O L ) 006 002 o f 006 001 S
0036420 E G M E N T ] \r
0036440 (
0036460 C O N D \r
0036500 (
0036520 P R O T O C O L ( A P P L Y *
0036540 ( 006 002 f e t c h 006 001 ( I P S
0036560 O C K E T I P S I C M P F N )
0036600 006 002 o f 006 001 P R O T O C O L
0036620 ) \r
0036640
0036660 I C M
0036700 P S E G M E N T ] ) \r
0036720 ( \ I C M P . R
0036740 E D I R E C T \r
0036760 ( 006 002 \ I C
0037000 M P . H A N D L E . R E D I R E
0037020 C T 006 001 I C M P ) ) \r
0037040 ( \ R E L E A S
0037060 E . E T H E R P A C K E T I C
0037100 M P ) ) ) \r ( T
0037120 ( A N D I P T R A C E F L G
0037140 ( P R I N T P A C K E T I C M
0037160 P ' I C M P G E T I P T R A
0037200 C E F I L E \r
0037220
0037240 " [ d r o p p
0037260 i n g p a c k e t - - b a d
0037300 I C M P c h e c k s u m ] " ]
0037320 ) \r \r ( 006 004 \ I C M P . R E P L
0037340 Y . T O . E C H O 006 001 \r [ L
0037360 A M B D A ( I C M P ) 006 006 006 001
0037400
*
0037440 006 006 (
0037460 * e j s % : " 1 2 - M a y -
0037500 8 6 1 7 : 3 4 " ) 006 001 \r
0037520 \r
0037540 006 006 ( * * R e p l y t
0037560 o a n e c h o r e q u e s
0037600 t ) 006 001 \r \r ( 006 002 s w a
0037620 p 006 001 ( 006 002 f e t c h 006 001 (
0037640 I P I P S O U R C E A D D R E
0037660 S S ) 006 002 o f 006 001 I C M P )
0037700 \r ( 006 002 f e
0037720 t c h 006 001 ( I P I P D E S T
0037740 I N A T I O N A D D R E S S )
0037760 006 002 o f 006 001 I C M P ) ) \r
0040000 ( 006 002 r e p l a c e 006 001 (
0040020 I C M P I C M P T Y P E ) 006
0040040 002 o f 006 001 I C M P 006 002 w i t
0040060 h 006 001 \ I C M P . E C H O . R
0040100 E P L Y ) \r ( 006 002 r e p
0040120 l a c e 006 001 E P R E Q U E U E
0040140 006 002 o f 006 001 I C M P 006 002 w
0040160 i t h 006 001 ' F R E E ) \r
0040200 ( 006 002 \ I C M P . T R A N S M
0040220 I T 006 001 I C M P ] ) \r \r ( 006 004
0040240 \ I C M P . S E T U P I C M P 006
0040260 001 \r [ L A M B D A ( I C M
0040300 P T Y P E C O D E ) 006 006 006 001
0040320
*
0040360 006 006 ( * e j s % : " 2
0040400 7 - D e c - 8 4 1 9 : 0 0 " )
0040420 006 001 \r ( 006 002 r e p l a c
0040440 e 006 001 ( I C M P I C M P T Y
0040460 P E ) 006 002 o f 006 001 I C M P
0040500 006 002 w i t h 006 001 T Y P E ) \r
0040520 ( 006 002 r e p l a c e 006 001
0040540 ( I C M P I C M P C O D E )
0040560 006 002 o f 006 001 I C M P 006 002 w i
0040600 t h 006 001 C O D E ) \r (
0040620 006 002 a d d 006 001 ( 006 002 f e t c h
0040640 006 001 ( I P I P T O T A L L E
0040660 N G T H ) 006 002 o f 006 001 I C M
0040700 P ) \r \ I C M
0040720 P O V L E N ] ) \r \r ( 006 004 \ I C
0040740 M P . T I M E . E X C E E D E D
0040760 006 001 \r [ L A M B D A ( P A
0041000 C K E T C O D E ) 006 006 006 001
0041020
*
0041060 006 006 ( * e j s % : "
0041100 3 - F e b - 8 6 1 1 : 0 0 "
0041120 ) 006 001 \r \r
0041140 006 006 ( * *
0041160 R e t u r n s a n I C M P
0041200 u n r e a c h a b l e p a c k
0041220 e t o f p r o p e r c o d
0041240 e t o s e n d e r ) 006 001 \r \r
0041260 ( P R O G ( ( I C M P
0041300 ( \ A L L O C A T E . E T H E
0041320 R P A C K E T ) ) \r
0041340 N W O R D S ) \r
0041360 ( \ I P . S E T U
0041400 P I P I C M P ( 006 002 f e t c
0041420 h 006 001 ( I P I P S O U R C E
0041440 A D D R E S S ) 006 002 o f 006 001
0041460 P A C K E T ) \r
0041500 0 \r
0041520 ( \ I P
0041540 . F I N D . P R O T O C O L \
0041560 I C M P . P R O T O C O L ) ) \r
0041600 ( 006 002 \ I C
0041620 M P . S E T U P I C M P 006 001 I
0041640 C M P \ I C M P . T I M E . E
0041660 X C E E D E D C O D E ) \r
0041700 ( S E T Q N W
0041720 O R D S ( I P L U S ( F O L
0041740 D H I 6 4 B I T S P E R W O
0041760 R D ) \r
0042000
0042020 ( U N F O L D ( 006 002 f e t
0042040 c h 006 001 ( I P I P H E A D E
0042060 R L E N G T H ) 006 002 o f 006 001
0042100 P A C K E T ) \r
0042120
0042140 W O R
0042160 D S P E R C E L L ) ) ) \r
0042200 ( \ B L T ( 006 002
0042220 f e t c h 006 001 ( I C M P D E S
0042240 T U N I C M P I P H E A D E R
0042260 ) 006 002 o f 006 001 I C M P ) \r
0042300 (
0042320 006 002 f e t c h 006 001 ( I P I P
0042340 B A S E ) 006 002 o f 006 001 P A C
0042360 K E T ) \r
0042400 N W O R D S ) \r
0042420 ( 006 002 a d d 006 001
0042440 ( 006 002 f e t c h 006 001 ( I P I
0042460 P T O T A L L E N G T H ) 006 002
0042500 o f 006 001 I C M P ) \r
0042520 ( U N F O L
0042540 D N W O R D S B Y T E S P E
0042560 R W O R D ) ) \r
0042600 ( 006 002 \ I C M P . T R A N S
0042620 M I T 006 001 I C M P ] ) \r \r ( 006
0042640 004 \ I C M P . T R A N S M I T 006
0042660 001 \r [ L A M B D A ( I C M
0042700 P ) 006 006 006 001
0042720
*
0042760 006 006 ( * e j s % : " 3
0043000 1 - D e c - 8 4 1 4 : 2 7 " )
0043020 006 001 \r \r
0043040 006 006 ( * * C
0043060 h e c k s u m a n d t r a n
0043100 s m i t a n I C M P p a c
0043120 k e t ) 006 001 \r \r ( \ I P
0043140 . S E T . C H E C K S U M I C
0043160 M P ( 006 002 f e t c h 006 001 ( I
0043200 C M P I C M P B A S E ) 006 002
0043220 o f 006 001 I C M P ) \r
0043240 ( \ I P D A T A L E
0043260 N G T H I C M P ) \r
0043300 ( L O C F ( 006 002 f
0043320 e t c h 006 001 ( I C M P I C M
0043340 P C H E C K S U M ) 006 002 o f 006
0043360 001 I C M P ) ) ) \r ( \
0043400 I P . T R A N S M I T I C M P
0043420 ] ) \r ) \r \r ( A D D T O V A R
0043440 006 002 I P P R I N T M A C R O S 006
0043460 001 ( 1 . P R I N T I C M P
0043500 ) ) \r ( P U T P R O P S T C P
0043520 L L I C M P C O P Y R I G H T
0043540 ( " X e r o x C o r p o r a
0043560 t i o n " 1 9 8 5 1 9 8 6
0043600 1 9 8 7 ) ) \r ( D E C L A R E %
0043620 : D O N T C O P Y \r ( F I
0043640 L E M A P ( N I L ( 6 9 9 1
0043660 1 8 2 0 2 ( P R I N T I C M
0043700 P 7 0 0 1 . 7 2 2 6 ) (
0043720 \ I C M P . D E S T . U N R E A
0043740 C H A B L E 7 2 2 8 . 8 2
0043760 3 6 ) ( \ I C M P . R E D I R
0044000 E C T \r 8 2 3 8 . 9 3 7 4
0044020 ) ( \ I C M P . E C H O . T E
0044040 S T 9 3 7 6 . 1 2 0 3 7 )
0044060 ( \ I C M P . H A N D L E . E
0044100 C H O . R E P L Y 1 2 0 3 9
0044120 . 1 2 3 2 7 ) ( \r \ I C M P
0044140 . H A N D L E . R E D I R E C T
0044160 1 2 3 2 9 . 1 4 3 7 3 )
0044200 ( \ I C M P . I N P U T 1 4 3
0044220 7 5 . 1 6 0 8 6 ) ( \ I C
0044240 M P . R E P L Y . T O . E C H O
0044260 1 6 0 8 8 . 1 6 5 4 5 )
0044300 ( \r \ I C M P . S E T U P I C M
0044320 P 1 6 5 4 7 . 1 6 8 6 2 )
0044340 ( \ I C M P . T I M E . E X C
0044360 E E D E D 1 6 8 6 4 . 1 7
0044400 8 2 6 ) ( \ I C M P . T R A N
0044420 S M I T 1 7 8 2 8 . 1 8 2
0044440 0 0 ) ) ) ) ) \r S T O P \r
0044455