$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>LLCODE.DCOM!1
0000000 ( F I L E C R E A T E D " 2
0000020 - J a n - 8 4 1 8 : 0 5 : 5 3
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > L L C O
0000120 D E . ; 2 9 ) \r " 1 - J a n
0000140 - 8 4 0 3 : 0 7 : 3 7 " b c
0000160 o m p l ' d i n W O R K d
0000200 a t e d " 1 - J a n - 8 4
0000220 0 3 : 1 2 : 3 8 " ) \r ( F I L E
0000240 C R E A T E D " 2 - J a n -
0000260 8 4 1 8 : 0 4 : 5 2 " { P H
0000300 Y L U M } < L I S P C O R E > S
0000320 O U R C E S > L L C O D E . ; 2
0000340 9 2 0 0 5 9 c h a n g e s
0000360 t o : ( V A R S \r \ O P C O
0000400 D E S ) p r e v i o u s d a
0000420 t e : " 3 1 - D e c - 8 3 2
0000440 2 : 2 5 : 3 5 " { P H Y L U M
0000460 } < L I S P C O R E > S O U R C
0000500 E S > L L C O D E . ; 2 7 ) \r D
0000520 C O D E R D D 1 \r ( P 7 0 Q
0000540 X P 6 7 Q X P 6 6 Q
0000560 X P 6 5 Q X P 6 4 Q
0000600 N T P 6 2 Q X P 6 1
0000620 Q N T B Y T E S I Z E P 6
0000640 0 Q N T 1 P 5 6 Q L O C
0000660 A L S I Z E P 5 5 Q S T A
0000700 R T L O C A L S P 5 4 Q L
0000720 O C A L A R G S P 5 3 Q F
0000740 V A R O F F S E T P 5 2 Q
0000760 C A P 5 1 Q N T W O R D S
0001000 P 5 0 Q S T A R T P C P
0001020 4 7 Q R E A L S I Z E P
0001040 4 6 Q F R A M E N A M E P
0001060 4 5 Q N T S I Z E P 4 4 Q
0001100 N A R G S P 4 3 Q A R G
0001120 T Y P E P 4 2 Q N F R E E
0001140 V A R S P 4 1 Q N L O C A
0001160 L S P 4 0 Q C O D E L E N
0001200 P 3 7 Q N A M E T A B L E
0001220 P 0 C O F D I 0 F N
0001240 ) 003 301 9 \0 \0 001 \b \0 \0 \b \0 \0 021 361
0001260 017 021 360 036 h ` \0 \0 \n \0 \0 \b \0 \0 277 H
0001300 341 H 330 H H H H j @ 021
0001320 210 . O > d 001 g \0 \0 360 232 002 001 _ L 277
0001340 O > 002 002 _ > 001 g \0 \0 360 235 O > 002 001
0001360 _ X 277 O > 002 002 _ > 201 O > 262 035 O >
0001400 211 O J k 330 _ J 277 002 002 002 003 265 365 O J
0001420 l 004 330 m 374 345 _ J 277 O > 224 O J d 330
0001440 201 l 004 _ R l \b 330 340 _ P 277 O X 262
0001460 O P _ Z 277 O X \t \0 \0 342 l 002 330 m 376
0001500 345 340 _ \ 277 O P O \ 340 330 _ P 201 O P
0001520 O @ l \a 330 330 m 370 345 _ N O P l 003 330
0001540 342 342 l 002 330 m 376 345 \n \0 \0 _ T O P O
0001560 @ H \f \0 \0 277 O > l 021 O J 340 021 023 2
0001600 O ^ _ d 277 O d 003 262 c O T O ` O d
0001620 002 002 001 323 m 377 \f \0 \0 277 O T O ` O b
0001640 330 O d 002 001 O d 001 d g \0 \0 360 225 277 n
0001660 200 \0 260 d g \0 \0 360 235 277 O V 245 O `
0001700 342 _ V 277 n 300 \0 211 g \0 \0 360 221 j 202 \b
0001720 \0 \0 330 m 377 \f \0 \0 277 O d 002 002 002 _ d
0001740 277 O ` l 002 330 _ ` 277 260 234 023 O X 265 017
0001760 O T O F l 002 360 262 L m 377 260 J O Z k
0002000 330 021 022 5 O f _ j 277 O j 003 262 4 O T
0002020 O h O j 002 001 323 m 377 \f \0 \0 277 O T O
0002040 h O \ 330 O j 001 j 330 m 377 \f \0 \0 277 O
0002060 j 002 002 _ j 277 O h l 002 330 _ h 277 260 313
0002100 023 260 257 O H n 377 377 345 276 ] N 343 272 Y 311
0002120 \0 I 310 003 l 002 330 J 307 277 M N l 377 345 274
0002140 [ 311 \0 K 310 003 l 003 330 L 307 277 O T O B
0002160 O D k 330 330 342 k 331 n 377 377 345 _ 030 277 _
0002200 026 O 030 343 _ 020 277 _ 016 311 \0 O 016 310 003 l
0002220 004 330 O 020 307 277 O 026 O 030 l 377 345 _ 024 277
0002240 _ 022 311 \0 O 022 310 003 l 005 330 O 024 307 277 O
0002260 T O P 343 _ 034 277 _ 032 311 \0 O 032 310 003 l
0002300 006 330 O 034 307 277 O T O P l 377 345 _ 277
0002320 _ 036 311 \0 O 036 310 003 l \a 330 O 307 277 O
0002340 T d 311 \0 O T 310 003 l \b 330 302 n 377 317 345
0002360 O F l 003 345 340 340 340 340 344 _ $ 277 _ " 311
0002400 \0 O " 310 003 l \b 330 O $ 307 277 O T l \v
0002420 O L \v \0 \0 277 O T O J 343 _ ( 277 _ &
0002440 311 \0 O & 310 003 l \f 330 O ( 307 277 O T O
0002460 J l 377 345 _ , 277 _ * 311 \0 O * 310 003 l
0002500 \r 330 O , 307 277 O T 311 \0 O T 310 003 l 016
0002520 330 O B 307 277 O T O V 265 003 j _ 0 277 _
0002540 . 311 \0 O . 310 003 l 017 330 O 0 307 277 O T
0002560 d 311 \0 O T 310 003 l 002 330 302 341 O T 311 \0
0002600 O T 310 003 l 003 330 302 344 d n 177 377 361 225 n
0002620 377 377 331 k 331 O T 311 \0 O T 310 003 l 004 330
0002640 302 341 O T 311 \0 O T 310 003 l 005 330 302 344 d
0002660 n 177 377 361 225 n 377 377 331 k 331 k 330 340 330 340
0002700 l , 330 _ < 277 _ : O < 343 _ 4 277 _ 2
0002720 311 \0 O 2 310 003 j 330 O 4 307 277 O : O <
0002740 l 377 345 _ 8 277 _ 6 311 \0 O 6 310 003 k 330
0002760 O 8 307 277 h ` \0 \0 \n \0 \0 260 033 d 021 001
0003000 6 O T O l 001 O P 330 O l 002 001 323 m 377
0003020 \f \0 \0 023 002 002 003 265 346 h ` \0 \0 \n \0 \0
0003040 260 033 d 021 001 7 O T O n 001 O P 330 O n
0003060 002 001 323 m 377 \f \0 \0 023 002 002 003 265 346 h `
0003100 \0 \0 \n \0 \0 260 030 d 021 001 8 O T O p 001
0003120 O P 330 O p 002 001 \v \0 \0 023 002 002 003 265 351
0003140 @ O T \n \0 \0 h 020 \0 ( 1 6 7 5 Q
0003160 D E F C 1 6 6 1 Q \ F I X C
0003200 O D E P T R 1 6 3 4 Q R E A
0003220 D 1 6 1 7 Q \ F I X C O D E
0003240 N U M 1 5 6 7 Q R E A D 1
0003260 5 5 2 Q \ F I X C O D E N U M
0003300 1 5 2 2 Q R E A D 1 1 5 4
0003320 Q \ F I X C O D E P T R 6 0
0003340 5 Q \ F I X C O D E N U M 5
0003360 6 3 Q \ F I X C O D E N U M
0003400 4 5 7 Q \ F I X C O D E N U M
0003420 4 5 1 Q S H O U L D N T 3
0003440 6 0 Q \ F I X C O D E N U M
0003460 3 1 4 Q A I N 3 0 2 Q \ C
0003500 O D E A R R A Y 2 2 1 Q F L
0003520 E N G T H 2 5 Q R E A D C
0003540 2 2 Q R E A D 5 G E T S T
0003560 R E A M 2 R E A D C ) \r ( 1
0003600 6 3 1 Q C O D E R D T B L 1
0003620 5 6 4 Q C O D E R D T B L 1
0003640 5 1 7 Q C O D E R D T B L 4
0003660 4 2 Q I 4 1 7 Q F 4 0 3
0003700 Q P 1 0 1 Q L 6 0 Q N
0003720 A M E 1 7 Q C O D E R D T B
0003740 L ) \r ( ) \r D C O D E S K I P A
0003760 0 0 0 1 D 1 \r ( N A M E E R
0004000 R O R S E T L ( 2 E R R O
0004020 R S E T . W 1 E R R O R S E
0004040 T . V 0 E R R O R S E T . U
0004060 ) P 2 L C P 1 C O F
0004100 D P 0 P F 3 F L G
0004120 F 4 F N ) \0 l 003 002 \0 003 ` \0
0004140 \0 027 \0 \0 277 S 264 005 \b \0 \0 \b \0 \0 021 022
0004160 002 \b \0 \0 277 \b \0 \0 277 I 341 I 330 272
0004200 I 277 I 277 I 277 I 277 h \b \0 \0
0004220 J 330 \n \0 \0 277 \b \0 \0 277 \b \0 \0 277 \b \0
0004240 \0 277 \b \0 \0 277 S 262 035 T \t \0 \0 277 k \t
0004260 \0 \0 277 ` \0 \0 \t \0 \0 277 h d H \b \0 \0
0004300 \f \0 \0 277 023 h h 032 020 \0 ( 1 4 4 Q
0004320 C O P Y B Y T E S 1 4 1 Q G
0004340 E T F I L E P T R 1 3 2 Q P
0004360 R I N T 1 2 3 Q S P A C E S
0004400 1 1 6 Q P R I N 2 1 0 6 Q
0004420 R E A D C 1 0 2 Q S K R E
0004440 A D 7 6 Q S K R E A D 7 2
0004460 Q S K R E A D 6 6 Q S E T
0004500 F I L E P T R 6 1 Q G E T F
0004520 I L E P T R 3 1 Q R E A D C
0004540 2 5 Q S K R E A D 1 7 Q
0004560 G E T S T R E A M 1 4 Q G E
0004600 T F I L E P T R ) \r ( 1 2 7 Q
0004620 C O D E I N D I C A T O R 5
0004640 F I L E R D T B L 2 C O D E
0004660 R D T B L ) \r ( ) \r D C O D E S
0004700 K I P D 1 \r ( P 1 M A C R
0004720 O Y P 0 M A C R O X I
0004740 1 F L G I 0 F N F 2
0004760 R E S E T V A R S L S T ) \0
0005000 F 002 001 \0 002 \b \0 \0 g \0 \0 ` \0 \0 032 R
0005020 032 c 004 021 021 001 R Y o \0 \0 \0 g \0 \0 \n
0005040 \0 \0 H 001 002 027 \0 \0 277 I d R 360 225 277 H
0005060 002 c 004 215 R \n \0 \0 231 R k I \v \0 \0 H
0005100 002 031 277 265 005 \b \0 \0 001 020 \0 ( 1 0 2 Q
0005120 E R R O R ! 7 1 Q N L E F
0005140 T 6 2 Q T A I L P 3 4 Q
0005160 D C O D E S K I P A 0 0 0 1 2
0005200 R E A D C ) \r ( 4 2 Q F I L
0005220 E R D T B L 3 1 Q I N T E R
0005240 N A L 1 0 Q F I L E R D T B
0005260 L 5 F I L E R D T B L ) \r (
0005300 2 6 Q ( D U M M Y . F O R .
0005320 E R R O R S E T ) ) \r \ R E N A
0005340 M E D F N D 1 \r ( P 2 N E
0005360 W C A P 1 F B P 0 S
0005400 I Z E I 1 F N I 0 D
0005420 E F ) \0 c \b \0 \0 002 @ \t \0 \0 @ 311
0005440 \0 @ 310 003 l 006 330 302 341 @ 311 \0 @ 310 003 l
0005460 \a 330 302 344 021 2 004 H I l 003 330 342 342 l 002
0005500 330 m 376 345 \n \0 \0 Z H k 331 j 274 273 L K
0005520 361 263 " J L @ 311 \0 @ 310 003 L 330 302 021 003
0005540 \a M 311 \0 M 310 003 N 330 O 016 307 023 L k 330
0005560 \ 260 336 J l \v A \v \0 \0 J 020 \0 ( 1 3
0005600 7 Q \ F I X C O D E P T R 5
0005620 4 Q \ C O D E A R R A Y 3
0005640 A R R A Y S I Z E ) \r N I L \r (
0005660 ) \r \ R E A L N A M E P D 1 \r
0005700 ( I 0 X ) \0 026 \0 \0 \0 001 @ g
0005720 \0 \0 360 h 360 264 \r @ k \n \0 \0 g \0 \0 360
0005740 h 360 020 \0 ( 1 5 Q N T H C H A R
0005760 ) \r ( 2 0 Q \ 3 E R R O R
0006000 S E T ) \r ( ) \r E Q D E F P D
0006020 1 \r ( I 1 C A 2 I 0 C
0006040 A 1 ) \0 [ 002 \0 \0 002 @ \t \0 \0 g \0
0006060 \0 360 264 Q A \t \0 \0 g \0 \0 360 264 G @ \t
0006100 \0 \0 A \t \0 \0 021 002 001 H d I 361 221 277 I
0006120 022 k 331 j 021 002 001 I H 361 263 ( @ 311 \0 @
0006140 310 003 I 330 302 A 311 \0 A 310 003 I 330 302 360 253
0006160 l \b I 361 244 l \f I 361 241 h 020 I k 330 Y
0006200 260 330 i 020 \0 ( 3 3 Q A R R A Y S
0006220 I Z E 2 7 Q A R R A Y S I Z
0006240 E 1 5 Q A R R A Y T Y P 3
0006260 A R R A Y T Y P ) \r ( 2 0 Q
0006300 C O D E 6 C O D E ) \r ( ) \r
0006320 \ F I N D O P D 1 \r ( P 0
0006340 X I 1 F L G I 0 O P
0006360 N A M E ) \0 q 003 \0 \0 002 ` \0 \0 263
0006400 H n 001 \0 \t \0 \0 027 \0 \0 277 ` \0 \0 260 6
0006420 d 001 021 ! 002 H 002 001 g \0 \0 H \v \0 \0 277
0006440 H 002 002 002 002 002 001 265 004 H 001 H 001 272 271 J
0006460 I 361 256 ` \0 \0 J k 330 H * 277 J k 330 Z
0006500 260 360 023 002 003 265 313 @ d 004 l 004 360 224 g \0
0006520 \0 033 215 d 005 001 241 005 002 230 ` \0 \0 @ k 330
0006540 ( 265 \n A 264 \a @ A \n \0 \0 020 \0 ( 1 5
0006560 6 Q E R R O R 4 2 Q P U T
0006600 P R O P 1 2 Q A R R A Y ) \r
0006620 ( 1 4 0 Q \ O P C O D E A R R
0006640 A Y 1 2 4 Q D O P C O D E
0006660 7 1 Q \ O P C O D E A R R A Y
0006700 3 6 Q D O P C O D E 2 1 Q
0006720 \ O P C O D E S 1 5 Q \ O
0006740 P C O D E A R R A Y 2 \ O P
0006760 C O D E A R R A Y ) \r ( ) \r ( P
0007000 R E T T Y C O M P R I N T L L
0007020 C O D E C O M S ) \r ( R P A Q Q
0007040 L L C O D E C O M S ( ( *
0007060 r e a d i n g i n c o m p i
0007100 l e d c o d e ) ( F N S D
0007120 C O D E R D D C O D E S K I P
0007140 \ R E N A M E D F N \ R E A
0007160 L N A M E P ) ( V A R S ( \r
0007200 C O D E R D T B L ( C O P Y R
0007220 E A D T A B L E ( Q U O T E
0007240 O R I G ) ) ) ) ( G L O B A L
0007260 V A R S C O D E R D T B L F
0007300 I L E R D T B L ) ( P ( S E
0007320 T S Y N T A X 2 5 ( Q U O T
0007340 E ( \r M A C R O ( L A M B D
0007360 A ( F I L E R D T B L ) (
0007400 E V A L ( R E A D F I L E
0007420 R D T B L ) ) ) ) ) C O D E R
0007440 D T B L ) ) ( D E C L A R E :
0007460 E V A L @ C O M P I L E D O
0007500 N T C O P Y \r D O N T E V A L
0007520 @ L O A D ( F I L E S ( L O
0007540 A D C O M P ) M O D A R I T H
0007560 R E N A M E M A C R O S ) (
0007600 P ( S E L E C T Q ( C O M P
0007620 I L E M O D E ) ( ( D A L T
0007640 O ) N I L ) ( \r F I L E S L
0007660 O A D ( L O A D C O M P ) D
0007700 C O D E F O R 1 0 ) ) ) ) ( V
0007720 A R S C O D E I N D I C A T O
0007740 R ) ( G L O B A L V A R S C
0007760 O D E I N D I C A T O R ) ( P
0010000 R O P C O D E R E A D E R *
0010020 \r ( L I S T C O D E I N D I
0010040 C A T O R ) ) ( F N S E Q D
0010060 E F P ) ( C O M S ( * u t
0010100 i l i t i e s ) ( F N S \ F
0010120 I N D O P ) ( V A R S \ O P
0010140 C O D E S ) ( A D D V A R S
0010160 ( \r \ O P C O D E A R R A Y ) )
0010200 ( G L O B A L V A R S \ O P
0010220 C O D E A R R A Y \ O P C O D
0010240 E S ) ( D E C L A R E : E V
0010260 A L @ C O M P I L E D O N T C
0010300 O P Y ( E X P O R T ( M A C
0010320 R O S \r D P U T C O D E M C
0010340 O D E P ) ( M A C R O S C O
0010360 D E L T C O D E L T 2 C O D
0010400 E S E T A 2 C O D E S E T A )
0010420 ( A D D V A R S ( S Y S S P
0010440 E C V A R S C A ) ) ( R E C
0010460 O R D S \r C O D E A R R A Y )
0010500 ( R E C O R D S O P C O D E
0010520 ) ( G L O B A L V A R S \ O
0010540 P C O D E S ) ( C O N S T A N
0010560 T S P V A R C O D E F V A R
0010600 C O D E I V A R C O D E V A
0010620 R C O D E M A S K ) ) ) \r ) (
0010640 C O M S ( * f o r M A K E
0010660 I N I T a n d R E A D S Y S
0010700 ) ( D E C L A R E : D O N T
0010720 C O P Y ( A D D V A R S ( I
0010740 N E W C O M S ( F N S D C O
0010760 D E R D ) ( V A R S \r \ O P
0011000 C O D E S ( C O D E R D T B L
0011020 ( C O P Y R E A D T A B L E
0011040 ( Q U O T E O R I G ) ) ) )
0011060 ( P ( S E T S Y N T A X ( C
0011100 H A R C O D E ^ Y ) ( Q U O
0011120 T E ( M A C R O ( L A M B D
0011140 A ( \r F I L E R D T B L )
0011160 ( E V A L F O R M A K E I N I T
0011200 ( R E A D F I L E R D T B
0011220 L ) ) ) ) ) C O D E R D T B L
0011240 ) ) ) ( M K I . S U B F N S
0011260 ( \ C O D E A R R A Y . S C
0011300 R A T C H A R R A Y \r ) ( D P
0011320 U T C O D E . I . P U T D E
0011340 F N ) ( C O D E R D T B L .
0011360 I . C O D E R D T B L ) ) (
0011400 E X P A N D M A C R O F N S C
0011420 O D E L T C O D E L T 2 C O
0011440 D E S E T A C O D E S E T A 2
0011460 \r D P U T C O D E M C O D E
0011500 P ) ( R D C O M S ( F N S
0011520 \ F I N D O P ) ( V A R S \
0011540 O P C O D E S ) ( V A R S (
0011560 \ O P C O D E A R R A Y ) ) (
0011600 G L O B A L V A R S \ O P C O
0011620 D E A R R A Y \r \ O P C O D E
0011640 S ) ( D E C L A R E : D O N
0011660 T C O P Y ( R E C O R D S O
0011700 P C O D E ) ) ) ( R D . S U B
0011720 F N S ( C O D E L T . V G
0011740 E T B A S E B Y T E ) ( C O D
0011760 E S E T A . \r V P U T B A S
0012000 E B Y T E ) ) ) ) ) ) ) \r ( R P
0012020 A Q C O D E R D T B L ( C O
0012040 P Y R E A D T A B L E ( Q U O
0012060 T E O R I G ) ) ) \r ( S E T S
0012100 Y N T A X 2 5 ( Q U O T E
0012120 ( M A C R O ( L A M B D A (
0012140 F I L E R D T B L ) ( E V A
0012160 L ( R E A D F I L E R D T
0012200 B L ) ) ) ) ) C O D E R D T B
0012220 L ) \r ( R P A Q Q C O D E I N
0012240 D I C A T O R D 1 ) \r ( P U T
0012260 P R O P S D 1 C O D E R E A
0012300 D E R ( D C O D E R D . D
0012320 C O D E S K I P ) ) \r ( R P A Q
0012340 Q \ O P C O D E S ( ( 2 4 8
0012360 F L O A T B L T 0 T - 4
0012400 N I L \ F L O A T B L T )
0012420 ( 2 4 9 F F T S T E P 0 T
0012440 - 1 N I L \ F F T S T E P
0012460 ) ( 2 5 0 u n u s e d N I
0012500 L \r N I L N I L 2 5 2 )
0012520 ( 0 - X - 0 ) ( 1 C A R
0012540 0 T 0 N I L \ C A R .
0012560 U F N ) ( 2 C D R 0 T
0012600 0 N I L \ C D R . U F N )
0012620 ( 3 L I S T P 0 T 0 N
0012640 I L L I S T P \r ) ( 4 N T
0012660 Y P X 0 T 0 N I L N T
0012700 Y P X ) ( 5 T Y P E P 1
0012720 T Y P E P 0 ) ( 6 D T E S
0012740 T 2 A T O M 0 N I L \
0012760 D T E S T F A I L ) ( 7 C D
0013000 D R 0 T 0 N I L \r C D
0013020 D R ) ( 8 F N 0 2 F N
0013040 1 ) ( 9 F N 1 2 F N 0
0013060 ) ( 1 0 F N 2 2 F N -
0013100 1 ) ( 1 1 F N 3 2 F N
0013120 - 2 ) ( 1 2 F N 4 2 F N
0013140 - 3 ) ( 1 3 F N X 3 F
0013160 N X \r F N X ) ( 1 4 A P P
0013200 L Y F N 0 T - 1 ) ( 1 5
0013220 C H E C K A P P L Y * 0 T
0013240 0 N I L \ C H E C K A P P
0013260 L Y * ) ( 1 6 R E T U R N
0013300 0 T 0 N I L \ H A R D R
0013320 E T U R N ) ( 1 7 \r B I N D
0013340 2 ) ( 1 8 U N B I N D 0
0013360 ) ( 1 9 D U N B I N D 0 )
0013400 ( 2 0 R P L P T R . N 1
0013420 T - 1 N I L \ R P L P T R
0013440 . U F N ) ( 2 1 G C R E F
0013460 1 T 0 N I L \ H T F I N
0013500 D \r ) ( 2 2 w a s . h t f i
0013520 n d 0 T ) ( 2 3 G V A R
0013540 _ 2 A T O M 0 N I L \
0013560 S E T G L O B A L V A L . U F N
0013600 ) ( 2 4 R P L A C A 0 T
0013620 - 1 N I L \ R P L A C A .
0013640 U F N ) ( 2 5 \r R P L A C D
0013660 0 T - 1 N I L \ R P L
0013700 A C D . U F N ) ( 2 6 C O N
0013720 S 0 T - 1 N I L \ C O
0013740 N S . U F N ) ( 2 7 G E T P
0013760 0 T - 1 N I L G E T P
0014000 R O P ) ( 2 8 F M E M B \r
0014020 0 T - 1 N I L F M E M B
0014040 ) ( 2 9 G E T H A S H 0
0014060 T - 1 N I L G E T H A S H
0014100 ) ( 3 0 P U T H A S H 0
0014120 T - 2 N I L P U T H A S H
0014140 ) ( 3 1 C R E A T E C E L L
0014160 0 T 0 \r N I L \ C R E
0014200 A T E C E L L ) ( 3 2 B I N
0014220 0 T 0 N I L \ B I N )
0014240 ( 3 3 B O U T 0 T - 1
0014260 N I L \ B O U T ) ( 3 4
0014300 B I T B L T 0 T - 1 N I
0014320 L B i t B l t S U B R ) \r (
0014340 3 5 L I S T 1 0 T 0 N
0014360 I L C O N S ) ( 3 6 D O C
0014400 O L L E C T 0 T - 1 N I
0014420 L D O C O L L E C T ) ( 3 7
0014440 E N D C O L L E C T 0 T
0014460 - 1 N I L E N D C O L L E C
0014500 T ) ( \r 3 8 R P L C O N S
0014520 0 T - 1 N I L \ R P L C
0014540 O N S ) ( 3 9 u n u s e d )
0014560 ( 4 0 E L T 0 T - 1
0014600 N I L E L T ) ( 4 1 N T H
0014620 C H C 0 T - 1 N I L N
0014640 T H C H A R C O D E ) \r ( 4 2
0014660 S E T A 0 T - 2 N I L
0014700 S E T A ) ( 4 3 R P L C H
0014720 A R C O D E 0 T - 2 N I
0014740 L R P L C H A R C O D E ) (
0014760 4 4 E V A L 0 T 0 N I
0015000 L \ E V A L ) ( 4 5 E V A
0015020 L V \r 0 T 0 N I L \ E
0015040 V A L V 1 ) ( 4 6 u n u s e
0015060 d ) ( 4 7 S T K S C A N 0
0015100 T 0 N I L \ S T K S C A
0015120 N ) ( 4 8 u n u s e d N I
0015140 L N I L N I L 5 8 ) ( 5
0015160 9 \r \ M U . D R A W L I N E
0015200 0 T - 8 N I L \ D R A W
0015220 L I N E . U F N ) ( 6 0 S T
0015240 O R E . N 1 T 0 ) ( 6 1
0015260 C O P Y . N 1 T 1 ) (
0015300 6 2 R A I D 0 T 0 N I
0015320 L R A I D ) ( \r 6 3 \ R E
0015340 T U R N 0 T 0 N I L \
0015360 R E T U R N ) ( 6 4 I V A R
0015400 0 I V A R 1 7 0 ) ( 7
0015420 1 I V A R X 1 I V A R 1
0015440 ) ( 7 2 P V A R 0 P V A
0015460 R 1 7 8 ) ( 7 9 \r P V A
0015500 R X 1 P V A R 1 ) ( 8 0
0015520 F V A R 0 F V A R 1 8
0015540 6 ) ( 8 7 F V A R X 1 F
0015560 V A R 1 ) ( 8 8 P V A R _
0015600 0 P V A R 0 9 4 ) ( 9
0015620 5 P V A R X _ 1 P V A R
0015640 0 ) \r ( 9 6 G V A R 2 A
0015660 T O M 1 ) ( 9 7 A R G 0
0015700 0 T 0 N I L \ A R G 0 )
0015720 ( 9 8 I V A R X _ 1 I V
0015740 A R 0 ) ( 9 9 F V A R X _
0015760 1 F V A R 0 ) ( 1 0 0
0016000 C O P Y 0 T 1 \r ) ( 1 0
0016020 1 M Y A R G C O U N T 0 T
0016040 1 N I L \ M Y A R G C O U
0016060 N T ) ( 1 0 2 M Y A L I N K
0016100 0 T 1 ) ( 1 0 3 A C O
0016120 N S T 2 A T O M 1 ) ( 1
0016140 0 4 ' N I L 0 T 1 ) (
0016160 \r 1 0 5 ' T 0 T 1 ) (
0016200 1 0 6 ' 0 0 T 1 ) ( 1
0016220 0 7 ' 1 0 T 1 ) ( 1 0
0016240 8 S I C 1 S I C 1 ) (
0016260 1 0 9 S N I C 1 S N I C
0016300 1 ) ( 1 1 0 S I C X 2 S
0016320 I C X 1 ) \r ( 1 1 1 G C O
0016340 N S T 3 G C O N S T 1 )
0016360 ( 1 1 2 A T O M N U M B E R
0016400 2 A T O M 1 ) ( 1 1 3 R
0016420 E A D F L A G S 0 T 0 N
0016440 I L \ R E A D F L A G S ) (
0016460 1 1 4 R E A D R P 0 T \r
0016500 0 N I L \ R E A D R P ) (
0016520 1 1 5 W R I T E M A P 0 T
0016540 - 2 N I L \ W R I T E M A
0016560 P ) ( 1 1 6 R E A D P R I N
0016600 T E R P O R T 0 T 1 N I
0016620 L N I L L ) ( 1 1 7 \r W R
0016640 I T E P R I N T E R P O R T 0
0016660 T 0 N I L N I L L ) (
0016700 1 1 8 P I L O T B I T B L T
0016720 0 T - 1 N I L \ P I L O
0016740 T B I T B L T ) ( 1 1 9 R C
0016760 L K 0 T 0 N I L \r \ R
0017000 C L K S U B R ) ( 1 2 0 M I
0017020 S C 1 1 T 0 N I L \ M
0017040 I S C 1 . U F N ) ( 1 2 1 M
0017060 I S C 2 1 T - 1 N I L
0017100 \ M I S C 2 . U F N ) ( 1 2 2
0017120 R E C L A I M C E L L 0 T
0017140 0 \r N I L \ G C R E C L A
0017160 I M C E L L ) ( 1 2 3 G C S
0017200 C A N 1 0 T 0 N I L \
0017220 G C S C A N 1 ) ( 1 2 4 G C
0017240 S C A N 2 0 T 0 N I L
0017260 \ G C S C A N 2 ) ( 1 2 5 S
0017300 U B R C A L L 2 ) \r ( 1 2 6
0017320 C O N T E X T S W I T C H 0
0017340 T 0 N I L \ C O N T E X
0017360 T S W I T C H ) ( 1 2 7 A U
0017400 D I O 0 T 0 N I L N I
0017420 L L ) ( 1 2 8 J U M P 0
0017440 J U M P J U M P 1 4 3 ) (
0017460 \r 1 4 4 F J U M P 0 J U M
0017500 P C J U M P 1 5 9 ) ( 1 6
0017520 0 T J U M P 0 J U M P C
0017540 J U M P 1 7 5 ) ( 1 7 6 J
0017560 U M P X 1 J U M P X J U M
0017600 P ) ( 1 7 7 J U M P X X 2
0017620 J U M P X X \r J U M P ) (
0017640 1 7 8 F J U M P X 1 J U M
0017660 P X C J U M P ) ( 1 7 9 T
0017700 J U M P X 1 J U M P X C J
0017720 U M P ) ( 1 8 0 N F J U M P
0017740 X 1 J U M P X N C J U M P
0017760 ) ( 1 8 1 N T J U M P X \r
0020000 1 J U M P X N C J U M P )
0020020 ( 1 8 2 j e q ) ( 1 8 3 j
0020040 l i s t p ) ( 1 8 4 P V A R
0020060 _ ^ 0 P V A R - 1 1 9 0
0020100 ) ( 1 9 1 P O P 0 T -
0020120 1 ) ( 1 9 2 w a s . g e t b
0020140 a s e ) \r ( 1 9 3 w a s . g
0020160 e t b a s e p t r ) ( 1 9 4
0020200 G E T B A S E B Y T E 0 T
0020220 - 1 N I L \ G E T B A S E B
0020240 Y T E ) ( 1 9 5 w a s . s c
0020260 a n b a s e ) ( 1 9 6 B L T
0020300 0 T - 2 N I L \r \ B L
0020320 T ) ( 1 9 7 w a s . p u t b
0020340 a s e ) ( 1 9 8 w a s . p u
0020360 t b a s e p t r ) ( 1 9 9 P
0020400 U T B A S E B Y T E 0 T -
0020420 2 N I L \ P U T B A S E B Y
0020440 T E ) ( 2 0 0 G E T B A S E
0020460 . N \r 1 T 0 ) ( 2 0 1
0020500 G E T B A S E P T R . N 1 T
0020520 0 ) ( 2 0 2 G E T B I T S
0020540 . N . F D 2 T 0 ) ( 2 0
0020560 3 u n u s e d ) ( 2 0 4 u
0020600 n u s e d ) ( 2 0 5 P U T B
0020620 A S E . N 1 T \r - 1 N I
0020640 L \ P U T B A S E . U F N )
0020660 ( 2 0 6 P U T B A S E P T R .
0020700 N 1 T - 1 N I L \ P U
0020720 T B A S E P T R . U F N ) ( 2
0020740 0 7 P U T B I T S . N . F D
0020760 2 T - 1 N I L \r \ P U T
0021000 B I T S . U F N ) ( 2 0 8 A
0021020 D D B A S E 0 T - 1 N I
0021040 L \ A D D B A S E ) ( 2 0 9
0021060 V A G 2 0 T - 1 N I L
0021100 \ V A G 2 ) ( 2 1 0 H I L
0021120 O C 0 T 0 ) ( 2 1 1 \r
0021140 L O L O C 0 T 0 ) ( 2 1
0021160 2 P L U S 2 0 T - 1 N
0021200 I L P L U S ) ( 2 1 3 D I
0021220 F F E R E N C E 0 T - 1
0021240 N I L D I F F E R E N C E )
0021260 ( 2 1 4 T I M E S 2 0 T
0021300 - 1 N I L \r T I M E S ) (
0021320 2 1 5 Q U O T I E N T 0 T
0021340 - 1 N I L Q U O T I E N T
0021360 ) ( 2 1 6 I P L U S 2 0
0021400 T - 1 N I L \ S L O W I P
0021420 L U S 2 ) ( 2 1 7 I D I F F
0021440 E R E N C E 0 T - 1 \r N
0021460 I L \ S L O W I D I F F E R E
0021500 N C E ) ( 2 1 8 I T I M E S
0021520 2 0 T - 1 N I L \ S L
0021540 O W I T I M E S 2 ) ( 2 1 9
0021560 I Q U O T I E N T 0 T - 1
0021600 N I L \ S L O W I Q U O T I
0021620 E N T ) \r ( 2 2 0 I R E M A
0021640 I N D E R 0 T - 1 N I L
0021660 I R E M A I N D E R ) ( 2 2
0021700 1 I P L U S . N 1 T 0
0021720 N I L \ S L O W I P L U S 2 )
0021740 ( 2 2 2 I D I F F E R E N C
0021760 E . N 1 T 0 \r N I L \
0022000 S L O W I D I F F E R E N C E )
0022020 ( 2 2 3 u n u s e d ) ( 2
0022040 2 4 L L S H 1 0 T 0 N
0022060 I L \ S L O W L L S H 1 ) (
0022100 2 2 5 L L S H 8 0 T 0
0022120 N I L \ S L O W L L S H 8 )
0022140 ( \r 2 2 6 L R S H 1 0 T
0022160 0 N I L \ S L O W L R S H 1
0022200 ) ( 2 2 7 L R S H 8 0 T
0022220 0 N I L \ S L O W L R S H
0022240 8 ) ( 2 2 8 L O G O R 2 0
0022260 T - 1 N I L \ S L O W L
0022300 O G O R 2 ) ( \r 2 2 9 L O G
0022320 A N D 2 0 T - 1 N I L
0022340 \ S L O W L O G A N D 2 ) ( 2
0022360 3 0 L O G X O R 2 0 T -
0022400 1 N I L \ S L O W L O G X O
0022420 R 2 ) ( 2 3 1 u n u s e d )
0022440 ( 2 3 2 F P L U S 2 0 \r
0022460 T - 1 N I L F P L U S 2 )
0022500 ( 2 3 3 F D I F F E R E N C
0022520 E 0 T - 1 N I L F D I
0022540 F F E R E N C E ) ( 2 3 4 F
0022560 T I M E S 2 0 T - 1 N I
0022600 L F T I M E S 2 ) ( 2 3 5
0022620 \r F Q U O T I E N T 0 T -
0022640 1 N I L F Q U O T I E N T )
0022660 ( 2 3 6 u n u s e d N I L
0022700 N I L N I L 2 3 9 ) ( 2
0022720 4 0 E Q 0 T - 1 ) ( 2
0022740 4 1 I G R E A T E R P 0 T
0022760 - 1 N I L \r \ S L O W I G
0023000 R E A T E R P ) ( 2 4 2 F G
0023020 R E A T E R P 0 T - 1 N
0023040 I L F G R E A T E R P ) ( 2
0023060 4 3 G R E A T E R P 0 T
0023100 - 1 N I L G R E A T E R P )
0023120 ( 2 4 4 u n u s e d ) \r (
0023140 2 4 5 M A K E N U M B E R 0
0023160 T - 1 N I L \ M A K E N
0023200 U M B E R ) ( 2 4 6 B O X I
0023220 P L U S 0 T - 1 N I L
0023240 \ B O X I P L U S ) ( 2 4 7
0023260 B O X I D I F F E R E N C E 0
0023300 T - 1 \r N I L \ B O X I
0023320 D I F F E R E N C E ) ( 2 4 8
0023340 u n u s e d N I L N I L
0023360 N I L 2 5 2 ) ( 2 5 3 S W
0023400 A P 0 T 0 ) ( 2 5 4 N
0023420 O P 0 T 0 ) ( 2 5 5 U
0023440 P C T R A C E 0 T \r 0 N
0023460 I L N I L L ) ) ) \r ( A D D T
0023500 O V A R \ O P C O D E A R R A
0023520 Y ) \r ( P U T P R O P S L L C
0023540 O D E C O P Y R I G H T ( "
0023560 X e r o x C o r p o r a t i o
0023600 n " 1 9 8 1 1 9 8 2 1 9 8
0023620 3 1 9 8 4 ) ) \r N I L \r
0023635