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