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