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