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