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