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