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