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