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