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