$ od -c -N 50000 [_CD8_]<indigoifs>IfsMisc.dm!3 0000000 377 \0 \0 I f s M i s c . d e c l \0 0000020 373 231 Y 362 023 \0 \0 376 001 \0 [ 242 / / I 0000040 f s M i s c . d e c l - - M 0000060 i s c e l l a n e o u s s e r 0000100 v i c e s d e c l a r a t i o 0000120 n s \r / / C o p y r i g h t 0000140 X e r o x C o r p o r a t i o 0000160 n 1 9 7 9 , 1 9 8 0 , 1 9 0000200 8 2 \r / / L a s t m o d i f 0000220 i e d J u l y 1 2 , 1 9 8 0000240 2 2 : 0 4 P M b y T a 0000260 f t \r \r m a n i f e s t \r [ \r s 0000300 o c k e t M i s c S e r v i c e 0000320 s = 4 \r \r / / M a i l c 0000340 h e c k p r o t o c o l \r t y 0000360 p e M s g M a i l C h e c k = 0000400 2 1 0 b \r t y p e L a u r e l 0000420 M a i l C h e c k = 376 001 \0 006 0000440 027 2 1 4 b \r t y p e M a i l C h 0000460 e c k Y e s = 2 1 1 b \r t y 0000500 p e M a i l C h e c k N o = 0000520 2 1 2 b \r t y p e M a i l C h e 0000540 c k E r r o r = 2 1 3 b \r \r 0000560 / / U s e r A u t h e n t i 0000600 c a t i o n p r o t o c o l \r 0000620 t y p e U s e r A u t h e n t i 0000640 c a t e = 2 5 0 b \r t y p e 0000660 U s e r A u t h e n t i c a t e 0000700 Y e s = 2 5 1 b \r t y p e U 0000720 s e r A u t h e n t i c a t e N 0000740 o = 2 5 2 b \r \r / / V a l 0000760 i d a t e R e c i p i e n t 0001000 p r o t o c o l \r t y p e V a l 0001020 i d a t e R e c i p i e n t = 0001040 376 001 \0 253 f 2 6 6 b ; \r t y p e 0001060 V a l i d a t e R e c i p i e n 0001100 t Y e s = 2 6 7 b ; \r t y p 0001120 e V a l i d a t e R e c i p i e 0001140 n t N o = 2 7 0 b ; \r \r / / 0001160 W h e r e I s U s e r p 0001200 r o t o c o l \r t y p e W h e r 0001220 e U s e r R e q u e s t = 2 0001240 3 0 b \r t y p e W h e r e U s e 0001260 r R e p l y = 2 3 1 b \r \r / 0001300 / T i m e p r o t o c o l \r 0001320 p t S t r i n g T i m e R e q u 0001340 e s t = 2 0 0 b \r p t S t r 0001360 i n g T i m e R e p l y = 2 0001400 0 1 b \r p t T e n e x T i m e R 0001420 e q u e s t = 2 0 2 b \r p t 0001440 T e n e x T 376 001 \0 325 370 i m e R e 0001460 p l y = 2 0 3 b \r p t A l t 0001500 o T i m e R e q u e s t = 2 0001520 0 6 b \r p t A l t o T i m e R e 0001540 p l y = 2 0 7 b \r p t T i m 0001560 e S t a t s R e q u e s t = 0001600 2 1 5 b \r p t T i m e S t a t s 0001620 R e p l y = 2 1 6 b \r p t R 0001640 e s e t T i m e R e q u e s t 0001660 = 2 5 5 b \r p t R e s e t T i 0001700 m e R e p l y = 2 5 6 b \r p 0001720 t L o c k T i m e R e q u e s t 0001740 = 2 1 7 b \r p t L o c k T i 0001760 m e R e p l y = 2 2 7 b \r \r 0002000 / / N e t w o r k D i r e c 0002020 t o r y p r o t o c o l \r p t 0002040 N a m e L o o k u p 376 001 \0 ' x 0002060 = 2 2 0 b \r p t N a m e R e p 0002100 l y = 2 2 1 b \r p t N e t D 0002120 i r E r r o r = 2 2 2 b \r p 0002140 t A d d r e s s L o o k u p = 0002160 2 2 3 b \r p t A d d r e s s R 0002200 e p l y = 2 2 4 b \r p t N e 0002220 t D i r V e r s i o n = 2 4 0002240 0 b \r p t S e n d N e t D i r 0002260 = 2 4 1 b \r p t N e t D i r S 0002300 t a t s R e q u e s t = 2 2 0002320 5 b \r p t N e t D i r S t a t s 0002340 R e p l y = 2 2 6 b \r p t N 0002360 e t D i r L o c k R e q u e s t 0002400 = 2 3 5 b \r p t N e t D i r 0002420 L o c k R e p l y = 2 3 6 b 0002440 \r p t N e t D i r U n l o c k R 0002460 376 001 \0 [ S e q u e s t = 2 3 0002500 7 b \r p t N e t D i r U n l o c 0002520 k R e p l y = 2 6 1 b \r \r / 0002540 / B o o t p r o t o c o l \r 0002560 p t B o o t F i l e R e q u e s 0002600 t = 2 4 4 b \r p t B o o t N 0002620 a m e d F i l e R e q u e s t 0002640 = 3 0 3 B \r p t B o o t M i c 0002660 r o c o d e R e q u e s t = 0002700 2 6 4 b \r p t B o o t M i c r o 0002720 c o d e R e p l y = 2 6 5 b 0002740 \r p t B o o t D i r R e q u e s 0002760 t = 2 5 7 b \r p t B o o t D 0003000 i r R e p l y = 2 6 0 b \r p 0003020 t K i s s O f D e a t h = 2 0003040 4 7 b \r p t B o o t S t a t s R 0003060 e q u e s 376 001 \0 262 m t = 2 5 0003100 3 b \r p t B o o t S t a t s R e 0003120 p l y = 2 5 4 b \r p t B o o 0003140 t L o c k R e q u e s t = 2 0003160 4 2 b \r p t B o o t L o c k R e 0003200 p l y = 2 4 3 b \r p t B o o 0003220 t U n l o c k R e q u e s t = 0003240 2 3 3 b \r p t B o o t U n l o 0003260 c k R e p l y = 2 3 4 b \r ] 0003300 \r \f \r m a n i f e s t \r [ \r s o 0003320 c k e t E c h o = 5 \t \t \t / 0003340 / r e g i s t e r e d , w e 0003360 l l - k n o w n s o c k e t \r 0003400 \r t y p e E c h o M e = 1 \r 0003420 t y p e I m A n E c h o = 2 0003440 \r t y p e I m A B a d E c h o 0003460 = 3 \r \r t y p e S 376 \0 362 360 U t 0003500 a t s R e q u e s t = 2 0 0 0003520 b \r t y p e S t a t s R e p l y 0003540 = 2 0 1 b \r \r e c h o S t a 0003560 t s V e r s i o n = 1 \r ] \r 0003600 \r s t r u c t u r e E c h o S 0003620 t a t s : \t \t / / E c h o s 0003640 e r v e r s t a t i s t i c s 0003660 \r [ \r v e r s i o n w o r d \t 0003700 \t \t / / = e c h o S t a t s 0003720 V e r s i o n \r p a c k e t s E 0003740 c h o e d w o r d 2 \t \t / / 0003760 # o f p a c k e t s e c 0004000 h o e d \r ] \r m a n i f e s t 0004020 l e n E c h o S t a t s = s 0004040 i z e E c h o S t a t s / 1 6 0004060 \r 377 \0 \0 I f s M i s c R e s . b 0004100 c p l \0 373 226 a 204 9 \0 \0 376 001 \0 a } 0004120 / / I f s M i s c R e s . b c 0004140 p l - M i s c e l l a n e o 0004160 u s s e r v e r - R E S I 0004200 D E N T \r / / C o p y r i g h 0004220 t X e r o x C o r p o r a t 0004240 i o n 1 9 7 9 , 1 9 8 0 \r / 0004260 / L a s t m o d i f i e d 0004300 D e c e m b e r 1 2 , 1 9 8 0004320 0 5 : 4 4 P M b y B o 0004340 g g s \r \r g e t " P u p 0 . d 0004360 e c l " \r g e t " P u p 1 . d 0004400 e c l " \r \r e x t e r n a l \r [ 0004420 \r / / o u t g o i n g p r o 0004440 c e d u r e s \r M i s c e l l a 0004460 n e o u s E v e n t \r \r / / i 0004500 n c o m i n g p r o c e d u r 0004520 376 001 \0 201 K e s \r H a n d l e M i 0004540 s c e l l a n e o u s P u p ; 0004560 H a n d l e E c h o P u p \r Q u 0004600 e u e E v e n t \r \r / / i n c 0004620 o m i n g s t a t i c s \r s o 0004640 c E c h o ; s o c M i s c e l 0004660 l a n e o u s ; c t x M i s c 0004700 e l l a n e o u s C t x \r ] \r \r 0004720 / / - - - - - - - - - - - - - - 0004740 - - - - - - - - - - - - - - - - * 0005020 - - - - - - - - - - - - - \r l e 0005040 t M i s c e l l a n e o u s E 0005060 v e n t ( e c b ) b e \r / / - 0005100 - - - - - - - - - - - - - - - - 0005120 - - - - - 376 001 \0 213 H - - - - - - 0005140 - - - - - - - - - - - - - - - - * 0005200 - - - - - - - - - - - - - - - \r 0005220 / / I f t h e m i s c e l l 0005240 a n e o u s s e r v i c e s 0005260 c o n t e x t i s n o t a 0005300 c t i v e , c h e c k t h e 0005320 m i s c e l l a n e o u s \r / 0005340 / s e r v i c e s s o c k e 0005360 t i n p u t q u e u e f o 0005400 r P u p s e v e r y 1 0 0 0005420 m s . \r [ \r w h i l e c t x 0005440 M i s c e l l a n e o u s C t x 0005460 e q 0 & s o c M i s c e 0005500 l l a n e o u s > > P u p S o c 0005520 . i Q . h e a d n 376 \0 220 037 i e 0005540 0 d o \r H a n d l e M 0005560 i s c e l l a n e o u s P u p ( 0005600 s o c M i s c e l l a n e o u s 0005620 > > P u p S o c . i Q . h e a d 0005640 ) \r \r i f s o c E c h o > > P 0005660 u p S o c . i Q . h e a d n e 0005700 0 t h e n H a n d l e E c 0005720 h o P u p ( ) \r \r Q u e u e E v 0005740 e n t ( e c b , 1 0 ) \r ] \r 377 0005760 \0 \0 I f s M i s c S w a p . b c 0006000 p l \0 373 231 Y 362 q \0 \0 376 001 \0 a 260 / 0006020 / I f s M i s c S w a p . b c 0006040 p l - M i s c e l l a n e o 0006060 u s & E c h o - S W A P 0006100 P A B L E \r / / C o p y r i g 0006120 h t X e r o x C o r p o r a 0006140 t i o n 1 9 7 9 , 1 9 8 0 , 0006160 1 9 8 1 , 1 9 8 2 \r / / L 0006200 a s t m o d i f i e d J u l 0006220 y 1 2 , 1 9 8 2 2 : 0 5 0006240 P M b y T a f t \r \r g e t 0006260 " P u p 0 . d e c l " \r g e t 0006300 " P u p 1 . d e c l " \r g e t 0006320 " I f s R s . d e c l " \r g e 0006340 t " I f s M i s c . d e c l " 0006360 \r \r e x t e r n a l \r [ \r / / 0006400 o u t g o i n g p r o c e d 376 0006420 001 \0 256 234 u r e s \r M i s c e l l 0006440 a n e o u s C t x ; H a n d l 0006460 e M i s c e l l a n e o u s P u 0006500 p \r H a n d l e E c h o P u p \r 0006520 \r / / i n c o m i n g p r o 0006540 c e d u r e s \r T i m e S e r v 0006560 ; N a m e S e r v ; B o o t 0006600 S e r v ; M a i l M i s c S e 0006620 r v \r \r C r e a t e J o b ; D 0006640 e s t r o y J o b ; D e q u e 0006660 u e ; E n q u e u e \r C o m p 0006700 l e t e P u p ; E x c h a n g 0006720 e P o r t s ; R e l e a s e P 0006740 B I \r T i m e r H a s E x p i r 0006760 e d ; B l o c k ; S e t T i 0007000 m e r \r M o v e B l o c k ; D 0007020 o u b l 376 001 \0 271 J e I n c r e m 0007040 e n t \r \r / / i n c o m i n g 0007060 s t a t i c s \r e n t F l a g 0007100 ; s y s t e m ; C t x R u n 0007120 n i n g \r s o c M i s c e l l a 0007140 n e o u s ; c t x M i s c e l 0007160 l a n e o u s C t x \r s o c E c 0007200 h o ; e c h o S t a t s \r ] \r 0007220 \r / / - - - - - - - - - - - - - 0007240 - - - - - - - - - - - - - - - - * 0007320 - - - - - - - - - - - - - - \r l 0007340 e t H a n d l e M i s c e l l 0007360 a n e o u s P u p ( p b i ) b 0007400 e \r / / - - - - - - - - - - - - 0007420 - - - - - - - - - 376 001 \0 = 270 - - 0007440 - - - - - - - - - - - - - - - - * 0007520 - - - - \r / / C a l l e d f r 0007540 o m M i s c e l l a n e o u s 0007560 E v e n t w h e n t h e M 0007600 i s c e l l a n e o u s C t x 0007620 d o e s n ' t e x i s t , t 0007640 o \r / / d e a l w i t h p 0007660 u p s d i r e c t e d t o 0007700 t h e M i s c e l l a n e o u 0007720 s s o c k e t . S i m p l 0007740 e r e q u e s t s a r e \r / 0007760 / h a n d l e d b y t h i 0010000 s p r o c e d u r e . M o 0010020 r e c o m p l e x r e q 376 001 0010040 \0 377 231 u e s t s ( p a r t i c 0010060 u l a r l y t h o s e \r / / 0010100 r e q u i r i n g a c c e s s 0010120 t o f i l e s ) a r e l 0010140 e f t f o r t h e M i s c 0010160 e l l a n e o u s C t x i f 0010200 i t c a n b e \r / / c r e 0010220 a t e d . I f i t c a n 0010240 ' t b e c r e a t e d t h 0010260 e r e q u e s t s a r e d 0010300 i s c a r d e d . \r / / N o t 0010320 e t h a t t h e p b i w 0010340 e a r e p a s s e d h a s 0010360 N O T b e e n d e q u e u 0010400 e d . \r [ \r i f e n t F l a g 0010420 s w i t c h o n p b i > > P 0010440 B I . 376 001 \0 354 ; p u p . t y p e 0010460 i n t o \r [ \r c a 0010500 s e t y p e U s e r A u t h e 0010520 n t i c a t e : \r c a s e 0010540 t y p e L a u r e l M a i l C 0010560 h e c k : \r c a s e t y 0010600 p e M s g M a i l C h e c k : \r 0010620 c a s e t y p e V a l i 0010640 d a t e R e c i p i e n t : \r 0010660 c a s e p t B o o t D i r 0010700 R e p l y : \r [ 0010720 / / T h e s e r e q u e s t 0010740 s r e q u i r e u s t o 0010760 b e r u n n i n g a s M i 0011000 s c e l l a n e o u s C t x \r 0011020 c t x M i s c e l l a 0011040 n e o u s C t x 376 001 \0 024 024 = 0011060 C r e a t e J o b ( M i s c e l 0011100 l a n e o u s C t x , j o b T 0011120 y p e M i s c e l l a n e o u s 0011140 ) \r i f c t x M i 0011160 s c e l l a n e o u s C t x n 0011200 e 0 r e t u r n / / M 0011220 i s c e l l a n e o u s C t x 0011240 w i l l h a n d l e i t \r 0011260 e n d c a s e \r 0011300 ] \r d e f a u l t : 0011320 \r [ / / A l l 0011340 o t h e r r e q u e s t s 0011360 c a n b e a n s w e r e d 0011400 f r o m w i t h i n t h e 0011420 e v e n t \r M i s c 0011440 e l l a n e o u s P u p ( 376 001 \0 0011460 347 ? D e q u e u e ( l v s o c 0011500 M i s c e l l a n e o u s > > P 0011520 u p S o c . i Q ) ) \r 0011540 r e t u r n \r ] \r 0011560 ] \r \r / / D i s c a r d 0011600 p b i i f n o t e n t F 0011620 l a g % i t ' s c o m p l 0011640 e x & c a n ' t c r e a t 0011660 e C t x M i s c e l l a n e o 0011700 u s \r R e l e a s e P B I ( D e 0011720 q u e u e ( l v s o c M i s c 0011740 e l l a n e o u s > > P u p S o 0011760 c . i Q ) ) \r ] \r \f \r / / - - - 0012000 - - - - - - - - - - - - - - - - * 0012060 - - 376 001 \0 D 202 - - - - - - - - - 0012100 - - - - - - - - - - - - - \r a n 0012120 d M i s c e l l a n e o u s C 0012140 t x ( c t x ) b e \r / / - - - 0012160 - - - - - - - - - - - - - - - - * 0012260 - - - - - - - - \r [ \r l e t t 0012300 i m e r = n i l / / ( b 0012320 u m : n o n e e d t o i 0012340 n i t i a l i z e t i m e r 0012360 s i n c e w e ' r e c h e c 0012400 k i n g i Q ) \r \r [ 0012420 / / r e p e a t \r c t x 0012440 > > R S C t x . u s e r I n f o 0012460 = s y s t 376 001 \0 311 003 e m \r 0012500 i f s o c M i s c e l l a 0012520 n e o u s > > P u p S o c . i Q 0012540 . h e a d n e 0 t h e n \r 0012560 [ \r S e 0012600 t T i m e r ( l v t i m e r , 0012620 2 0 0 ) / / d a l l y 2 0012640 s e c o n d s t o h a n d 0012660 l e r e t r a n s m i s s i o 0012700 n s \r M i s c e l l 0012720 a n e o u s P u p ( D e q u e u 0012740 e ( l v s o c M i s c e l l a 0012760 n e o u s > > P u p S o c . i Q 0013000 ) ) \r ] \r B l 0013020 o c k ( ) \r ] r e p e a 0013040 t u n t i l T i m e r H a s E 0013060 x p i r e d ( l v t i 376 001 \0 365 0013100 201 m e r ) \r \r c t x M i s c e l 0013120 l a n e o u s C t x = 0 \r D 0013140 e s t r o y J o b ( ) / / 0013160 c o m m i t s u i c i d e \r ] 0013200 \r \r / / - - - - - - - - - - - - 0013220 - - - - - - - - - - - - - - - - * 0013300 - - - - - - - - - - - - - - - \r 0013320 a n d M i s c e l l a n e o u 0013340 s P u p ( p b i ) b e \r / / - 0013360 - - - - - - - - - - - - - - - - * 0013460 - - - - - - - - - - \r / / C a 0013500 l 376 001 \0 221 Y l e d e i t h e r 0013520 f r o m H a n d l e M i s c 0013540 e l l a n e o u s P u p o r 0013560 f r o m M i s c e l l a n e o 0013600 u s C t x . \r / / I f t h e 0013620 r e q u e s t i s c o m p 0013640 l e x , t h i s m u s t b 0013660 e c a l l e d f r o m M i 0013700 s c e l l a n e o u s C t x . \r 0013720 / / N o t e t h a t t h e 0013740 p b i H A S b e e n d e 0013760 q u e u e d . \r [ \r s w i t c h 0014000 o n p b i > > P B I . p u p . 0014020 t y p e i n t o \r [ \r 0014040 c a s e t y p e W h e r e 0014060 U s e r R e q u e s t : \r 0014100 / / 376 001 \0 016 t A l w a y 0014120 s a n s w e r b y s a y i 0014140 n g u s e r n o t l o g g 0014160 e d i n \r E x c h 0014200 a n g e P o r t s ( p b i ) \r 0014220 C o m p l e t e P u p 0014240 ( p b i , t y p e W h e r e U 0014260 s e r R e p l y , p u p O v B 0014300 y t e s ) \r e n d c 0014320 a s e \r c a s e t y p e 0014340 U s e r A u t h e n t i c a t e 0014360 : \r c a s e t y p e L a 0014400 u r e l M a i l C h e c k : \r 0014420 c a s e t y p e M s g M a 0014440 i l C h e c k : \r c a s e 0014460 t y p e V a l i d a t e R e c 0014500 i p i e n t : \r 376 001 \0 027 017 0014520 M a i l M i s c S e r v ( 0014540 p b i ) ; e n d c a s e \r 0014560 c a s e p t L o c k T i m e 0014600 R e q u e s t : \r c a s e 0014620 p t R e s e t T i m e R e q u 0014640 e s t : \r c a s e p t A 0014660 l t o T i m e R e q u e s t : \r 0014700 c a s e p t T i m e S t 0014720 a t s R e q u e s t : \r 0014740 T i m e S e r v ( p b i ) ; 0014760 e n d c a s e \r c a s e 0015000 p t N e t D i r L o c k R e q 0015020 u e s t : \r c a s e p t 0015040 N e t D i r U n l o c k R e q u 0015060 e s t : \r c a s e p t N 0015100 a m e L o o k u p : \r c a 0015120 376 001 \0 \v 7 s e p t A d d r e s 0015140 s L o o k u p : \r c a s e 0015160 p t S e n d N e t D i r : \r 0015200 c a s e p t N e t D i r V 0015220 e r s i o n : \r c a s e 0015240 p t N e t D i r S t a t s R e q 0015260 u e s t : \r N a m e 0015300 S e r v ( p b i ) ; e n d c a 0015320 s e \r c a s e p t B o o 0015340 t L o c k R e q u e s t : \r 0015360 c a s e p t B o o t U n l o 0015400 c k R e q u e s t : \r c a 0015420 s e p t B o o t F i l e R e q 0015440 u e s t : \r c a s e p t 0015460 B o o t M i c r o c o d e R e q 0015500 u e s t : \r c a s e p t 0015520 B o o t N 376 001 \0 002 , a m e d F i 0015540 l e R e q u e s t : \r c a 0015560 s e p t B o o t D i r R e q u 0015600 e s t : \r c a s e p t B 0015620 o o t D i r R e p l y : \r 0015640 c a s e p t B o o t S t a t s 0015660 R e q u e s t : \r B 0015700 o o t S e r v ( p b i ) ; e n 0015720 d c a s e \r d e f a u l t 0015740 : \r R e l e a s e P 0015760 B I ( p b i ) \r ] \r ] \r \f 0016000 \r / / - - - - - - - - - - - - - 0016020 - - - - - - - - - - - - - - - - * 0016100 - - - - - - - - - - - - - - \r a 0016120 n d H a n d l e E 376 001 \0 376 211 c 0016140 h o P u p ( ) b e \r / / - - - 0016160 - - - - - - - - - - - - - - - - * 0016260 - - - - - - - - \r / / C a l l 0016300 e d f r o m M i s c e l l a 0016320 n e o u s E v e n t \r [ \r l e t 0016340 p b i = D e q u e u e ( l 0016360 v s o c E c h o > > P u p S o 0016400 c . i Q ) ; i f p b i e q 0016420 0 r e t u r n \r E x c h a n 0016440 g e P o r t s ( p b i ) \r s w i 0016460 t c h o n p b i > > P B I . p 0016500 u p . t y p e i n t o \r 0016520 [ \r c a s e t y p e E 376 0016540 001 \0 \a 202 c h o M e : \r 0016560 [ \r D o u b l e I 0016600 n c r e m e n t ( l v e c h o 0016620 S t a t s > > E c h o S t a t s 0016640 . p a c k e t s E c h o e d ) \r 0016660 C o m p l e t e P u 0016700 p ( p b i , t y p e I m A n E 0016720 c h o ) \r e n d c a 0016740 s e \r ] \r c a 0016760 s e t y p e S t a t s R e q u 0017000 e s t : \r [ \r 0017020 M o v e B l o c k ( l v 0017040 p b i > > P B I . p u p . w o r 0017060 d s , e c h o S t a t s , l 0017100 e n E c h o S t a t s ) \r 0017120 C o m p l e t e P u p ( p 0017140 b i , 376 \0 k 331 334 t y p e S t a 0017160 t s R e p l y , p u p O v B y 0017200 t e s + l e n E c h o S t a t s 0017220 * 2 ) \r e n d c a s 0017240 e \r ] \r d e f 0017260 a u l t : R e l e a s e P B I 0017300 ( p b i ) \r ] \r ] r e p 0017320 e a t \r 377 \0 \0 I f s M i s c I n 0017340 i t . b c p l \0 373 226 a 205 254 \0 \0 376 0017360 001 \0 273 227 / / I f s M i s c I n 0017400 i t . b c p l - M i s c e l 0017420 l a n e o u s & E c h o s 0017440 e r v e r i n i t i a l i z a 0017460 t i o n \r / / C o p y r i g h 0017500 t X e r o x C o r p o r a t 0017520 i o n 1 9 7 9 , 1 9 8 0 \r / 0017540 / L a s t m o d i f i e d 0017560 D e c e m b e r 1 2 , 1 9 8 0017600 0 5 : 3 9 P M b y B o 0017620 g g s \r \r g e t " P u p 0 . d 0017640 e c l " \r g e t " P u p 1 . d 0017660 e c l " \r g e t " I f s M i s 0017700 c . d e c l " \r \r e x t e r n a 0017720 l \r [ \r / / o u t g o i n g 0017740 p r o c e d u r e s \r I n i t M 0017760 i s c e 376 001 \0 213 377 l l a n e o u 0020000 s \r \r / / i n c o m i n g p 0020020 r o c e d u r e s \r A l l o c a 0020040 t e ; Z e r o ; O p e n L e 0020060 v e l 1 S o c k e t ; C r e a 0020100 t e E v e n t \r M i s c e l l a 0020120 n e o u s E v e n t ; C r e a 0020140 t e T i m e S e r v ; C r e a 0020160 t e N a m e S e r v ; C r e a 0020200 t e B o o t S e r v \r \r / / o 0020220 u t g o i n g s t a t i c s \r 0020240 s o c M i s c e l l a n e o u s 0020260 ; c t x M i s c e l l a n e o 0020300 u s C t x \r s o c E c h o ; e 0020320 c h o S t a t s \r \r / / i n c 0020340 o m i n g s t a t i c s \r s y 0020360 s Z o n e \r ] \r \r 376 001 \0 k @ s t 0020400 a t i c \r [ \r s o c E c h o ; 0020420 e c h o S t a t s \r s o c M i s 0020440 c e l l a n e o u s ; c t x M 0020460 i s c e l l a n e o u s C t x \r 0020500 ] \r \r \r / / - - - - - - - - - - 0020520 - - - - - - - - - - - - - - - - * 0020620 - \r l e t I n i t M i s c e l 0020640 l a n e o u s ( ) b e \r / / - 0020660 - - - - - - - - - - - - - - - - * 0020760 - - - - - - - - - - \r [ \r / 376 001 0021000 \0 % \ / M i s c s e r v e r 0021020 i n i t i a l i z a t i o n \r 0021040 s o c M i s c e l l a n e o u s 0021060 = A l l o c a t e ( s y s Z 0021100 o n e , l e n P u p S o c ) \r 0021120 O p e n L e v e l 1 S o c k e t 0021140 ( s o c M i s c e l l a n e o u 0021160 s , t a b l e [ 0 ; 0 ; 0021200 s o c k e t M i s c S e r v i 0021220 c e s ] ) \r c t x M i s c e l 0021240 l a n e o u s C t x = 0 \r C 0021260 r e a t e E v e n t ( M i s c e 0021300 l l a n e o u s E v e n t ) \r C 0021320 r e a t e T i m e S e r v ( ) \r 0021340 C r e a t e N a m e S e r v ( ) 0021360 \r C r e a t e B o o t S e r v ( 0021400 ) \r \r 376 \0 367 265 231 / / E c h o 0021420 s e r v e r i n i t i a l i z 0021440 a t i o n \r s o c E c h o = 0021460 A l l o c a t e ( s y s Z o n e 0021500 , l e n P u p S o c ) \r O p e 0021520 n L e v e l 1 S o c k e t ( s o 0021540 c E c h o , t a b l e [ 0 0021560 ; 0 ; s o c k e t E c h o 0021600 ] ) \r e c h o S t a t s = A 0021620 l l o c a t e ( s y s Z o n e , 0021640 l e n E c h o S t a t s ) \r Z 0021660 e r o ( e c h o S t a t s , l 0021700 e n E c h o S t a t s ) \r e c h 0021720 o S t a t s > > E c h o S t a t 0021740 s . v e r s i o n = e c h o 0021760 S t a t s V e r s i o n \r ] \r 377 0022000 \0 \0 I f s M i s c O E P . b c p 0022020 l \0 373 231 i 362 \n \0 \0 376 001 \0 223 # / / 0022040 I f s M i s c O E P . b c p l 0022060 - - M i s c S e r v e r 0022100 O E P s \r / / C o p y r i g h 0022120 t X e r o x C o r p o r a t 0022140 i o n 1 9 7 9 , 1 9 8 0 , 0022160 1 9 8 1 , 1 9 8 2 \r / / L a 0022200 s t m o d i f i e d J u l y 0022220 2 4 , 1 9 8 2 5 : 2 0 0022240 P M b y T a f t \r \r e x t e 0022260 r n a l \r [ \r / / o u t g o i 0022300 n g p r o c e d u r e s \r I n 0022320 i t M i s c e l l a n e o u s O 0022340 E P \r \r / / i n c o m i n g 0022360 p r o c e d u r e s \r D e c l a 0022400 r e O E P ; D e c l a r e X E 0022420 P ; R e s e t T i m e C t 376 001 0022440 \0 | e x ; P r i n t P o r t \r 0022460 N a m e C o m p a r e K e y ; 0022500 A d d r e s s C o m p a r e K e 0022520 y ; N e t D i r E n t r y L e 0022540 n g t h \r N a m e S e r v E v e 0022560 n t ; S e n d N e t D i r ; 0022600 R e c e i v e N e t D i r \r B o 0022620 o t S e r v E v e n t ; S e n 0022640 d B o o t F i l e ; S e n d M 0022660 i c r o c o d e F i l e \r C h e 0022700 c k B F T ; B F T C o m p a r 0022720 e K e y ; B F T E n t r y L e 0022740 n g t h \r L o o k u p F i l e E 0022760 v e n t \r ] \r \r \r / / - - - - - 0023000 - - - - - - - - - - - - - - - - * 0023040 - - - 376 001 \0 232 026 - - - - - - - - 0023060 - - - - - - - - - - - - - - - - 0023100 - - - - - - - - - - - - \r l e t 0023120 I n i t M i s c e l l a n e o 0023140 u s O E P ( o e v ) b e \r / / 0023160 - - - - - - - - - - - - - - - - * 0023260 - - - - - - - - - - - - \r [ \r D 0023300 e c l a r e O E P ( o e v , l 0023320 v R e s e t T i m e C t x , 0023340 l v P r i n t P o r t , \r l 0023360 v N a m e C o m p a r e K e y 0023400 , l v A d d r e s s C o m p 0023420 a r e K e y , l v N e t D i 0023440 r E n t r y L e 376 001 \0 216 v n g t 0023460 h , \r l v N a m e S e r v E 0023500 v e n t , l v S e n d N e t 0023520 D i r , l v R e c e i v e N 0023540 e t D i r ) \r D e c l a r e O E 0023560 P ( o e v , l v B o o t S e 0023600 r v E v e n t , l v S e n d 0023620 B o o t F i l e , l v S e n 0023640 d M i c r o c o d e F i l e , \r 0023660 l v C h e c k B F T , l v 0023700 B F T C o m p a r e K e y , 0023720 l v B F T E n t r y L e n g t 0023740 h , l v L o o k u p F i l e 0023760 E v e n t ) \r D e c l a r e X E 0024000 P ( o e v , l v N e t D i r 0024020 E n t r y L e n g t h , l v 0024040 B F T E n t r y L e n g t 376 \0 005 0024060 u 213 h ) \r ] \r 377 \0 \0 I f s B o o 0024100 t S e r v . d e c l \0 373 232 Y 224 216 0024120 \0 \0 376 001 \0 N 353 / / I f s B o o 0024140 t S e r v . d e c l \r / / C o 0024160 p y r i g h t X e r o x C o 0024200 r p o r a t i o n 1 9 7 9 , 0024220 1 9 8 0 , 1 9 8 1 , 1 9 8 2 0024240 , 1 9 8 3 \r \r / / L a s t 0024260 m o d i f i e d J a n u a r y 0024300 2 2 , 1 9 8 3 1 0 : 4 6 0024320 A M b y T a f t \r \r / / 0024340 r e q u i r e s g e t o f 0024360 I f s . d e c l , P u p 0 . d 0024400 e c l , P u p 1 . d e c l , 0024420 a n d I f s R s . d e c l \r g 0024440 e t " I f s M i s c . d e c l 0024460 " \r \r m a n i f e s t \r [ \r e t 0024500 B r e a t h O f L i f e = 6 0024520 0 2 b \t / / 376 001 \0 323 u r a w 0024540 E t h e r n e t p a c k e t 0024560 t y p e \r b r e a t h I n t e r 0024600 v a l = 5 0 0 \t / / 5 s 0024620 e c o n d s \r b f t C h e c k I 0024640 n t e r v a l = 1 2 * 3 0 0024660 / / c h e c k B F T e v 0024700 e r y 3 0 m i n u t e s \r b 0024720 f t R e b u i l d I n t e r v a 0024740 l = 2 * 8 / / r e b u 0024760 i l d B F T e v e r y 8 0025000 h o u r s \r b o o t S t a t s V 0025020 e r s i o n = 2 \r u C o d e 0025040 W o r d s P e r P u p = 2 5 0025060 8 \t / / d a t a w o r d s / 0025100 P u p f o r m i c r o c o d 0025120 e b o o t ( m u l t 376 001 \0 005 0025140 374 i p l e o f 3 ) \r u C o d 0025160 e O f f s e t B F N = 3 0 0 0025200 0 b \t / / o f f s e t f r o 0025220 m m i c r o c o d e B F N s 0025240 t o n o r m a l B F N s \r 0025260 b o o t T r e e P a g e s = 0025300 2 5 \t / / n u m b e r o f 0025320 p a g e s i n B F T B - t 0025340 r e e f i l e \r ] \r \r / / - - 0025360 - - - - - - - - - - - - - - - - * 0025460 - - - - - - - - - - \r s t r u c 0025500 t u r e S t a t s : \r / / - - 0025520 - - - - - - - - - - - - - - - - 0025540 - 376 001 \0 \t 234 - - - - - - - - - - 0025560 - - - - - - - - - - - - - - - - * 0025620 - - - - - - - - - - - - - - - \r 0025640 [ \r v e r s i o n w o r d \t \t 0025660 / / = b o o t S t a t s V e 0025700 r s i o n \r d i r s S e n t w 0025720 o r d 2 \t \t / / # o f d 0025740 i r e c t o r y r e q u e s t 0025760 s s e r v i c e d \r f a s t S 0026000 e n d s w o r d 2 \t / / # 0026020 o f f i l e s s e n t t 0026040 o f a s t n e t s \r s l o w 0026060 S e n d s w o r d 2 \t / / 0026100 # o f f i l e s s e n t 0026120 t o s l o w n e t s \r f i l 0026140 e s R c v d 376 001 \0 335 w o r d 0026160 2 \t / / # o f f i l e s 0026200 r e c e i v e d f r o m o 0026220 t h e r b o o t s e r v e r 0026240 s \r ] \r \r / / - - - - - - - - - 0026260 - - - - - - - - - - - - - - - - * 0026360 - - - \r s t r u c t u r e B S 0026400 : \t \t / / ' g l o b a l f r 0026420 a m e ' f o r t h e B o o 0026440 t S e r v e r \r / / - - - - - 0026460 - - - - - - - - - - - - - - - - * 0026540 - - - - - - - - - - - 376 001 \0 355 , 0026560 - - - - - - - - - - - - \r [ \r s 0026600 t a t s @ S t a t s \r \r b f t 0026620 C h e c k T i m e r w o r d \t 0026640 / / c o u n t s b r e a t h 0026660 I n t e r v a l s t o n e x 0026700 t b o o t d i r c h e c k 0026720 \r b f t R e b u i l d T i m e r 0026740 w o r d \t / / c o u n t s 0026760 b f t C h e c k I n t e r v a l 0027000 s t o n e x t B F T r e 0027020 b u i l d \r \r t r e e w o r d 0027040 \t \t / / - > B F T B - t r 0027060 e e \r t r e e L o c k @ L o c 0027100 k \t \t / / l o c k f o r B 0027120 - t r e e \r \r f l a g s w o r 0027140 d = \r [ \r g l o b 0027160 376 001 \0 o 0 a l L o c k s b i t 0027200 2 = \r [ \r 0027220 e x t e r n a l L o c k 0027240 b i t \t / / s e t b y p t 0027260 L o c k B o o t R e q u e s t \r 0027300 i n t e r n a l L o 0027320 c k b i t \t / / s e t u n 0027340 t i l B F T B - t r e e f 0027360 i r s t b u i l t \r 0027400 ] \r n o N e w B o o t F 0027420 i l e s b i t \t / / s e t 0027440 t o d i s a b l e o b t a i 0027460 n i n g n e w b o o t f i 0027500 l e s \r f a s t B o o t e 0027520 r b i t \t / / a f a s t 0027540 B o o t C t x e x i s t s \r 0027560 s l o 376 001 \0 202 021 w B o o t e 0027600 r b i t \t / / a s l o w 0027620 B o o t C t x e x i s t s \r 0027640 ] \r \r u p d a t e C t x w 0027660 o r d \t / / - > C t x f o 0027700 r C h e c k B F T ( b o o t 0027720 f i l e u p d a t e p r o 0027740 c e s s ) , i f a n y \r ] \r 0027760 \r m a n i f e s t \r [ \r l e n B 0030000 S = s i z e B S / 1 6 \r b 0030020 s F a s t B o o t e r = 1 0 0030040 0 0 0 0 B r s h i f t ( o f 0030060 f s e t B S . f a s t B o o t 0030100 e r r e m 1 6 ) \r b s S l o 0030120 w B o o t e r = 1 0 0 0 0 0 0030140 B r s h i f t ( o f f s e t 0030160 B S . s l o w B o 376 001 \0 364 237 o 0030200 t e r r e m 1 6 ) \r ] \r \f \r 0030220 / / - - - - - - - - - - - - - - 0030240 - - - - - - - - - - - - - - - - * 0030320 - - - - - - - - - - - - - - \r s 0030340 t r u c t u r e B o o t C t x 0030360 : \t / / B o o t C o n t e x 0030400 t \r / / - - - - - - - - - - - - 0030420 - - - - - - - - - - - - - - - - * 0030520 \r [ \r @ R S C t x \t \t \t / / s 0030540 t a n d a r d c t x h e a d 0030560 e r \r n a m e w o r d = \t 376 0030600 001 \0 = m \t / / - > f u l l 0030620 n a m e o f b o o t f i l 0030640 e ( S e n d B o o t F i l e ) 0030660 \r b f e w o r d \t \t / / 0030700 - > b o o t f i l e e n 0030720 t r y b e i n g u p d a t e 0030740 d ( C h e c k B F T ) \r p o r 0030760 t @ P o r t \t \t / / p o r t 0031000 t o w h i c h w e a r e 0031020 s e n d i n g f i l e ( S 0031040 e n d B o o t F i l e ) \r b o o 0031060 t e r F l a g s w o r d \t / / 0031100 b s F a s t B o o t e r o r 0031120 b s S l o w B o o t e r f l 0031140 a g ( S e n d B o o t F i l e 0031160 ) \r b y t e s T o S k i p w o 0031200 r d \t / 376 001 \0 003 036 / i n i t i 0031220 a l b y t e s t o s k i p 0031240 w h e n s e n d i n g b o 0031260 o t f i l e \r ] \r m a n i f e 0031300 s t l e n B o o t C t x = 0031320 s i z e B o o t C t x / 1 6 \r 0031340 \r / / - - - - - - - - - - - - - 0031360 - - - - - - - - - - - - - - - - * 0031440 - - - - - - - - - - - - - - - \r 0031460 s t r u c t u r e B F D : \t \t 0031500 / / B o o t F i l e D e s 0031520 c r i p t o r - - d e f i n 0031540 e d b y p r o t o c o l \r / 0031560 / - - - - - - - - - - - - - - - 0031600 - - - - - - - - - 376 001 \0 311 016 - - 0031620 - - - - - - - - - - - - - - - - * 0031700 - - \r [ \r b f n w o r d \t \t / 0031720 / b o o t f i l e n u m b 0031740 e r \r d a t e w o r d 2 \t \t 0031760 / / A l t o f o r m a t d 0032000 a t e o n w h i c h f i l 0032020 e w a s c r e a t e d \r n a 0032040 m e @ S t r i n g \t \t / / B 0032060 C P L s t r i n g \r ] \r \r / / 0032100 - - - - - - - - - - - - - - - - * 0032200 - - - - - - - - - - - - \r s 376 001 0032220 \0 020 252 t r u c t u r e B F E : 0032240 \t \t / / B o o t F i l e E 0032260 n t r y - - i n B F T \r / 0032300 / - - - - - - - - - - - - - - - 0032320 - - - - - - - - - - - - - - - - * 0032400 - - - - - - - - - - - - - \r [ \r 0032420 l e n g t h w o r d \r f l a g 0032440 s w o r d = \r [ \r 0032460 b l a n k b i t 1 4 \r 0032500 e x i s t s b i t \t \t / / 0032520 w e h a v e a c o p y o 0032540 n t h e d i s k \r u p 0032560 d a t e b i t \t \t / / g e t 0032600 a n e w c o p y f r o m 0032620 B F 376 \0 ] 317 w E . p o r t \r 0032640 ] \r p o r t @ P o r t \t \t 0032660 / / i f u p d a t e t h e 0032700 n r e c e i v e b o o t f 0032720 i l e f r o m t h i s p o 0032740 r t \r b f d w o r d = @ B 0032760 F D \r ] \r 377 \0 \0 I f s B o o t S 0033000 e r v . b c p l \0 373 232 Y 237 206 \0 \0 0033020 376 001 \0 9 237 / / I f s B o o t S 0033040 e r v . b c p l - - B o o t 0033060 S e r v e r \r / / C o p y r 0033100 i g h t X e r o x C o r p o 0033120 r a t i o n 1 9 7 9 , 1 9 8 0033140 0 , 1 9 8 1 , 1 9 8 2 , 1 0033160 9 8 3 \r / / A d a p t e d f 0033200 r o m P u p B o o t S e r v . 0033220 b c p l , t h e b o o t s 0033240 e r v e r u s e d i n g a 0033260 t e w a y s \r / / S e e < P 0033300 u p > E t h e r B o o t . p r e 0033320 s s f o r p r o t o c o l 0033340 s p e c i f i c a t i o n \r / / 0033360 N O T E : E t h e r B o o t 0033400 . b r a n d I f s B o o t A 0033420 m u s t 376 001 \0 2 362 b e l o 0033440 a d e d i n t h e s a m e 0033460 o v e r l a y a s t h i s 0033500 . \r \r / / L a s t m o d i f 0033520 i e d J a n u a r y 2 2 , 0033540 1 9 8 3 1 0 : 4 6 A M b 0033560 y T a f t \r \r g e t " P u p 0033600 0 . d e c l " \r g e t " P u p 0033620 1 . d e c l " \r g e t " I f s 0033640 . d e c l " \r g e t " I f s R 0033660 s . d e c l " \r g e t " I f s 0033700 B o o t S e r v . d e c l " \r g 0033720 e t D R , p a t h N a m e 0033740 f r o m " I f s F i l e s . d 0033760 e c l " \r g e t F D , f s , 0034000 d r f r o m " I f s D i r 0034020 s . d e c l " \r \r e 376 001 \0 310 b x 0034040 t e r n a l \r [ \r / / o u t g 0034060 o i n g p r o c e d u r e s \r 0034100 B o o t S e r v E v e n t ; N 0034120 o t i c e D i r e c t o r y C h 0034140 a n g e ; B o o t S e r v ; 0034160 S e n d B o o t D i r \r \r / / 0034200 i n c o m i n g p r o c e d u 0034220 r e s \r S e n d B o o t F i l e 0034240 ; S e n d M i c r o c o d e F 0034260 i l e ; B o o t S e r v U n c 0034300 o m m o n ; C h e c k B F T ; 0034320 B o o t N o o p \r F i n d B F 0034340 E \r G e t P B I ; E x c h a n 0034360 g e P o r t s ; C o m p l e t 0034400 e P u p ; R e l e a s e P B I 0034420 ; S e t P u p D P o r t ; 376 0034440 001 \0 320 373 S e t P u p I D \r E n q 0034460 u e u e \r C r e a t e J o b ; 0034500 D e s t r o y J o b ; Q u e u 0034520 e E v e n t \r R e a d R e c L E 0034540 ; M a p T r e e ; L o c k ; 0034560 U n l o c k ; L o c k C e l 0034600 l ; U n l o c k C e l l \r E x 0034620 p a n d T e m p l a t e ; E x 0034640 t r a c t S u b s t r i n g ; 0034660 C o n c a t e n a t e S t r i n 0034700 g s ; S t r i n g C o m p a r 0034720 e \r A l l o c a t e ; F r e e 0034740 ; M o v e B l o c k ; Z e r 0034760 o ; U s c ; D o u b l e I n 0035000 c r e m e n t ; M a x \r \r / / 0035020 o u t g o i n g s t a t i c 0035040 s \r @ b 376 001 \0 h 301 s \r \r / / i 0035060 n c o m i n g s t a t i c s \r 0035100 n d b Q ; m a x P u p D a t a 0035120 B y t e s ; s o c M i s c e l 0035140 l a n e o u s \r b o o t L o a d 0035160 e r P a c k e t ; i f s C t x 0035200 Q ; s y s Z o n e ; s y s t 0035220 e m ; p r i m a r y I F S ; 0035240 C t x R u n n i n g \r ] \r \r s t 0035260 a t i c @ b s \r \f \r / / - - - 0035300 - - - - - - - - - - - - - - - - * 0035400 - - - - - - - - - \r l e t B o 0035420 o t S e r v E v e n t ( e c b ) 0035440 b e \r / / - - - 376 001 \0 250 034 - - 0035460 - - - - - - - - - - - - - - - - * 0035560 - - - - - - - \r [ \r / / c h e 0035600 c k b o o t f i l e t a b 0035620 l e n o w a n d t h e n \r 0035640 b s > > B S . b f t C h e c k T 0035660 i m e r = M a x ( b s > > B 0035700 S . b f t C h e c k T i m e r - 0035720 1 , 0 ) \r i f b s > > B S . 0035740 b f t C h e c k T i m e r l e 0035760 0 t h e n \r b s > > B 0036000 S . u p d a t e C t x = C r 0036020 e a t e J o b ( C h e c k B F T 0036040 , j o b T y p e B o o t U 376 001 0036060 \0 341 361 p d a t e , l e n B o o 0036100 t C t x - 3 ) \r \r i f b s > > 0036120 B S . e x t e r n a l L o c k 0036140 e q 0 t h e n \r [ \r 0036160 / / E v e r y f i v e 0036200 s e c o n d s , b r o a d c a 0036220 s t ( t o h o s t 3 7 7 ) 0036240 a B r e a t h - o f - l i f 0036260 e N O N P U P \r / / 0036300 c o n t a i n i n g a n A l 0036320 t o E t h e r n e t b o o t 0036340 l o a d e r . \r l e t 0036360 n d b = n d b Q ! 0 \r 0036400 l e t p b i = G e t P B I 0036420 ( s o c M i s c e l l a n e o u 0036440 s , t r u e ) \r i f p 0036460 b i 376 001 \0 z i n e 0 t h e 0036500 n \r [ \r 0036520 s t r u c t u r e E t h e r P 0036540 B I : \r [ \r 0036560 b l a n k w o 0036600 r d o f f s e t P B I . p u 0036620 p / 1 6 - 2 \r 0036640 d e s t b y t e \r 0036660 s r c b y t e \r 0036700 t y p e w o r d \r 0036720 ] \r 0036740 p b i > > P B I . n d b = n 0036760 d b \r p b i > > P B 0037000 I . p a c k e t L e n g t h = 0037020 2 5 6 \r / / C a 0037040 l l a n a s s e m b l y - l 0037060 a n g u a g e 376 001 \0 262 343 p r o 0037100 c e d u r e i n t h e s a 0037120 m e o v e r l a y , \r 0037140 / / t h e r e b y f o r 0037160 c i n g t h e o v e r l a y 0037200 t o b e s w a p p e d i 0037220 n t o b a n k 0 i f i t 0037240 \r / / i s n o t 0037260 t h e r e a l r e a d y . 0037300 T h i s w i l l e n s u r 0037320 e t h a t t h e b o o t L 0037340 o a d e r P a c k e t \r 0037360 / / s t a t i c i s v 0037400 a l i d . \r B o o t 0037420 N o o p ( ) \r M o v 0037440 e B l o c k ( l v p b i > > E 0037460 t h e r P B I . d e s t , 376 001 \0 0037500 223 241 b o o t L o a d e r P a c 0037520 k e t , 2 5 6 ) \r 0037540 p b i > > E t h e r P B I . d e 0037560 s t = 3 7 7 b / / s p 0037600 e c i a l f o r m i c r o c 0037620 o d e \r p b i > > E 0037640 t h e r P B I . s r c = n d 0037660 b > > N D B . l o c a l H o s t 0037700 \r / / p b i > > E 0037720 t h e r P B I . t y p e = e 0037740 t B r e a t h O f L i f e / 0037760 / s p e c i a l f o r m i 0040000 c r o c o d e \r ( n 0040020 d b > > N D B . l e v e l 0 T r 0040040 a n s m i t ) ( p b i ) \r 0040060 ] \r ] \r \r Q u e u e 0040100 E v 376 001 \0 | 312 e n t ( e c b , 0040120 b r e a t h I n t e r v a l ) \r 0040140 ] \r \r / / - - - - - - - - - - - 0040160 - - - - - - - - - - - - - - - - * 0040260 - \r a n d N o t i c e D i r e 0040300 c t o r y C h a n g e ( f d ) 0040320 b e \r / / - - - - - - - - - - - 0040340 - - - - - - - - - - - - - - - - * 0040440 - \r / / C a l l e d f r o m 0040460 M o d i f y D i r F D t o 0040500 n o t i c e 376 001 \0 ? 226 e v e r 0040520 y c h a n g e t o t h e 0040540 d i r e c t o r y . \r / / f d 0040560 d e s i g n a t e s a f i 0040600 l e t h a t i s b e i n g 0040620 c r e a t e d , d e l e t e 0040640 d , o r r e n a m e d . \r / 0040660 / D i r e c t o r y i s l 0040700 o c k e d a t t h e t i m 0040720 e o f t h e c a l l , s 0040740 o t h i s p r o c e d u r e 0040760 m a y n o t c a l l \r / / 0041000 f i l e o p e r a t i o n s 0041020 a n d m u s t b e w a r e 0041040 o f d e a d l o c k s . \r / 0041060 / * * * I m p l e m e n t 0041100 a m o r e g e n e r 376 001 \0 r 0041120 177 a l n o t i f i c a t i o n 0041140 m e c h a n i s m i f a n 0041160 y o n e e l s e e v e r n 0041200 e e d s i t * * * \r / / F 0041220 o r n o w , i f t h e f 0041240 i l e n a m e b e g i n s 0041260 w i t h " < S y s t e m > B o 0041300 o t > " t h e n i n i t i a 0041320 t e i m m e d i a t e \r / / 0041340 r e b u i l d i n g o f t h 0041360 e b o o t f i l e d i r e 0041400 c t o r y . \r [ \r i f b s n 0041420 e 0 & / / b o o t s 0041440 e r v e r i n i t i a l i z e 0041460 d y e t ? \r C t x R u n n i 0041500 n g n e b s > > B S . u p d 0041520 a 376 001 \0 \ 364 t e C t x & / 0041540 / n o t t h e b o o t f 0041560 i l e u p d a t e p r o c e 0041600 s s i t s e l f ? \r f d > > 0041620 F D . f s e q p r i m a r y 0041640 I F S & / / p r i m a r 0041660 y f i l e s y s t e m ? \r 0041700 S t r i n g C o m p a r e ( " < 0041720 S y s t e m > B o o t > " , l 0041740 v f d > > F D . d r > > D R . 0041760 p a t h N a m e ) e q - 2 0042000 t h e n / / i n i t i a l 0042020 s u b s t r i n g \r [ \r 0042040 / / r e q u e s t c o 0042060 m p l e t e B F T r e b u i 0042100 l d 3 0 s e c o n d s f r 0042120 o m n o w 376 001 \0 $ , . R e 0042140 a s o n f o r w a i t i n g 0042160 i s s o t h a t \r / 0042200 / i f t h e d i r e c t o 0042220 r y c h a n g e w a s c a 0042240 u s e d b y a n F T P s 0042260 t o r e , t h e s t o r e 0042300 w i l l h a v e \r / / 0042320 c o m p l e t e d b e f o r e 0042340 t h e r e b u i l d b e g 0042360 i n s . \r b s > > B S . b 0042400 f t C h e c k T i m e r = 3 0042420 0 0 0 / b r e a t h I n t e r v 0042440 a l \r b s > > B S . b f t 0042460 R e b u i l d T i m e r = 0 0042500 \r ] \r ] \r \f \r / / - - - - 0042520 - - - - - - - - - - - 376 001 \0 y 212 0042540 - - - - - - - - - - - - - - - - * 0042620 - - - - - - - - - - - - - \r a n 0042640 d B o o t S e r v ( p b i ) 0042660 b e \r / / - - - - - - - - - - - 0042700 - - - - - - - - - - - - - - - - * 0043000 - \r [ \r E x c h a n g e P o r t 0043020 s ( p b i ) \r s w i t c h o n 0043040 p b i > > P B I . p u p . t y p 0043060 e i n t o \r [ \r c 0043100 a s e p t B o o t F i l e R e 0043120 q u e s t : \r c a s e p 0043140 376 001 \0 247 ) t B o o t N a m e d F 0043160 i l e R e q u e s t : \r 0043200 H a n d l e B o o t F i l e 0043220 R e q u e s t ( p b i , p b i 0043240 > > P B I . p u p . i d ^ 2 , 0043260 S e n d B o o t F i l e ) \r 0043300 e n d c a s e \r \r 0043320 c a s e p t B o o t M i c r o 0043340 c o d e R e q u e s t : \r 0043360 H a n d l e B o o t F i l 0043400 e R e q u e s t ( p b i , p b 0043420 i > > P B I . p u p . i d ^ 2 0043440 + u C o d e O f f s e t B F N 0043460 , \r S e n d M i c 0043500 r o c o d e F i l e ) \r 0043520 e n d c a s e \r \r c a 0043540 s e p t 376 001 \0 004 } B o o t D i 0043560 r R e q u e s t : \r 0043600 i f b s > > B S . g l o b a l 0043620 L o c k s e q 0 & L o c 0043640 k ( l v b s > > B S . t r e e 0043660 L o c k , f a l s e , t r u 0043700 e ) t h e n \r 0043720 [ \r l e t 0043740 p u p H d r = v e c o f f 0043760 s e t P u p . w o r d s / 1 6 0044000 \r M o v e B l 0044020 o c k ( p u p H d r , l v p 0044040 b i > > P B I . p u p , o f f 0044060 s e t P u p . w o r d s / 1 6 0044100 ) \r R e l e a 0044120 s e P B I ( p b i ) / / g 0044140 i v e S e n d B o 376 001 \0 231 @ o 0044160 t D i r m o r e P B I s t 0044200 o p l a y w i t h \r 0044220 S e n d B o o t D i r 0044240 ( l v p u p H d r > > P u p . 0044260 d P o r t , l v p u p H d r 0044300 > > P u p . i d ) \r 0044320 U n l o c k ( l v b s > 0044340 > B S . t r e e L o c k ) \r 0044360 r e t u r n \r 0044400 ] \r e 0044420 n d c a s e \r \r d e f a u 0044440 l t : \r B o o t S e 0044460 r v U n c o m m o n ( p b i ) \r 0044500 r e t u r n \r 0044520 ] \r R e l e a s e P B I ( p b i 0044540 ) \r ] \r \f \r / / - - - - - - - 376 0044560 001 \0 275 ? - - - - - - - - - - - - 0044600 - - - - - - - - - - - - - - - - * 0044660 - - - - - - - - - \r a n d H a 0044700 n d l e B o o t F i l e R e q u 0044720 e s t ( p b i , b f n , P r 0044740 o c ) b e \r / / - - - - - - - 0044760 - - - - - - - - - - - - - - - - * 0045060 - - - - - \r [ \r l e t p u p D 0045100 a t a B y t e s = p b i > > 0045120 P B I . p u p . l e n g t h - 0045140 p u p O v B y t e s \r i f p 0045160 u p D a 376 001 \0 9 270 t a B y t e s 0045200 g r 1 0 0 t h e n r e t 0045220 u r n \r l e t b o o t i n g B 0045240 y N a m e = p b i > > P B I 0045260 . p u p . t y p e e q p t B 0045300 o o t N a m e d F i l e R e q u 0045320 e s t & p u p D a t a B y t 0045340 e s n e 0 \r \r / / N o t 0045360 s t r i c t l y n e c e s s a 0045400 r y t o l o c k t h e t 0045420 r e e i f b o o t i n g b 0045440 y n a m e , b u t i t d 0045460 o e s n ' t h u r t . \r i f 0045500 b s > > B S . g l o b a l L o c 0045520 k s e q 0 & L o c k ( l 0045540 v b s > > B S . t r e e L o c 0045560 k , f a l s e , 376 001 \0 245 7 t 0045600 r u e ) t h e n \r [ \r 0045620 l e t b f e = b o o t 0045640 i n g B y N a m e ? 0 , F i 0045660 n d B F E ( b f n ) \r \r / 0045700 / F a s t b o o t e r i f 0045720 b o o t e e i s o n d i 0045740 r e c t l y - c o n n e c t e d 0045760 n e t ; s l o w o t h e r 0046000 w i s e . \r / / P e r m 0046020 i t a t m o s t o n e f 0046040 a s t b o o t e r a n d o 0046060 n e s l o w b o o t e r a 0046100 t a t i m e . \r / / 0046120 N o t e t h a t a n E x c 0046140 h a n g e P o r t s h a s b 0046160 e e n d o n e , s o d 376 001 0046200 \0 263 373 P o r t i s t h e s 0046220 o u r c e p o r t . \r l 0046240 e t f l a g s = p b i > > 0046260 P B I . p u p . d P o r t . n e 0046300 t e q p b i > > P B I . n d 0046320 b > > N D B . l o c a l N e t ? 0046340 \r b s F a s t B o o t e 0046360 r , b s S l o w B o o t e r \r 0046400 i f ( b o o t i n g B y 0046420 N a m e % ( b f e n e 0 0046440 & b f e > > B F E . e x i s 0046460 t s ) ) & ( b s > > B S . f 0046500 l a g s & f l a g s ) e q 0046520 0 t h e n \r [ \r 0046540 L o c k C e l l ( l 0046560 v b f e ) / / n o - o p 0046600 i f 376 001 \0 313 016 t h e r e i 0046620 s n ' t o n e \r l 0046640 e t c t x = C r e a t e J 0046660 o b ( P r o c , j o b T y p e 0046700 M i s c e l l a n e o u s , l 0046720 e n B o o t C t x - 3 , t r u 0046740 e ) \r i f c t x 0046760 n e 0 t h e n \r 0047000 [ \r c t 0047020 x > > B o o t C t x . u s e r I 0047040 n f o = s y s t e m \r \r 0047060 c t x > > B o o t 0047100 C t x . n a m e = b o o t i 0047120 n g B y N a m e ? \r \r 0047140 / / B o o t i n g 0047160 b y n a m e : P u p d a t 0047200 a i s t h e 376 001 \0 ^ 232 b o 0047220 o t f i l e n a m e , w h 0047240 i c h w e t r y t o \r 0047260 / / m a t c h 0047300 t o a f i l e i n < S 0047320 y s t e m > B o o t > ( i g n 0047340 o r i n g b o o t f i l e 0047360 n u m b e r ) . \r 0047400 / / T r i c k : e x t 0047420 r a c t n a m e b y p r e 0047440 t e n d i n g e n t i r e P 0047460 B I i s a B C P L s t r 0047500 i n g . \r C 0047520 o n c a t e n a t e S t r i n g 0047540 s ( " B o o t > * * - " , \r 0047560 E x t r a c t 0047600 S u b s t r i n g ( p b i 376 001 \0 0047620 024 227 , ( o f f s e t P B I . 0047640 p u p . b y t e s ^ 1 ) / 8 , \r 0047660 ( ( o f 0047700 f s e t P B I . p u p . b y t 0047720 e s ^ 1 ) / 8 - 1 ) + p u p D a 0047740 t a B y t e s ) , f a l s e , 0047760 t r u e ) , \r \r 0050000 / / B o o t i n g b y 0050020 n u m b e r : u s e f i l 0050040 e n a m e g i v e n i n 0050060 B F E f o r t h a t B F N 0050100 . \r E x p a 0050120 n d T e m p l a t e ( " B o o t 0050140 > $ U O - $ S " , b f n , l 0050160 v b f e > > B F E . n a m e ) 0050200 \r \r M o v e B 0050220 l o 376 001 \0 271 021 c k ( l v c t x 0050240 > > B o o t C t x . p o r t , 0050260 l v p b i > > P B I . p u p . 0050300 d P o r t , l e n P o r t ) \r 0050320 c t x > > B o 0050340 o t C t x . b o o t e r F l a g 0050360 s = f l a g s \r 0050400 b s > > B S . f l a g s 0050420 = b s > > B S . f l a g s % 0050440 f l a g s \r 0050460 / / S u n b o o t r e q u 0050500 e s t d o e s n ' t s e n d 0050520 f i r s t p a g e o f b 0050540 o o t f i l e \r 0050560 c t x > > B o o t C t x . b 0050600 y t e s T o S k i p = b o o 0050620 t i n g B y N 376 001 \0 233 362 a m e ? 0050640 5 1 2 , 0 \r 0050660 E n q u e u e ( i f s C t x Q 0050700 , c t x ) \r 0050720 ] \r U n l o c k C e 0050740 l l ( l v b f e ) \r 0050760 ] \r U n l o c k ( l v 0051000 b s > > B S . t r e e L o c k ) 0051020 \r ] \r ] \r \r / / S e n d 0051040 B o o t F i l e a n d S e n 0051060 d M i c r o c o d e F i l e a 0051100 r e i n a s e p a r a t e 0051120 m o d u l e , I f s B o o t 0051140 S e n d . b c p l , f o r \r / 0051160 / p a c k a g i n g r e a s 0051200 o n s . \r \f \r / / - - - - - - - 0051220 - - - - - - - - - - - - 376 001 \0 9 0051240 y - - - - - - - - - - - - - - - 0051260 - - - - - - - - - - - - - - - - * 0051320 - - - - - - - - - - \r a n d S 0051340 e n d B o o t D i r ( p o r t , 0051360 i d ) = v a l o f \r / / - 0051400 - - - - - - - - - - - - - - - - * 0051500 - - - - - - - - - - - \r / / S 0051520 e n d t h e b o o t f i l 0051540 e d i r e c t o r y t o p 0051560 o r t . S e t t h e p u 0051600 p I D s t o i d . \r / / 0051620 R e t u r n s t r u e i f 0051640 b 376 001 \0 X n o o t f i l e d 0051660 i r e c t o r y i s n o n - 0051700 e m p t y a n d a l l o f 0051720 i t w a s s e n t ; \r / / 0051740 f a l s e i f d i r e c t 0051760 o r y i s e m p t y o r 0052000 r a n o u t o f P B I s 0052020 w h i l e s e n d i n g i t 0052040 . \r / / C a l l e r i s r 0052060 e s p o n s i b l e f o r l 0052100 o c k i n g t h e B F T t 0052120 o m a i n t a i n c o n s i 0052140 s t e n c y . \r [ \r / / f o l 0052160 l o w i n g 2 v a r i a b l 0052200 e s m u s t i m m e d i a t 0052220 e l y f o l l o w p o r t 0052240 a n d i d 376 001 \0 361 221 i n t 0052260 h e f r a m e . \r l e t p b 0052300 i , p = 0 , 0 / / 0052320 p i n d e x e s p b i : p 0052340 b i > > P B I . p u p . w o r d 0052360 s ^ p \r \r M a p T r e e ( b s > 0052400 > B S . t r e e , 0 , A p p 0052420 e n d B F D , l v p o r t , 0052440 0 , t r u e ) \r \r i f p b 0052460 i n e 0 t h e n C o m p 0052500 l e t e P u p ( p b i , p t B 0052520 o o t D i r R e p l y , p u p 0052540 O v B y t e s + p * 2 ) \r D o u 0052560 b l e I n c r e m e n t ( l v 0052600 b s > > B S . s t a t s . d i r 0052620 s S e n t ) \r r e s u l t i s 0052640 p b i n e 0 \r ] \r 376 001 \0 215 v 0052660 \r / / - - - - - - - - - - - - - 0052700 - - - - - - - - - - - - - - - - * 0052760 - - - - - - - - - - - - - - - \r 0053000 a n d A p p e n d B F D ( b f 0053020 e , l v P o r t , n i l ) 0053040 = v a l o f \r / / - - - - - - 0053060 - - - - - - - - - - - - - - - - * 0053160 - - - - - - \r [ \r l e t p b i 0053200 , p = l v P o r t ! 2 , 0053220 l v P o r t ! 3 \r i f b f e > 0053240 > B F E . e x i s t s t h e n 0053260 376 001 \0 S 027 \r [ \r l e 0053300 t l e n B F D = o f f s e 0053320 t B F D . n a m e / 1 6 + 0053340 b f e > > B F E . n a m e . l e 0053360 n g t h r s h i f t 1 + 1 0053400 \r i f p + l e n B F D 0053420 g r m a x P u p D a t a B y t 0053440 e s r s h i f t 1 t h e n 0053460 \r [ / / r a n 0053500 o u t o f s p a c e i n 0053520 t h i s p a c k e t \r 0053540 C o m p l e t e P u p ( p b 0053560 i , p t B o o t D i r R e p l 0053600 y , p u p O v B y t e s + p * 0053620 2 ) \r p b i = 0 0053640 ; l v P o r t ! 2 = 0 \r 0053660 376 001 \0 214 : ] \r i 0053700 f p b i e q 0 t h e n \r 0053720 [ \r p b 0053740 i = G e t P B I ( s o c M i 0053760 s c e l l a n e o u s , t r u 0054000 e ) \r i f p b i 0054020 e q 0 r e s u l t i s f a 0054040 l s e \r S e t P u p 0054060 D P o r t ( p b i , l v P o r 0054100 t ! 0 ) \r S e t P u 0054120 p I D ( p b i , l v P o r t ! 0054140 1 ) \r p = 0 \r 0054160 ] \r M o v e B l 0054200 o c k ( l v p b i > > P B I . 0054220 p u p . w o r d s ^ ( p + 1 ) , 0054240 l v b f e > > B F E . b f d 0054260 , l e n B F D ) \r 376 \0 = 345 H 0054300 l v P o r t ! 2 , l v P o 0054320 r t ! 3 = p b i , p + 0054340 l e n B F D \r ] \r r e s u 0054360 l t i s t r u e \r ] \r 377 \0 \0 I 0054400 f s B o o t S e n d . b c p l \0 0054420 373 232 Y 237 325 \0 \0 376 001 \0 020 # / / I 0054440 f s B o o t S e n d . b c p l 0054460 - - B o o t S e r v e r - 0054500 - o v e r f l o w f r o m 0054520 I f s B o o t S e r v . b c p l 0054540 \r / / C o p y r i g h t X e 0054560 r o x C o r p o r a t i o n 0054600 1 9 8 1 , 1 9 8 2 , 1 9 8 3 0054620 \r \r / / L a s t m o d i f i 0054640 e d J a n u a r y 2 2 , 1 0054660 9 8 3 1 0 : 4 8 A M b y 0054700 T a f t \r \r g e t " P u p 0 0054720 . d e c l " \r g e t " P u p 1 0054740 . d e c l " \r g e t " I f s . 0054760 d e c l " \r g e t " I f s R s 0055000 . d e c l " \r g e t " I f s B 0055020 o o t S e r v . d e c l 376 001 \0 353 0055040 362 " \r g e t " I f s S e r v E 0055060 F T P . d e c l " \r \r e x t e r 0055100 n a l \r [ \r / / o u t g o i n 0055120 g p r o c e d u r e s \r S e n 0055140 d B o o t F i l e ; S e n d M 0055160 i c r o c o d e F i l e ; F i 0055200 n d B F E ; B F T C o m p a r 0055220 e K e y \r \r / / i n c o m i n 0055240 g p r o c e d u r e s \r P u p 0055260 S e r v S e n d \r O p e n L e v 0055300 e l 1 S o c k e t ; C l o s e 0055320 L e v e l 1 S o c k e t ; G e 0055340 t P B I ; C o m p l e t e P u 0055360 p ; D e c l a r e P u p S o c 0055400 \r I F S O p e n F i l e ; S e 0055420 t F i l e P o s ; R e a d B l 0055440 o 376 001 \0 031 002 c k ; C l o s e s 0055460 \r F r e e ; Z e r o ; U s c 0055500 ; D o u b l e I n c r e m e n 0055520 t ; D e s t r o y J o b ; R 0055540 e a d R e c L E \r \r / / i n c 0055560 o m i n g s t a t i c s \r @ b 0055600 s ; s y s Z o n e \r ] \r \r / / 0055620 - - - - - - - - - - - - - - - - * 0055720 - - - - - - - - - - - - \r l e t 0055740 F i n d B F E ( b f n ) = 0055760 v a l o f \r / / - - - - - - - - 0056000 - - - - - - - - - - - - - - - - * 0056040 - - - - - - 376 001 \0 H 210 - - - - - 0056060 - - - - - - - - - - - - - - - - 0056100 - - - - - - - - - \r / / L o o 0056120 k s u p b o o t f i l e 0056140 n u m b e r b f n a n d r 0056160 e t u r n s a p o i n t e r 0056200 t o t h e \r / / c o r r e 0056220 s p o n d i n g b o o t f i 0056240 l e e n t r y ( b f e ) i 0056260 f f o u n d a n d z e r o 0056300 i f n o t f o u n d . \r / 0056320 / C a l l e r m u s t k e 0056340 e p b f e i n a l o c k 0056360 e d c e l l u n t i l f i 0056400 n i s h e d w i t h i t . \r 0056420 / / C a l l e r i s r e s 0056440 p o n s i b l e f o 376 001 \0 005 260 0056460 r l o c k i n g t h e B F 0056500 T t o m a i n t a i n c o 0056520 n s i s t e n c y . \r [ \r l e t 0056540 b f e = R e a d R e c L E 0056560 ( b s > > B S . t r e e , b f 0056600 n , 0 , t r u e ) \r r e s u 0056620 l t i s b f n e q b f e > 0056640 > B F E . b f n ? b f e , 0 0056660 \r ] \r \r / / - - - - - - - - - - 0056700 - - - - - - - - - - - - - - - - * 0057000 - - \r a n d B F T C o m p a r 0057020 e K e y ( b f n , b f e ) = 0057040 U s c ( b f n , b f e > > B 0057060 376 001 \0 . % F E . b f n ) \r / / - 0057100 - - - - - - - - - - - - - - - - * 0057200 - - - - - - - - - - - \r / / C 0057220 o m p a r e K e y r o u t i n 0057240 e h a n d e d t o t h e 0057260 B - t r e e p a c k a g e \r \r 0057300 / / - - - - - - - - - - - - - - 0057320 - - - - - - - - - - - - - - - - * 0057400 - - - - - - - - - - - - - - \r / 0057420 / a n d B F T E n t r y L e 0057440 n g t h ( b f e ) = b f e > 0057460 > B F E . 376 001 \0 364 F l e n g t h 0057500 \r / / - - - - - - - - - - - - - 0057520 - - - - - - - - - - - - - - - - * 0057600 - - - - - - - - - - - - - - - \r 0057620 / / L e n g t h r o u t i n 0057640 e h a n d e d t o t h e 0057660 B - t r e e p a c k a g e ; 0057700 h a n d - c o d e d i n I f 0057720 s B o o t A . a s m \r \f \r / / - 0057740 - - - - - - - - - - - - - - - - * 0060040 - - - - - - - - - - - \r a n d 0060060 S e n d B o o t F i 376 001 \0 253 027 l 0060100 e ( c t x ) b e \t / / a B 0060120 o o t C t x \r / / - - - - - - - 0060140 - - - - - - - - - - - - - - - - * 0060240 - - - - - \r [ \r l e t f t p 0060260 = v e c l e n F T P ; Z e 0060300 r o ( f t p , l e n F T P ) \r 0060320 f t p > > F T P . f r n P o r t 0060340 = l v c t x > > B o o t C 0060360 t x . p o r t \r f t p > > F T P 0060400 . r e a l N a m e = c t x > 0060420 > B o o t C t x . n a m e \r l e 0060440 t f a s t = ( c t x > > B 0060460 o o t C t x . b o o t e r F l 376 0060500 001 \0 } ) a g s & b s F a s t 0060520 B o o t e r ) n e 0 \r f t p 0060540 > > F T P . t i m e O u t 1 = 0060560 f a s t ? 1 0 0 , 3 0 0 0 0060600 / / 1 s e c , 3 0 s 0060620 e c \r f t p > > F T P . t i m e 0060640 O u t 2 = f a s t ? 4 0 0 0060660 , 6 0 0 0 / / 4 s e c 0060700 , 6 0 s e c \r i f P u p S 0060720 e r v S e n d ( f t p , c t x 0060740 > > B o o t C t x . b y t e s T 0060760 o S k i p ) t h e n \r D 0061000 o u b l e I n c r e m e n t ( f 0061020 a s t ? l v b s > > B S . s 0061040 t a t s . f a s t S e n d s , 0061060 l v b s > > B S . s t a t s . 0061100 s l o w 376 001 \0 350 026 S e n d s ) \r 0061120 F r e e ( s y s Z o n e , c t 0061140 x > > B o o t C t x . n a m e ) 0061160 \r b s > > B S . f l a g s = 0061200 b s > > B S . f l a g s & n 0061220 o t c t x > > B o o t C t x . 0061240 b o o t e r F l a g s \r D e s t 0061260 r o y J o b ( ) \r ] \r \r / / - - 0061300 - - - - - - - - - - - - - - - - * 0061400 - - - - - - - - - - \r a n d S 0061420 e n d M i c r o c o d e F i l e 0061440 ( c t x ) b e \t / / a B o 0061460 o t C t x \r / / - - - - - - - - 0061500 - - - - - - - - - 376 001 \0 \b 306 - - 0061520 - - - - - - - - - - - - - - - - * 0061600 - - - - - - - - - \r / / S e n 0061620 d m i c r o c o d e b o o t 0061640 f i l e b y s k i p p i n 0061660 g t h e o v e r h e a d p 0061700 a g e a t t h e b e g i n 0061720 n i n g \r / / a n d s e n d 0061740 i n g t h e r e s t o f 0061760 t h e f i l e a s P u p s 0062000 c o n t a i n i n g m u l t 0062020 i p l e s o f \r / / 3 w o 0062040 r d s ( f o r t h e b e n 0062060 e f i t o f D 0 s ) , t e 0062100 r m i n a t e d b y a n 376 001 0062120 \0 271 a e m p t y P u p . \r / 0062140 / T h e p r o t o c o l e 0062160 m p l o y s n o a c k n o w 0062200 l e d g m e n t s - - i f 0062220 a p a c k e t i s l o s t 0062240 , t h e \r / / r e q u e s t 0062260 o r m u s t a s k t h e 0062300 b o o t s e r v e r t o s 0062320 e n d t h e w h o l e f i 0062340 l e o v e r a g a i n . \r [ 0062360 \r l e t s o c = v e c l 0062400 e n P u p S o c \r O p e n L e v 0062420 e l 1 S o c k e t ( s o c , 0 0062440 , l v c t x > > B o o t C t 0062460 x . p o r t ) \r \r / / D 0 s 0062500 r e q u i r e t h a t t h e 0062520 b o 376 001 \0 b 254 o t f i l e 0062540 c o m e f r o m a s o c k 0062560 e t w h o s e \r / / l o w - 0062600 o r d e r s o c k e t n u m 0062620 b e r i s 4 ! \r s o c > > P 0062640 u p S o c . l c l P o r t . s o 0062660 c k e t ^ 2 = s o c k e t M 0062700 i s c S e r v i c e s \r D e c l 0062720 a r e P u p S o c ( s o c ) \r \r 0062740 l e t s t r e a m = I F S 0062760 O p e n F i l e ( c t x > > B o 0063000 o t C t x . n a m e ) \r i f s 0063020 t r e a m n e 0 t h e n \r 0063040 [ \r S e t F i l e P 0063060 o s ( s t r e a m , 0 , 5 1 0063100 2 ) / / s k i p o v e r 0063120 h e a d p a g 376 001 \0 255 366 e \r 0063140 l e t w o r d s = n i 0063160 l \r l e t s e q N o = 0063200 0 \r \r [ / / r 0063220 e p e a t \r l e t 0063240 p b i = G e t P B I ( s o c 0063260 ) \r w o r d s = 0063300 R e a d B l o c k ( s t r e a m 0063320 , l v p b i > > P B I . p u 0063340 p . w o r d s , u C o d e W o 0063360 r d s P e r P u p ) \r 0063400 p b i > > P B I . p u p . i d 0063420 ^ 1 = 1 / / D 0 s r 0063440 e q u i r e t h i s \r 0063460 p b i > > P B I . p u p . i 0063500 d ^ 2 = s e q N o \r 0063520 C o m p l e t e P u p 376 001 \0 0063540 N 255 ( p b i , p t B o o t M i 0063560 c r o c o d e R e p l y , p u 0063600 p O v B y t e s + w o r d s 0063620 l s h i f t 1 ) \r 0063640 s e q N o = s e q N o + 1 0063660 \r ] r e p e a t u 0063700 n t i l w o r d s e q 0 \r 0063720 \r C l o s e s ( s t r e a 0063740 m ) \r ] \r \r C l o s e L e 0063760 v e l 1 S o c k e t ( s o c ) \r 0064000 D e c l a r e P u p S o c ( 0 ) 0064020 \r F r e e ( s y s Z o n e , c 0064040 t x > > B o o t C t x . n a m e 0064060 ) \r b s > > B S . f l a g s = 0064100 b s > > B S . f l a g s & 0064120 n o t c t x > > B o o t C t x 0064140 . b 376 \0 032 263 [ o o t e r F l a g 0064160 s \r D e s t r o y J o b ( ) \r ] 0064200 \r 377 \0 \0 I f s B o o t R a r e . 0064220 b c p l \0 373 231 242 b 004 \0 \0 376 001 \0 7 0064240 > / / I f s B o o t R a r e . 0064260 b c p l - - B o o t S e r 0064300 v e r \r / / C o p y r i g h t 0064320 X e r o x C o r p o r a t i 0064340 o n 1 9 7 9 , 1 9 8 0 , 1 0064360 9 8 1 , 1 9 8 2 \r / / L a s 0064400 t m o d i f i e d S e p t e 0064420 m b e r 5 , 1 9 8 2 1 2 0064440 : 4 1 P M b y T a f t \r \r 0064460 g e t " P u p 0 . d e c l " \r 0064500 g e t " P u p 1 . d e c l " \r 0064520 g e t " S t r e a m s . d " \r 0064540 g e t " I f s . d e c l " \r g 0064560 e t " I f s R s . d e c l " \r 0064600 g e t " I f s B o o t S e r v 0064620 . d e c l " \r g e t " I f s S 0064640 e 376 001 \0 Y G r v E F T P . d e c 0064660 l " \r g e t " A l t o F i l e 0064700 S y s . d " \r g e t " I f s D 0064720 i r s . d e c l " \r \r e x t e r 0064740 n a l \r [ \r / / o u t g o i n 0064760 g p r o c e d u r e s \r E n a 0065000 b l e B o o t S e r v ; B o o 0065020 t S e r v U n c o m m o n ; C 0065040 h e c k B F T ; I n s e r t B 0065060 F E \r \r / / i n c o m i n g 0065100 p r o c e d u r e s \r F i n d B 0065120 F E ; S e n d B o o t D i r ; 0065140 G e t T i m e ; I n s t a l 0065160 l B o o t F i l e s \r P u p S e 0065200 r v R e c e i v e ; C o m p l 0065220 e t e P u p ; R e l e a s e P 0065240 B I ; G e 376 001 \0 \ 350 t P B I ; 0065260 S e t P u p D P o r t \r L o c 0065300 k C e l l ; U n l o c k C e l 0065320 l ; @ V W R P ; V i r t u a 0065340 l P a g e ; M a p T r e e ; 0065360 U p d a t e R e c o r d \r L o o 0065400 k u p I F S F i l e ; G e t B 0065420 u f f e r F o r F D ; S t r e 0065440 a m s F D ; D e s t r o y F D 0065460 \r S e t F i l e P o s ; F i l 0065500 e L e n g t h ; R e a d B l o 0065520 c k ; R e a d L e a d e r P a 0065540 g e ; W r i t e L e a d e r P 0065560 a g e \r D e s t r o y J o b ; 0065600 L o c k ; U n l o c k \r S t r 0065620 i n g C o m p a r e ; E x p a 0065640 n d T e m p l a t e ; 376 001 \0 023 213 0065660 F r e e P o i n t e r \r D o u 0065700 b l e U s c ; D o u b l e I n 0065720 c r e m e n t \r S y s A l l o c 0065740 a t e Z e r o ; S y s A l l o 0065760 c a t e ; S y s F r e e ; Z 0066000 e r o ; M o v e B l o c k ; 0066020 M a x \r \r / / i n c o m i n g 0066040 s t a t i c s \r @ b s ; C t 0066060 x R u n n i n g ; s o c M i s 0066100 c e l l a n e o u s ; s y s t 0066120 e m \r ] \r \r / / - - - - - - - - 0066140 - - - - - - - - - - - - - - - - * 0066240 - - - - \r l e t E n a b l e B 0066260 376 001 \0 B 303 o o t S e r v ( e n a 0066300 b l e S e r v e r , n o N e w 0066320 B o o t F i l e s ; n u m a r 0066340 g s n a ) b e \r / / - - - - 0066360 - - - - - - - - - - - - - - - - * 0066460 - - - - - - - - \r [ \r b s > > B 0066500 S . e x t e r n a l L o c k = 0066520 n o t e n a b l e S e r v e 0066540 r \r i f n a g r 1 t h e 0066560 n b s > > B S . n o N e w B o 0066600 o t F i l e s = n o N e w B 0066620 o o t F i l e s \r \r / / A l w 0066640 a y s r e b u i l d B F T 0066660 w h e n 376 001 \0 d 230 b o o t s 0066700 e r v e r i s e n a b l e d 0066720 \r b s > > B S . b f t C h e c k 0066740 T i m e r = 0 \r b s > > B S 0066760 . b f t R e b u i l d T i m e r 0067000 = 0 \r ] \r \f \r / / - - - - - 0067020 - - - - - - - - - - - - - - - - * 0067120 - - - - - - - \r a n d B o o t 0067140 S e r v U n c o m m o n ( p b i 0067160 ) b e \r / / - - - - - - - - - 0067200 - - - - - - - - - - - - - - - - * 0067260 - - - - - - - - - - 376 001 \0 b K - 0067300 - - - - - - - - \r [ / / N o 0067320 t e t h a t a n E x c h a 0067340 n g e P o r t s h a s a l r 0067360 e a d y b e e n d o n e \r s 0067400 w i t c h o n p b i > > P B I 0067420 . p u p . t y p e i n t o \r 0067440 [ \r c a s e p t B o 0067460 o t D i r R e p l y : \r 0067500 [ \r l e t n o 0067520 w = v e c 1 \r 0067540 u n l e s s b s > > B S . g l 0067560 o b a l L o c k s e q 0 & 0067600 / / d o n ' t u p d a t e 0067620 i f s e r v e r d i s a b 0067640 l e d \r G e t T i 0067660 m e ( n o w ) & / / d 376 0067700 001 \0 o 206 o n o t h i n g i f 0067720 d o n ' t k n o w t i m e 0067740 \r L o c k ( l v 0067760 b s > > B S . t r e e L o c k , 0070000 t r u e , t r u e ) e n d 0070020 c a s e / / m u s t w r 0070040 i t e - l o c k t r e e \r \r 0070060 l e t p = 1 \r 0070100 u n t i l p g e 0070120 ( ( p b i > > P B I . p u p . l 0070140 e n g t h - p u p O v B y t e s 0070160 ) + 1 ) r s h i f t 1 d o 0070200 \r [ \r 0070220 l e t b f d = l 0070240 v p b i > > P B I . p u p . w 0070260 o r d s ^ p \r 0070300 p = 376 001 \0 001 & p + o f f 0070320 s e t B F D . n a m e / 1 6 0070340 + b f d > > B F D . n a m e . 0070360 l e n g t h r s h i f t 1 0070400 + 1 \r i f b 0070420 f d > > B F D . b f n l s 0 0070440 % / / d o n ' t u p d 0070460 a t e i f b f n g e 1 0 0070500 0 0 0 0 B \r 0070520 D o u b l e U s c ( n o w , l 0070540 v b f d > > B F D . d a t e ) 0070560 l s 0 l o o p / / o 0070600 r i f d a t e i n f u t 0070620 u r e \r l e t 0070640 b f e = F i n d B F E ( b 0070660 f d > > B F D . b f n ) \r 0070700 i f 376 001 \0 U 3 b f 0070720 e e q 0 t h e n \r 0070740 [ / / n e v 0070760 e r h e a r d o f t h i s 0071000 b f n b e f o r e , p e r 0071020 h a p s i n s e r t n e w 0071040 e n t r y . \r 0071060 / / R e j e c t i f 0071100 n o t a c c e p t i n g n e 0071120 w b o o t f i l e s o r 0071140 i f b f n g e 4 0 0 0 0 . 0071160 \r i f 0071200 b s > > B S . n o N e w B o o t 0071220 F i l e s % b f d > > B F D 0071240 . b f n g e 4 0 0 0 0 B t 0071260 h e n l o o p \r \r 0071300 / / R e j e c 376 001 0071320 \0 244 b t i f a l r e a d y 0071340 h a v e f i l e w i t h s 0071360 a m e n a m e b u t d i f 0071400 f e r e n t b f n . \r 0071420 l e t n a m e 0071440 = E x p a n d T e m p l a t 0071460 e ( " B o o t > * * - $ S " , 0071500 l v b f d > > B F D . n a m e 0071520 ) \r l e 0071540 t f d = L o o k u p I F S 0071560 F i l e ( n a m e , l c V H i 0071600 g h e s t + l c M u l t i p l e 0071620 ) \r S y 0071640 s F r e e ( n a m e ) \r 0071660 i f f d n e 0071700 0 t h e n [ D e s t r o 0071720 y F D 376 001 \0 u 234 ( f d ) ; l o 0071740 o p ] \r \r 0071760 b f e = I n s e r t B F 0072000 E ( b f d ) \r 0072020 Z e r o ( l v b f e > > 0072040 B F E . d a t e , 2 ) / / 0072060 f o r c e u p d a t e ( b 0072100 e l o w ) \r 0072120 ] \r L o c 0072140 k C e l l ( l v b f e ) \r 0072160 i f S t r i n g 0072200 C o m p a r e ( l v b f d > > 0072220 B F D . n a m e , l v b f e 0072240 > > B F E . n a m e ) e q 0 0072260 t h e n \r 0072300 s w i t c h o n D o u b l 0072320 e U s c ( l v 376 001 \0 347 272 b f d 0072340 > > B F D . d a t e , l v b 0072360 f e > > B F E . d a t e ) i n 0072400 t o \r 0072420 [ \r 0072440 c a s e 1 : / / n 0072460 e e d t o g e t n e w c 0072500 o p y o f b o o t f i l e 0072520 f r o m h i m \r 0072540 M o v e 0072560 B l o c k ( l v b f e > > B F 0072600 E . p o r t , l v p b i > > 0072620 P B I . p u p . d P o r t , l 0072640 e n P o r t ) \r 0072660 b f e > > B 0072700 F E . u p d a t e = t r u e 0072720 \r 376 001 \0 0072740 353 B V W R P ( V i r 0072760 t u a l P a g e ( b f e r s h 0073000 i f t 8 ) ) / / m a r k 0073020 B F E d i r t y \r 0073040 / / 0073060 f a l l t h r u \r 0073100 c a s e - 1 0073120 : / / n e e d t o t e 0073140 l l h i m w e h a v e a 0073160 n e w e r v e r s i o n \r 0073200 0073220 b s > > B S . b f t C h e c k 0073240 T i m e r = 0 \r 0073260 e n d c 0073300 a s e \r 0073320 ] \r U n 0073340 l o 376 001 \0 362 240 c k C e l l ( l v 0073360 b f e ) \r ] 0073400 \r \r U n l o c k ( l 0073420 v b s > > B S . t r e e L o c 0073440 k ) \r e n d c a s e 0073460 \r ] \r c a s e 0073500 p t B o o t S t a t s R e q u 0073520 e s t : \r M o v e B 0073540 l o c k ( l v p b i > > P B I 0073560 . p u p . w o r d s , l v b 0073600 s > > B S . s t a t s , s i z 0073620 e S t a t s / 1 6 ) \r 0073640 C o m p l e t e P u p ( p b 0073660 i , p t B o o t S t a t s R e 0073700 p l y , p u p O v B y t e s + 0073720 ( s i z e S t a t s / 8 ) ) \r 0073740 r 376 001 \0 200 315 e t u r 0073760 n \r c a s e p t B o o t 0074000 L o c k R e q u e s t : \r 0074020 c a s e p t B o o t U n l o c 0074040 k R e q u e s t : \r 0074060 i f p b i > > P B I . p u p . 0074100 i d ^ 1 e q 2 7 1 8 2 & 0074120 p b i > > P B I . p u p . s P o 0074140 r t . h o s t n e 0 t h e 0074160 n \r [ \r 0074200 l e t e n a b l e 0074220 = p b i > > P B I . p u p . 0074240 t y p e e q p t B o o t U n 0074260 l o c k R e q u e s t \r 0074300 E n a b l e B o o t S 0074320 e r v ( e n a b l e ) \r 0074340 C o m p l e t 376 001 \0 242 0074360 227 e P u p ( p b i , ( e n a b 0074400 l e ? p t B o o t U n l o c k 0074420 R e p l y , p t B o o t L o c 0074440 k R e p l y ) , \r 0074460 p u p O v B y t e s ) \r 0074500 r e t u r n \r 0074520 ] \r 0074540 e n d c a s e \r ] \r R e l 0074560 e a s e P B I ( p b i ) \r ] \r \f 0074600 \r / / - - - - - - - - - - - - - 0074620 - - - - - - - - - - - - - - - - * 0074700 - - - - - - - - - - - - - - - \r 0074720 a n d C h e c k B F T ( c t x 0074740 ) b e \t / / a B o o t C t 0074760 x 376 001 \0 322 375 \r / / - - - - - - - 0075000 - - - - - - - - - - - - - - - - * 0075100 - - - - - \r / / C o n t e x t 0075120 s t a r t e d p e r i o d i 0075140 c a l l y t o c h e c k t 0075160 h e b o o t f i l e t a b 0075200 l e . \r / / C h e c k t h e 0075220 B F T f o r e n t r i e s 0075240 w i t h g a r b a g e d a 0075260 t e s , a n d z e r o a n 0075300 y t h a t a r e f o u n d 0075320 . \r / / T h e n , f o r a 0075340 l l e n t r i e s m a r k e 0075360 d a s n 376 001 \0 257 266 e e d i n 0075400 g t o b e u p d a t e d , 0075420 a t t e m p t t o r e t r 0075440 i e v e \r / / t h e b o o t 0075460 f i l e f r o m t h e b 0075500 o o t s e r v e r t h a t 0075520 a d v e r t i s e d i t s e l 0075540 f a s h a v i n g \r / / a 0075560 n e w e r o n e . F i n 0075600 a l l y , b r o a d c a s t 0075620 a c o p y o f o u r o w 0075640 n b o o t f i l e t a b l 0075660 e . \r [ \r c t x > > B o o t C t 0075700 x . u s e r I n f o = s y s 0075720 t e m \r i f b s > > B S . e x 0075740 t e r n a l L o c k e q 0 0075760 t h e n \r [ \r 376 001 \0 234 314 0076000 / / T h e r e i s o n 0076020 l y o n e o f m e , a n 0076040 d I c a n w a i t u n t 0076060 i l t r e e c a n b e w 0076100 r i t e - l o c k e d \r L 0076120 o c k ( l v b s > > B S . t r 0076140 e e L o c k , t r u e ) \r \r 0076160 / / R e b u i l d t h e 0076200 e n t i r e B F T o c c a 0076220 s i o n a l l y , s o a s 0076240 t o p i c k u p b o o t 0076260 f i l e s t h a t \r / / 0076300 m a y h a v e b e e n s 0076320 t o r e d v i a F T P , d 0076340 e l e t e d , e t c . \r 0076360 b s > > B S . b f t R e b u i l 0076400 376 001 \0 ; y d T i m e r = M a 0076420 x ( b s > > B S . b f t R e b u 0076440 i l d T i m e r - 1 , 0 ) \r 0076460 i f b s > > B S . b f t R 0076500 e b u i l d T i m e r e q 0 0076520 t h e n \r [ I n 0076540 s t a l l B o o t F i l e s ( ) 0076560 ; b s > > B S . b f t R e b u 0076600 i l d T i m e r = b f t R e 0076620 b u i l d I n t e r v a l ] \r 0076640 \r M a p T r e e ( b s > > 0076660 B S . t r e e , 0 , C h e c 0076700 k B F E , 0 , 0 , t r u e 0076720 ) \r \r / / B r o a 0076740 d c a s t c o p y o f m y 0076760 b o o t f i l e d i r e c 0077000 t o r y \r 376 001 \0 263 220 u n l 0077020 e s s S e n d B o o t D i r ( 0077040 t a b l e [ 0 ; 0 ; s o 0077060 c k e t M i s c S e r v i c e s 0077100 ] , t a b l e [ 0 ; 0 0077120 ] ) d o \r [ 0077140 / / I h a v e n o b o o 0077160 t f i l e s , b r o a d c a 0077200 s t a d i r e c t o r y r 0077220 e q u e s t \r l e t 0077240 p b i = G e t P B I ( s o 0077260 c M i s c e l l a n e o u s , 0077300 t r u e ) \r i f p 0077320 b i n e 0 t h e n \r 0077340 [ \r 0077360 S e t P u p D P o r t ( p b i 0077400 , t a b l e [ 376 001 \0 241 210 0 0077420 ; 0 ; s o c k e t M i s c S 0077440 e r v i c e s ] ) \r 0077460 C o m p l e t e P u p ( 0077500 p b i , p t B o o t D i r R e 0077520 q u e s t , p u p O v B y t e 0077540 s ) \r ] \r 0077560 ] \r U n l o c k ( 0077600 l v b s > > B S . t r e e L o 0077620 c k ) \r ] \r \r b s > > B S 0077640 . b f t C h e c k T i m e r = 0077660 b f t C h e c k I n t e r v a 0077700 l \r b s > > B S . u p d a t e C 0077720 t x = 0 \r D e s t r o y J o 0077740 b ( ) \r ] \r \r / / - - - - - - - 0077760 - - - - - - - - - - - - - - - - 0100000 - - - - - - - - - - - - - - - 376 0100020 001 \0 300 210 - - - - - - - - - - - - 0100040 - - - - - - - - - - - - - - - - 0100060 - - - - - - - - - - \r a n d C 0100100 h e c k B F E ( b f e , n i l 0100120 , n i l ) = v a l o f \r / 0100140 / - - - - - - - - - - - - - - - 0100160 - - - - - - - - - - - - - - - - * 0100240 - - - - - - - - - - - - - \r [ \r 0100260 L o c k C e l l ( l v b f e ) 0100300 \r l e t n o w = v e c 1 0100320 \r i f G e t T i m e ( n o w ) 0100340 & D o u b l e U s c ( n o w 0100360 , l v b f e > > B F E . d a 0100400 t e ) l s 0 t h e n \r 0100420 [ / 376 001 \0 336 M / G a r b a 0100440 g e d a t e , z e r o i t 0100460 t o m a k e i t e l i g 0100500 i b l e f o r u p d a t e . 0100520 \r Z e r o ( l v b f e > 0100540 > B F E . d a t e , 2 ) \r 0100560 V W R P ( V i r t u a l P a g 0100600 e ( b f e r s h i f t 8 ) ) 0100620 / / m a r k B F E d i 0100640 r t y \r ] \r i f b f e > 0100660 > B F E . u p d a t e t h e n 0100700 \r [ \r V W R P ( V i 0100720 r t u a l P a g e ( b f e r s 0100740 h i f t 8 ) ) / / m a r 0100760 k B F E d i r t y \r l 0101000 e t f t p = v e c l e n 0101020 F T P ; Z e r o 376 001 \0 026 367 ( f 0101040 t p , l e n F T P ) \r f 0101060 t p > > F T P . f r n P o r t 0101100 = l v b f e > > B F E . p o 0101120 r t \r f t p > > F T P . r 0101140 e a l N a m e = E x p a n d 0101160 T e m p l a t e ( " < S y s t e 0101200 m > B o o t > $ U O - $ S " , \r 0101220 b f e > > B F E . b f n 0101240 , l v b f e > > B F E . n a 0101260 m e ) \r f t p > > F T P . 0101300 t e m p N a m e = " T e m p 0101320 . b o o t " \r f t p > > F 0101340 T P . t i m e O u t 1 = 1 0 0101360 0 / / 1 s e c \r f 0101400 t p > > F T P . t i m e O u t 2 0101420 = 2 0 0 0 / / 2 0 376 001 0101440 \0 [ z s e c \r f t p > > 0101460 F T P . p r o c 1 = R B F S 0101500 t a r t P r o c \r f t p > 0101520 > F T P . p r o c 2 = R B F 0101540 E n d P r o c \r C t x R u 0101560 n n i n g > > B o o t C t x . b 0101600 f e = b f e \r i f P 0101620 u p S e r v R e c e i v e ( f t 0101640 p ) t h e n \r D o 0101660 u b l e I n c r e m e n t ( l v 0101700 b s > > B S . s t a t s . f i 0101720 l e s R c v d ) \r S y s F 0101740 r e e ( f t p > > F T P . r e a 0101760 l N a m e ) \r \r / / 0102000 E v e n i f w e f a i l 0102020 , w a i t f o r r e c e i 0102040 p t 376 001 \0 330 \r o f n e x t 0102060 b o o t d i r b r o a d c a 0102100 s t \r / / b e f o r e 0102120 t r y i n g a g a i n \r 0102140 b f e > > B F E . u p d a t e 0102160 = f a l s e \r ] \r U n l 0102200 o c k C e l l ( l v b f e ) \r 0102220 ] \r \f \r / / - - - - - - - - - - 0102240 - - - - - - - - - - - - - - - - * 0102340 - - \r a n d R B F S t a r t P 0102360 r o c ( s o c ) b e \r / / - - 0102400 - - - - - - - - - - - - - - - - * 0102440 - - - - - - - - 376 001 \0 207 210 - - - 0102460 - - - - - - - - - - - - - - - - 0102500 - - - - - - - - - - - - - - - \r 0102520 [ \r l e t p b i = G e t P 0102540 B I ( s o c , t r u e ) \r i f 0102560 p b i n e 0 t h e n \r 0102600 [ \r p b i > > P B I . 0102620 p u p . i d ^ 2 = C t x R u 0102640 n n i n g > > B o o t C t x . b 0102660 f e > > B F E . b f n \r C 0102700 o m p l e t e P u p ( p b i , 0102720 p t B o o t F i l e R e q u e s 0102740 t , p u p O v B y t e s ) \r 0102760 ] \r ] \r \r / / - - - - - - - 0103000 - - - - - - - - - - - - - - - - * 0103040 - - - - - - - - - - - - - 376 001 \0 0103060 200 321 - - - - - - - - - - - - - - 0103100 - - - - - - - - - - \r a n d R 0103120 B F E n d P r o c ( s t r e a m 0103140 ) = v a l o f \r / / - - - - 0103160 - - - - - - - - - - - - - - - - * 0103260 - - - - - - - - \r [ \r S e t F i 0103300 l e P o s ( s t r e a m , 0 , 0103320 6 ) \r R e a d B l o c k ( s t 0103340 r e a m , l v C t x R u n n 0103360 i n g > > B o o t C t x . b f e 0103400 > > B F E . d a t e , 2 ) \r C 0103420 t x R u n n i n g > > B o o t C 0103440 t x . b f e > > B F E . e x i s 0103460 t s 376 001 \0 302 325 = t r u e \r l 0103500 e t l d = G e t B u f f e 0103520 r F o r F D ( S t r e a m s F D 0103540 ( s t r e a m ) ) \r R e a d L e 0103560 a d e r P a g e ( s t r e a m , 0103600 l d ) \r M o v e B l o c k ( l 0103620 v l d > > L D . c r e a t e d 0103640 , l v C t x R u n n i n g > 0103660 > B o o t C t x . b f e > > B F 0103700 E . d a t e , 2 ) \r W r i t e 0103720 L e a d e r P a g e ( s t r e a 0103740 m , l d ) \r S y s F r e e ( l 0103760 d ) \r F i l e L e n g t h ( s t 0104000 r e a m ) / / r e p o s i 0104020 t i o n t o e n d - o f - f 0104040 i l e \r r e s u l t i s t r u 0104060 e \r ] \r \r / / 376 001 \0 212 343 - - - - 0104100 - - - - - - - - - - - - - - - - * 0104200 - - - - - - - - \r a n d I n s 0104220 e r t B F E ( b f d ) = v a 0104240 l o f \r / / - - - - - - - - - - 0104260 - - - - - - - - - - - - - - - - * 0104360 - - \r / / M a k e s a n e 0104400 w b f t e n t r y c o n t 0104420 a i n i n g t h e i n f o r 0104440 m a t i o n i n b f t a n 0104460 d w i t h \r / / u p 376 001 \0 \b 0104500 253 d a t e = f a l s e a n d 0104520 e x i s t s = f a l s e . R 0104540 e t u r n s p o i n t e r t 0104560 o n e w b f e , \r / / w h 0104600 i c h c a l l e r m u s t 0104620 k e e p i n a l o c k e d 0104640 c e l l u n t i l d o n e 0104660 w i t h i t . \r [ \r U p d a 0104700 t e R e c o r d ( b s > > B S . 0104720 t r e e , b f d > > B F D . b 0104740 f n , G e n N e w B F E , b 0104760 f d ) \r r e s u l t i s F i n 0105000 d B F E ( b f d > > B F D . b f 0105020 n ) / / c a n ' t f a i 0105040 l \r ] \r \r / / - - - - - - - - - 0105060 - - - - - - - - - - - - - - - - 0105100 - 376 001 \0 2 @ - - - - - - - - - - 0105120 - - - - - - - - - - - - - - - - * 0105160 - - - - - - - - \r a n d G e n 0105200 N e w B F E ( b f e , b f d ) 0105220 = v a l o f \r / / - - - - - 0105240 - - - - - - - - - - - - - - - - * 0105340 - - - - - - - \r / / R e c o r 0105360 d G e n e r a t o r p r o c e 0105400 d u r e c a l l e d f r o m 0105420 U p d a t e R e c o r d . \r [ 0105440 \r F r e e P o i n t e r ( l v 0105460 b f e ) / / f r e e o l 0105500 d r e c o 376 \0 342 235 \n r d i f 0105520 a n y ( s h o u l d n ' t 0105540 b e o n e ) \r l e t l e n B 0105560 F E = o f f s e t B F E . 0105600 n a m e / 1 6 + b f d > > B 0105620 F D . n a m e . l e n g t h r 0105640 s h i f t 1 + 1 \r b f e = 0105660 S y s A l l o c a t e Z e r o 0105700 ( l e n B F E ) \r M o v e B l o 0105720 c k ( l v b f e > > B F E . b 0105740 f d , b f d , l e n B F E 0105760 - o f f s e t B F E . b f d 0106000 / 1 6 ) \r b f e > > B F E . l e 0106020 n g t h = l e n B F E \r r e 0106040 s u l t i s b f e \r ] \r 377 \0 \0 0106060 I f s B o o t I n s t a l l . b 0106100 c p l \0 373 232 # 226 ) \0 \0 376 001 \0 343 5 0106120 / / I f s B o o t I n s t a l 0106140 l . b c p l - - b o o t f 0106160 i l e i n s t a l l a t i o n 0106200 \r / / C o p y r i g h t X e 0106220 r o x C o r p o r a t i o n 0106240 1 9 7 9 , 1 9 8 0 , 1 9 8 1 0106260 , 1 9 8 2 \r \r / / L a s t 0106300 m o d i f i e d D e c e m b e 0106320 r 1 2 , 1 9 8 2 1 1 : 2 0106340 2 A M b y T a f t \r \r g e 0106360 t " P u p 0 . d e c l " \r g e 0106400 t " P u p 1 . d e c l " \r g e 0106420 t " I f s . d e c l " \r g e t 0106440 " I f s R s . d e c l " \r g e 0106460 t " I f s B o o t S e r v . d 0106500 e c l " \r g e t " I f s F i l 0106520 376 001 \0 M 323 e s . d e c l " \r g e 0106540 t " I f s D i r s . d e c l " 0106560 \r \r e x t e r n a l \r [ \r / / 0106600 o u t g o i n g p r o c e d u 0106620 r e s \r C r e a t e B o o t S e 0106640 r v ; I n s t a l l B o o t F 0106660 i l e s \r \r / / i n c o m i n 0106700 g p r o c e d u r e s \r B o o 0106720 t S e r v E v e n t ; F i n d 0106740 B F E ; I n s e r t B F E ; 0106760 B F T C o m p a r e K e y ; B 0107000 F T E n t r y L e n g t h \r C r 0107020 e a t e E v e n t \r L o o k u p 0107040 I F S F i l e ; N e x t F D ; 0107060 D e s t r o y F D ; G e t B 0107100 u f f e r F o r F D \r O p e n I 0107120 F S S t r 376 001 \0 003 363 e a m ; C 0107140 l o s e I F S S t r e a m ; D 0107160 e l e t e F i l e F r o m F D ; 0107200 I F S O p e n F i l e ; S t 0107220 r e a m s F D \r R e a d B l o c 0107240 k ; W r i t e B l o c k ; C 0107260 l o s e s ; F i l e L e n g t 0107300 h ; S e t F i l e P o s ; P 0107320 o s i t i o n P a g e \r R e a d 0107340 L e a d e r P a g e ; W r i t 0107360 e L e a d e r P a g e \r O p e n 0107400 I F S T r e e ; C l o s e B T 0107420 r e e ; @ V W R P ; V i r t 0107440 u a l P a g e \r E x t r a c t S 0107460 u b s t r i n g ; C o p y S t 0107500 r i n g \r S y s A l l o c a t e 0107520 ; S y s A l l o c 376 001 \0 2 " a 0107540 t e Z e r o ; S y s F r e e ; 0107560 M o v e B l o c k ; I F S E 0107600 r r o r \r \r / / i n c o m i n 0107620 g s t a t i c s \r @ b s ; p 0107640 r i m a r y I F S \r ] \r \r / / - 0107660 - - - - - - - - - - - - - - - - * 0107760 - - - - - - - - - - - \r l e t 0110000 C r e a t e B o o t S e r v ( ) 0110020 b e \r / / - - - - - - - - - - 0110040 - - - - - - - - - - - - - - - - * 0110120 - - - - - - - - - - - - - - - 376 0110140 001 \0 340 E - - - \r [ \r b s = S 0110160 y s A l l o c a t e Z e r o ( l 0110200 e n B S ) \r b s > > B S . s t a 0110220 t s . v e r s i o n = b o o 0110240 t S t a t s V e r s i o n \r b s 0110260 > > B S . i n t e r n a l L o c 0110300 k = t r u e / / u n t 0110320 i l B F T B - t r e e i s 0110340 b u i l t \r C r e a t e E v e 0110360 n t ( B o o t S e r v E v e n t 0110400 ) \r ] \r \r / / - - - - - - - - - 0110420 - - - - - - - - - - - - - - - - * 0110520 - - - \r a n d I n s t a l l B 0110540 o o t F 376 001 \0 ! H i l e s ( ) 0110560 b e \r / / - - - - - - - - - - - 0110600 - - - - - - - - - - - - - - - - * 0110700 - \r / / I n s t a l l a l l 0110720 b o o t f i l e s c u r r 0110740 e n t l y r e s i d i n g i 0110760 n < S y s t e m > B o o t > . 0111000 \r / / C a l l e r i s r e 0111020 s p o n s i b l e f o r w r 0111040 i t e - l o c k i n g t h e 0111060 B F T . \r [ \r i f b s > > B S 0111100 . t r e e n e 0 t h e n 0111120 C l o s e B T r e e ( b s > > B 0111140 S . t r e e ) \r \r 376 001 \0 265 016 / / 0111160 ( R e ) c r e a t e t h e 0111200 B - t r e e f i l e w i t h 0111220 a l l a p p r o p r i a t e 0111240 a t t r i b u t e s \r l e t 0111260 s t r e a m = I F S O p e n 0111300 F i l e ( " B o o t > B o o t D 0111320 i r e c t o r y . t r e e " , 0111340 0 , m o d e R e a d W r i t e 0111360 ) \r i f s t r e a m e q 0 0111400 t h e n I F S E r r o r ( e 0111420 c C r e a t e E s s e n t i a l 0111440 F i l e ) \r l e t l d = G 0111460 e t B u f f e r F o r F D ( S t 0111500 r e a m s F D ( s t r e a m ) ) 0111520 \r R e a d L e a d e r P a g e ( 0111540 s t r e a m , l d ) \r l d 376 001 0111560 \0 \v 002 > > I L D . t y p e = 0111600 f t B i n a r y \r l d > > I L D 0111620 . b y t e S i z e = 8 \r l d 0111640 > > I L D . n o B a c k u p = 0111660 t r u e \r l d > > I L D . u n 0111700 d e l e t a b l e = t r u e 0111720 \r W r i t e L e a d e r P a g e 0111740 ( s t r e a m , l d ) \r P o s 0111760 i t i o n P a g e ( s t r e a m 0112000 , b o o t T r e e P a g e s ) 0112020 \r b s > > B S . t r e e = O 0112040 p e n I F S T r e e ( l v S t 0112060 r e a m s F D ( s t r e a m ) > 0112100 > F D . d r > > D R . f p , p 0112120 r i m a r y I F S , \r B F T C 0112140 o m p a r e K e y , B F T E n 0112160 t r y 376 001 \0 235 345 L e n g t h , 0112200 t r u e , b o o t T r e e P a 0112220 g e s ) \r S y s F r e e ( l d ) 0112240 \r C l o s e s ( s t r e a m ) \r 0112260 \f \r / / I n s t a l l B o o t 0112300 F i l e s ( c o n t ' d ) \r \r 0112320 / / E n u m e r a t e a l l 0112340 f i l e s w i t h n a m e 0112360 s o f t h e f o r m " < 0112400 S y s t e m > B o o t > b f n - 0112420 n a m e . b o o t " , \r / / r 0112440 e f o r m a t t h e m i f 0112460 n e c e s s a r y , a n d i 0112500 n s e r t t h e m i n t o 0112520 t h e B F T . \r l e t f d 0112540 = L o o k u p I F S F i l e ( 0112560 " B o o t > * * 376 001 \0 y 212 - * * 0112600 " , l c V H i g h e s t + l c 0112620 M u l t i p l e ) \r i f f d 0112640 n e 0 t h e n \r [ / 0112660 / r e p e a t \r l e t 0112700 b o o t F i l e = O p e n I 0112720 F S S t r e a m ( f d ) / / 0112740 m o d e R e a d \r i f 0112760 b o o t F i l e e q 0 l o 0113000 o p \r \r / / p i c k a 0113020 p a r t t h e f i l e n a 0113040 m e a n d b u i l d B F D 0113060 f o r i t \r l e t b 0113100 f d = v e c ( o f f s e t 0113120 B F D . n a m e / 1 6 + 1 0113140 2 7 ) \r b f d > > B F D . 0113160 b f n = 0 \r l e 376 001 \0 0113200 q p t i = f d > > F D . l 0113220 e n S u b D i r S t r i n g + 1 0113240 \r l e t c h a r = n 0113260 i l \r w h i l e i l s 0113300 f d > > F D . l e n B o d y S 0113320 t r i n g d o \r [ 0113340 \r c h a r = f d 0113360 > > F D . d r > > D R . p a t h 0113400 N a m e . c h a r ^ i \r 0113420 i f ( c h a r - $ 0 ) u 0113440 g r 7 b r e a k \r 0113460 b f d > > B F D . b f n = 0113500 b f d > > B F D . b f n l s h 0113520 i f t 3 + c h a r - $ 0113540 0 \r i = i + 1 \r 0113560 ] \r i f c h 0113600 a r 376 001 \0 q 301 n e $ - % 0113620 / / i m p r o p e r f i l 0113640 e n a m e , b y p a s s \r 0113660 F i n d B F E ( b f d > > B 0113700 F D . b f n ) n e 0 t h e 0113720 n / / d u p l i c a t e 0113740 b f n , b y p a s s \r 0113760 [ C l o s e I F S S t r e 0114000 a m ( b o o t F i l e ) ; l o 0114020 o p ] \r l e t b o o t 0114040 N a m e = E x t r a c t S u 0114060 b s t r i n g ( l v f d > > F 0114100 D . d r > > D R . p a t h N a m 0114120 e , \r i + 1 , f d > > 0114140 F D . l e n B o d y S t r i n g 0114160 - 1 ) \r C o p y S t r i n 0114200 g ( l v b f 376 001 \0 L - d > > B 0114220 F D . n a m e , b o o t N a m 0114240 e ) \r S y s F r e e ( b o 0114260 o t N a m e ) \r \r / / T 0114300 h e r e a r e t w o k i n 0114320 d s o f b o o t f i l e . 0114340 \r / / F o r m o r e 0114360 o n b o o t f i l e s s e 0114400 e t h e B u i l d B o o t 0114420 d o c u m e n t a t i o n \r \r 0114440 / / B - F i l e s p r o 0114460 d u c e d b y B u i l d B o 0114500 o t . r u n : \r / / \t F i 0114520 l e p a g e 1 : \t D i s k B 0114540 o o t l o a d e r \r / / 0114560 \t F i l e p a g e 2 : \t l o 0114600 c a t i o n s 0 - 3 7 376 001 \0 k 0114620 366 7 b \r / / \t F i l e p 0114640 a g e 3 : \t l o c a t i o n s 0114660 1 0 0 0 b - 1 3 7 7 b \r 0114700 / / \t F i l e p a g e 4 0114720 : \t l o c a t i o n s 1 4 0 0 0114740 b - 1 7 7 7 b \r / / \t 0114760 . . . \r / / \t F i l e p 0115000 a g e n : \t l o c a t i o n s 0115020 ( n - 1 ) * 4 0 0 b - ( n 0115040 - 1 ) * 4 0 0 b + 3 7 7 b \r 0115060 / / B - F i l e s h a v e 0115100 0 i n w o r d 1 o f 0115120 t h e f i r s t p a g e . \r 0115140 / / B - F i l e s a r 0115160 e s t a r t e d b y j m p 0115200 @ 0 w h e n l o a d i n g 0115220 376 001 \0 344 206 i s c o m p l e t 0115240 e . \r \r / / S - F i l e 0115260 s p r o d u c e d b y S w 0115300 a t O u t L d : \r / / \t 0115320 F i l e p a g e 1 : \t I n O 0115340 u t L d l o a d e r \r / 0115360 / \t F i l e p a g e 2 : \t l 0115400 o c a t i o n s 1 0 0 0 b - 0115420 1 3 7 7 b \r / / \t F i l 0115440 e p a g e 3 : \t l o c a t i 0115460 o n s 1 4 0 0 - 1 7 7 7 b 0115500 \r / / \t . . . \r / / 0115520 \t F i l e p a g e 2 5 3 : \t 0115540 l o c a t i o n s 1 7 6 4 0 0 0115560 b - 1 7 6 7 7 7 b \r / / \t 0115600 F i l e p a g e 2 5 4 : \t l 0115620 o c a t i o 376 001 \0 205 \0 n s 4 0 0115640 0 b - 7 7 7 b \r / / \t 0115660 F i l e p a g e 2 5 5 : \t l 0115700 o c a t i o n s 0 - 3 7 7 0115720 b \r / / S - F i l e s 0115740 h a v e a n o n z e r o v 0115760 a l u e i n [ 1 . . 3 7 7 B 0116000 ] i n w o r d 1 o f t 0116020 h e f i r s t p a g e . \r 0116040 / / S o m e S - F i l e 0116060 s c a n b e s t a r t e d 0116100 b y j m p @ 0 . \r / 0116120 / T h i s i s t h e k i 0116140 n d w e u s e , b u t w 0116160 e r e - f o r m a t t h e m 0116200 f i r s t . \r \r / / T 0116220 h e r e a r e o t 376 001 \0 w E 0116240 h e r k i n d s o f b o o 0116260 t f i l e s a s w e l l 0116300 ( e . g . , m i c r o c o d e 0116320 f i l e s , \r / / S u 0116340 n b o o t f i l e s , e t 0116360 c . ) T h e s e a r e i 0116400 d e n t i f i e d b y w o r 0116420 d 1 n o t i n [ 1 . . 3 0116440 7 7 B ] . \r / / W e u 0116460 s e t h e s e a s - i s a 0116500 n d d o n o t a t t e m p 0116520 t t o r e f o r m a t t h 0116540 e m . \r \f \r / / I n s t a l l 0116560 B o o t F i l e s ( c o n t ' 0116600 d ) \r \r l e t b u f f e 0116620 r = S y s A l l o c a t e ( 0116640 376 001 \0 341 273 2 5 6 ) \r R e a 0116660 d B l o c k ( b o o t F i l e , 0116700 b u f f e r , 2 5 6 ) \r 0116720 M o v e B l o c k ( l v b f 0116740 d > > B F D . d a t e , b u f 0116760 f e r + 3 , 2 ) \r l e t 0117000 n e w F i l e = v a l o f 0117020 \r [ / / t h i 0117040 s b l o c k r e t u r n s 0117060 a d i s k s t r e a m i f 0117100 f t h e f i l e s h o u l 0117120 d b e r e f o r m a t t e d 0117140 \r i f ( b u f f e 0117160 r ! 1 ) - 1 u g e 3 7 7 B 0117200 t h e n / / n o t i n 0117220 [ 1 . . 3 7 7 B ] ? \r 0117240 r 376 001 \0 1 341 e s u l t i 0117260 s 0 / / B - f i l e o 0117300 r f i l e o f u n k n o w 0117320 n t y p e \r / / 0117340 S - f i l e s a r e a l w a 0117360 y s e x a c t l y 3 7 7 0 0 0117400 0 B b y t e s l o n g . 0117420 I f t h i s f i l e \r 0117440 / / i s n o t t h e 0117460 c o r r e c t l e n g t h 0117500 t h e n d o n o t t r y 0117520 t o r e f o r m a t i t . \r 0117540 l e t f i l e L e 0117560 n g t h = v e c 1 \r 0117600 F i l e L e n g t h ( b o 0117620 o t F i l e , f i l e L e n g 0117640 t h ) \r 376 001 \0 341 W u 0117660 n l e s s f i l e L e n g t h 0117700 ! 0 e q 1 & f i l e L e 0117720 n g t h ! 1 e q 1 7 7 0 0 0 0117740 B d o r e s u l t i s 0 \r 0117760 l e t n e w N a m 0120000 e = E x t r a c t S u b s t 0120020 r i n g ( l v f d > > F D . d 0120040 r > > D R . p a t h N a m e , \r 0120060 1 , f d > > F D 0120100 . l e n B o d y S t r i n g - 1 0120120 ) \r l e t s = 0120140 I F S O p e n F i l e ( n e w N 0120160 a m e , 0 , m o d e W r i t 0120200 e ) \r S y s F r e e 0120220 ( n e w N a m e ) \r 0120240 r e s u l t i s s \r 376 0120260 001 \0 242 g ] \r t e s t 0120300 n e w F i l e e q 0 \r 0120320 i f s o C l o s e I F S 0120340 S t r e a m ( b o o t F i l e ) 0120360 \r i f n o t / / 0120400 S - f i l e - m a k e i 0120420 t B - f o r m a t \r 0120440 [ \r b 0120460 u f f e r ! 1 = 0 / / m 0120500 a r k i t a s a B - f o 0120520 r m a t f i l e \r 0120540 W r i t e B l o c k ( n e 0120560 w F i l e , b u f f e r , 2 0120600 5 6 ) / / u s e l e s s s 0120620 w a t I n L d r \r \r 0120640 / / r e a d p a g e 0120660 c o n 376 001 \0 b 250 t a i n i n g 0120700 l o c 0 - # 3 7 7 \r 0120720 S e t F i l e P o s ( 0120740 b o o t F i l e , 1 , 2 5 4 0120760 l s h i f t 9 ) / / l 0121000 a s t p a g e o f f i l e 0121020 ( 2 5 5 ) \r 0121040 W r i t e B l o c k ( n e w F i 0121060 l e , b u f f e r , R e a d 0121100 B l o c k ( b o o t F i l e , 0121120 b u f f e r , 2 5 6 ) ) \r \r 0121140 / / n o w c 0121160 o p y t h e r e s t o f 0121200 t h e f i l e . \r 0121220 / / s t o p o n p a 0121240 g e c o u n t n o t e n d 0121260 o f f i l e . 376 001 \0 R 273 \r 0121300 / / n o t e 0121320 t h a t f i l e p a g e 2 0121340 5 4 ( c o r e p a g e 1 ) 0121360 i s d i s c a r d e d \r 0121400 S e t F i l e P o 0121420 s ( b o o t F i l e , 0 , 5 0121440 1 2 ) / / s e t u p t 0121460 o r e a d p a g e 2 \r 0121500 / / S - F o r m 0121520 a t f i l e s a r e g u a 0121540 r a n t e e d t o b e a t 0121560 l e a s t 2 5 5 p a g e s 0121600 l o n g \r f 0121620 o r i = 2 t o 2 5 3 0121640 d o \r W 0121660 r i t e B l o c k ( n e w F 376 001 0121700 \0 351 220 i l e , b u f f e r , 0121720 R e a d B l o c k ( b o o t F i 0121740 l e , b u f f e r , 2 5 6 ) 0121760 ) \r \r C l o s 0122000 e s ( n e w F i l e ) \r 0122020 C l o s e I F S S t r 0122040 e a m ( b o o t F i l e ) \r 0122060 D e l e t e F i l 0122100 e F r o m F D ( f d ) / / 0122120 d e l e t e t h e o l d o 0122140 n e \r ] \r \r 0122160 S y s F r e e ( b u f f e r 0122200 ) \r \r / / N o w i n s 0122220 e r t t h e e n t r y i n 0122240 t o t h e b f t \r l e 0122260 t b f e = I n s e r t B F 0122300 E ( b 376 \0 255 226 " f d ) \r b 0122320 f e > > B F E . e x i s t s = 0122340 t r u e \r V W R P ( V i 0122360 r t u a l P a g e ( b f e r s 0122400 h i f t 8 ) ) / / m a r 0122420 k B F E d i r t y \r ] 0122440 r e p e a t w h i l e N e x 0122460 t F D ( f d ) \r \r i f f d n 0122500 e 0 t h e n D e s t r o y 0122520 F D ( f d ) \r b s > > B S . i n 0122540 t e r n a l L o c k = f a l 0122560 s e \r ] \r 377 \0 \0 I f s B o o t A 0122600 . a s m \0 373 226 } 5 = \0 \0 376 001 \0 B 0122620 231 ; I f s B o o t A . a s m 0122640 - - a s s e m b l y - l a n g 0122660 u a g e c o d e f o r I F 0122700 S b o o t s e r v e r \r ; 0122720 C o p y r i g h t X e r o x 0122740 C o r p o r a t i o n 1 9 8 0 0122760 , 1 9 8 1 \r ; L a s t m o 0123000 d i f i e d J a n u a r y 2 0123020 , 1 9 8 1 5 : 5 7 P M 0123040 b y T a f t \r \r . e n t B o 0123060 o t N o o p \r . e n t B F T E 0123100 n t r y L e n g t h \r \r . s r e 0123120 l \r \r B o o t N o o p : . B o 0123140 o t N o o p \r B F T E n t r y L 0123160 e n g t h : . B F T E n t r y 0123200 L e n g t h \r \r . n r e l \r \r ; 0123220 376 001 \0 { [ T h i s i s a n 0123240 a s s e m b l y - l a n g u a 0123260 g e p r o c e d u r e i n c 0123300 l u d e d i n t h e B o o 0123320 t S e r v o v e r l a y , \r ; 0123340 a n d c a l l e d i n o 0123360 r d e r t o f o r c e t h 0123400 a t o v e r l a y i n t o 0123420 b a n k 0 s o t h a t t 0123440 h e \r ; b o o t L o a d e r P 0123460 a c k e t ( i n t h e s a 0123500 m e o v e r l a y ) c a n 0123520 b e c o p i e d . \r \r . B o o 0123540 t N o o p : \r \t j m p 1 3 \r 0123560 \r \r \r ; B F T E n t r y L e n 0123600 g t h ( b f e ) = b f e > > 0123620 B F E . l e 376 \0 > 303 m n g t h \r 0123640 \r . B F T E n t r y L e n g t h 0123660 : \r \t s t a 0 2 2 \r \t l d 0123700 a 0 @ 2 2 \r \t j m p 1 0123720 3 \r \r . e n d \r \r 377 \0 \0 I f s N 0123740 a m e . d e c l \0 373 230 \f 204 4 \0 \0 0123760 376 001 \0 264 D / / I f s N a m e . 0124000 d e c l - - d e f i n i t i 0124020 o n s n e e d e d b y c l 0124040 i e n t s o f t h e I f s 0124060 N a m e L o o k u p m o d u l 0124100 e \r / / C o p y r i g h t X 0124120 e r o x C o r p o r a t i o n 0124140 1 9 7 9 , 1 9 8 1 \r \r / / 0124160 L a s t m o d i f i e d N o 0124200 v e m b e r 1 , 1 9 8 1 0124220 3 : 0 6 P M b y T a f t \r 0124240 \r m a n i f e s t \r [ \r / / E 0124260 r r o r c o d e s \r e c N a m 0124300 e F i r s t = 8 0 0 \t / / 0124320 f i r s t e r r o r c o d e 0124340 i n t h i s g r o u p - 0124360 - m u s 376 001 \0 257 ) t b e g 0124400 r 1 0 0 \r e c N a m e S e r v 0124420 e r D i s a b l e d = 8 0 0 0124440 \r e c N a m e I l l e g a l = 0124460 8 0 1 \r e c N a m e N o t F o 0124500 u n d = 2 2 5 0 / / m 0124520 u s t m a t c h P u p N e t 0124540 D i r . d e c l \r e c N a m e I 0124560 n c o n s i s t e n t = 8 0 0124600 3 \r e c A d d r e s s N o t F o 0124620 u n d = 8 0 4 \r e c N a m e 0124640 D u p l i c a t e R e c o r d 0124660 = 8 0 5 / / I F S E r r 0124700 o r o n l y \r e c C a n t G e 0124720 t T h e r e = 2 2 5 3 / 0124740 / m u s t m a t c h P u p 0124760 N e t D i r . d e c 376 \0 = B 344 l 0125000 \r e c N o S e r v e r R e s p o 0125020 n d e d = 2 2 5 2 / / 0125040 m u s t m a t c h P u p N e 0125060 t D i r . d e c l \r ] \r 377 \0 \0 I 0125100 f s N a m e S e r v . d e c l \0 0125120 373 234 X 342 250 \0 \0 376 001 \0 310 2 / / I 0125140 f s N a m e S e r v . d e c l 0125160 - - i n t e r n a l d e f i 0125200 n i t i o n s \r / / C o p y r 0125220 i g h t X e r o x C o r p o 0125240 r a t i o n 1 9 7 9 , 1 9 8 0125260 1 , 1 9 8 4 \r / / L a s t 0125300 m o d i f i e d F e b r u a r 0125320 y 1 4 , 1 9 8 4 6 : 4 7 0125340 A M b y B o g g s \r \r / / 0125360 R e q u i r e s p r e v i o 0125400 u s g e t o f I f s . d e 0125420 c l , P u p 0 . d e c l , a 0125440 n d P u p 1 . d e c l \r g e t 0125460 " I f s M i s c . d e c l " \r 0125500 g e t " I f s N a m e . d e c 0125520 l " \r \r m a n i f e s t 376 001 \0 331 0125540 214 n a m e S t a t s V e r s i 0125560 o n = 1 \r \r / / - - - - - - 0125600 - - - - - - - - - - - - - - - - * 0125700 - - - - - - \r s t r u c t u r e 0125720 S t a t s : \r / / - - - - - - 0125740 - - - - - - - - - - - - - - - - * 0126040 - - - - - - \r [ \r v e r s i o n 0126060 w o r d \t \t / / = n a m e 0126100 S t a t s V e r s i o n \r n a m 0126120 e R e q s w o r d 2 \t \t / / 0126140 376 001 \0 334 225 n u m b e r o f 0126160 r e q u e s t s f o r n a m 0126200 e l o o k u p \r d i r R e q s 0126220 w o r d 2 \t \t / / n u m b 0126240 e r o f r e q u e s t s t 0126260 o s e n d d i r e c t o r y 0126300 \r c a c h e H i t s w o r d 0126320 2 \t / / n u m b e r o f n 0126340 a m e c a c h e h i t s \r c 0126360 a c h e M i s s e s w o r d 0126400 2 \t / / n u m b e r o f n 0126420 a m e c a c h e m i s s e s 0126440 \r ] \r \r / / - - - - - - - - - - 0126460 - - - - - - - - - - - - - - - - * 0126540 - - - - - - 376 001 \0 261 \ - - - - - 0126560 - - - - - - - \r s t r u c t u r 0126600 e N S : \t \t / / ' g l o b a 0126620 l f r a m e ' f o r N a m 0126640 e S e r v e r \r / / - - - - - 0126660 - - - - - - - - - - - - - - - - * 0126760 - - - - - - - \r [ \r s t a t s 0127000 @ S t a t s \r \r g l o b a l L o 0127020 c k s w o r d = \r e x 0127040 t e r n a l L o c k w o r d \t 0127060 / / s e t b y p t N a m e 0127100 L o c k R e q u e s t \r \r b c s 0127120 t T i m e r w o r d \t \t / / 0127140 c o u n t s 5 - m i 376 001 \0 C < 0127160 n u t e i n t e r v a l s \r b 0127200 c s t I n t e r v a l w o r d 0127220 \t / / d i r b c s t i n t 0127240 e r v a l i n u n i t s o 0127260 f 5 m i n u t e s \r c t x 0127300 w o r d \t \t / / - > N a m e 0127320 C t x f o r S e n d N e t D 0127340 i r o r R e c e i v e N e t 0127360 D i r \r \r v e r s i o n w o r 0127400 d \t \t / / c u r r e n t n e 0127420 t w o r k d i r e c t o r y 0127440 v e r s i o n \r t r e e w o r 0127460 d \t \t / / - > n e t w o r k 0127500 d i r e c t o r y B - t r e 0127520 e ( 0 = > n o n e ) \r t r 0127540 e e L o c k @ L o c k \t \t / / 0127560 376 001 \0 G 253 c o n t r o l s a 0127600 c c e s s t o t h e B - t 0127620 r e e \r ] \r m a n i f e s t l 0127640 e n N S = s i z e N S / 1 0127660 6 \r \f \r / / - - - - - - - - - - 0127700 - - - - - - - - - - - - - - - - * 0130000 - - \r s t r u c t u r e H d r 0130020 : \t \t / / N e t w o r k d i 0130040 r e c t o r y h e a d e r \r / 0130060 / - - - - - - - - - - - - - - - 0130100 - - - - - - - - - - - - - - - - * 0130160 - - - - - 376 001 \0 N ` - - - - - - 0130200 - - \r [ \r n u m N a m e s w o 0130220 r d \r f i r s t N a m e w o r 0130240 d \r n u m A d d r s w o r d \r 0130260 f i r s t A d d r w o r d \r s 0130300 i z e E n t r y S p a c e w o 0130320 r d \r f i r s t E n t r y w o 0130340 r d \r v e r s i o n w o r d \t 0130360 \t / / v e r s i o n n u m b 0130400 e r \r ] \r m a n i f e s t l e 0130420 n H d r = s i z e H d r / 0130440 1 6 \r \r / / - - - - - - - - - - 0130460 - - - - - - - - - - - - - - - - * 0130560 - - \r s t r u c t u 376 001 \0 232 345 r 0130600 e A t t r : \t \t / / N e t w 0130620 o r k d i r e c t o r y a t 0130640 t r i b u t e b l o c k \r / / 0130660 - - - - - - - - - - - - - - - - * 0130760 - - - - - - - - - - - - \r [ \r n 0131000 a m e w o r d \t \t / / - > 0131020 s t r i n g \r v a l u e w o r 0131040 d \t \t / / - > s t r i n g \r 0131060 ] \r \r / / - - - - - - - - - - - 0131100 - - - - - - - - - - - - - - - - * 0131160 - - - - - - - - - - - - - - - 376 0131200 001 \0 N 202 - - \r s t r u c t u r e 0131220 E n t r y : \t / / N e t w o 0131240 r k d i r e c t o r y e n t 0131260 r y b l o c k \r / / - - - - - 0131300 - - - - - - - - - - - - - - - - * 0131400 - - - - - - - \r [ \r n a m e L i 0131420 s t H d r w o r d \r a d d r L 0131440 i s t H d r w o r d \r n u m A 0131460 t t r s w o r d \r a t t r ^ 1 0131500 , 1 @ A t t r \r ] \r \r / / - - 0131520 - - - - - - - - - - - - - - - - * 0131600 - - - - 376 001 \0 B 272 - - - - - - - 0131620 - - - - - - - - - - - - - - - \r 0131640 s t r u c t u r e A d d r : \t 0131660 \t / / N e t w o r k d i r e 0131700 c t o r y a d d r e s s b l 0131720 o c k \r / / - - - - - - - - - - 0131740 - - - - - - - - - - - - - - - - * 0132040 - - \r [ \r l i n k w o r d \r e 0132060 n t r y w o r d \r p o r t @ 0132100 P o r t \r n u m A t t r s w o 0132120 r d \r a t t r ^ 1 , 1 @ A t t 0132140 r \r ] \r \r / / - - - - - - - - - 0132160 - - - - - - - - - - - - - - - - 0132200 - - - - - - - - - 376 001 \0 > 244 - - 0132220 - - - - - - - - - - - - - - - - * 0132260 - - - - - - - - \r s t r u c t u 0132300 r e N a m e : \t \t / / N e t 0132320 w o r k d i r e c t o r y n 0132340 a m e b l o c k \r / / - - - - 0132360 - - - - - - - - - - - - - - - - * 0132460 - - - - - - - - \r [ \r l i n k 0132500 w o r d \r e n t r y w o r d \r 0132520 s t r i n g @ S t r i n g \r ] 0132540 \r \f \r / / T h e d i r e c t 0132560 o r y t r e e i s d i v i 0132600 d e d i n t o t w o p 376 001 0132620 \0 ; F a r t s . I n t h e 0132640 f i r s t p a r t , \r / / 0132660 t h e t r e e i s o r g a 0132700 n i z e d b y n a m e , a 0132720 n d i n t h e s e c o n d 0132740 p a r t b y a d d r e s s 0132760 . \r / / A l l n a m e s a 0133000 r e " l e s s t h a n " a 0133020 l l a d d r e s s e s . \r \r / 0133040 / - - - - - - - - - - - - - - - 0133060 - - - - - - - - - - - - - - - - * 0133140 - - - - - - - - - - - - - \r s t 0133160 r u c t u r e N D T E : \t \t / 0133200 / N e t w o r k D i r e c t 0133220 o r y 376 001 \0 w \0 T r e e E n 0133240 t r y \r / / - - - - - - - - - - 0133260 - - - - - - - - - - - - - - - - * 0133360 - - \r [ \r t y p e b y t e \t \t 0133400 / / d t e T y p e N a m e o 0133420 r d t e T y p e A d d r e s s 0133440 \r l e n g t h b y t e \t \t / / 0133460 i n w o r d s \r n a m e : \t 0133500 \t \t / / n d t e T y p e N a m 0133520 e v a r i a n t \r [ \r 0133540 s t r i n g @ S t r i n g 0133560 \t / / n a m e k e y \r 0133600 p o r t s ^ 1 , 1 @ P o r t \t 0133620 / / c o r r e 376 001 \0 240 # s p o 0133640 n d i n g a d d r e s s e s 0133660 - - s t a r t s a f t e r 0133700 s t r i n g \r ] = \r a d 0133720 d r e s s : \t \t / / n d t e T 0133740 y p e A d d r e s s v a r i a 0133760 n t \r [ \r p o r t 0134000 @ P o r t \t \t / / a d d r e s 0134020 s k e y \r s t r i n g 0134040 @ S t r i n g \t / / c o r r e 0134060 s p o n d i n g n a m e \r 0134100 ] \r ] \r \r m a n i f e s t \r [ 0134120 \r n d t e T y p e N a m e = 0134140 1 \r n d t e T y p e A d d r e s 0134160 s = 2 \r \r n a m e T r e e P 0134200 a g e s = 2 0 0 \t / / m a 0134220 x n u m b e r o f p 376 \0 Q 0134240 \n 223 a g e s i n n e t w o r 0134260 k d i r e c t o r y \r \r m a x 0134300 N P o r t s = 2 0 \t \t / / 0134320 m a x n u m b e r o f a d 0134340 d r e s s e s p e r n a m e 0134360 \r ] \r 377 \0 \0 I f s N a m e S e r 0134400 v . b c p l \0 373 230 9 \ 325 \0 \0 376 001 0134420 \0 305 340 / / I f s N a m e S e r 0134440 v . b c p l - N a m e l o 0134460 o k u p s e r v e r \r / / a 0134500 d a p t e d f r o m t h e 0134520 o n e u s e d i n g a t e 0134540 w a y s \r / / C o p y r i g h 0134560 t X e r o x C o r p o r a t 0134600 i o n 1 9 7 9 , 1 9 8 1 \r \r 0134620 / / L a s t m o d i f i e d 0134640 D e c e m b e r 5 , 1 9 8 0134660 1 3 : 2 6 P M b y T a 0134700 f t \r \r g e t " P u p 0 . d e 0134720 c l " \r g e t " P u p 1 . d e 0134740 c l " \r g e t " I f s . d e c 0134760 l " \r g e t " S t r e a m s . 0135000 d " \r g e t " I f s N a m e S 0135020 e r v 376 001 \0 5 026 . d e c l " \r \r 0135040 e x t e r n a l \r [ \r / / o u 0135060 t g o i n g p r o c e d u r e 0135100 s \r N a m e S e r v ; N a m e 0135120 L o o k u p ; A d d r e s s L 0135140 o o k u p \r N a m e C o m p a r 0135160 e K e y ; A d d r e s s C o m 0135200 p a r e K e y \r \r / / i n c o 0135220 m i n g p r o c e d u r e s \r 0135240 N a m e S e r v U n c o m m o n 0135260 ; R e a d R e c L E \r E x c h 0135300 a n g e P o r t s ; C o m p l 0135320 e t e P u p ; R e l e a s e P 0135340 B I ; A p p e n d S t r i n g 0135360 T o P u p \r E x t r a c t S u b 0135400 s t r i n g ; S t r i n g C o 0135420 m p a r e ; C 376 001 \0 8 301 r e a 0135440 t e S t r i n g S t r e a m \r G 0135460 e t s ; P u t s ; C l o s e 0135500 s ; C u r r e n t P o s ; W 0135520 s s ; P u t T e m p l a t e \r 0135540 D o u b l e I n c r e m e n t ; 0135560 D o u b l e U s c ; L o c k 0135600 ; U n l o c k ; E r r o r C 0135620 o d e T o S t r i n g ; B y t 0135640 e B l t \r S y s A l l o c a t e 0135660 ; S y s F r e e ; F r e e P 0135700 o i n t e r ; Z e r o ; M o 0135720 v e B l o c k ; T r u e P r e 0135740 d i c a t e ; M a x \r \r / / 0135760 o u t g o i n g s t a t i c s 0136000 \r @ n s \r \r / / i n c o m i n 0136020 g s t a t i c s \r l e n 376 001 \0 0136040 351 025 P u p ; m a x P u p D a t 0136060 a B y t e s \r ] \r \r s t a t i c 0136100 [ @ n s ] \r \r / / - - - - 0136120 - - - - - - - - - - - - - - - - * 0136220 - - - - - - - - \r s t r u c t u 0136240 r e N L S : \t \t / / N a m e 0136260 L o o k u p S t a t e - - 0136300 i n t e r n a l t o N a m 0136320 e L o o k u p \r / / - - - - - - 0136340 - - - - - - - - - - - - - - - - * 0136440 - - 376 001 \0 350 004 - - - - \r [ \r r e 0136460 s u l t V e c w o r d \t \t / / 0136500 - > r e s u l t V e c p a 0136520 s s e d b y c a l l e r \r n 0136540 R e s u l t P o r t s w o r d 0136560 \t / / n u m b e r o f p o 0136600 r t s c u r r e n t l y i n 0136620 r e s u l t V e c \r m a x R e 0136640 s u l t P o r t s w o r d \t / 0136660 / m a x i m u m n u m b e r 0136700 o f p o r t s t h a t w 0136720 i l l f i t i n r e s u l 0136740 t V e c \r t e m p V e c w o r 0136760 d \t \t / / - > t e m p o r a 0137000 r y c o p y o f r e s u l 0137020 t V e c \r n T e m p P o r t s 0137040 w o r d \t \t / 376 001 \0 \v 377 / n u 0137060 m b e r o f p o r t s c u 0137100 r r e n t l y i n t e m p V 0137120 e c \r ] \r m a n i f e s t l e 0137140 n N L S = s i z e N L S / 0137160 1 6 \r \f \r / / - - - - - - - - - 0137200 - - - - - - - - - - - - - - - - * 0137300 - - - \r l e t N a m e S e r v 0137320 ( p b i ) b e \r / / - - - - - 0137340 - - - - - - - - - - - - - - - - * 0137440 - - - - - - - \r [ \r E x 376 001 \0 351 0137460 324 c h a n g e P o r t s ( p b i 0137500 ) \r l e t r e s = e c N a 0137520 m e S e r v e r D i s a b l e d 0137540 \r s w i t c h o n p b i > > P 0137560 B I . p u p . t y p e i n t o 0137600 \r [ \r c a s e p t 0137620 N a m e L o o k u p : \r 0137640 [ \r i f n s 0137660 > > N S . g l o b a l L o c k s 0137700 e q 0 t h e n \r 0137720 [ \r D 0137740 o u b l e I n c r e m e n t ( l 0137760 v n s > > N S . s t a t s . n 0140000 a m e R e q s ) \r 0140020 l e t n a m e = E x t 0140040 r a c t S u b s t r i n g ( l v 0140060 376 001 \0 330 200 p b i > > P B I . p 0140100 u p , o f f s e t P u p . b 0140120 y t e s / 8 , \r 0140140 p b i > > P B I . p u p . l 0140160 e n g t h - 3 ) \r 0140200 r e s = N a m e L o o k 0140220 u p ( n a m e , l v p b i > 0140240 > P B I . p u p . b y t e s , 0140260 m a x N P o r t s * l e n P o r 0140300 t ) \r S y s F 0140320 r e e ( n a m e ) \r 0140340 i f r e s l s e c N 0140360 a m e F i r s t t h e n \r 0140400 [ \r 0140420 C o m p l e t e 0140440 P u p ( p b i , p t N a m e R 0140460 e p l y , 376 001 \0 ' g r e s * ( 0140500 l e n P o r t * 2 ) + p u p O v 0140520 B y t e s ) \r 0140540 r e t u r n \r 0140560 ] \r 0140600 ] \r e n d c a s e 0140620 \r ] \r c a s e 0140640 p t A d d r e s s L o o k u p 0140660 : \r [ \r 0140700 i f n s > > N S . g l o b a l 0140720 L o c k s e q 0 t h e n \r 0140740 [ \r 0140760 D o u b l e I n c r e m 0141000 e n t ( l v n s > > N S . s t 0141020 a t s . n a m e R e q s ) \r 0141040 / / U s e t h 0141060 e r e s t o f t 376 001 \0 260 243 0141100 h e p b i a s a r e g i 0141120 o n i n w h i c h t o r 0141140 e t u r n a s t r i n g \r 0141160 l e t s t r i 0141200 n g = l v p b i > > P B I 0141220 . p u p . w o r d s ^ ( l e n P 0141240 o r t + 1 ) \r 0141260 l e t s s = C r e a t e S 0141300 t r i n g S t r e a m ( s t r i 0141320 n g , m a x P u p D a t a B y 0141340 t e s - 2 * l e n P o r t ) \r 0141360 r e s = A d 0141400 d r e s s L o o k u p ( s s , 0141420 l v p b i > > P B I . p u p . 0141440 w o r d s ^ 1 ) \r 0141460 C l o s e s ( s s ) \r 0141500 376 001 \0 0 275 i f r e 0141520