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