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