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