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