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