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