$ od -c -N 50000 [Erinyes]<LISP>FUGUE.2>Sources>PILOTFS!1
0000000 ( F I L E C R E A T E D " 2
0000020 - A U G - 8 3 1 0 : 2 0 : 0 6
0000040 " 006 004 { P H Y L U M } < L I S
0000060 P C O R E > S O U R C E S > P I
0000100 L O T F S . ; 1 006 001
0000120 \r \r c h a n g e
0000140 s t o : ( V A R S P I L
0000160 O T F S C O M S ) \r \r
0000200 p r e v i o u s d a t e :
0000220 " 1 - A U G - 8 3 1 6 : 3 2
0000240 : 1 4 " { P H Y L U M } < G A
0000260 D O L > P I L O T F S . ; 6 6 )
0000300 \r \r \r ( * C o p y r i g h t
0000320 ( c ) 1 9 8 3 b y X e r o
0000340 x C o r p o r a t i o n ) \r \r
0000360 ( P R E T T Y C O M P R I N T
0000400 P I L O T F S C O M S ) \r \r ( R
0000420 P A Q Q 006 002 P I L O T F S C O
0000440 M S 006 001 [ ( R E C O R D S P
0000460 h y s V o l u m e D s c r S u
0000500 b V o l u m e D s c r L o g i
0000520 c a l V o l u m e D s c r V F
0000540 M I n d e x D s c r \r \t \t \t
0000560 V F M I n t e r v a l D
0000600 s c r K e y D s c r K e y )
0000620 \r \t ( F N S D i f f e r e n t
0000640 F i l e I d M a k e C a c h e
0000660 E n t r y P i l o t F S I n i
0000700 t S e t U p I n t e r v a l C
0000720 a c h e P F S F i l e S i z e
0000740 \r \t P F S F i l e I
0000760 n t e r v a l S i z e P F S G
0001000 e t B u f f e r L v B a s e P
0001020 a g e A d d r L v G e t P a g
0001040 e L v P u t P a g e V F M F
0001060 i n d P a g e A d d r \r \t
0001100 V F M I n s e r t I n t e
0001120 r v a l V F M M o v e K e y s
0001140 V F M F i n d I n t e r v a l
0001160 S e t U p V F M P a g e S e a
0001200 r c h V F M S t a r t i n g C
0001220 a c h e L e v e l \r \t
0001240 V F M C o m p a r e K e y M
0001260 k S t r i n g P t r F i r s t
0001300 F r e e B i t F i n d S u c c
0001320 e s s i v e F r e e B i t s F
0001340 r e e B i t R u n L e n g t h
0001360 \r \t V A M F i n d S p
0001400 a c e V A M P a g e A d d r
0001420 V A M A l l o c a t e I n t e r
0001440 v a l V A M F r e e I n t e r
0001460 v a l V A M A l l o c a t e S
0001500 p a c e \r \t V A M F
0001520 r e e S p a c e M K I n t e r
0001540 v a l A d d T o I n t e r v a
0001560 l G e t P v N a m e G e t L
0001600 v N a m e G e t L v N u m S
0001620 e t M a p B i t s \r \t
0001640 C l e a r M a p B i t s ) \r \t
0001660 ( M A C R O S L O C F F A D
0001700 D R P a g e A d d r ) \r \t ( F
0001720 N S D s p l y P v P a g e D
0001740 s p l y V o l u m e s D s p l
0001760 y L v P a g e B F K e y P t r
0002000 D s p l y P a g e D s p l y
0002020 C a c h e E n t r y D s p l y
0002040 W o r d s \r \t D s p
0002060 l y S u b V o l E n t r y S c
0002100 a n F i l e ) \r \t ( V A R S S
0002120 u b V o l u m e E n t r y S i z
0002140 e V F M C a c h e E n t r y S
0002160 i z e V F M K e y S i z e V
0002200 F M L e a f L e v e l V F M I
0002220 n d e x S i z e ) \r \t ( M A C R
0002240 O S I n s e r t H a l f I n t
0002260 e r v a l I n s e r t F u l l
0002300 I n t e r v a l L v P a g e P
0002320 t r S u b V o l u m e E n t r
0002340 y P t r L o w e r D s k A d d
0002360 r \r \t \t V F M I n t e r v a l
0002400 P t r E Q D s k A d d r L E
0002420 Q D s k A d d r M o v e W o r
0002440 d s ) \r \t ( F I L E S ( S O U
0002460 R C E ) \r \t D L I
0002500 O N I O \r \t ( L O
0002520 A D F R O M ) \r \t
0002540 { P h y l u m } < l i s p c o r
0002560 e > s o u r c e s > F i l e I O
0002600 { p h y l u m } < l i s p c o
0002620 r e > s o u r c e s > L L B F S
0002640 ) \r \t ( P ( S E T Q F I X E
0002660 D F O N T ( F O N T C R E A T
0002700 E ( Q U O T E G A C H A ) \r
0002720 \t \t \t \t 1 0 \r \t \t
0002740 \t \t ( Q U O T E
0002760 M R R ) ) ) \r \t ( S E T Q
0003000 F I X E D B O L D ( F O N T
0003020 C R E A T E ( Q U O T E G A
0003040 C H A ) \r \t \t \t \t
0003060 1 0 \r \t \t \t \t ( Q
0003100 U O T E B R R ) ) ) \r \t
0003120 ( I F ( E Q ( M A C H I N E
0003140 T Y P E ) \r \t \t ( Q U O T
0003160 E D A N D E L I O N ) ) \r \t
0003200 t h e n \r \t
0003220 ( P i l o t F S I n i t ]
0003240 ) \r [ D E C L A R E : E V A L
0003260 @ C O M P I L E \r \r ( B L O C
0003300 K R E C O R D 006 002 P h y s V o
0003320 l u m e D s c r 006 001 ( ( S e a
0003340 l W O R D )
0003360 006 003 ( *
0003400 V a l i d a t i o n ) 006 001 \r \t
0003420 \t \t ( V e r s i o n
0003440 W O R D ) \r \t \t \t ( N
0003460 a m e L e n g t h W O R D ) \r
0003500 \t \t \t ( P v I D 5
0003520 W O R D ) \r \t \t \t ( B
0003540 o o t i n g I n f o 3 6 W O
0003560 R D ) 006 003
0003600 ( * D e f i n e s 4 P I L
0003620 O T f i l e t y p e s ) 006 001
0003640 \r \t \t \t ( N a m e 4
0003660 0 B Y T E )
0003700 006 003 ( * A s
0003720 c i i n a m e o f t h e
0003740 v o l u m e ) 006 001 \r \t \t \t
0003760 ( S u b V o l C o u n t W
0004000 O R D ) \r \t \t \t ( S u
0004020 b V o l M r k I D 5 W O R D
0004040 ) 006 003 (
0004060 * M a r k e r p a g e s b
0004100 e l o n g t o t h i s P s
0004120 e u d o F i l e ) 006 001 \r \t \t \t
0004140 ( B a d P a g e C o u
0004160 n t S W A P P E D F I X P ) \r
0004200 \t \t \t ( M a x B a d P
0004220 a g e s S W A P P E D F I X P
0004240 ) \r \t \t \t ( O n L i n
0004260 e C o u n t W O R D ) \r \t \t \t
0004300 ( S u b V o l u m e s
0004320 7 8 W O R D )
0004340 006 003 ( * S e e S u
0004360 b V o l u e m D s c r r e c o
0004400 r d f o r d e s c r i p t i
0004420 o n o f e a c h o f 006 001
0004440 \r \t \t \t \t \t \t \t 006 003 s
0004460 i x e n t r i e s s t o r e
0004500 d h e r e ) 006 001 \r \t \t \t
0004520 ( F i l l 1 9 9 W O R D
0004540 ) \r \t \t \t ( L o c a l
0004560 T i m e P a r m V a l i d W O
0004600 R D ) \r \t \t \t ( L o c
0004620 a l T i m e P a r m 2 W O R
0004640 D ) \r \t \t \t ( C h e c
0004660 k S u m W O R D ) ) \r \t \t \t
0004700 ( S Y S T E M ) ) \r \r ( B
0004720 L O C K R E C O R D 006 002 S u b
0004740 V o l u m e D s c r 006 001 ( ( L
0004760 v I D 5 W O R D )
0005000 006
0005020 003 ( * L o g i c a l V o l u
0005040 m e I D ) 006 001 \r \t \t \t
0005060 ( L v S i z e S W A P P E D F
0005100 I X P )
0005120 006 003 ( * S i z e f o r t
0005140 h e c o m p l e t e v o l u
0005160 e m . . m a y s p a n p a c
0005200 k s s o m e 006 001 \r \t \t \t \t \t
0005220 \t \t 006 003 d a y ) 006 001 \r
0005240 \t \t \t ( L v P a g e S
0005260 W A P P E D F I X P )
0005300 006 003 ( * T y p
0005320 i c a l l y 0 ) 006 001 \r \t \t \t
0005340 ( P v P a g e S W A P P
0005360 E D F I X P )
0005400 006 003 ( * D i s k A d
0005420 d r e s s o f t h e b e g
0005440 i n n i n g o f t h e v o
0005460 l u m e S e e 006 001 \r \t \t \t \t
0005500 \t \t \t 006 003 L o g i c a
0005520 l V o l u m e D s c r R e c o
0005540 r d N I L ) 006 001 \r \t \t \t
0005560 ( N P a g e s S W A P P E D
0005600 F I X P )
0005620 006 003 ( * N u m b e r o f
0005640 P a g e s o f V o l u m e
0005660 i n t h i s P h i s y c a
0005700 l V o l u m e ) 006 001 \r \t \t \t
0005720 ) \r \t \t \t ( S Y S T
0005740 E M ) ) \r \r ( B L O C K R E C O
0005760 R D 006 002 L o g i c a l V o l u
0006000 m e D s c r 006 001 ( ( S e a l
0006020 W O R D )
0006040 006 003 ( * V a l i
0006060 d a t i o n ) 006 001 \r \t \t \t \t ( V
0006100 e r s i o n W O R D ) \r \t \t \t
0006120 \t ( L v I D 5 W O R D )
0006140 006 003
0006160 ( * I D o f T h i s V o
0006200 l u m e ) 006 001 \r \t \t \t \t ( N a m
0006220 e L e n g t h W O R D )
0006240 006 003 ( * L e
0006260 n g t h o f t h A S C I I
0006300 n a m e o f t h i s v o
0006320 l u m e ) 006 001 \r \t \t \t \t ( N a m
0006340 e 4 0 B Y T E )
0006360 006 003 ( * V o
0006400 l u m e n a m e i n A S c
0006420 I I ) 006 001 \r \t \t \t \t ( T y p e
0006440 W O R D ) \r \t \t \t \t ( V o l u m
0006460 e S i z e S W A P P E D F I X
0006500 P ) 006 003 ( * N u m b
0006520 e r o f p a g e s i n t
0006540 h i s v o l u m e ) 006 001 \r \t \t
0006560 \t \t ( B o o t i n g I n f o 5
0006600 4 W O R D ) 006
0006620 003 ( * D e f i n e s 6 P I
0006640 L O T f i l e t y p e s ) 006
0006660 001 \r \t \t \t \t ( T r e e D e p t h
0006700 W O R D ) \r \t \t \t \t ( C h a n
0006720 g i n g W O R D ) \r \t \t \t \t (
0006740 F r e e P a g e C o u n t S W
0006760 A P P E D F I X P ) \r
0007000
*
0007060 006 003 ( * N u m
0007100 b e r o f f r e e p a g e
0007120 s r e m a i n i n g ) 006 001 \r \t
0007140 \t \t \t ( V A M S t a r t S W A
0007160 P P E D F I X P ) \r \t \t \t \t ( V
0007200 F M S t a r t S W A P P E D F
0007220 I X P ) 006 003 ( *
0007240 R e l a t i v e a d d r e s s
0007260 o f t h e s t a 177 340 o f
0007300 t h e v o l u m e f i l e
0007320 m a p ) 006 001 \r \t \t \t \t ( L o w
0007340 e r B o u n d S W A P P E D F
0007360 I X P ) \r \t \t \t \t ( R o o t F i
0007400 l e I D 4 5 W O R D ) \r \t \t
0007420 \t \t ( V o l u m e R o o t D i r
0007440 e c t o r y 5 W O R D ) \r \t
0007460 \t \t \t ( P a d d i n g W O R D
0007500 ) \r \t \t \t \t ( I n t e r v a l C
0007520 a c h e 9 6 W O R D )
0007540 006 003 ( * O n e e n t r
0007560 y f o r e a c h l e v e l
0007600 o f t h e B - T r e e ) 006
0007620 001 \r \t \t \t \t ( F i l l 6 W O
0007640 R D ) \r \t \t \t \t ( V F M L o w K
0007660 e y 7 W O R D ) \r \t \t \t \t (
0007700 C h e c k S u m W O R D ) ) \r
0007720 \t \t \t ( S Y S T E
0007740 M ) ) \r \r ( B L O C K R E C O R
0007760 D 006 002 V F M I n d e x D s c r
0010000 006 001 ( ( K e y 7 W O R D )
0010020 \r \t \t \t ( P a g e N u m b
0010040 e r S W A P P E D F I X P ) \r
0010060 \t \t \t ( E n t r y S i z e
0010100 W O R D ) ) \r \t \t \t ( S Y
0010120 S T E M ) ) \r \r ( B L O C K R E
0010140 C O R D 006 002 V F M I n t e r v
0010160 a l D s c r 006 001 ( ( K e y 7
0010200 W O R D )
0010220 006 003 ( * L o
0010240 w e r B o u n d K e y ) 006 001
0010260 \r \t \t \t ( P a g e N
0010300 u m b e r S W A P P E D F I X
0010320 P ) 006 003 ( * R e
0010340 l a t i v e p a g e n u m b
0010360 e r o f p a g e w i t h
0010400 l o w e r b o u n d k e y )
0010420 006 001 \r \t \t \t ( N e x
0010440 t K e y 7 W O R D )
0010460 006 003 ( *
0010500 U p p e r b o u n d o f k
0010520 e y r a n g e ) 006 001 \r \t \t \t
0010540 ) \r \t \t \t (
0010560 S Y S T E M ) ) \r \r ( B L O C K
0010600 R E C O R D 006 002 K e y D s c r
0010620 006 001 ( ( F i l e I D 5 W O
0010640 R D )
0010660 006 003 ( *
0010700 F i l e I D p a r t o f
0010720 t h e k e y ) 006 001 \r \t \t
0010740 ( F i l e P a g e S W A
0010760 P P E D F I X P )
0011000 006 003 ( * O
0011020 f f s e t i n t o f i l e )
0011040 006 001 \r \t \t ) \r \t \t
0011060 ( S Y S T E M ) ) \r \r (
0011100 D A T A T Y P E 006 002 K e y 006 001
0011120 ( ( F i l e I d 5 W O R D
0011140 ) \r \t ( F i l e P
0011160 a g e S W A P P E D F I X P )
0011200 ) ) \r ] \r ( / D E C L A R E D A
0011220 T A T Y P E ( Q U O T E K e
0011240 y ) \r \t \t ( Q U O T E ( W
0011260 O R D W O R D W O R D W O
0011300 R D W O R D S W A P P E D F
0011320 I X P ) ) ) \r ( D E F I N E Q \r
0011340 \r ( 006 004 D i f f e r e n t F i l
0011360 e I d 006 001 \r [ L A M B D A
0011400 ( K e y 1 K e y 2 )
0011420
*
0011460 006 003 ( * S D G " 2 8 -
0011500 J U N - 8 3 1 1 : 0 0 " ) 006 001
0011520 \r ( 006 002 f o r 006 001 I
0011540 006 002 f r o m 006 001 0 006 002 t o 006
0011560 001 4 006 002 t h e r e i s 006 001
0011600 ( N E Q ( \ G E T B A S E K
0011620 e y 1 I ) \r \t \t \t \t (
0011640 \ G E T B A S E K e y 2 I ]
0011660 ) \r \r ( 006 004 M a k e C a c h e E
0011700 n t r y 006 001 \r [ L A M B D A
0011720 ( C a c h e P t r K e y P t
0011740 r F i l e P a g e N e x t K
0011760 e y P t r )
0012000 006 003 ( * e d i t e d :
0012020 " 9 - J U N - 8 3 1 0 : 2
0012040 2 " ) 006 001 \r ( \ B L T
0012060 ( F A D D R C a c h e P t r
0012100 ( V F M I n t e r v a l D s c r
0012120 K e y ) ) \r \t K e y P t r
0012140 V F M K e y S i z e ) \r
0012160 ( 006 002 r e p l a c e 006 001 ( V
0012200 F M I n t e r v a l D s c r P
0012220 a g e N u m b e r ) 006 002 o f 006
0012240 001 C a c h e P t r 006 002 w i t
0012260 h 006 001 F i l e P a g e ) \r
0012300 ( \ B L T ( F A D D R C
0012320 a c h e P t r ( V F M I n t e
0012340 r v a l D s c r N e x t K e y
0012360 ) ) \r \t N e x t K e y P t r
0012400 V F M K e y S i z e ] ) \r \r (
0012420 006 004 P i l o t F S I n i t 006 001 \r
0012440 [ L A M B D A N I L
0012460
*
0012520 006 003 (
0012540 * S D G " 2 8 - J U L - 8 3
0012560 1 9 : 4 6 " ) 006 001 \r (
0012600 S E T Q \ P h y s V o l u m e
0012620 P a g e ( N C R E A T E ( Q
0012640 U O T E V M E M P A G E P ) )
0012660 ) \r ( S E T Q \ P F S
0012700 P a g e ( N C R E A T E ( Q
0012720 U O T E V M E M P A G E P ) )
0012740 ) \r ( \ D L . X F E R D
0012760 I S K 0 \ P h y s V o l u m
0013000 e P a g e ) \r ( S E T Q
0013020 \ P F S C u r r e n t P a g e
0013040 ( L I S T N I L N I L N
0013060 I L ) ) \r ( S E T Q \
0013100 L o g i c a l V o l u m e s (
0013120 A R R A Y 6 ( Q U O T E P
0013140 O I N T E R ) ) ) \r ( S
0013160 E T Q \ P F S D e v i c e s
0013200 ( A R R A Y 6 ( Q U O T E
0013220 P O I N T E R ) ) ) \r (
0013240 S E T Q \ V F M P a g e ( N
0013260 C R E A T E ( Q U O T E V M
0013300 E M P A G E P ) ) ) \r (
0013320 S E T Q \ V o l u m e D s p l
0013340 y W i n d o w N I L ) \r
0013360 ( 006 002 f o r 006 001 I 006 002 f r
0013400 o m 006 001 1 006 002 t o 006 001 ( 006
0013420 002 f e t c h 006 001 ( P h y s V o
0013440 l u m e D s c r S u b V o l C
0013460 o u n t ) 006 002 o f 006 001 \ P h
0013500 y s V o l u m e P a g e ) \r
0013520 006 002 d o 006 001 ( S E T
0013540 A \ L o g i c a l V o l u m e
0013560 s I ( N C R E A T E ( Q U
0013600 O T E V M E M P A G E P ) ) )
0013620 \r \t ( \ D L . X F E R D I S
0013640 K ( 006 002 L v B a s e P a g e A
0013660 d d r 006 001 I ) \r \t \t \t ( L v P
0013700 a g e P t r I ) ) \r \t ( 006
0013720 002 S e t U p I n t e r v a l C a
0013740 c h e 006 001 I ) \r \t ( S E T
0013760 A \ P F S D e v i c e s I
0014000 ( \ P F S O p e n D i s k D e v
0014020 i c e I ) ) \r \t ( P R O M
0014040 P T P R I N T ( C O N C A T
0014060 " O p e n e d l o c a l d i
0014100 s k v o l u m e " " { "
0014120 ( 006 002 f e t c h 006 001 ( F D E V
0014140 D E V I C E N A M E ) \r \t \t \t
0014160 \t \t \t \t \t 006 002 o f 006 001 ( E
0014200 L T \ P F S D e v i c e s I
0014220 ) ) \r \t \t \t " } "
0014240 ) ) \r 006 002 f i n a
0014260 l l y 006 001 ( Q U O T E I n i
0014300 t i a l i z e d ) ) \r (
0014320 006 002 D s p l y V o l u m e s 006 001
0014340 ] ) \r \r ( 006 004 S e t U p I n t e
0014360 r v a l C a c h e 006 001 \r [ L
0014400 A M B D A ( V o l N u m )
0014420
*
0014460 006 003 ( * S D
0014500 G " 9 - J U N - 8 3 1 2 :
0014520 5 8 " ) 006 001 \r ( P R O G
0014540 ( L v P t r C a c h e P t r
0014560 L o w K e y P t r V F M P a
0014600 g e P t r ) \r
0014620 ( S E T Q L v P t r ( L v
0014640 P a g e P t r V o l N u m ) )
0014660 \r ( S E T Q
0014700 C a c h e P t r ( F A D D R
0014720 L v P t r ( L o g i c a l V
0014740 o l u m e D s c r I n t e r v
0014760 a l C a c h e ) ) ) \r
0015000 ( S E T Q V F M P a
0015020 g e P t r ( 006 002 L v G e t P a
0015040 g e 006 001 V o l N u m ( 006 002 f
0015060 e t c h 006 001 ( L o g i c a l V
0015100 o l u m e D s c r V F M S t a
0015120 r t ) 006 002 o f 006 001 L v P t r
0015140 ) ) ) \r ( S
0015160 E T Q L o w K e y P t r ( F
0015200 A D D R L v P t r ( L o g i
0015220 c a l V o l u m e D s c r V F
0015240 M L o w K e y ) ) ) \r
0015260 ( 006 002 f o r 006 001 I
0015300 006 002 f r o m 006 001 0 006 002 t o 006
0015320 001 V F M K e y S i z e 006 002 d
0015340 o 006 001 ( \ P U T B A S E L o
0015360 w K e y P t r I 0 ) ) \r
0015400 ( 006 002 f o r 006 001
0015420 I n d e x 006 002 f r o m 006 001
0015440 0 006 002 t o 006 001 ( S U B 1 (
0015460 006 002 f e t c h 006 001 ( L o g i c
0015500 a l V o l u m e D s c r T r e
0015520 e D e p t h ) 006 002 o f 006 001 L
0015540 v P t r ) ) \r \t 006 002 d
0015560 o 006 001 ( 006 002 M a k e C a c h e
0015600 E n t r y 006 001 C a c h e P t r
0015620 L o w K e y P t r ( 006 002 f e
0015640 t c h 006 001 ( V F M I n d e x D
0015660 s c r P a g e N u m b e r )
0015700 006 002 o f 006 001 V F M P a g e P t
0015720 r ) \r \t \t \t \t ( F A D D R V F
0015740 M P a g e P t r ( V F M I n d
0015760 e x D s c r K e y ) ) ) \r \t \t
0016000 ( S E T Q V F M P a g e P t r
0016020 ( 006 002 L v G e t P a g e 006 001
0016040 V o l N u m ( 006 002 f e t c h 006
0016060 001 ( V F M I n d e x D s c r
0016100 P a g e N u m b e r ) 006 002 o f
0016120 006 001 V F M P a g e P t r ) ) )
0016140 \r \t \t ( S E T Q C a c h e P t
0016160 r ( \ A D D B A S E C a c h
0016200 e P t r V F M C a c h e E n t
0016220 r y S i z e ] ) \r \r ( 006 004 P F S
0016240 F i l e S i z e 006 001 \r [ L A
0016260 M B D A ( V o l N u m K e y
0016300 P t r )
0016320
0016340 006 003 ( * S D G
0016360 " 2 7 - J U N - 8 3 1 4 : 2
0016400 4 " ) 006 001 \r ( P R O G
0016420 ( P a g e A d d r ) \r
0016440 ( S E T Q P a g e A
0016460 d d r ( 006 002 f e t c h 006 001 (
0016500 K e y D s c r F i l e P a g e
0016520 ) 006 002 o f 006 001 K e y P t r )
0016540 ) \r [ 006 002 r
0016560 e p l a c e 006 001 ( K e y D s c
0016600 r F i l e P a g e ) 006 002 o f
0016620 006 001 K e y P t r 006 002 w i t h
0016640 006 001 ( S U B 1 ( 006 002 f e t c
0016660 h 006 001 ( K e y D s c r F i l
0016700 e P a g e ) \r \t \t \t \t \t \t \t
0016720 006 002 o f 006 001 ( F A D D
0016740 R ( V F M I n t e r v a l P t
0016760 r V o l N u m 4 ) \r \t \t \t \t
0017000 \t \t \t \t \t ( V F M I n t e r v a
0017020 l D s c r N e x t K e y ] \r
0017040 ( 006 002 V F M F
0017060 i n d P a g e A d d r 006 001 V o
0017100 l N u m K e y P t r ) \r
0017120 ( 006 002 r e p l a c
0017140 e 006 001 ( K e y D s c r F i l
0017160 e P a g e ) 006 002 o f 006 001 K e
0017200 y P t r 006 002 w i t h 006 001 P a
0017220 g e A d d r ) \r
0017240 ( R E T U R N ( 006 002 f e t
0017260 c h 006 001 ( K e y D s c r F i
0017300 l e P a g e ) 006 002 o f 006 001 (
0017320 F A D D R ( V F M I n t e r v
0017340 a l P t r V o l N u m 0 ) \r
0017360 \t \t \t \t \t \t ( V F M
0017400 I n t e r v a l D s c r K e y
0017420 ] ) \r \r ( 006 004 P F S F i l e I n
0017440 t e r v a l S i z e 006 001 \r [
0017460 L A M B D A ( V o l n u m K
0017500 e y P t r )
0017520
0017540 006 003 ( * S
0017560 D G " 9 - J U N - 8 3 1 4
0017600 : 4 0 " ) 006 001 \r ( P R O
0017620 G ( C a c h e I n t e r v a l
0017640 P t r ) \r (
0017660 S E T Q C a c h e I n t e r v
0017700 a l P t r ( V F M I n t e r v
0017720 a l P t r V o l n u m V F M
0017740 L e a f L e v e l ) ) \r
0017760 [ 006 002 i f 006 001 ( N
0020000 U L L K e y P t r ) \r \t
0020020 006 002 t h e n 006 001 ( S E T
0020040 Q K e y P t r ( F A D D R
0020060 C a c h e I n t e r v a l P t r
0020100 ( V F M I n t e r v a l D s c
0020120 r K e y ] \r
0020140 ( R E T U R N ( I D I F F E
0020160 R E N C E ( 006 002 f e t c h 006 001
0020200 ( K e y D s c r F i l e P a
0020220 g e ) 006 002 o f 006 001 ( F A D D
0020240 R C a c h e I n t e r v a l P
0020260 t r ( V F M I n t e r v a l D
0020300 s c r \r \t \t \t \t \t \t \t \t
0020320 N e x t K e y ) ) ) \r \t \t \t
0020340 ( 006 002 f e t c h 006 001
0020360 ( K e y D s c r F i l e P a
0020400 g e ) 006 002 o f 006 001 K e y P t
0020420 r ] ) \r \r ( 006 004 P F S G e t B u
0020440 f f e r 006 001 \r [ L A M B D A
0020460 N I L
0020500
*
0020540 006 003 ( * s g : " 8
0020560 - J U N - 8 3 1 6 : 3 0 " ) 006
0020600 001 \r \ P F S P a g e ] )
0020620 \r \r ( 006 004 L v B a s e P a g e A
0020640 d d r 006 001 \r [ L A M B D A
0020660 ( L V N u m )
0020700
*
0020740 006 003 ( * S D G " 7 -
0020760 J U N - 8 3 0 9 : 1 2 " ) 006 001
0021000 \r ( 006 002 f e t c h 006 001
0021020 ( S u b V o l u m e D s c r P
0021040 v P a g e ) 006 002 o f 006 001 ( S
0021060 u b V o l u m e E n t r y P t r
0021100 L V N u m ] ) \r \r ( 006 004 L v G
0021120 e t P a g e 006 001 \r [ L A M B
0021140 D A ( V o l N u m P a g e A
0021160 d d r )
0021200
0021220 006 003 ( * S D G "
0021240 1 9 - J U N - 8 3 1 6 : 2 0 "
0021260 ) 006 001 \r ( P R O G ( B
0021300 u f f e r ) \r
0021320 ( 006 002 i f 006 001 ( A N D ( E
0021340 Q V o l N u m ( C A R \ P
0021360 F S C u r r e n t P a g e ) ) \r
0021400 \t \t ( E Q P a g e A d d
0021420 r ( C A D R \ P F S C u r r
0021440 e n t P a g e ) ) ) \r \t
0021460 006 002 t h e n 006 001 ( S E T Q
0021500 B u f f e r ( C A D D R \
0021520 P F S C u r r e n t P a g e ) )
0021540 \r \t 006 002 e l s e 006 001 [
0021560 S E T Q \ P F S C u r r e n t
0021600 P a g e ( L I S T V o l N u
0021620 m P a g e A d d r ( S E T Q
0021640 B u f f e r ( 006 002 P F S G e
0021660 t B u f f e r 006 001 ] \r \t \t ( \
0021700 D L . X F E R D I S K ( I P L
0021720 U S ( 006 002 L v B a s e P a g e
0021740 A d d r 006 001 V o l N u m ) \r \t
0021760 \t \t \t P a g e A d d
0022000 r ) \r \t \t \t B u f
0022020 f e r ) ) \r
0022040 ( R E T U R N B u f f e r ] )
0022060 \r \r ( 006 004 L v P u t P a g e 006 001
0022100 \r [ L A M B D A ( V o l N
0022120 u m P a g e A d d r P a g e
0022140 P t r )
0022160 006 003
0022200 ( * S D G " 2 1 - J U N - 8
0022220 3 0 9 : 1 4 " ) 006 001 \r
0022240 ( \ D L . X F E R D I S K ( I
0022260 P L U S ( 006 002 L v B a s e P a
0022300 g e A d d r 006 001 V o l N u m )
0022320 \r \t \t \t P a g e A d d r ) \r \t
0022340 \t P a g e P t r T ) \r
0022360 ( S E T Q \ P F S C u r r
0022400 e n t P a g e ( L I S T V o
0022420 l N u m P a g e A d d r P a
0022440 g e P t r ] ) \r \r ( 006 004 V F M F
0022460 i n d P a g e A d d r 006 001 \r
0022500 [ L A M B D A ( V o l N u m
0022520 K e y P t r )
0022540
0022560 006 003 ( *
0022600 S D G " 9 - J U N - 8 3 1
0022620 3 : 5 5 " ) 006 001 \r ( P R
0022640 O G ( C a c h e I n t e r v a
0022660 l P t r S t a r t i n g L e v
0022700 e l ) \r ( S
0022720 E T Q S t a r t i n g L e v e
0022740 l ( 006 002 V F M S t a r t i n g
0022760 C a c h e L e v e l 006 001 V o l
0023000 N u m K e y P t r ) ) \r
0023020 ( S E T Q C a c
0023040 h e I n t e r v a l P t r ( 006
0023060 002 V F M F i n d I n t e r v a l
0023100 006 001 V o l N u m K e y P t r
0023120 S t a r t i n g L e v e l ) )
0023140 \r ( 006 002 i f
0023160 006 001 C a c h e I n t e r v a l
0023200 P t r \r \t 006 002 t h e
0023220 n 006 001 [ R E T U R N ( I P L
0023240 U S ( 006 002 f e t c h 006 001 ( V
0023260 F M I n t e r v a l D s c r P
0023300 a g e N u m b e r ) 006 002 o f 006
0023320 001 C a c h e I n t e r v a l P
0023340 t r ) \r \t \t \t \t ( I D I F F
0023360 E R E N C E ( 006 002 f e t c h 006
0023400 001 ( K e y D s c r F i l e P
0023420 a g e ) 006 002 o f 006 001 K e y P
0023440 t r ) \r \t \t \t \t \t
0023460 ( 006 002 f e t c h 006 001 ( K e y D
0023500 s c r F i l e P a g e ) 006 002
0023520 o f 006 001 ( F A D D R C a c h
0023540 e I n t e r v a l P t r \r \t \t \t
0023560 \t \t \t \t \t \t \t ( V F M I n
0023600 t e r v a l D s c r \r \t \t \t \t \t
0023620 \t \t \t \t \t K e y ] \r \t
0023640 006 002 e l s e 006 001 ( R E
0023660 T U R N N I L ] ) \r \r ( 006 004 V
0023700 F M I n s e r t I n t e r v a l
0023720 006 001 \r [ L A M B D A ( V o
0023740 l N u m N e w K e y I n t e
0023760 r v a l S i z e S t a r t P a
0024000 g e )
0024020 006 003 ( * S D G " 2 9 - J U N
0024040 - 8 3 0 9 : 2 4 " ) 006 001 \r
0024060 ( P R O G ( V F M C a c h
0024100 e P t r V F M P a g e V F M
0024120 P a g e P t r F r e e E n t r
0024140 y I n d e x F r e e E n t r y
0024160 P t r V F M E n t r y P t r
0024200 N e x t E n t r y P t r \r \t \t
0024220 W o r d s T o M o
0024240 v e ) \r ( S
0024260 E T Q W o r d s T o M o v e
0024300 ( I T I M E S 2 V F M I n d
0024320 e x S i z e ) ) \r
0024340 ( 006 002 V F M F i n d P a g
0024360 e A d d r 006 001 V o l N u m N
0024400 e w K e y ) \r
0024420 ( S E T Q V F M C a c h e P
0024440 t r ( V F M I n t e r v a l P
0024460 t r V o l N u m V F M L e a
0024500 f L e v e l ) ) \r
0024520 [ S E T Q V F M P a g e
0024540 ( 006 002 f e t c h 006 001 ( V F M
0024560 I n t e r v a l D s c r P a g
0024600 e N u m b e r ) 006 002 o f 006 001
0024620 ( V F M I n t e r v a l P t r
0024640 V o l N u m ( A D D 1 \r \t \t
0024660 \t \t \t \t \t \t \t \t V F M
0024700 L e a f L e v e l ] \r
0024720 ( S E T Q V F M P a
0024740 g e P t r ( 006 002 L v G e t P a
0024760 g e 006 001 V o l N u m V F M P
0025000 a g e ) ) \r
0025020 ( S E T Q F r e e E n t r y I
0025040 n d e x ( \ G E T B A S E V
0025060 F M P a g e P t r 2 5 0 ) ) \r
0025100 ( S E T Q
0025120 F r e e E n t r y P t r ( \ A
0025140 D D B A S E V F M P a g e P t
0025160 r F r e e E n t r y I n d e x
0025200 ) ) \r ( 006 002
0025220 i f 006 001 ( I L E Q F r e e E
0025240 n t r y I n d e x ( I D I F F
0025260 E R E N C E 2 5 0 W o r d s
0025300 T o M o v e ) ) \r \t
0025320 006 002 t h e n 006 001 ( S E T Q V
0025340 F M E n t r y P t r V F M P a
0025360 g e P t r ) \r \t \t ( 006 002 w
0025400 h i l e 006 001 ( A N D [ N O T
0025420 ( E Q U A L V F M E n t r y
0025440 P t r ( \ A D D B A S E V F
0025460 M P a g e P t r ( I D I F F E
0025500 R E N C E \r \t \t \t \t \t \t \t \t \t
0025520 \t F r e e E n t r y I n d
0025540 e x \r \t \t \t \t \t \t \t \t \t \t
0025560 V F M I n d e x S i z e ]
0025600 \r \t \t \t ( 006 002 V F
0025620 M C o m p a r e K e y 006 001 ( F
0025640 A D D R V F M E n t r y P t r
0025660 ( V F M I n d e x D s c r K
0025700 e y ) ) \r \t \t \t \t \t
0025720 N e w K e y \r \t \t \t \t \t
0025740 ( Q U O T E < ) ) ) \r \t \t
0025760 006 002 d o 006 001 ( S E
0026000 T Q V F M E n t r y P t r (
0026020 \ A D D B A S E V F M E n t r
0026040 y P t r V F M I n d e x S i z
0026060 e ) ) ) \r \t \t ( C O N D \r
0026100 \t \t ( ( 006 002 D i f f e
0026120 r e n t F i l e I d 006 001 N e w
0026140 K e y ( F A D D R V F M E n
0026160 t r y P t r ( V F M I n d e x
0026200 D s c r K e y ) ) ) \r \t \t
0026220 ( I n s e r t F u l l
0026240 I n t e r v a l ) ) \r \t \t
0026260 ( [ N E Q ( 006 002 f e t c h
0026300 006 001 ( K e y D s c r F i l e
0026320 P a g e ) 006 002 o f 006 001 N e w
0026340 K e y ) \r \t \t \t ( 006 002 f e
0026360 t c h 006 001 ( K e y D s c r F
0026400 i l e P a g e ) 006 002 o f 006 001
0026420 ( F A D D R V F M E n t r y P
0026440 t r ( V F M I n d e x D s c r
0026460 K e y ] \r \t \t (
0026500 I n s e r t F u l l I n t e r v
0026520 a l ) ) \r \t \t ( ( E Q
0026540 [ I P L U S ( 006 002 f e t c h
0026560 006 001 ( V F M I n d e x D s c r
0026600 P a g e N u m b e r ) 006 002 o
0026620 f 006 001 V F M E n t r y P t r )
0026640 \r \t \t \t \t ( I D I F F E R E N
0026660 C E ( 006 002 f e t c h 006 001 ( K
0026700 e y D s c r F i l e P a g e )
0026720 006 002 o f 006 001 N e w K e y ) \r
0026740 \t \t \t \t \t ( 006 002 f e
0026760 t c h 006 001 ( K e y D s c r F
0027000 i l e P a g e ) 006 002 o f 006 001
0027020 ( \ A D D B A S E V F M E n t
0027040 r y P t r \r \t \t \t \t \t \t \t \t \t \t
0027060 ( M I N U S \r \t \t \t
0027100 \t \t \t \t \t \t \t V F M I
0027120 n d e x S i z e ] \r \t \t \t S
0027140 t a r t P a g e ) \r \t \t
0027160 ( 006 002 r e p l a c e 006 001
0027200 ( K e y D s c r F i l e P a g
0027220 e ) 006 002 o f 006 001 V F M E n t
0027240 r y P t r 006 002 w i t h 006 001 (
0027260 I P L U S ( 006 002 f e t c h 006 001
0027300 ( K e y D s c r \r \t \t \t \t \t
0027320 \t \t \t \t \t \t F i l e P a g e )
0027340 \r \t \t \t \t \t \t \t \t \t \t 006 002 o f
0027360 006 001 V F M E n t r y P t r ) \r
0027400 \t \t \t \t \t \t \t \t \t I
0027420 n t e r v a l S i z e ) ) ) \r \t
0027440 \t ( T ( I n s e r t
0027460 H a l f I n t e r v a l ) ) ) \r
0027500 \t \t ( 006 002 M a k e C a c h
0027520 e E n t r y 006 001 V F M C a c h
0027540 e P t r N e w K e y S t a r
0027560 t P a g e N e x t E n t r y P
0027600 t r ) \r \t \t ( 006 002 L v P u
0027620 t P a g e 006 001 V o l N u m V
0027640 F M P a g e V F M P a g e P t
0027660 r ) \r \t \t ( R E T U R N
0027700 V F M P a g e P t r ] ) \r \r ( 006
0027720 004 V F M M o v e K e y s 006 001 \r
0027740 [ L A M B D A ( V F M P a g
0027760 e P t r S t a r t P t r D e
0030000 s t P t r )
0030020 006 003 ( *
0030040 S D G " 2 3 - J U N - 8 3
0030060 1 4 : 2 4 " ) 006 001 \r ( P
0030100 R O G ( M o v e S i z e ) \r
0030120 ( S E T Q M
0030140 o v e S i z e ( I D I F F E R
0030160 E N C E D e s t P t r S t a
0030200 r t P t r ) ) \r
0030220 ( 006 002 w h i l e 006 001 ( N O
0030240 T ( Z E R O P M o v e S i z
0030260 e ) ) \r \t 006 002 d o 006 001
0030300 ( \ B L T D e s t P t r (
0030320 \ A D D B A S E V F M P a g e
0030340 P t r S I n d e x ) \r \t \t
0030360 S t a r t P t r ) \r \t \t
0030400 ( S E T Q M o v e S i z e (
0030420 I D I F F E R E N C E M o v e
0030440 S i z e V F M K e y S i z e )
0030460 ) \r \t \t ( S E T Q D e s t P t
0030500 r ( \ A D D B A S E D e s t
0030520 P t r V F M K e y S i z e ) )
0030540 \r \t \t ( S E T Q S t a r t P t
0030560 r ( \ A D D B A S E S t a r
0030600 t P t r V F M K e y S i z e ]
0030620 ) \r \r ( 006 004 V F M F i n d I n t
0030640 e r v a l 006 001 \r [ L A M B D
0030660 A ( V o l N u m K e y P t r
0030700 S t a r t i n g C a c h e L e
0030720 v e l )
0030740 006 003 ( * S D G " 1
0030760 0 - J U N - 8 3 1 3 : 1 9 " )
0031000 006 001 \r ( P R O G ( ( C
0031020 a c h e L e v e l S t a r t i
0031040 n g C a c h e L e v e l ) \r \t
0031060 ( V F M C a c h e I n t e r
0031100 v a l P t r ( V F M I n t e r
0031120 v a l P t r V o l N u m S t
0031140 a r t i n g C a c h e L e v e l
0031160 ) ) \r \t L o w K e y P t r
0031200 H i g h K e y P t r V F M I
0031220 n t e r v a l V F M P a g e
0031240 V F M I n d e x ) \r
0031260 ( 006 002 i f 006 001 ( E Q U
0031300 A L S t a r t i n g C a c h e
0031320 L e v e l V F M L e a f L e v
0031340 e l ) \r \t 006 002 t h e
0031360 n 006 001 ( R E T U R N V F M C
0031400 a c h e I n t e r v a l P t r )
0031420 ) \r ( 006 002 S
0031440 e t U p V F M P a g e S e a r c
0031460 h 006 001 ) \r (
0031500 R E T U R N ( 006 002 w h i l e 006
0031520 001 ( 006 002 V F M C o m p a r e K
0031540 e y 006 001 L o w K e y P t r K
0031560 e y P t r ( Q U O T E < = )
0031600 ) \r \t \t 006 002 d o 006 001
0031620 [ 006 002 i f 006 001 ( A N D ( 006 002
0031640 V F M C o m p a r e K e y 006 001
0031660 L o w K e y P t r K e y P t r
0031700 ( Q U O T E < = ) ) \r \t \t \t
0031720 \t ( 006 002 V F M C o m p a r e K
0031740 e y 006 001 K e y P t r ( F A D
0031760 D R V F M I n d e x ( V F M
0032000 I n d e x D s c r K e y ) ) \r
0032020 \t \t \t \t \t \t ( Q U O T E < ) )
0032040 ) \r \t \t \t 006 002 t h e n 006
0032060 001 [ 006 002 i f 006 001 ( E Q U A L
0032100 C a c h e L e v e l V F M L
0032120 e a f L e v e l ) \r \t \t \t \t
0032140 006 002 t h e n 006 001 ( 006 002 M
0032160 a k e C a c h e E n t r y 006 001
0032200 V F M C a c h e I n t e r v a l
0032220 P t r L o w K e y P t r \r \t \t
0032240 \t \t \t \t \t ( 006 002 f e t c h 006
0032260 001 ( V F M I n d e x D s c r
0032300 P a g e N u m b e r ) \r \t \t \t \t
0032320 \t \t \t 006 002 o f 006 001 V
0032340 F M I n d e x ) \r \t \t \t \t \t \t \t
0032360 ( F A D D R V F M I n d e
0032400 x ( V F M I n d e x D s c r
0032420 K e y ) ) ) \r \t \t \t \t \t ( R
0032440 E T U R N V F M C a c h e I n
0032460 t e r v a l P t r ) \r \t \t \t \t
0032500 006 002 e l s e 006 001 ( S E T Q
0032520 C a c h e L e v e l ( S U B
0032540 1 C a c h e L e v e l ) ) \r \t
0032560 \t \t \t \t ( S E T Q V F M C a c
0032600 h e I n t e r v a l P t r ( V
0032620 F M I n t e r v a l P t r V o
0032640 l N u m C a c h e L e v e l )
0032660 ) \r \t \t \t \t \t ( 006 002 M a k e C a
0032700 c h e E n t r y 006 001 V F M C a
0032720 c h e I n t e r v a l P t r L
0032740 o w K e y P t r \r \t \t \t \t \t \t \t
0032760 ( 006 002 f e t c h 006 001 ( V F M I
0033000 n d e x D s c r P a g e N u m
0033020 b e r ) \r \t \t \t \t \t \t \t 006
0033040 002 o f 006 001 V F M I n d e x ) \r
0033060 \t \t \t \t \t \t \t ( F A D D R V F
0033100 M I n d e x ( V F M I n d e x
0033120 D s c r K e y ] \r \t \t \t 006
0033140 002 e l s e 006 001 ( S E T Q L o
0033160 w K e y P t r ( F A D D R V
0033200 F M I n d e x ( V F M I n d e
0033220 x D s c r K e y ) ) ) \r \t \t \t
0033240 ( S E T Q V F M
0033260 I n d e x ( \ A D D B A S E
0033300 V F M I n d e x ( 006 002 f e t c
0033320 h 006 001 ( V F M I n d e x D s c
0033340 r E n t r y S i z e ) \r \t \t \t
0033360 \t \t \t \t \t 006 002 o f 006 001
0033400 V F M I n d e x ] \r \t \t
0033420 006 002 f i n a l l y 006 001 ( 006 002
0033440 M a k e C a c h e E n t r y 006 001
0033460 V F M C a c h e I n t e r v a
0033500 l P t r L o w K e y P t r (
0033520 006 002 f e t c h 006 001 ( V F M I n
0033540 d e x D s c r \r \t \t \t \t \t \t \t \t
0033560 \t \t P a g e N u m b e r
0033600 ) \r \t \t \t \t \t \t \t \t \t
0033620 006 002 o f 006 001 V F M I n d e x
0033640 ) \r \t \t \t \t \t ( F A D
0033660 D R V F M I n d e x ( V F M
0033700 I n d e x D s c r K e y ) ) )
0033720 \r \t \t \t ( R E T U R N
0033740 N I L ] ) \r \r ( 006 004 S e t U p
0033760 V F M P a g e S e a r c h 006 001 \r
0034000 [ L A M B D A N I L
0034020
*
0034060 006 003 (
0034100 * s g : " 9 - J U N - 8 3
0034120 1 2 : 3 0 " ) 006 001 \r (
0034140 S E T Q L o w K e y P t r (
0034160 F A D D R V F M C a c h e I n
0034200 t e r v a l P t r ( V F M I n
0034220 t e r v a l D s c r K e y ) )
0034240 ) \r ( S E T Q H i g h
0034260 K e y P t r ( F A D D R V F
0034300 M C a c h e I n t e r v a l P t
0034320 r ( V F M I n t e r v a l D s
0034340 c r N e x t K e y ) ) ) \r
0034360 ( S E T Q V F M P a g e
0034400 ( 006 002 L v G e t P a g e 006 001 V
0034420 o l N u m ( 006 002 f e t c h 006 001
0034440 ( V F M I n t e r v a l D s c
0034460 r P a g e N u m b e r ) 006 002
0034500 o f 006 001 V F M C a c h e I n t
0034520 e r v a l P t r ) ) ) \r
0034540 ( S E T Q V F M I n d e x V
0034560 F M P a g e ] ) \r \r ( 006 004 V F M
0034600 S t a r t i n g C a c h e L e v
0034620 e l 006 001 \r [ L A M B D A (
0034640 V o l N u m K e y P t r )
0034660
*
0034720 006 003 ( * S D G " 1 0 - J
0034740 U N - 8 3 1 3 : 2 7 " ) 006 001 \r
0034760 ( P R O G ( ( L v P a
0035000 g e ( L v P a g e P t r V o
0035020 l N u m ) ) \r \t M a x C a
0035040 c h e I n d e x C a c h e P t
0035060 r ) \r ( S E
0035100 T Q M a x C a c h e I n d e x
0035120 ( S U B 1 ( 006 002 f e t c h 006
0035140 001 ( L o g i c a l V o l u m e
0035160 D s c r T r e e D e p t h )
0035200 006 002 o f 006 001 L v P a g e ) ) )
0035220 \r ( R E T U
0035240 R N ( 006 002 f o r 006 001 C a c h
0035260 e L e v e l 006 002 f r o m 006 001
0035300 0 006 002 t o 006 001 M a x C a c h
0035320 e I n d e x \r \t \t 006 002
0035340 d o 006 001 ( S E T Q C a c h e
0035360 P t r ( V F M I n t e r v a l
0035400 P t r V o l N u m C a c h e
0035420 L e v e l ) ) \r \t \t \t ( 006 002 i f
0035440 006 001 ( A N D ( 006 002 V F M C o
0035460 m p a r e K e y 006 001 ( F A D D
0035500 R C a c h e P t r ( V F M I
0035520 n t e r v a l D s c r K e y )
0035540 ) \r \t \t \t \t \t \t K e y P t r \r \t
0035560 \t \t \t \t \t ( Q U O T E < = ) )
0035600 \r \t \t \t \t ( 006 002 V F M C o m p
0035620 a r e K e y 006 001 K e y P t r
0035640 ( F A D D R C a c h e P t r
0035660 ( V F M I n t e r v a l D s c r
0035700 N e x t K e y ) ) \r \t \t \t \t \t
0035720 \t ( Q U O T E < ) ) ) \r \t \t \t
0035740 006 002 t h e n 006 001 ( R E
0035760 T U R N C a c h e L e v e l )
0036000 ) \r \t \t 006 002 f i n a l
0036020 l y 006 001 ( R E T U R N N I L
0036040 ] ) \r \r ( 006 004 V F M C o m p a r
0036060 e K e y 006 001 \r [ L A M B D A
0036100 ( K e y 1 K e y 2 O p e r
0036120 a t i o n )
0036140
0036160 006 003 ( * S D G " 1 4
0036200 - J U N - 8 3 1 5 : 0 5 " ) 006
0036220 001 \r ( S E L E C T Q O
0036240 p e r a t i o n \r \t [
0036260 = ( 006 002 f o r 006 001 I 006 002 f
0036300 r o m 006 001 0 006 002 t o 006 001 4
0036320 006 002 d o 006 001 ( C O N D \r \t \t
0036340 \t \t \t ( ( N O T ( E Q ( \ G
0036360 E T B A S E K e y 1 I ) \r \t
0036400 \t \t \t \t \t ( \ G E T B A S E
0036420 K e y 2 I ) ) ) \r \t \t \t \t \t
0036440 ( R E T U R N N I L ) ) )
0036460 \r \t \t 006 002 f i n a l l y 006
0036500 001 ( R E T U R N ( E Q D s k
0036520 A d d r ( F A D D R K e y 1
0036540 ( K e y D s c r F i l e P a
0036560 g e ) ) \r \t \t \t \t \t
0036600 ( F A D D R K e y 2 ( K e y
0036620 D s c r F i l e P a g e ] \r \t
0036640 [ < = ( 006 002 f o r 006
0036660 001 I 006 002 f r o m 006 001 0 006
0036700 002 t o 006 001 4 006 002 d o 006 001 [
0036720 C O N D \r \t \t \t \t \t ( ( N O T
0036740 ( E Q ( \ G E T B A S E K
0036760 e y 1 I ) \r \t \t \t \t \t \t
0037000 ( \ G E T B A S E K e y 2 I
0037020 ) ) ) \r \t \t \t \t \t ( R E T
0037040 U R N ( I L E S S P ( \ G E
0037060 T B A S E K e y 1 I ) \r \t \t
0037100 \t \t \t \t \t ( \ G E T B A S
0037120 E K e y 2 I ] \r \t \t
0037140 006 002 f i n a l l y 006 001 ( R E T
0037160 U R N ( L E Q D s k A d d r
0037200 ( F A D D R K e y 1 ( K e y
0037220 D s c r F i l e P a g e ) ) \r
0037240 \t \t \t \t \t \t ( F A D D R K e y
0037260 2 ( K e y D s c r F i l e P
0037300 a g e ] \r \t [ < ( 006
0037320 002 f o r 006 001 I 006 002 f r o m 006
0037340 001 0 006 002 t o 006 001 4 006 002 d
0037360 o 006 001 [ C O N D \r \t \t \t \t \t (
0037400 ( N O T ( E Q ( \ G E T B A
0037420 S E K e y 1 I ) \r \t \t \t \t \t
0037440 \t ( \ G E T B A S E K e y
0037460 2 I ) ) ) \r \t \t \t \t \t ( R
0037500 E T U R N ( I L E S S P ( \
0037520 G E T B A S E K e y 1 I ) \r
0037540 \t \t \t \t \t \t \t ( \ G E T B A
0037560 S E K e y 2 I ] \r \t \t
0037600 006 002 f i n a l l y 006 001 ( R E T
0037620 U R N ( L o w e r D s k A d d
0037640 r ( F A D D R K e y 1 ( K
0037660 e y D s c r F i l e P a g e )
0037700 ) \r \t \t \t \t \t \t ( F A D D R
0037720 K e y 2 ( K e y D s c r F i
0037740 l e P a g e ] \r \t ( S
0037760 H O U L D N T ] ) \r \r ( 006 004 M k
0040000 S t r i n g P t r 006 001 \r [ L
0040020 A M B D A ( A d d r L e n )
0040040
*
0040100 006 003 ( * S D
0040120 G " 1 7 - J U N - 8 3 1 4 :
0040140 1 6 " ) 006 001 \r ( P R O G
0040160 ( ( S T R " D s k " ) ) \r
0040200 ( \ P U T B A
0040220 S E P T R S T R 0 A d d r
0040240 ) \r ( \ P U
0040260 T B A S E S T R 2 L e n )
0040300 \r ( R E T U
0040320 R N S T R ] ) \r \r ( 006 004 F i r
0040340 s t F r e e B i t 006 001 \r [ L
0040360 A M B D A ( W )
0040400
*
0040440 006 003 ( * S D
0040460 G " 1 6 - J U N - 8 3 0 8 :
0040500 5 8 " ) 006 001 \r ( P R O G
0040520 ( W 1 ) \r
0040540 ( R E T U R N ( 006 002 f o r 006 001
0040560 I 006 002 f r o m 006 001 0 006 002
0040600 t o 006 001 1 5 \r \t \t 006
0040620 002 d o 006 001 ( S E T Q W 1 (
0040640 L R S H W ( I D I F F E R E
0040660 N C E 1 5 I ) ) ) \r \t \t \t (
0040700 C O N D \r \t \t \t ( ( E V E N
0040720 P W 1 ) \r \t \t \t ( R E
0040740 T U R N I ) \r \t \t \t f
0040760 i n a l l y \r \t \t \t ( R
0041000 E T U R N N I L ] ) \r \r ( 006 004
0041020 F i n d S u c c e s s i v e F r
0041040 e e B i t s 006 001 \r [ L A M B
0041060 D A ( W )
0041100
*
0041140 006 003 ( * S D G "
0041160 1 9 - J U N - 8 3 1 5 : 3 1 "
0041200 ) 006 001 \r ( P R O G ( (
0041220 S T A R T ( 006 002 F i r s t F r
0041240 e e B i t 006 001 W ) ) ) \r
0041260 ( R E T U R N (
0041300 006 002 i f 006 001 S T A R T \r \t \t
0041320 006 002 t h e n 006 001 ( C
0041340 O N S S T A R T ( 006 002 F r e
0041360 e B i t R u n L e n g t h 006 001
0041400 W S T A R T ) ) \r \t \t
0041420 006 002 e l s e 006 001 N I L ] ) \r \r
0041440 ( 006 004 F r e e B i t R u n L e n
0041460 g t h 006 001 \r [ L A M B D A
0041500 ( W S )
0041520
*
0041560 006 003 ( * S D G " 1 6 -
0041600 J U N - 8 3 0 9 : 1 3 " ) 006 001
0041620 \r ( P R O G ( W 1 ) \r
0041640 ( R E T U R
0041660 N ( 006 002 f o r 006 001 I 006 002 f
0041700 r o m 006 001 S 006 002 t o 006 001 1
0041720 5 \r \t \t 006 002 d o 006 001
0041740 ( S E T Q W 1 ( L R S H W
0041760 ( I D I F F E R E N C E 1 5
0042000 I ) ) ) \r \t \t \t [ C O N D \r \t
0042020 \t \t ( ( O D D P W 1 ) \r \t
0042040 \t \t ( R E T U R N ( I
0042060 D I F F E R E N C E I S ] \r
0042100 \t \t 006 002 f i n a l l y
0042120 006 001 ( R E T U R N ( I D I F
0042140 F E R E N C E 1 6 S ] ) \r \r
0042160 ( 006 004 V A M F i n d S p a c e 006
0042200 001 \r [ L A M B D A ( V o l
0042220 N u m N e e d e d )
0042240
0042260 006
0042300 003 ( * S D G " 2 2 - J U N -
0042320 8 3 1 6 : 4 3 " ) 006 001 \r
0042340 ( P R O G ( ( F o u n d 0
0042360 ) \r \t ( I n d e x - 1 )
0042400 \r \t [ M a x V A M P a g e
0042420 N u m b e r ( S U B 1 ( 006 002
0042440 f e t c h 006 001 ( L o g i c a l
0042460 V o l u m e D s c r V F M S t
0042500 a r t ) 006 002 o f 006 001 ( L v P
0042520 a g e P t r V o l N u m ] \r \t
0042540 ( V A M S t a r t ( 006 002
0042560 f e t c h 006 001 ( L o g i c a l
0042600 V o l u m e D s c r V A M S t
0042620 a r t ) 006 002 o f 006 001 ( L v P
0042640 a g e P t r V o l N u m ) ) )
0042660 \r \t R e s u l t V A M P
0042700 a g e N u m b e r I n t e r v
0042720 a l L e f t O v e r V A M P
0042740 t r V A M W o r d ) \r
0042760 ( 006 002 i f 006 001 ( I
0043000 L E S S P ( 006 002 f e t c h 006 001
0043020 ( L o g i c a l V o l u m e D
0043040 s c r F r e e P a g e C o u n
0043060 t ) 006 002 o f 006 001 ( L v P a g
0043100 e P t r V o l N u m ) ) \r \t \t
0043120 N e e d e d ) \r \t
0043140 006 002 t h e n 006 001 ( R
0043160 E T U R N N I L ) ) \r
0043200 ( S E T Q V A M P
0043220 a g e N u m b e r 0 ) \r
0043240 ( 006 002 w h i l e 006
0043260 001 ( A N D ( I L E S S P F
0043300 o u n d N e e d e d ) \r \t \t
0043320 ( L E Q V A M P a g
0043340 e N u m b e r M a x V A M P a
0043360 g e N u m b e r ) ) \r \t
0043400 006 002 d o 006 001 [ 006 002 i f 006 001
0043420 ( N U L L V A M P t r ) \r \t \t
0043440 006 002 t h e n 006 001 ( S E
0043460 T Q V A M P t r ( 006 002 L v G
0043500 e t P a g e 006 001 V o l N u m
0043520 ( I P L U S V A M S t a r t
0043540 V A M P a g e N u m b e r ] \r \t
0043560 \t ( 006 002 w h i l e 006 001 ( A N D
0043600 ( I L E S S P I n d e x 2
0043620 5 5 ) \r \t \t \t ( I L E S
0043640 S P F o u n d N e e d e d )
0043660 ) \r \t \t 006 002 d o 006 001 ( 006
0043700 002 i f 006 001 ( N E Q [ S E T Q
0043720 V A M W o r d ( \ G E T B A
0043740 S E V A M P t r ( S E T Q
0043760 I n d e x ( A D D 1 I n d e
0044000 x ] \r \t \t \t 6 5 5
0044020 3 5 ) \r \t \t \t 006 002 t h e n 006
0044040 001 ( S E T Q I n t e r v a l
0044060 ( 006 002 M K I n t e r v a l 006 001
0044100 V A M P a g e N u m b e r I
0044120 n d e x V A M W o r d ) ) \r \t
0044140 \t \t ( S E T Q R
0044160 e s u l t \r \t \t \t \t ( C O N S
0044200 ( 006 002 i f 006 001 ( E Q ( I P
0044220 L U S ( 006 002 F i r s t F r e e
0044240 B i t 006 001 V A M W o r d ) \r \t
0044260 \t \t \t \t \t ( C D R
0044300 I n t e r v a l ) ) \r \t \t \t \t \t
0044320 1 6 ) \r \t \t \t \t \t
0044340 006 002 t h e n 006 001 ( 006 002 w
0044360 h i l e 006 001 [ A N D ( I L E
0044400 S S P I n d e x 2 5 5 ) \r \t
0044420 \t \t \t \t \t \t ( I L E S S
0044440 P ( I P L U S F o u n d (
0044460 C D R I n t e r v a l ) ) \r \t
0044500 \t \t \t \t \t \t \t N e e d e
0044520 d ) \r \t \t \t \t \t \t \t ( Z
0044540 E R O P ( S E T Q V A M W o
0044560 r d \r \t \t \t \t \t \t \t \t
0044600 ( \ G E T B A S E V A M P t r
0044620 ( S E T Q I n d e x \r \t \t \t
0044640 \t \t \t \t \t \t \t ( A D D 1 I n
0044660 d e x ] \r \t \t \t \t \t \t 006 002
0044700 d o 006 001 ( 006 002 A d d T o I n t
0044720 e r v a l 006 001 I n t e r v a l
0044740 1 6 ) \r \t \t \t \t \t \t 006 002
0044760 f i n a l l y 006 001 \r \t \t \t \t \t \t
0045000 ( 006 002 i f 006 001 [ A N D
0045020 ( N E Q V A M W o r d 6 5
0045040 5 3 5 ) \r \t \t \t \t \t \t \t
0045060 ( Z E R O P ( C A R ( S E
0045100 T Q L e f t O v e r \r \t \t \t \t
0045120 \t \t \t \t \t ( 006 002 M K I n t
0045140 e r v a l 006 001 V A M P a g e N
0045160 u m b e r \r \t \t \t \t \t \t \t \t \t
0045200 \t I n d e x V A
0045220 M W o r d ] \r \t \t \t \t \t \t \t 006 002
0045240 t h e n 006 001 ( 006 002 A d d T o I
0045260 n t e r v a l 006 001 I n t e r v
0045300 a l ( C D R L e f t O v e r
0045320 ) ) ) \r \t \t \t \t \t \t ( S
0045340 E T Q F o u n d ( I P L U S
0045360 F o u n d ( C D R I n t e
0045400 r v a l ) ) ) \r \t \t \t \t \t \t
0045420 ( R E T U R N I n t e r v
0045440 a l ) ) \r \t \t \t \t \t 006 002 e l s
0045460 e 006 001 I n t e r v a l ) \r \t \t
0045500 \t \t R e s u l t )
0045520 ) ) \r \t \t 006 002 f i n a l l
0045540 y 006 001 ( S E T Q V A M P t r
0045560 N I L ) \r \t \t \t ( S E T
0045600 Q V A M P a g e N u m b e r
0045620 ( A D D 1 V A M P a g e N u m
0045640 b e r ) ) \r \t \t \t ( S E T
0045660 Q I n d e x - 1 ) ) ) \r
0045700 ( R E T U R N
0045720 R e s u l t ] ) \r \r ( 006 004 V A M
0045740 P a g e A d d r 006 001 \r [ L A
0045760 M B D A ( V o l N u m V A M
0046000 P a g e N u m b e r )
0046020
0046040 006 003 ( * S D G
0046060 " 2 7 - J U N - 8 3 1 2 : 0
0046100 6 " ) 006 001 \r ( I P L U S
0046120 ( I Q U O T I E N T V A M P
0046140 a g e N u m b e r 4 0 9 6 ) \r
0046160 \t ( 006 002 f e t c h 006 001 (
0046200 L o g i c a l V o l u m e D s c
0046220 r V A M S t a r t ) 006 002 o f
0046240 006 001 ( L v P a g e P t r V o
0046260 l N u m ] ) \r \r ( 006 004 V A M A l
0046300 l o c a t e I n t e r v a l 006 001
0046320 \r [ L A M B D A ( V A M P
0046340 t r P a g e N u m L e n )
0046360
0046400 006 003
0046420 ( * S D G " 2 1 - J U N - 8
0046440 3 0 9 : 0 8 " ) 006 001 \r
0046460 ( P R O G ( L S t a r t B i
0046500 t I n d e x ) \r
0046520 ( S E T Q I n d e x (
0046540 I Q U O T I E N T ( I M O D
0046560 P a g e N u m 4 0 9 6 ) \r \t \t
0046600 \t \t 1 6 ) ) \r
0046620 ( S E T Q S t a r t B i t
0046640 ( I M O D P a g e N u m 1
0046660 6 ) ) \r ( 006
0046700 002 w h i l e 006 001 ( N O T ( Z
0046720 E R O P L e n ) ) \r \t
0046740 006 002 d o 006 001 ( S E T Q L
0046760 ( I M I N ( I D I F F E R E N
0047000 C E 1 6 S t a r t B i t ) \r
0047020 \t \t \t L e n ) ) \r \t
0047040 \t ( \ P U T B A S E V A M P t
0047060 r I n d e x ( 006 002 S e t M a
0047100 p B i t s 006 001 ( \ G E T B A S
0047120 E V A M P t r I n d e x ) \r
0047140 \t \t \t \t \t \t S t a r t B i
0047160 t L ) ) \r \t \t ( S E T Q L e
0047200 n ( I D I F F E R E N C E L
0047220 e n L ) ) \r \t \t ( S E T Q S
0047240 t a r t B i t 0 ) \r \t \t ( S E
0047260 T Q I n d e x ( A D D 1 I
0047300 n d e x ] ) \r \r ( 006 004 V A M F r
0047320 e e I n t e r v a l 006 001 \r [
0047340 L A M B D A ( V A M P t r P
0047360 a g e N u m L e n )
0047400
0047420 006 003 ( * S
0047440 D G " 1 9 - J U N - 8 3 1 4
0047460 : 5 8 " ) 006 001 \r ( P R O
0047500 G ( L S t a r t B i t I n
0047520 d e x ) \r (
0047540 S E T Q I n d e x ( I Q U O
0047560 T I E N T ( I M O D P a g e
0047600 N u m 4 0 9 6 ) \r \t \t \t \t 1
0047620 6 ) ) \r ( S
0047640 E T Q S t a r t B i t ( I M
0047660 O D P a g e N u m 1 6 ) ) \r
0047700 ( 006 002 w h i
0047720 l e 006 001 ( N O T ( Z E R O P
0047740 L e n ) ) \r \t 006 002 d
0047760 o 006 001 ( S E T Q L ( I M I
0050000 N ( I D I F F E R E N C E 1
0050020 6 S t a r t B i t ) \r \t \t \t
0050040 L e n ) ) \r \t \t ( \ P
0050060 U T B A S E V A M P t r I n
0050100 d e x ( 006 002 C l e a r M a p B
0050120 i t s 006 001 ( \ G E T B A S E
0050140 V A M P t r I n d e x ) \r \t \t
0050160 \t \t \t \t S t a r t B i
0050200 t L ) ) \r \t \t ( S E T Q L e
0050220 n ( I D I F F E R E N C E L
0050240 e n L ) ) \r \t \t ( S E T Q S
0050260 t a r t B i t 0 ) \r \t \t ( S E
0050300 T Q I n d e x ( A D D 1 I
0050320 n d e x ] ) \r \r ( 006 004 V A M A l
0050340 l o c a t e S p a c e 006 001 \r
0050360 [ L A M B D A ( V o l N u m
0050400 N e e d e d )
0050420
0050440 006 003 ( *
0050460 S D G " 2 4 - J U N - 8 3 1
0050500 0 : 5 8 " ) 006 001 \r ( P R
0050520 O G ( V A M P t r P o s s i
0050540 b l e S p a c e V A M P a g e
0050560 I n t e r v a l S t a r t I
0050600 n t e r v a l T a k e n R e
0050620 s u l t ) \r
0050640 ( S E T Q P o s s i b l e S p
0050660 a c e ( 006 002 V A M F i n d S p
0050700 a c e 006 001 V o l N u m N e e
0050720 d e d ) ) \r
0050740 ( 006 002 i f 006 001 P o s s i b l e
0050760 S p a c e \r \t 006 002 t
0051000 h e n 006 001 ( 006 002 w h i l e 006 001
0051020 ( N O T ( Z E R O P N e e
0051040 d e d ) ) \r \t \t 006 002
0051060 d o 006 001 ( S E T Q I n t e r
0051100 v a l ( C A R P o s s i b l
0051120 e S p a c e ) ) \r \t \t \t ( S E
0051140 T Q T a k e n ( I M I N (
0051160 C D R I n t e r v a l ) \r \t \t
0051200 \t \t \t N e e d e d ) ) \r \t
0051220 \t \t ( S E T Q S t a r t I n
0051240 t e r v a l ( C A R I n t e
0051260 r v a l ) ) \r \t \t \t ( S E T Q
0051300 V A M P a g e ( 006 002 V A M P
0051320 a g e A d d r 006 001 V o l N u m
0051340 S t a r t I n t e r v a l ) )
0051360 \r \t \t \t ( S E T Q V A M P t
0051400 r ( 006 002 L v G e t P a g e 006 001
0051420 V o l N u m V A M P a g e )
0051440 ) \r \t \t \t ( 006 002 V A M A l l o
0051460 c a t e I n t e r v a l 006 001 V
0051500 A M P t r S t a r t I n t e r
0051520 v a l T a k e n ) \r \t \t \t (
0051540 006 002 L v P u t P a g e 006 001 V o
0051560 l N u m V A M P a g e V A M
0051600 P t r ) \r \t \t \t ( S E T Q R
0051620 e s u l t ( C O N S ( C O N
0051640 S S t a r t I n t e r v a l
0051660 T a k e n ) \r \t \t \t \t \t
0051700 R e s u l t ) ) \r \t \t \t ( 006 002
0051720 r e p l a c e 006 001 ( L o g i c
0051740 a l V o l u m e D s c r F r e
0051760 e P a g e C o u n t ) 006 002 o f
0052000 006 001 ( L v P a g e P t r V o
0052020 l N u m ) \r \t \t \t 006 002 w
0052040 i t h 006 001 ( I D I F F E R E N
0052060 C E ( 006 002 f e t c h 006 001 ( L
0052100 o g i c a l V o l u m e D s c r
0052120 F r e e P a g e C o u n t ) \r
0052140 \t \t \t \t \t \t 006 002 o f 006 001 ( L
0052160 v P a g e P t r V o l N u m )
0052200 ) \r \t \t \t \t \t T a k
0052220 e n ) ) \r \t \t \t ( S E T Q N
0052240 e e d e d ( I D I F F E R E N
0052260 C E N e e d e d T a k e n )
0052300 ) \r \t \t \t ( S E T Q P o s s
0052320 i b l e S p a c e ( C D R P
0052340 o s s i b l e S p a c e ) ) ) \r
0052360 \t \t ( 006 002 L v P u t P a g
0052400 e 006 001 V o l N u m 0 ( L v
0052420 P a g e P t r V o l N u m ) )
0052440 \r \t \t ( 006 002 D s p l y V o
0052460 l u m e s 006 001 ) ) \r
0052500 ( R E T U R N R e s u
0052520 l t ] ) \r \r ( 006 004 V A M F r e e
0052540 S p a c e 006 001 \r [ L A M B D
0052560 A ( V o l N u m S t a r t
0052600 L e n )
0052620
0052640 006 003 ( * S D G " 2
0052660 4 - J U N - 8 3 1 0 : 5 7 " )
0052700 006 001 \r ( P R O G ( V A
0052720 M P a g e V A M P t r ) \r
0052740 ( S E T Q V A
0052760 M P a g e ( 006 002 V A M P a g e
0053000 A d d r 006 001 V o l N u m S t
0053020 a r t ) ) \r
0053040 ( S E T Q V A M P t r ( 006 002
0053060 L v G e t P a g e 006 001 V o l N
0053100 u m V A M P a g e ) ) \r
0053120 ( 006 002 V A M F r e
0053140 e I n t e r v a l 006 001 V A M P
0053160 t r S t a r t L e n ) \r
0053200 ( 006 002 L v P u t
0053220 P a g e 006 001 V o l N u m V A
0053240 M P a g e V A M P t r ) \r
0053260 ( 006 002 r e p l a
0053300 c e 006 001 ( L o g i c a l V o l
0053320 u m e D s c r F r e e P a g e
0053340 C o u n t ) 006 002 o f 006 001 ( L
0053360 v P a g e P t r V o l N u m )
0053400 \r \t 006 002 w i t h 006 001
0053420 ( I P L U S ( 006 002 f e t c h 006
0053440 001 ( L o g i c a l V o l u m e
0053460 D s c r F r e e P a g e C o u
0053500 n t ) 006 002 o f 006 001 ( L v P a
0053520 g e P t r V o l N u m ) ) \r \t
0053540 \t \t L e n ) ) \r
0053560 ( 006 002 L v P u t P a g e 006
0053600 001 V o l N u m 0 ( L v P a
0053620 g e P t r V o l N u m ) ) \r
0053640 ( 006 002 D s p l
0053660 y V o l u m e s 006 001 ) \r
0053700 ( R E T U R N V A
0053720 M P t r ] ) \r \r ( 006 004 M K I n t
0053740 e r v a l 006 001 \r [ L A M B D
0053760 A ( P a g e N u m I n d e x
0054000 W o r d )
0054020
0054040 006 003 ( * S D G " 1
0054060 7 - J U N - 8 3 1 4 : 0 2 " )
0054100 006 001 \r ( P R O G ( I n
0054120 t r ) \r [ 006
0054140 002 i f 006 001 ( S E T Q I n t r
0054160 ( 006 002 F i n d S u c c e s s i
0054200 v e F r e e B i t s 006 001 W o r
0054220 d ) ) \r \t 006 002 t h e
0054240 n 006 001 ( R P L A C A I n t r
0054260 ( I P L U S ( I T I M E S
0054300 P a g e N u m 4 0 9 6 ) \r \t \t
0054320 \t \t ( I T I M E S
0054340 I n d e x 1 6 ) \r \t \t \t \t
0054360 ( C A R I n t r ]
0054400 \r ( R E T U
0054420 R N I n t r ] ) \r \r ( 006 004 A d
0054440 d T o I n t e r v a l 006 001 \r
0054460 [ L A M B D A ( I n t e r v a
0054500 l N u m )
0054520
0054540 006 003 ( *
0054560 S D G " 1 6 - J U N - 8 3 1
0054600 5 : 2 7 " ) 006 001 \r ( R P
0054620 L A C D I n t e r v a l ( I
0054640 P L U S N u m ( C D R I n
0054660 t e r v a l ] ) \r \r ( 006 004 G e t
0054700 P v N a m e 006 001 \r [ L A M B
0054720 D A N I L
0054740
*
0055000 006 003 ( * S D G "
0055020 2 2 - J U N - 8 3 1 6 : 1 1 "
0055040 ) 006 001 \r ( 006 002 M k S t r
0055060 i n g P t r 006 001 ( F A D D R
0055100 \ P h y s V o l u m e P a g e
0055120 ( P h y s V o l u m e D s c r
0055140 N a m e ) ) \r \t \t ( 006 002 f e t
0055160 c h 006 001 ( P h y s V o l u m e
0055200 D s c r N a m e L e n g t h )
0055220 006 002 o f 006 001 \ P h y s V o l
0055240 u m e P a g e ] ) \r \r ( 006 004 G e
0055260 t L v N a m e 006 001 \r [ L A M
0055300 B D A ( V o l N u m )
0055320
*
0055360 006 003 ( * S D G
0055400 " 1 7 - J U N - 8 3 1 4 : 3 2
0055420 " ) 006 001 \r ( 006 002 M k S t
0055440 r i n g P t r 006 001 ( F A D D R
0055460 ( L v P a g e P t r V o l N
0055500 u m ) \r \t \t \t ( L o g i c a l V
0055520 o l u m e D s c r N a m e ) )
0055540 \r \t \t ( 006 002 f e t c h 006 001 (
0055560 L o g i c a l V o l u m e D s c
0055600 r N a m e L e n g t h ) 006 002
0055620 o f 006 001 ( L v P a g e P t r
0055640 V o l N u m ] ) \r \r ( 006 004 G e t
0055660 L v N u m 006 001 \r [ L A M B D
0055700 A ( L v N a m e )
0055720
*
0055760 006 003 ( * S D G " 1
0056000 7 - J U N - 8 3 1 4 : 4 5 " )
0056020 006 001 \r ( 006 002 f o r 006 001
0056040 I 006 002 f r o m 006 001 1 006 002 t
0056060 o 006 001 ( 006 002 f e t c h 006 001 (
0056100 P h y s V o l u m e D s c r S
0056120 u b V o l C o u n t ) 006 002 o f
0056140 006 001 \ P h y s V o l u m e P a
0056160 g e ) \r 006 002 d o 006
0056200 001 ( 006 002 i f 006 001 ( S T R E Q
0056220 U A L ( 006 002 G e t L v N a m e
0056240 006 001 I ) \r \t \t \t L v N a m e )
0056260 \r \t 006 002 t h e n 006 001
0056300 ( R E T U R N I ] ) \r \r ( 006
0056320 004 S e t M a p B i t s 006 001 \r
0056340 [ L A M B D A ( W o r d S t
0056360 a r t C o u n t )
0056400
0056420 006 003 ( *
0056440 S D G " 2 1 - J U N - 8 3 2
0056460 2 : 5 8 " ) 006 001 \r ( P R
0056500 O G ( ( M a s k 0 ) ) \r
0056520 [ 006 002 f o r 006 001
0056540 I 006 002 f r o m 006 001 1 006 002
0056560 t o 006 001 C o u n t \r \t
0056600 006 002 d o 006 001 ( S E T Q M a
0056620 s k ( L O G O R M a s k 1
0056640 ) ) \r \t \t ( 006 002 i f 006 001 ( I L
0056660 E S S P I C o u n t ) \r \t \t
0056700 006 002 t h e n 006 001 ( S E
0056720 T Q M a s k ( L S H M a s
0056740 k 1 ] \r [
0056760 S E T Q M a s k ( L S H M
0057000 a s k ( I D I F F E R E N C E
0057020 1 6 ( I P L U S S t a r t
0057040 C o u n t ] \r
0057060 ( R E T U R N ( L O G O R
0057100 W o r d M a s k ] ) \r \r ( 006
0057120 004 C l e a r M a p B i t s 006 001 \r
0057140 [ L A M B D A ( W o r d
0057160 S t a r t C o u n t )
0057200
0057220 006 003 (
0057240 * S D G " 1 9 - J U N - 8 3
0057260 1 4 : 0 7 " ) 006 001 \r (
0057300 P R O G ( ( R M a s k 0 ) \r
0057320 \t ( L M a s k 0 ) ) \r
0057340 [ S E T Q R
0057360 M a s k ( 006 002 S e t M a p B i
0057400 t s 006 001 0 ( I P L U S S t
0057420 a r t C o u n t ) \r \t \t \t \t
0057440 ( I D I F F E R E N C E 1 6
0057460 ( I P L U S S t a r t C o
0057500 u n t ] \r (
0057520 S E T Q L M a s k ( 006 002 S e
0057540 t M a p B i t s 006 001 0 0 S
0057560 t a r t ) ) \r
0057600 ( R E T U R N ( L O G A N D
0057620 W o r d ( L O G O R L M a
0057640 s k R M a s k ] ) \r ) \r ( D E
0057660 C L A R E : E V A L @ C O M P
0057700 I L E \r \r ( P U T P R O P S
0057720 006 002 L O C F D M A C R O 006 001
0057740 ( X ( T R A N S L A T E . L O
0057760 C F X ) ) ) \r \r ( P U T P R O
0060000 P S 006 002 L O C F M A C R O 006
0060020 001 ( X ( T R A N S L A T E .
0060040 L O C F X ) ) ) \r \r ( P U T P
0060060 R O P S 006 002 F A D D R M A C
0060100 R O 006 001 ( ( P a r m F l d )
0060120 \r \t \t ( L O C F
0060140 ( 006 002 f e t c h 006 001 F l d 006
0060160 002 o f 006 001 P a r m ) ) ) ) \r \r
0060200 ( P U T P R O P S 006 002 P a g e
0060220 A d d r M A C R O 006 001 ( ( L
0060240 ) \r \t \t \t ( C D R ( L O C
0060260 L ) ) ) ) \r ) \r ( D E F I N E
0060300 Q \r \r ( 006 004 D s p l y P v P a g
0060320 e 006 001 \r [ L A M B D A N I
0060340 L
0060360
*
0060420 006 003 ( * s g : " 8 - J U
0060440 N - 8 3 1 9 : 2 6 " ) 006 001 \r
0060460 ( I N S P E C T \ P h y
0060500 s V o l u m e P a g e ( Q U O
0060520 T E P h y s V o l u m e D s c
0060540 r ] ) \r \r ( 006 004 D s p l y V o l
0060560 u m e s 006 001 \r [ L A M B D A
0060600 N I L
0060620
*
0060660 006 003 ( * S D G " 2 3
0060700 - J U N - 8 3 1 0 : 4 3 " ) 006
0060720 001 \r ( 006 002 i f 006 001 ( N
0060740 U L L \ V o l u m e D s p l y
0060760 W i n d o w ) \r \t 006 002 t h e n 006
0061000 001 ( S E T Q \ V o l u m e D
0061020 s p l y W i n d o w ( C R E A
0061040 T E W ( 006 002 c r e a t e 006 001
0061060 R E G I O N \r \t \t \t \t \t \t
0061100 W I D T H _ 2 8 0 \r
0061120 \t \t \t \t \t \t H E I
0061140 G H T _ ( I P L U S 4 5 (
0061160 I T I M E S 1 5 \r \t \t \t \t \t \t
0061200 \t \t \t \t ( 006 002 f e t c h 006 001
0061220 ( \r P h y s V o l u m e D s c r
0061240 S u b V o l C o u n t ) 006 002
0061260 o f 006 001 \ P h y s V o l u m e
0061300 P a g e ) ) ) \r \t \t \t \t \t \t
0061320 L E F T _ 1 0 0 \r
0061340 \t \t \t \t \t \t B O T
0061360 T O M _ 5 0 ) \r \t \t \t \t \t
0061400 " 1 1 0 8 I n t e
0061420 r L i s p F i l e S y s t e
0061440 m " ) ) \r 006 002 e l s
0061460 e 006 001 ( C L E A R W \ V o l
0061500 u m e D s p l y W i n d o w ) )
0061520 \r ( 006 002 p r i n t o u t
0061540 006 001 \ V o l u m e D s p l y W
0061560 i n d o w # ( D S P F O N T
0061600 F I X E D F O N T \ V o l u
0061620 m e D s p l y W i n d o w ) \r \t
0061640 " P h y s i c a l
0061660 V o l u m e : " # ( D S P
0061700 F O N T F I X E D B O L D \
0061720 V o l u m e D s p l y W i n d o
0061740 w ) \r \t ( 006 002 G e t
0061760 P v N a m e 006 001 ) \r \t
0062000 # \r \t ( D S P F O
0062020 N T F I X E D F O N T \ V o
0062040 l u m e D s p l y W i n d o w )
0062060 \r \t T " L o g i c
0062100 a l V o l u m e s : " T ) \r
0062120 ( 006 002 f o r 006 001 I 006
0062140 002 f r o m 006 001 1 006 002 t o 006 001
0062160 ( 006 002 f e t c h 006 001 ( P h y
0062200 s V o l u m e D s c r S u b V
0062220 o l C o u n t ) 006 002 o f 006 001
0062240 \ P h y s V o l u m e P a g e )
0062260 \r 006 002 d o 006 001 (
0062300 006 002 p r i n t o u t 006 001 \ V o
0062320 l u m e D s p l y W i n d o w
0062340 # ( D S P F O N T F I X E D
0062360 F O N T \ V o l u m e D s p l
0062400 y W i n d o w ) \r \t \t "
0062420 " I " " # ( D S P
0062440 F O N T F I X E D B O L D \
0062460 V o l u m e D s p l y W i n d o
0062500 w ) \r \t \t ( 006 002 G e t L
0062520 v N a m e 006 001 I ) \r \t \t
0062540 " " # ( D S P F O N T
0062560 F I X E D F O N T \ V o l u
0062600 m e D s p l y W i n d o w ) \r \t
0062620 \t . F R 1 8 ( 006 002 f
0062640 e t c h 006 001 ( L o g i c a l V
0062660 o l u m e D s c r V o l u m e
0062700 S i z e ) 006 002 o f 006 001 ( L v
0062720 P a g e P t r I ) ) \r \t \t
0062740 " P a g e s " . F R
0062760 3 0 ( 006 002 f e t c h 006 001 ( L
0063000 o g i c a l V o l u m e D s c r
0063020 F r e e P a g e C o u n t )
0063040 006 002 o f 006 001 ( L v P a g e P t
0063060 r I ) ) \r \t \t " F
0063100 r e e " . F O N T D E F A U
0063120 L T F O N T T ] ) \r \r ( 006 004 D
0063140 s p l y L v P a g e 006 001 \r [
0063160 L A M B D A ( I )
0063200
*
0063240 006 003 ( * s
0063260 g : " 8 - J U N - 8 3 1 9
0063300 : 2 5 " ) 006 001 \r ( I N S
0063320 P E C T ( L v P a g e P t r
0063340 I ) \r \t ( Q U O T E
0063360 L o g i c a l V o l u m e D s c
0063400 r ] ) \r \r ( 006 004 B F K e y P t r
0063420 006 001 \r [ L A M B D A ( V
0063440 N )
0063460
*
0063520 006 003 ( * S D G " 1 0 - J U N
0063540 - 8 3 1 1 : 4 4 " ) 006 001 \r
0063560 ( \ A D D B A S E ( F A D
0063600 D R ( L v P a g e P t r V )
0063620 \r \t \t ( L o g i c a l
0063640 V o l u m e D s c r B o o t i
0063660 n g I n f o ) ) \r \t
0063700 ( I T I M E S ( S U B 1 N )
0063720 \r \t \t 9 ] ) \r \r ( 006
0063740 004 D s p l y P a g e 006 001 \r [
0063760 L A M B D A ( V o l N u m P
0064000 a g e A d d r )
0064020
0064040 006 003 ( * S
0064060 D G " 2 2 - J U N - 8 3 1 9
0064100 : 2 0 " ) 006 001 \r ( 006 002 D
0064120 s p l y W o r d s 006 001 ( 006 002 L
0064140 v G e t P a g e 006 001 V o l N u
0064160 m P a g e A d d r ) \r \t \t 2 5
0064200 6 ] ) \r \r ( 006 004 D s p l y C a c
0064220 h e E n t r y 006 001 \r [ L A M
0064240 B D A ( V L )
0064260
*
0064320 006 003 ( * S D G
0064340 " 2 3 - J U N - 8 3 2 2 : 0 4
0064360 " ) 006 001 \r ( 006 002 D s p l
0064400 y W o r d s 006 001 ( V F M I n t
0064420 e r v a l P t r V L ) \r \t \t
0064440 V F M C a c h e E n t r y S i z
0064460 e ] ) \r \r ( 006 004 D s p l y W o r
0064500 d s 006 001 \r [ L A M B D A (
0064520 S t a r t N u m b e r )
0064540
*
0064600 006 003 ( * e d i t e d : "
0064620 9 - J U N - 8 3 1 0 : 0 4 "
0064640 ) 006 001 \r ( 006 002 f o r 006 001
0064660 I 006 002 f r o m 006 001 0 006 002
0064700 t o 006 001 ( S U B 1 N u m b e
0064720 r ) \r 006 002 d o 006 001
0064740 ( P R I N 1 ( \ G E T B A S
0064760 E S t a r t I ) ) \r \t (
0065000 P R I N 1 " " ) ) \r
0065020 ( T E R P R I ] ) \r \r ( 006 004 D s
0065040 p l y S u b V o l E n t r y 006 001
0065060 \r [ L A M B D A ( V o l )
0065100
*
0065140 006 003
0065160 ( * e d i t e d : " 8 - J
0065200 U N - 8 3 1 9 : 5 7 " ) 006 001 \r
0065220 ( I N S P E C T ( S u
0065240 b V o l u m e E n t r y P t r
0065260 V o l ) \r \t ( Q U O T
0065300 E S u b V o l u m e D s c r ]
0065320 ) \r \r ( 006 004 S c a n F i l e 006 001
0065340 \r [ L A M B D A ( V o l
0065360 K e y )
0065400
0065420 006 003
0065440 ( * S D G " 9 - J U N - 8
0065460 3 1 4 : 2 3 " ) 006 001 \r
0065500 ( P R O G ( F i l e S i z e
0065520 S t a r t P a g e ) \r
0065540 ( S E T Q F i l e S
0065560 i z e ( 006 002 P F S F i l e S i
0065600 z e 006 001 V o l K e y ) ) \r
0065620 ( S E T Q S
0065640 t a r t P a g e ( 006 002 f e t c
0065660 h 006 001 ( K e y D s c r F i l
0065700 e P a g e ) 006 002 o f 006 001 K e
0065720 y ) ) \r [ 006
0065740 002 w h i l e 006 001 ( I L E S S P
0065760 ( 006 002 f e t c h 006 001 ( K e y
0066000 D s c r F i l e P a g e ) 006
0066020 002 o f 006 001 K e y ) \r \t \t \t F
0066040 i l e S i z e ) \r \t 006
0066060 002 d o 006 001 ( S E T Q P G (
0066100 006 002 f e t c h 006 001 ( K e y D s
0066120 c r F i l e P a g e ) 006 002 o
0066140 f 006 001 K e y ) ) \r \t \t ( 006 002 L
0066160 v G e t P a g e 006 001 V o l P
0066200 G ) \r \t \t ( 006 002 i f 006 001 ( E Q
0066220 ( I M O D P G 1 0 0 ) \r \t
0066240 \t \t 0 ) \r \t \t 006 002 t h e
0066260 n 006 001 ( P R I N 1 " " ) \r
0066300 \t \t \t ( P R I N 1 P G ) ) \r
0066320 \t \t ( 006 002 r e p l a c e 006 001 (
0066340 K e y D s c r F i l e P a g e
0066360 ) 006 002 o f 006 001 K e y 006 002 w
0066400 i t h 006 001 ( A D D 1 ( 006 002 f
0066420 e t c h 006 001 ( K e y D s c r
0066440 F i l e P a g e ) 006 002 o f 006 001
0066460 K e y ] \r
0066500 ( 006 002 r e p l a c e 006 001 ( K e
0066520 y D s c r F i l e P a g e )
0066540 006 002 o f 006 001 K e y 006 002 w i t
0066560 h 006 001 S t a r t P a g e ) \r
0066600 ( T E R P R I
0066620 ] ) \r ) \r \r ( R P A Q Q 006 002 S
0066640 u b V o l u m e E n t r y S i z
0066660 e 006 001 1 3 ) \r \r ( R P A Q Q
0066700 006 002 V F M C a c h e E n t r y S
0066720 i z e 006 001 1 6 ) \r \r ( R P A Q
0066740 Q 006 002 V F M K e y S i z e 006 001
0066760 7 ) \r \r ( R P A Q Q 006 002 V F
0067000 M L e a f L e v e l 006 001 0 ) \r
0067020 \r ( R P A Q Q 006 002 V F M I n d
0067040 e x S i z e 006 001 1 0 ) \r ( D E
0067060 C L A R E : E V A L @ C O M P
0067100 I L E \r \r ( P U T P R O P S
0067120 006 002 I n s e r t H a l f I n t e
0067140 r v a l M A C R O 006 001 ( N I
0067160 L ( S E T Q N e x t E n t r
0067200 y P t r ( \ A D D B A S E V
0067220 F M E n t r y P t r V F M I n
0067240 d e x S i z e ) ) \r \t \t \t \t \t (
0067260 S E T Q W o r d s T o M o v e
0067300 V F M I n d e x S i z e ) \r \t
0067320 \t \t \t \t [ M o v e W o r d s V
0067340 F M E n t r y P t r N e x t E
0067360 n t r y P t r \r \t \t \t \t \t \t
0067400 ( I P L U S V F M I n d e x
0067420 S i z e ( I D I F F E R E N C
0067440 E ( P a g e A d d r \r \t \t \t
0067460 \t \t \t \t \t \t \t F r e e
0067500 E n t r y P t r ) \r \t \t \t \t \t \t
0067520 \t \t \t \t ( P a g e A d d
0067540 r \r \t \t \t \t \t \t \t \t \t \t
0067560 N e x t E n t r y P t r ] \r
0067600 \t \t \t \t \t ( S E T Q V F M E n
0067620 t r y P t r N e x t E n t r y
0067640 P t r ) \r \t \t \t \t \t ( S E T Q
0067660 N e x t E n t r y P t r ( \ A
0067700 D D B A S E N e x t E n t r y
0067720 P t r V F M I n d e x S i z e
0067740 ) ) \r \t \t \t \t \t ( \ P U T B A S
0067760 E V F M P a g e P t r 2 5 0
0070000 ( I P L U S F r e e E n t r
0070020 y I n d e x W o r d s T o M o
0070040 v e ) ) \r \t \t \t \t \t ( 006 002 r e p
0070060 l a c e 006 001 ( K e y D s c r
0070100 F i l e P a g e ) 006 002 o f 006 001
0070120 V F M E n t r y P t r \r \t \t \t
0070140 \t \t 006 002 w i t h 006 001 ( I
0070160 P L U S ( 006 002 f e t c h 006 001
0070200 ( K e y D s c r F i l e P a g
0070220 e ) 006 002 o f 006 001 V F M E n t
0070240 r y P t r ) \r \t \t \t \t \t \t
0070260 I n t e r v a l S i z e
0070300 ) ) \r \t \t \t \t \t ( 006 002 r e p l a
0070320 c e 006 001 ( V F M I n d e x D s
0070340 c r P a g e N u m b e r ) 006
0070360 002 o f 006 001 V F M E n t r y P t
0070400 r \r \t \t \t \t \t 006 002 w i t h
0070420 006 001 S t a r t P a g e ) ) ) \r
0070440 \r ( P U T P R O P S 006 002 I n s
0070460 e r t F u l l I n t e r v a l
0070500 M A C R O 006 001 ( N I L ( S E
0070520 T Q N e x t E n t r y P t r
0070540 ( \ A D D B A S E V F M E n t
0070560 r y P t r W o r d s T o M o v
0070600 e ) ) \r \t \t \t \t \t ( M o v e W o
0070620 r d s V F M E n t r y P t r
0070640 N e x t E n t r y P t r ( I D
0070660 I F F E R E N C E \r \t \t \t \t \t \t
0070700 ( P a g e A d d r F
0070720 r e e E n t r y P t r ) \r \t \t \t
0070740 \t \t \t ( P a g e A d d
0070760 r V F M E n t r y P t r ) ) )
0071000 \r \t \t \t \t \t ( \ P U T B A S E
0071020 V F M P a g e P t r 2 5 0 (
0071040 I P L U S F r e e E n t r y I
0071060 n d e x W o r d s T o M o v e
0071100 ) ) \r \t \t \t \t \t ( \ B L T V F
0071120 M E n t r y P t r N e w K e y
0071140 V F M K e y S i z e ) \r \t \t \t
0071160 \t \t ( \ B L T ( \ A D D B A S
0071200 E V F M E n t r y P t r V F
0071220 M I n d e x S i z e ) \r \t \t \t \t
0071240 \t N e w K e y V F
0071260 M K e y S i z e ) \r \t \t \t \t \t (
0071300 006 002 r e p l a c e 006 001 ( V F M
0071320 I n d e x D s c r P a g e N u
0071340 m b e r ) 006 002 o f 006 001 V F M
0071360 E n t r y P t r \r \t \t \t \t \t
0071400 006 002 w i t h 006 001 ( 006 002 f e t
0071420 c h 006 001 ( V F M I n d e x D s
0071440 c r P a g e N u m b e r ) 006
0071460 002 o f 006 001 N e x t E n t r y P
0071500 t r ) ) \r \t \t \t \t \t ( 006 002 r e p
0071520 l a c e 006 001 ( V F M I n d e x
0071540 D s c r P a g e N u m b e r )
0071560 006 002 o f 006 001 N e x t E n t r
0071600 y P t r \r \t \t \t \t \t 006 002 w
0071620 i t h 006 001 0 ) \r \t \t \t \t \t ( S
0071640 E T Q N e x t E n t r y P t r
0071660 ( \ A D D B A S E V F M E n
0071700 t r y P t r V F M I n d e x S
0071720 i z e ) ) \r \t \t \t \t \t ( 006 002 r e
0071740 p l a c e 006 001 ( K e y D s c r
0071760 F i l e P a g e ) 006 002 o f 006
0072000 001 N e x t E n t r y P t r \r \t
0072020 \t \t \t \t 006 002 w i t h 006 001
0072040 ( I P L U S ( 006 002 f e t c h 006
0072060 001 ( K e y D s c r F i l e P
0072100 a g e ) 006 002 o f 006 001 V F M E
0072120 n t r y P t r ) \r \t \t \t \t \t \t
0072140 I n t e r v a l S i
0072160 z e ) ) \r \t \t \t \t \t ( 006 002 r e p
0072200 l a c e 006 001 ( V F M I n d e x
0072220 D s c r P a g e N u m b e r )
0072240 006 002 o f 006 001 N e x t E n t r
0072260 y P t r \r \t \t \t \t \t 006 002 w
0072300 i t h 006 001 S t a r t P a g e )
0072320 \r \t \t \t \t \t ( 006 002 r e p l a c e
0072340 006 001 ( V F M I n d e x D s c r
0072360 E n t r y S i z e ) 006 002 o f
0072400 006 001 N e x t E n t r y P t r \r
0072420 \t \t \t \t \t 006 002 w i t h 006 001
0072440 V F M I n d e x S i z e ) ) )
0072460 \r \r ( P U T P R O P S 006 002 L v
0072500 P a g e P t r M A C R O 006 001
0072520 ( ( I ) \r \t \t \t ( E L T
0072540 \ L o g i c a l V o l u m e s
0072560 I ) ) ) \r \r ( P U T P R O P S
0072600 006 002 S u b V o l u m e E n t r y
0072620 P t r M A C R O 006 001 ( ( L V
0072640 N u m )
0072660 006 003 ( * e d i t
0072700 e d : " 7 - J U N - 8 3 1
0072720 4 : 0 2 " ) 006 001 \r \t \t \t \t
0072740 ( \ A D D B A S E ( F A D D R
0072760 \ P h y s V o l u m e P a g e
0073000 ( P h y s V o l u m e D s c r
0073020 S u b V o l u m e s ) ) \r \t \t
0073040 \t \t \t ( I T I M E S
0073060 ( S U B 1 L V N u m ) \r \t \t \t
0073100 \t \t \t S u b V o l u m
0073120 e E n t r y S i z e ) ) ) ) \r \r
0073140 ( P U T P R O P S 006 002 L o w e
0073160 r D s k A d d r M A C R O 006 001
0073200 ( ( D a 1 D a 2 ) \r \t \t \t
0073220 (
0073226