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