$ od -c -N 50000 [eris]<LispCore>SOURCES>ADDARITH.DCOM!24
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 2 4 -
0000120 O c t - 8 6 2 0 : 0 3 : 4 7 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > A D D A R I T
0000220 H . ; 2 5 ) \r " 1 2 - O c t -
0000240 8 6 2 3 : 0 4 : 1 5 " " C O
0000260 M P I L E - F I L E d " i n
0000300 " X e r o x L i s p 1 2 - O
0000320 c t - 8 6 . . . " d a t e d
0000340 " 1 2 - O c t - 8 6 2 3 : 4
0000360 1 : 0 2 " ) \r ( F I L E C R E A
0000400 T E D " 2 4 - O c t - 8 6 2
0000420 0 : 0 2 : 5 7 " { E R I S } <
0000440 L I S P C O R E > S O U R C E S
0000460 > A D D A R I T H . ; 2 5 3 2
0000500 6 8 9 c h a n g e s t o % :
0000520 ( M A C R O S \r \ G E T B A
0000540 S E N I B B L E \ P U T B A S
0000560 E N I B B L E \ G E T B A S E
0000600 B I T \ P U T B A S E B I T
0000620 L O A D B Y T E D E P O S I T
0000640 B Y T E ) ( V A R S A D D A
0000660 R I T H C O M S ) ( F N S \r
0000700 \ R T I M E S 2 \ R A T I O N
0000720 A L I Z E \ R P L U S 2 \ R
0000740 M I N U S C R E A T E R A T I
0000760 O N A L R A T I O N A L T O I
0001000 N T E G E R ) ( R E C O R D S
0001020 R A T I O N A L ) p r e v i
0001040 o u s \r d a t e % : " 7 -
0001060 O c t - 8 6 1 5 : 4 8 : 4 1 "
0001100 { E R I S } < L I S P C O R E
0001120 > S O U R C E S > A D D A R I T
0001140 H . ; 2 4 ) \r ( R P A Q Q A D
0001160 D A R I T H C O M S ( ( L O C
0001200 A L V A R S . T ) ( * ;
0001220 " O K " ) ( M A C R O S M
0001240 A S K . 1 ' S M A S K . 0 ' S
0001260 B I T T E S T B I T S E T
0001300 B I T C L E A R ) ( \r C O M S
0001320 ( O P T I M I Z E R S C L :
0001340 L O G N O T ) ( F N S C L :
0001360 L O G N O T ) ) ( C O M S (
0001400 * ; " B Y T E h a c k i n
0001420 g f u n c t i o n s " ) ( R
0001440 E C O R D S B Y T E S P E C )
0001460 ( \r M A C R O S L O A D B Y
0001500 T E D E P O S I T B Y T E )
0001520 ( * ; " N O T O K Y E T
0001540 " ) ( O P T I M I Z E R S B
0001560 Y T E D P B L D B ) ( M A
0001600 C R O S B Y T E S I Z E \r B
0001620 Y T E P O S I T I O N ) ( F N
0001640 S L D B D P B B Y T E )
0001660 ( F N S \ L D B E X P A N D E
0001700 R \ D P B E X P A N D E R ) )
0001720 ( C O M S ( O P T I M I Z E
0001740 R S I M O D ) ( F N S \r I
0001760 M O D L E S S P ) ( M A C R O
0002000 S I M O D P L U S I M O D D
0002020 I F F E R E N C E ) ) ( C O M
0002040 S ( F N S R O T ) ( M A C
0002060 R O S . R O T . ) ) ( C O M
0002100 S ( * ; ; \r " P r i m i t
0002120 i v e F u n c t i o n s f o
0002140 r e x t r a c t i n g f i e
0002160 l d s a s i n t e g e r s "
0002200 ) ( M A C R O S \ X L O A D
0002220 B Y T E W O R D ) ( F N S \
0002240 P U T B A S E B I T S ) ( * \r
0002260 ; ; " P r i m i t i v e f
0002300 u n c t i o n s , e s p e c i
0002320 a l l y n e e d e d f o r
0002340 C o m m o n L i s p a r r a y
0002360 p a c k a g e . " ) ( D E C
0002400 L A R E % : D O N T C O P Y
0002420 ( \r M A C R O S . H I H A L F
0002440 W O R D L O . . H I H A L F W
0002460 O R D H I . . L O H A L F W O
0002500 R D L O . . L O H A L F W O R
0002520 D H I . ) ( M A C R O S \ G
0002540 E T B A S E N I B B L E \r \ P
0002560 U T B A S E N I B B L E \ G E
0002600 T B A S E B I T \ P U T B A S
0002620 E B I T ) ) ) ( C O M S ( *
0002640 ; ; \r " B e g i n n i n g
0002660 o f r e w r i t e o f s o
0002700 m e L L A R I T H t h i n g
0002720 s , m o d u l a r l y u s i
0002740 n g t h e m a c r o s o f
0002760 t h i s f i l e " ) ( D E
0003000 C L A R E % : \r D O N T C O P
0003020 Y ( E X P O R T ( C O N S T
0003040 A N T S M A S K 0 W O R D 1 '
0003060 S M A S K 1 W O R D 0 ' S M
0003100 A S K W O R D 1 ' S M A S K H
0003120 A L F W O R D 1 ' S B I T S P
0003140 E R H A L F W O R D ) ( \r M A
0003160 C R O S E Q Z E R O P ) ( M
0003200 A C R O S \ M O V E T O B O X
0003220 . X U N B O X . . X L L S H
0003240 . . X L L S H 1 . . X L R S
0003260 H . . A D D . 2 W O R D . I N
0003300 T E G E R S . \r . S U B . 2 W
0003320 O R D . I N T E G E R S . . 3
0003340 2 B I T M U L . ) ( M A C R O
0003360 S . S U M S M A L L M O D .
0003400 . D I F F E R E N C E S M A L L
0003420 M O D . ) ) ( M A C R O S \r
0003440 . A D D . 2 W O R D . I N T E G
0003460 E R S . . S U B . 2 W O R D .
0003500 I N T E G E R S . . 3 2 B I T
0003520 M U L . ) ) ) ( P R O P F I
0003540 L E T Y P E A D D A R I T H )
0003560 ) ) \r ( P U T P R O P S M A S
0003600 K . 1 ' S M A C R O ( O P E
0003620 N L A M B D A ( P O S I T I O
0003640 N S I Z E ) ( L S H ( S U
0003660 B 1 ( L S H 1 S I Z E ) )
0003700 P O S I T I O N ) ) ) \r ( P U
0003720 T P R O P S M A S K . 0 ' S
0003740 M A C R O ( O P E N L A M B D
0003760 A ( P O S I T I O N S I Z E
0004000 ) ( C L : L O G N O T ( M A
0004020 S K . 1 ' S P O S I T I O N
0004040 S I Z E ) ) ) ) \r ( P U T P R O
0004060 P S B I T T E S T M A C R O
0004100 ( ( N M A S K ) ( N E Q
0004120 0 ( L O G A N D N M A S K
0004140 ) ) ) ) \r ( P U T P R O P S B
0004160 I T S E T M A C R O ( = .
0004200 L O G O R ) ) \r ( P U T P R O
0004220 P S B I T C L E A R M A C R
0004240 O ( ( X M A S K ) ( L O G
0004260 A N D X ( C L : L O G N O T
0004300 M A S K ) ) ) ) \r C L : : o p
0004320 t i m i z e - L O G N O T D 1
0004340 \r ( L ( 2 $ $ C T X 1 $
0004360 $ E N V 0 $ $ W H O L E ) )
0004400 \0 022 001 \0 \0 003 @ 002 001 021 001 \0 g \0 \0
0004420 m 377 H h 032 032 032 020 \0 N I L \r ( 8
0004440 L O G X O R ) \r ( ) \r ( P U T P
0004460 R O P ( Q U O T E C L : L O
0004500 G N O T ) ( Q U O T E C O M
0004520 P I L E R % : O P T I M I Z E R
0004540 - L I S T ) ( U N I O N ( G
0004560 E T P R O P ( Q U O T E C L
0004600 : L O G N O T ) ( Q U O T E
0004620 \r C O M P I L E R % : O P T I M
0004640 I Z E R - L I S T ) ) ( L I S
0004660 T ( Q U O T E C L : : o p t
0004700 i m i z e - L O G N O T ) ) ) )
0004720 \r C L : L O G N O T D 1 \r ( L
0004740 ( 0 C L : I N T E G E R ) )
0004760 \0 006 \0 \0 \0 001 @ m 377 346 020 \0 N I L
0005000 \r N I L \r ( ) \r ( T Y P E R E C
0005020 O R D B Y T E S P E C ( B Y
0005040 T E S P E C . S I Z E B Y T E
0005060 S P E C . P O S I T I O N ) ) \r
0005100 ( P U T P R O P S L O A D B Y
0005120 T E M A C R O ( ( N P O S
0005140 S I Z E ) ( L O G A N D (
0005160 R S H N P O S ) ( M A S K
0005200 . 1 ' S 0 S I Z E ) ) ) ) \r
0005220 ( P U T P R O P S D E P O S I
0005240 T B Y T E M A C R O ( O P E
0005260 N L A M B D A ( N P O S S
0005300 I Z E V A L ) ( L O G O R
0005320 ( B I T C L E A R N ( M A S
0005340 K . 1 ' S P O S S I Z E ) )
0005360 ( L S H \r ( L O G A N D V
0005400 A L ( M A S K . 1 ' S 0 S
0005420 I Z E ) ) P O S ) ) ) ) \r C L
0005440 : : o p t i m i z e - B Y T E
0005460 D 1 \r ( L ( 2 $ $ C T X 1
0005500 $ $ E N V 0 $ $ W H O L E
0005520 ) ) \0 _ 004 \0 \0 003 @ 002 021 1 003 H 001
0005540 i \n \0 \0 H 002 001 i \n \0 \0 272 271 J 3
0005560 262 ) I 3 262 $ g \0 \0 I J h 032 032 032
0005600 [ d 262 026 d i 360 257 3 020 221 h 200 i 227 g
0005620 \0 \0 K h 032 032 020 K 020 g \0 \0 g \0 \0 g
0005640 \0 \0 g \0 \0 I g \0 \0 g \0 \0 J h 032 032
0005660 032 032 032 032 032 032 020 \0 ( 1 7 L I S P
0005700 F O R M . S I M P L I F Y 1 0
0005720 L I S P F O R M . S I M P L I
0005740 F Y ) \r ( 8 2 _ 7 9 B Y T
0005760 E S P E C . P O S I T I O N 7
0006000 5 _ 7 2 B Y T E S P E C .
0006020 S I Z E 6 9 B Y T E S P E C
0006040 6 6 c r e a t e 5 6 Q U
0006060 O T E 3 2 B Y T E S P E C )
0006100 \r ( ) \r ( P U T P R O P ( Q U
0006120 O T E B Y T E ) ( Q U O T E
0006140 C O M P I L E R % : O P T I M
0006160 I Z E R - L I S T ) ( U N I O
0006200 N ( G E T P R O P ( Q U O T
0006220 E B Y T E ) ( Q U O T E \r
0006240 C O M P I L E R % : O P T I M I
0006260 Z E R - L I S T ) ) ( L I S T
0006300 ( Q U O T E C L : : o p t i
0006320 m i z e - B Y T E ) ) ) ) \r C L
0006340 : : o p t i m i z e - D P B D
0006360 1 \r ( L ( 2 $ $ C T X 1
0006400 $ $ E N V 0 $ $ W H O L E )
0006420 ) \0 \a \0 \0 \0 003 @ 002 \t \0 \0 020 \0 (
0006440 4 \ D P B E X P A N D E R ) \r
0006460 N I L \r ( ) \r ( P U T P R O P
0006500 ( Q U O T E D P B ) ( Q U O
0006520 T E C O M P I L E R % : O P T
0006540 I M I Z E R - L I S T ) ( U N
0006560 I O N ( G E T P R O P ( Q U
0006600 O T E D P B ) ( Q U O T E
0006620 \r C O M P I L E R % : O P T I M
0006640 I Z E R - L I S T ) ) ( L I S
0006660 T ( Q U O T E C L : : o p t
0006700 i m i z e - D P B ) ) ) ) \r C L
0006720 : : o p t i m i z e - L D B D
0006740 1 \r ( L ( 2 $ $ C T X 1
0006760 $ $ E N V 0 $ $ W H O L E )
0007000 ) \0 \a \0 \0 \0 003 @ 002 \t \0 \0 020 \0 (
0007020 4 \ L D B E X P A N D E R ) \r
0007040 N I L \r ( ) \r ( P U T P R O P
0007060 ( Q U O T E L D B ) ( Q U O
0007100 T E C O M P I L E R % : O P T
0007120 I M I Z E R - L I S T ) ( U N
0007140 I O N ( G E T P R O P ( Q U
0007160 O T E L D B ) ( Q U O T E
0007200 \r C O M P I L E R % : O P T I M
0007220 I Z E R - L I S T ) ) ( L I S
0007240 T ( Q U O T E C L : : o p t
0007260 i m i z e - L D B ) ) ) ) \r ( P
0007300 U T P R O P S B Y T E S I Z E
0007320 M A C R O ( ( B Y T E S P E
0007340 C ) ( f e t c h B Y T E S P
0007360 E C . S I Z E o f B Y T E S
0007400 P E C ) ) ) \r ( P U T P R O P S
0007420 B Y T E P O S I T I O N M A
0007440 C R O ( ( B Y T E S P E C )
0007460 ( f e t c h B Y T E S P E C .
0007500 P O S I T I O N o f B Y T E
0007520 S P E C ) ) ) \r L D B D 1 \r (
0007540 L ( 1 C L : I N T E G E R
0007560 0 B Y T E S P E C ) ) \0 027 001
0007600 \0 \0 002 A @ 002 002 001 \n \0 \0 @ 002 001 021 001
0007620 \0 k H 347 k 331 022 345 020 \0 ( 7 R S H
0007640 ) \r N I L \r ( ) \r D P B D 1 \r
0007660 ( L ( 2 C L : I N T E G E R
0007700 1 B Y T E S P E C 0 N E
0007720 W B Y T E ) ) \0 # 003 \0 \0 003 B A
0007740 002 002 001 A 002 001 021 003 002 H k J 347 k 331 I
0007760 347 m 377 346 345 @ k J 347 k 331 345 I 347 344 020
0010000 \0 N I L \r N I L \r ( ) \r B Y T E
0010020 D 1 \r ( L ( 1 P O S I T I
0010040 O N 0 S I Z E ) ) \0 \v \0 \0
0010060 \0 002 g \0 \0 @ A h 032 032 032 020 \0 N I L
0010100 \r ( 2 B Y T E S P E C ) \r ( )
0010120 \r \ L D B E X P A N D E R D 1
0010140 \r ( L ( 0 X ) ) 001 032 \b \0 \0
0010160 001 021 200 \a @ 001 i \n \0 \0 X @ 002 001 Y H
0010200 \t \0 \0 001 Z 265 K I i \n \0 \0 [ H d 003
0010220 242 261 \0 255 d 001 g \0 \0 360 242 261 \0 243 002 001
0010240 \ H 002 002 001 ] K \t \0 \0 001 3 263 027 K
0010260 L \n \0 \0 262 i K M \n \0 \0 262 b L M \n
0010300 \0 \0 262 [ g \0 \0 I M L h 032 032 032 032 020
0010320 003 001 g \0 \0 360 262 261 g \0 \0 I J 002 002 001
0010340 ^ d 262 026 d i 360 257 3 020 221 h 200 i 227 g
0010360 \0 \0 N h 032 032 200 N J 002 001 _ 016 d 262 031
0010400 d i 360 263 024 3 020 221 h 200 i 230 g \0 \0 O
0010420 016 h 032 032 201 O 016 h 032 032 032 032 020 g \0 \0
0010440 o \0 \0 \0 o \0 \0 \0 g \0 \0 I o \0 \0 \0
0010460 032 032 h 032 032 032 032 L M h 032 032 032 020 004 l
0010500 004 360 262 ) K \t \0 \0 001 3 246 H K \n \0
0010520 \0 262 032 g \0 \0 I g \0 \0 H h 032 032 g \0
0010540 \0 H h 032 032 h 032 032 032 032 020 g \0 \0 o \0
0010560 \0 \0 o \0 \0 \0 g \0 \0 I o \0 \0 \0 032 032
0010600 h 032 032 032 032 H h 032 032 020 \0 ( 2 2 3
0010620 A R G S . C O M M U T A B L E P
0010640 2 1 4 E V A L U A B L E . C
0010660 O N S T A N T P 8 0 A R G S
0010700 . C O M M U T A B L E P 7 3
0010720 A R G S . C O M M U T A B L E P
0010740 6 6 A R G S . C O M M U T A
0010760 B L E P 5 6 E V A L U A B L
0011000 E . C O N S T A N T P 2 6 L
0011020 I S P F O R M . S I M P L I F Y
0011040 1 7 E V A L U A B L E . C O
0011060 N S T A N T P 8 L I S P F O
0011100 R M . S I M P L I F Y ) \r ( 2 6
0011120 3 L O A D B Y T E 2 5 2 L
0011140 A M B D A 2 3 9 B Y T E S I
0011160 Z E 2 3 2 B Y T E P O S I T
0011200 I O N 2 2 8 L O A D B Y T E
0011220 1 8 5 L O A D B Y T E 1 7
0011240 4 L A M B D A 1 5 7 Q U O
0011260 T E 1 2 8 Q U O T E 1 0 5
0011300 L O A D B Y T E 9 9 B Y T
0011320 E S P E C 8 5 L O A D B Y T
0011340 E 3 9 B Y T E ) \r ( 2 6 8
0011360 ( ( B Y T E P O S I T I O N
0011400 \ P o s i t i o n S i z e ) (
0011420 B Y T E S I Z E \ P o s i t i
0011440 o n S i z e ) ) 2 6 0 ( D E
0011460 C L A R E ( L O C A L V A R S
0011500 \ P o s i t i o n S i z e ) )
0011520 2 5 6 \r ( \ P o s i t i o n
0011540 S i z e ) 1 9 0 ( \ B y t e
0011560 p o s i t i o n \ B y t e s i
0011600 z e ) 1 8 2 ( D E C L A R E
0011620 ( L O C A L V A R S \ B y t
0011640 e s i z e \ B y t e p o s i t
0011660 i o n ) ) 1 7 8 ( \ B y t e
0011700 s i z e \ B y t e p o s i t i
0011720 o n ) ) \r \ D P B E X P A N D E
0011740 R D 1 \r ( L ( 0 X ) ) 001
0011760 242 \r \0 \0 001 @ 001 @ 002 001 i \n \0 \0 @ 002
0012000 002 001 i \n \0 \0 021 243 \f I d 003 262 034 d 001
0012020 g \0 \0 360 262 024 d 002 001 o \0 \0 \0 364 230 002
0012040 002 001 _ 024 003 265 036 I \t \0 \0 001 _ 024 265 B
0012060 H i \n \0 \0 ^ d J \n \0 \0 242 261 \0 206 h
0012100 261 \0 203 001 g \0 \0 360 262 337 O 024 002 _ 024 001
0012120 O 024 002 _ 024 277 273 O 024 001 O 024 002 _ 024 277
0012140 274 K \t \0 \0 264 006 L \t \0 \0 _ 022 277 260 302
0012160 003 001 g \0 \0 360 262 272 O 024 002 001 _ 026 d 262
0012200 031 d i 360 263 024 3 020 221 h 200 i 230 g \0 \0
0012220 O 026 h 032 032 201 O 026 273 O 024 002 002 001 _ 030
0012240 d 262 031 d i 360 263 024 3 020 221 h 200 i 230 g
0012260 \0 \0 O 030 h 032 032 201 O 030 274 i _ 022 277 261
0012300 377 q i 265 023 O 022 221 h 200 i 264 \v N I \n
0012320 \0 \0 221 h 200 i ] d 223 g \0 \0 200 H _ 016
0012340 K 262 M L 262 J O 022 254 K L \n \0 \0 262 027
0012360 J I \n \0 \0 236 g \0 \0 J L K O 016 h 032
0012400 032 032 032 260 s g \0 \0 o \0 \0 \0 o \0 \0 \0
0012420 g \0 \0 J g \0 \0 g \0 \0 O 016 h 032 032 032
0012440 032 032 h 032 032 032 032 K L h 032 032 260 J I 004
0012460 l 004 360 262 $ J I \n \0 \0 262 035 g \0 \0 J
0012500 g \0 \0 I h 032 032 g \0 \0 I h 032 032 O 016
0012520 h 032 032 032 032 260 ! i 275 g \0 \0 o \0 \0 \0
0012540 o \0 \0 \0 g \0 \0 J o \0 \0 \0 032 032 h 032
0012560 032 032 032 I h 032 032 _ 020 M 262 031 g \0 \0 o
0012600 \0 \0 \0 o \0 \0 \0 O 020 h 032 032 032 032 H h
0012620 032 032 020 O 020 020 \0 ( 3 2 4 A R G S
0012640 . C O M M U T A B L E P 2 5 5
0012660 A R G S . C O M M U T A B L E
0012700 P 2 4 8 A R G S . C O M M U
0012720 T A B L E P 2 2 0 A R G S .
0012740 C O M M U T A B L E P 1 1 7
0012760 E V A L U A B L E . C O N S T A
0013000 N T P 1 1 1 E V A L U A B L
0013020 E . C O N S T A N T P 6 9 A
0013040 R G S . C O M M U T A B L E P
0013060 6 3 L I S P F O R M . S I M P
0013100 L I F Y 5 3 E V A L U A B L
0013120 E . C O N S T A N T P 1 6 L
0013140 I S P F O R M . S I M P L I F Y
0013160 8 L I S P F O R M . S I M P
0013200 L I F Y ) \r ( 3 9 3 L A M B D
0013220 A 3 6 9 D E P O S I T B Y T
0013240 E 3 5 8 L A M B D A 3 4 0
0013260 B Y T E S I Z E 3 3 3 B Y
0013300 T E P O S I T I O N 3 2 9 D
0013320 E P O S I T B Y T E 2 9 2 \
0013340 B y t e s i z e 2 8 9 \ B y
0013360 t e p o s i t i o n 2 8 5 D
0013400 E P O S I T B Y T E 2 7 4 L
0013420 A M B D A 2 5 9 D E P O S I
0013440 T B Y T E 2 3 0 \ N e w B y
0013460 t e 1 8 8 Q U O T E 1 5 4
0013500 Q U O T E 1 2 7 B Y T E S
0013520 P E C 8 1 L I S T 2 9 C
0013540 O N S ) \r ( 4 0 1 ( D E C L
0013560 A R E ( L O C A L V A R S \
0013600 N e w B y t e ) ) 3 9 7 ( \
0013620 N e w B y t e ) 3 7 4 ( ( B
0013640 Y T E P O S I T I O N \ B y t
0013660 e S p e c ) ( B Y T E S I Z E
0013700 \ B y t e S p e c ) \ N e w
0013720 B y t e ) \r 3 6 6 ( D E C L
0013740 A R E ( L O C A L V A R S \
0013760 B y t e S p e c ) ) 3 6 2 (
0014000 \ B y t e S p e c ) 2 8 2 (
0014020 D E C L A R E ( L O C A L V A
0014040 R S \ B y t e s i z e \ B y
0014060 t e p o s i t i o n ) ) \r 2 7
0014100 8 ( \ B y t e s i z e \ B y
0014120 t e p o s i t i o n ) 3 9 (
0014140 Q U O T E B Y T E S P E C ) )
0014160 \r o p t i m i z e - I M O D D
0014200 1 \r ( L ( 2 $ $ C T X 1
0014220 $ $ E N V 0 $ $ W H O L E )
0014240 ) \0 + 002 \0 \0 003 @ 002 021 021 001 H 002 001
0014260 \t \0 \0 265 006 g \0 \0 020 001 Y d \t \0 \0 221
0014300 h 200 i 263 362 g \0 \0 H 001 I k 331 h 032 032
0014320 032 020 \0 ( 2 2 P O W E R O F T W
0014340 O P 1 0 C O N S T A N T E X
0014360 P R E S S I O N P ) \r ( 3 1 L
0014400 O G A N D 1 5 I G N O R E M
0014420 A C R O ) \r ( ) \r ( P U T P R O
0014440 P ( Q U O T E I M O D ) (
0014460 Q U O T E C O M P I L E R % :
0014500 O P T I M I Z E R - L I S T )
0014520 ( U N I O N ( G E T P R O P
0014540 ( Q U O T E I M O D ) ( Q U
0014560 O T E \r C O M P I L E R % : O
0014600 P T I M I Z E R - L I S T ) )
0014620 ( L I S T ( Q U O T E o p t
0014640 i m i z e - I M O D ) ) ) ) \r I
0014660 M O D L E S S P D 1 \r ( L (
0014700 2 M O D U L U S 1 Y 0
0014720 X ) ) \0 017 \0 \0 \0 003 A @ 331 B \n \0
0014740 \0 B k 330 342 375 361 020 \0 ( 6 I M O D
0014760 ) \r N I L \r ( ) \r ( P U T P R O
0015000 P S I M O D P L U S M A C R
0015020 O ( ( X Y M O D U L U S )
0015040 ( I M O D ( I P L U S X
0015060 Y ) M O D U L U S ) ) ) \r ( P
0015100 U T P R O P S I M O D D I F F
0015120 E R E N C E M A C R O ( ( X
0015140 Y M O D U L U S ) ( I M O
0015160 D ( I D I F F E R E N C E X
0015200 Y ) M O D U L U S ) ) ) \r R
0015220 O T D 1 \r ( L ( 2 F I E L
0015240 D S I Z E 1 N 0 X ) )
0015260 \0 . 002 \0 \0 003 A B \n \0 \0 021 021 001 B H
0015300 331 271 @ I \n \0 \0 k H 347 k 331 345 k I 347
0015320 k 331 H 347 m 377 346 345 @ k I 347 k 331 345 H
0015340 347 344 020 \0 ( 1 6 R S H 4 I M
0015360 O D ) \r N I L \r ( ) \r ( P U T P
0015400 R O P S . R O T . M A C R O
0015420 ( ( X F O R M N F I E L D
0015440 S I Z E ) ( ( O P E N L A M B
0015460 D A ( X ) ( D E P O S I T B
0015500 Y T E ( L O A D B Y T E X
0015520 ( I D I F F E R E N C E \r F I
0015540 E L D S I Z E N ) N ) N
0015560 ( I D I F F E R E N C E F I E
0015600 L D S I Z E N ) X ) ) X F
0015620 O R M ) ) ) \r ( P U T P R O P S
0015640 \ X L O A D B Y T E W O R D
0015660 D M A C R O ( ( N P O S S
0015700 I Z E ) ( * N i s c o n
0015720 s t r a i n e d t o b e a
0015740 S M A L L P ) ( L O G A N D
0015760 ( \ X L R S H W O R D \r N
0016000 P O S ) ( M A S K . 1 ' S 0
0016020 ( I M I N B I T S P E R W O
0016040 R D S I Z E ) ) ) ) ) \r \ P U
0016060 T B A S E B I T S D 1 \r ( L
0016100 ( 3 V A L 2 S I Z E 1
0016120 P O S I T I O N 0 A D D R )
0016140 ) \0 o 002 \0 \0 004 A l 020 363 262 025 @ A
0016160 342 342 342 342 320 A l 017 345 b 002 277 b \0 277 260
0016200 351 B l 020 A 325 363 262 $ @ A l 020 A 325 C
0016220 B l 020 A 325 325 b 004 \n \0 \0 \f \0 \0 @ k
0016240 320 j b 002 277 b \0 277 277 260 277 @ d 310 \0 l
0016260 017 A 325 021 002 001 H k B 347 k 331 I 347 m 377
0016300 346 345 C k B 347 k 331 345 I 347 344 022 021 002 001
0016320 H I 315 \0 I 020 \0 ( 5 3 \ P U T B
0016340 A S E B I T S 5 0 R S H ) \r
0016360 N I L \r ( ) \r ( P U T P R O P S
0016400 A D D A R I T H F I L E T Y
0016420 P E C L : C O M P I L E - F I
0016440 L E ) \r ( P U T P R O P S A D
0016460 D A R I T H C O P Y R I G H T
0016500 ( " X e r o x C o r p o r a
0016520 t i o n " 1 9 8 2 1 9 8 3
0016540 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0016560 \r N I L \r
0016565