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