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