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