$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>ADDARITH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 0
0000020 - J a n - 8 5 1 5 : 5 3 : 3 7
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 . ; 9 ) \r " 6 - J a n -
0000140 8 5 0 5 : 1 1 : 1 0 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 \ R T I M E S 2 C R E A T E
0000220 R A T I O N A L i n " I N T
0000240 E R L I S P - D 6 - J a n -
0000260 8 5 . . . " d a t e d \r "
0000300 6 - J a n - 8 5 0 5 : 2 8 :
0000320 4 6 " ) \r ( F I L E C R E A T E
0000340 D " 1 0 - J a n - 8 5 1 5 :
0000360 5 1 : 0 0 " { E R I S } < L I
0000400 S P C O R E > S O U R C E S > A
0000420 D D A R I T H . ; 9 6 7 3 0 7
0000440 c h a n g e s t o : ( F N
0000460 S \ R T I M E S 2 \r C R E A
0000500 T E R A T I O N A L ) p r e v
0000520 i o u s d a t e : " 6 - J
0000540 a n - 8 5 0 1 : 0 9 : 1 7 "
0000560 { E R I S } < L I S P C O R E >
0000600 S O U R C E S > A D D A R I T H
0000620 . ; 8 ) \r \ R T I M E S 2 D 1
0000640 \r ( L ( 1 R 2 0 R 1 ) )
0000660 \0 220 \0 \0 \0 002 @ d d 005 001 241 005 002 262
0000700 0 277 A d d 005 001 241 005 002 224 277 @ A 332 020
0000720 005 003 226 A \t \0 \0 b 002 277 @ d A 002 331 j
0000740 360 223 277 A 001 020 A 001 332 A 002 \n \0 \0 020 005
0000760 003 226 @ \t \0 \0 b \0 277 A d 005 001 241 005 002
0001000 265 025 @ d 001 A 002 331 j 360 262 037 277 A 001 @
0001020 002 \n \0 \0 020 d @ 002 331 j 360 223 277 @ 001 020
0001040 @ 001 326 @ 002 \n \0 \0 020 002 A 001 331 j 360 227
0001060 @ 001 A 002 \n \0 \0 020 @ 001 A 001 332 @ 002 A
0001100 002 332 \n \0 \0 020 \0 ( 2 1 5 Q C R E
0001120 A T E R A T I O N A L 1 7 7 Q
0001140 C R E A T E R A T I O N A L
0001160 1 6 0 Q C R E A T E R A T I O
0001200 N A L 1 3 4 Q C R E A T E R
0001220 A T I O N A L 7 6 Q M A K E
0001240 R A T I O N A L 6 6 Q C R E
0001260 A T E R A T I O N A L 3 7 Q
0001300 M A K E R A T I O N A L ) \r N I
0001320 L \r ( ) \r \ R P L U S 2 D 1 \r
0001340 ( L ( 1 R 2 0 R 1 ) )
0001360 \0 v \0 \0 \0 002 @ d d 005 001 241 005 002 262 (
0001400 277 A d d 005 001 241 005 002 224 277 @ A 330 020 005
0001420 003 226 A \t \0 \0 b 002 200 A 001 @ A 002 332 330
0001440 A 002 \n \0 \0 020 005 003 226 @ \t \0 \0 b \0 277
0001460 A d 005 001 241 005 002 234 @ 001 A @ 002 332 330 @
0001500 002 \n \0 \0 020 @ d 002 A 002 331 j 360 231 001 A
0001520 001 330 A 002 \n \0 \0 020 002 A 001 332 @ 001 A 002
0001540 332 330 @ 002 A 002 332 \n \0 \0 020 \0 ( 1 6 3
0001560 Q C R E A T E R A T I O N A L
0001600 1 4 0 Q C R E A T E R A T I
0001620 O N A L 1 1 5 Q C R E A T E
0001640 R A T I O N A L 6 6 Q M A K
0001660 E R A T I O N A L 5 6 Q C R
0001700 E A T E R A T I O N A L 3 7 Q
0001720 M A K E R A T I O N A L ) \r N
0001740 I L \r ( ) \r \ R M I N U S D 1
0001760 \r ( L ( 0 X ) ) \0 ' \0 \0 \0
0002000 001 @ d 003 262 037 d 001 d 005 001 241 005 002 262 025
0002020 d 002 d 005 001 241 005 002 231 001 \t \0 \0 @ 001 \n
0002040 \0 \0 020 \t \0 \0 020 \0 ( 4 4 Q M I N
0002060 U S 4 0 Q C R E A T E R A T
0002100 I O N A L 3 3 Q M I N U S )
0002120 \r N I L \r ( ) \r C R E A T E R A
0002140 T I O N A L D 1 \r ( L ( 1
0002160 D E N O M I N A T O R 0 N U
0002200 M E R A T O R ) ) \0 8 004 \0 \0 002
0002220 @ A 021 " 003 j d H 361 233 H 331 270 j I 361
0002240 233 j I 331 271 210 I 361 225 j I 331 271 i 273 H
0002260 I \n \0 \0 Z H J 333 X I J 333 Y K 223 j
0002300 H 331 200 H I 032 020 \0 ( 4 3 Q G C D
0002320 ) \r N I L \r ( ) \r R A T I O N A
0002340 L T O I N T E G E R D 1 \r ( L
0002360 ( 0 R A T ) ) \0 \n \0 \0 \0 001
0002400 @ 001 @ 002 353 \t \0 \0 020 \0 ( 7 F I X
0002420 R ) \r N I L \r ( ) \r \ V e c t o
0002440 r L E N G T H D 1 \r ( L ( 0
0002460 X ) ) \0 006 \0 \0 \0 001 @ \t \0 \0 020
0002500 \0 ( 3 \ # B L O C K D A T A C
0002520 E L L S ) \r N I L \r ( ) \r \ M a
0002540 k e V e c t o r D 1 \r ( L (
0002560 0 N ) ) \0 \a \0 \0 \0 001 @ k \n \0
0002600 \0 020 \0 ( 4 \ A L L O C B L O C
0002620 K ) \r N I L \r ( ) \r \ V e c t o
0002640 r R E F D 1 \r ( L ( 1 I
0002660 0 X ) ) \0 024 \0 \0 \0 002 @ d \t \0
0002700 \0 246 277 @ \t \0 \0 277 @ A 340 320 311 \0 020 \0
0002720 ( 1 2 Q \ I L L E G A L . A R
0002740 G 4 \ B L O C K D A T A P )
0002760 \r N I L \r ( ) \r \ V e c t o r S
0003000 E T D 1 \r ( L ( 2 V A L
0003020 1 I 0 X ) ) \0 026 \0 \0 \0 003
0003040 @ d \t \0 \0 246 277 @ \t \0 \0 277 @ A 340 320
0003060 B 024 \0 B 020 \0 ( 1 2 Q \ I L L E
0003100 G A L . A R G 4 \ B L O C K
0003120 D A T A P ) \r N I L \r ( ) \r \ S
0003140 E T U P . M A S K A R R A Y S
0003160 D 1 \r N I L \0 212 006 \0 \0 \0 l ! k
0003200 \n \0 \0 027 \0 \0 d m 377 024 @ l 037 j 021 002
0003220 001 I H 363 263 030 ` \0 \0 I 340 320 k I \n \0
0003240 \0 k 331 024 \0 277 I k 324 Y 260 350 023 l ! k
0003260 \n \0 \0 027 \0 \0 d ` \0 \0 024 \0 l k 021
0003300 B 005 I H 363 221 h 020 l I 331 [ k 330 k
0003320 \n \0 \0 272 K j 275 274 M L 363 263 033 J M 340
0003340 320 ` \0 \0 M 340 320 311 \0 I \n \0 \0 024 \0 277
0003360 M k 324 ] 260 345 ` \0 \0 I 340 320 J 024 \0 277
0003400 I k 324 Y 260 277 \0 ( 1 5 7 Q L L S
0003420 H 1 2 5 Q \ A L L O C B L O
0003440 C K 6 5 Q \ A L L O C B L O
0003460 C K 4 3 Q L L S H 5 \ A
0003500 L L O C B L O C K ) \r ( 1 7 3 Q
0003520 \ M A S K O U T . M A R G I N
0003540 1 4 6 Q \ R J 1 M 7 4 Q
0003560 \ R J 1 M 7 0 Q \ M A S K O
0003600 U T . M A R G I N 3 3 Q \ R
0003620 J 1 M 1 0 Q \ R J 1 M ) \r (
0003640 ) \r \ M A S K . 1 ' S . E X P A
0003660 N D E R D 1 \r ( L ( 0 X )
0003700 ) \0 224 002 \0 \0 001 @ 001 @ 002 001 021 002 001
0003720 H \t \0 \0 001 d 005 001 241 005 002 265 024 g \0 \0
0003740 d g \0 \0 H h 032 032 032 I h 032 032 032 020 270
0003760 I \t \0 \0 001 d 005 001 241 005 002 265 023 H j 360
0004000 262 335 g \0 \0 g \0 \0 I h 032 032 032 020 271 H
0004020 d 005 001 262 3 277 j H 361 263 , H d l 361
0004040 263 & 277 I d 005 001 262 * 277 j I 361 263 # H
0004060 I 330 l 361 263 033 ` \0 \0 H 340 320 311 \0 I
0004100 340 320 311 \0 020 H o \0 \0 \0 \n \0 \0 X 260 302
0004120 I o \0 \0 \0 \n \0 \0 Y 260 313 \0 ( 2 1 7
0004140 Q E R R O R 2 0 4 Q E R R
0004160 O R 5 3 Q E V A L U A B L E
0004200 . C O N S T A N T P 1 3 Q E
0004220 V A L U A B L E . C O N S T A N
0004240 T P ) \r ( 1 6 1 Q \ M A S K O
0004260 U T . M A R G I N 7 7 Q \ R
0004300 J 1 M 7 4 Q \ V e c t o r R
0004320 E F 3 3 Q \ M A S K O U T .
0004340 M A R G I N 2 7 Q \ V e c t
0004360 o r R E F ) \r ( 2 1 4 Q " \r
0004400 i s n o t a s u i t a b
0004420 l e v a l u e f o r t h e
0004440 v a r i a b l e : S I Z E
0004460 " 2 0 1 Q " \r i s n o t
0004500 a s u i t a b l e v a l u
0004520 e f o r t h e v a r i a b
0004540 l e : P O S I T I O N " ) \r
0004560 M A S K . 1 ' S D 1 \r ( L (
0004600 1 S I Z E 0 P O S I T I O
0004620 N ) ) \0 O \0 \0 \0 002 @ d 005 001 262 3
0004640 277 j @ 361 263 , @ d l 361 263 & 277 A d
0004660 005 001 262 + 277 j A 361 263 $ @ A 330 l 361
0004700 263 034 ` \0 \0 @ 340 320 311 \0 A 340 320 311 \0 020
0004720 @ o \0 \0 \0 \n \0 \0 b \0 260 301 A o \0 \0
0004740 \0 \n \0 \0 b 002 260 311 \0 ( 1 1 1 Q E
0004760 R R O R 7 5 Q E R R O R ) \r
0005000 ( 5 2 Q \ M A S K O U T . M A
0005020 R G I N ) \r ( 1 0 6 Q " \r
0005040 i s n o t a s u i t a b l
0005060 e v a l u e f o r t h e
0005100 v a r i a b l e : S I Z E "
0005120 7 2 Q " \r i s n o t a
0005140 s u i t a b l e v a l u e
0005160 f o r t h e v a r i a b l e
0005200 : P O S I T I O N " ) \r M A
0005220 S K . 0 ' S D 1 \r ( L ( 1
0005240 S I Z E 0 P O S I T I O N )
0005260 ) \0 016 \0 \0 \0 002 @ A l 002 g \0 \0 017
0005300 016 m 377 346 020 \0 N I L \r ( 6 M A S
0005320 K . 1 ' S ) \r ( ) \r B I T T E S
0005340 T D 1 \r ( L ( 1 M A S K
0005360 0 N ) ) \0 \t \0 \0 \0 002 @ A 345 j
0005400 360 h 360 020 \0 N I L \r N I L \r ( ) \r
0005420 B I T S E T D 1 \r ( L ( 1
0005440 M A S K 0 N ) ) \0 005 \0 \0 \0
0005460 002 @ A 344 020 \0 N I L \r N I L \r ( )
0005500 \r B I T C L E A R D 1 \r ( L
0005520 ( 1 M A S K 0 N ) ) \0 \b
0005540 \0 \0 \0 002 @ A m 377 346 345 020 \0 N I L \r
0005560 N I L \r ( ) \r L O G N O T D 1
0005600 \r ( L ( 0 N ) ) \0 006 \0 \0 \0
0005620 001 @ m 377 346 020 \0 N I L \r N I L \r (
0005640 ) \r \ M A S K . 1 ' S . E X P A
0005660 N D E R D 1 \r ( L ( 0 X )
0005700 ) \0 224 002 \0 \0 001 @ 001 @ 002 001 021 002 001
0005720 H \t \0 \0 001 d 005 001 241 005 002 265 024 g \0 \0
0005740 d g \0 \0 H h 032 032 032 I h 032 032 032 020 270
0005760 I \t \0 \0 001 d 005 001 241 005 002 265 023 H j 360
0006000 262 335 g \0 \0 g \0 \0 I h 032 032 032 020 271 H
0006020 d 005 001 262 3 277 j H 361 263 , H d l 361
0006040 263 & 277 I d 005 001 262 * 277 j I 361 263 # H
0006060 I 330 l 361 263 033 ` \0 \0 H 340 320 311 \0 I
0006100 340 320 311 \0 020 H o \0 \0 \0 \n \0 \0 X 260 302
0006120 I o \0 \0 \0 \n \0 \0 Y 260 313 \0 ( 2 1 7
0006140 Q E R R O R 2 0 4 Q E R R
0006160 O R 5 3 Q E V A L U A B L E
0006200 . C O N S T A N T P 1 3 Q E
0006220 V A L U A B L E . C O N S T A N
0006240 T P ) \r ( 1 6 1 Q \ M A S K O
0006260 U T . M A R G I N 7 7 Q \ R
0006300 J 1 M 7 4 Q \ V e c t o r R
0006320 E F 3 3 Q \ M A S K O U T .
0006340 M A R G I N 2 7 Q \ V e c t
0006360 o r R E F ) \r ( 2 1 4 Q " \r
0006400 i s n o t a s u i t a b
0006420 l e v a l u e f o r t h e
0006440 v a r i a b l e : S I Z E
0006460 " 2 0 1 Q " \r i s n o t
0006500 a s u i t a b l e v a l u
0006520 e f o r t h e v a r i a b
0006540 l e : P O S I T I O N " ) \r
0006560 L O A D B Y T E D 1 \r ( L (
0006600 2 S I Z E 1 P O S 0 N
0006620 ) ) \0 g \0 \0 \0 003 A d 005 001 262 - 277
0006640 j A 361 263 & B d 005 001 262 - 277 j B 361 263
0006660 & @ 004 d k 360 262 3 @ A \n \0 \0 ` \0 \0
0006700 l 020 B 361 262 035 B 260 034 A o \0 \0 \0 \n \0
0006720 \0 b 002 260 307 B o \0 \0 \0 \n \0 \0 b 004 260
0006740 307 l 020 340 320 311 \0 345 020 l 002 360 226 @ A B
0006760 \v \0 \0 020 @ l 033 i \v \0 \0 b \0 260 265 \0
0007000 ( 1 4 1 Q \ L I S P E R R O R
0007020 1 3 1 Q \ X L O A D B Y T E
0007040 1 0 3 Q E R R O R 6 7 Q
0007060 E R R O R 4 3 Q \ X L R S H
0007100 W O R D ) \r ( 4 6 Q \ R J 1 M
0007120 ) \r ( 1 0 0 Q " \r i s n
0007140 o t a s u i t a b l e v a
0007160 l u e f o r t h e v a r i
0007200 a b l e : S I Z E " 6 4 Q
0007220 " \r i s n o t a s u i
0007240 t a b l e v a l u e f o r
0007260 t h e v a r i a b l e : P
0007300 O S " ) \r D E P O S I T B Y T E
0007320 D 1 \r ( L ( 3 V A L 2
0007340 S I Z E 1 P O S 0 N ) )
0007360 \0 y 001 \0 \0 004 A d 005 001 262 B 277 j A
0007400 361 263 ; A d l 361 263 5 277 B d 005 001 262
0007420 : 277 j B 361 263 3 A B 330 l 361 263 + 021
0007440 020 \0 @ d 005 001 262 / 277 A B 330 X l 020 361
0007460 263 $ @ A B C H \r 005 \0 \0 020 A o \0 \0
0007500 \0 \n \0 \0 b 002 260 262 B o \0 \0 \0 \n \0 \0
0007520 b 004 260 272 @ d 005 001 241 005 002 227 @ A B C
0007540 \f \0 \0 020 @ l 033 i \v \0 \0 b \0 260 266 \0
0007560 ( 1 6 3 Q \ L I S P E R R O R
0007600 1 5 3 Q \ X D E P O S I T B
0007620 Y T E 1 3 0 Q E R R O R 1
0007640 1 4 Q E R R O R 1 0 3 Q \
0007660 X D E P O S I T B Y T E W O R D
0007700 ) \r N I L \r ( 1 2 5 Q " \r
0007720 i s n o t a s u i t a b l
0007740 e v a l u e f o r t h e
0007760 v a r i a b l e : S I Z E "
0010000 1 1 1 Q " \r i s n o t
0010020 a s u i t a b l e v a l u e
0010040 f o r t h e v a r i a b l
0010060 e : P O S " ) \r \ L D B E X
0010100 P A N D E R D 1 \r ( L ( 0
0010120 X ) ) 001 H \b \0 \0 001 @ 001 i \n \0 \0
0010140 @ 002 001 021 b \a H \t \0 \0 001 Z 265 003 202 261
0010160 \0 235 I i \n \0 \0 [ H d 003 262 033 d 001 g
0010200 \0 \0 360 262 023 d 002 001 o \0 \0 \0 364 227 002 002
0010220 001 Z 003 265 8 H 004 l 004 360 242 261 \0 347 K \t
0010240 \0 \0 001 d 005 001 241 005 002 250 H K \n \0 \0 242
0010260 261 \0 322 g \0 \0 I g \0 \0 H h 032 032 g \0
0010300 \0 H h 032 032 h 032 032 032 032 020 001 g \0 \0 360
0010320 262 305 J 002 Z d 001 J 002 272 \ J 001 ] K \t
0010340 \0 \0 001 d 005 001 241 005 002 263 027 K L \n \0 \0
0010360 262 q K M \n \0 \0 262 j L M \n \0 \0 262 c
0010400 g \0 \0 I M L h 032 032 032 032 020 003 001 g \0
0010420 \0 360 242 261 377 _ g \0 \0 I J 002 002 001 ^ d
0010440 262 032 d i 360 263 025 d 005 001 245 d 005 002 241 005
0010460 003 265 \t g \0 \0 N h 032 032 J 002 001 _ 016 d
0010500 262 033 d i 360 263 026 d 005 001 245 d 005 002 241 005
0010520 003 265 \n g \0 \0 O 016 h 032 032 h 032 032 032 032
0010540 020 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 I
0010560 o \0 \0 \0 032 032 h 032 032 032 032 L M h 032 032
0010600 032 020 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0
0010620 I o \0 \0 \0 032 032 h 032 032 032 032 H h 032 032
0010640 020 \0 ( 2 4 3 Q A R G S . C O M
0010660 M U T A B L E P 2 3 4 Q A R
0010700 G S . C O M M U T A B L E P 2
0010720 2 5 Q A R G S . C O M M U T A
0010740 B L E P 2 0 7 Q E V A L U A
0010760 B L E . C O N S T A N T P 1 2
0011000 4 Q A R G S . C O M M U T A B
0011020 L E P 1 0 7 Q E V A L U A B
0011040 L E . C O N S T A N T P 3 4 Q
0011060 L I S P F O R M . S I M P L I
0011100 F Y 1 7 Q E V A L U A B L E
0011120 . C O N S T A N T P 5 L I S
0011140 P F O R M . S I M P L I F Y ) \r
0011160 ( 4 6 5 Q L O A D B Y T E 4
0011200 5 2 Q L A M B D A 4 2 4 Q
0011220 L O A D B Y T E 4 1 1 Q L A
0011240 M B D A 3 7 3 Q Q U O T E
0011260 3 3 3 Q Q U O T E 2 7 6 Q
0011300 L O A D B Y T E 2 6 6 Q B Y
0011320 T E S P E C 2 5 0 Q L O A D
0011340 B Y T E 1 6 4 Q L I S T 1
0011360 4 6 Q B Y T E S I Z E 1 3 7
0011400 Q B Y T E P O S I T I O N 1
0011420 3 3 Q L O A D B Y T E 4 7 Q
0011440 C O N S ) \r ( 4 7 2 Q ( (
0011460 B Y T E P O S I T I O N \ P o
0011500 s i t i o n S i z e ) ( B Y T
0011520 E S I Z E \ P o s i t i o n S
0011540 i z e ) ) 4 6 2 Q ( D E C L
0011560 A R E ( L O C A L V A R S \
0011600 P o s i t i o n S i z e ) ) 4
0011620 5 6 Q ( \ P o s i t i o n S i
0011640 z e ) 4 3 1 Q ( \ B y t e p
0011660 o s i t i o n \ B y t e s i z
0011700 e ) 4 2 1 Q ( D E C L A R E
0011720 ( L O C A L V A R S \ B y t
0011740 e s i z e \ B y t e p o s i t
0011760 i o n ) ) 4 1 5 Q ( \ B y t
0012000 e s i z e \ B y t e p o s i t
0012020 i o n ) 6 1 Q ( Q U O T E
0012040 B Y T E S P E C ) ) \r \ D P B E
0012060 X P A N D E R D 1 \r ( L ( 0
0012100 X ) ) 001 240 \r \0 \0 001 @ 001 @ 002 001
0012120 i \n \0 \0 @ 002 002 001 i \n \0 \0 021 243 \f I
0012140 d 003 262 034 d 001 g \0 \0 360 262 024 d 002 001 o
0012160 \0 \0 \0 364 230 002 002 001 _ 024 003 265 3 I \t \0
0012200 \0 001 _ 024 265 W H i \n \0 \0 ^ d J \n \0
0012220 \0 h 360 265 017 O 022 h 360 264 \t N I \n \0 \0
0012240 h 360 ] d 242 261 \0 214 g \0 \0 261 \0 207 001 g
0012260 \0 \0 360 262 312 O 024 002 _ 024 001 O 024 002 _ 024
0012300 277 273 O 024 001 O 024 002 _ 024 277 274 K \t \0 \0
0012320 264 006 L \t \0 \0 _ 022 277 260 255 003 001 g \0 \0
0012340 360 262 245 O 024 002 001 _ 026 d 262 033 d i 360 263
0012360 026 d 005 001 245 d 005 002 241 005 003 265 \n g \0 \0
0012400 O 026 h 032 032 273 O 024 002 002 001 _ 030 d 262 033
0012420 d i 360 263 026 d 005 001 245 d 005 002 241 005 003 265
0012440 \n g \0 \0 O 030 h 032 032 274 i _ 022 277 261 377
0012460 X H _ 016 K 262 M L 262 J O 022 254 K L \n
0012500 \0 \0 262 027 J I \n \0 \0 236 g \0 \0 J L K
0012520 O 016 h 032 032 032 032 260 s g \0 \0 o \0 \0 \0
0012540 o \0 \0 \0 g \0 \0 J g \0 \0 g \0 \0 O 016
0012560 h 032 032 032 032 032 h 032 032 032 032 K L h 032 032
0012600 260 J I 004 l 004 360 262 $ J I \n \0 \0 262 035
0012620 g \0 \0 J g \0 \0 I h 032 032 g \0 \0 I h
0012640 032 032 O 016 h 032 032 032 032 260 ! i 275 g \0 \0
0012660 o \0 \0 \0 o \0 \0 \0 g \0 \0 J o \0 \0 \0
0012700 032 032 h 032 032 032 032 I h 032 032 _ 020 M 262 031
0012720 g \0 \0 o \0 \0 \0 o \0 \0 \0 O 020 h 032 032
0012740 032 032 H h 032 032 020 O 020 020 \0 ( 5 0 2 Q
0012760 A R G S . C O M M U T A B L E
0013000 P 3 7 5 Q A R G S . C O M M
0013020 U T A B L E P 3 6 6 Q A R G
0013040 S . C O M M U T A B L E P 2 1
0013060 2 Q E V A L U A B L E . C O N
0013100 S T A N T P 2 0 4 Q E V A L
0013120 U A B L E . C O N S T A N T P
0013140 1 2 4 Q A R G S . C O M M U T
0013160 A B L E P 1 0 5 Q A R G S .
0013200 C O M M U T A B L E P 7 7 Q
0013220 L I S P F O R M . S I M P L I F
0013240 Y 6 5 Q E V A L U A B L E .
0013260 C O N S T A N T P 2 0 Q L I
0013300 S P F O R M . S I M P L I F Y
0013320 1 0 Q L I S P F O R M . S I M
0013340 P L I F Y ) \r ( 6 0 7 Q L A M
0013360 B D A 5 5 7 Q D E P O S I T
0013400 B Y T E 5 4 4 Q L A M B D A
0013420 5 2 2 Q B Y T E S I Z E 5
0013440 1 3 Q B Y T E P O S I T I O N
0013460 5 0 7 Q D E P O S I T B Y T
0013500 E 4 4 2 Q \ B y t e s i z e
0013520 4 3 7 Q \ B y t e p o s i t
0013540 i o n 4 3 3 Q D E P O S I T
0013560 B Y T E 4 2 0 Q L A M B D A
0013600 4 0 1 Q D E P O S I T B Y T
0013620 E 3 3 0 Q Q U O T E 2 6 4
0013640 Q Q U O T E 2 2 4 Q B Y T
0013660 E S P E C 1 4 6 Q L I S T
0013700 1 3 7 Q \ N e w B y t e 3 5
0013720 Q C O N S ) \r ( 6 1 7 Q (
0013740 D E C L A R E ( L O C A L V A
0013760 R S \ N e w B y t e ) ) 6 1
0014000 3 Q ( \ N e w B y t e ) 5 6
0014020 4 Q ( ( B Y T E P O S I T I O
0014040 N \ B y t e S p e c ) ( B Y
0014060 T E S I Z E \ B y t e S p e c
0014100 ) \ N e w B y t e ) 5 5 4 Q
0014120 ( D E C L A R E ( L O C A L
0014140 V A R S \ B y t e S p e c ) )
0014160 5 5 0 Q ( \ B y t e S p e c
0014200 ) 4 3 0 Q ( D E C L A R E
0014220 ( L O C A L V A R S \ B y t e
0014240 s i z e \ B y t e p o s i t i
0014260 o n ) ) 4 2 4 Q ( \ B y t e
0014300 s i z e \ B y t e p o s i t i
0014320 o n ) 4 7 Q ( Q U O T E B
0014340 Y T E S P E C ) ) \r \ L O A D B
0014360 Y T E E X P A N D E R D 1 \r (
0014400 L ( 0 X ) ) \0 344 006 \0 \0 001 021
0014420 001 @ 002 002 001 \t \0 \0 001 d 005 001 241 005 002
0014440 X d 265 4 @ 002 001 \t \0 \0 001 d 005 001 241 005
0014460 002 Y 262 g \0 \0 g \0 \0 @ 001 I h 032 032
0014500 032 g \0 \0 j @ 002 002 001 h 032 032 032 h 032 032
0014520 032 020 g \0 \0 020 005 001 227 j H 361 243 j H 361
0014540 233 @ 002 002 001 o \0 \0 \0 \n \0 \0 277 H j 360
0014560 236 g \0 \0 @ 001 @ 002 001 j h 032 032 032 032 020
0014600 @ 001 @ 002 001 H l 361 250 ` \0 \0 H 340 320
0014620 311 \0 210 m 377 H \n \0 \0 m 377 346 021 023 005 K
0014640 \t \0 \0 001 d 005 001 241 005 002 ] 265 \r g \0 \0
0014660 K j 360 262 0 J 260 6 005 001 227 j M 361 243 j
0014700 M 361 230 K o \0 \0 \0 \n \0 \0 277 M 273 J \t
0014720 \0 \0 001 d 005 001 241 005 002 ] 262 323 M K H \v
0014740 \0 \0 020 g \0 \0 J K h 032 032 032 L h 032 032
0014760 032 020 \0 ( 3 2 2 Q L O A D B Y T
0015000 E 3 0 2 Q E V A L U A B L E
0015020 . C O N S T A N T P 2 7 3 Q
0015040 E R R O R 2 2 3 Q E V A L U
0015060 A B L E . C O N S T A N T P 2
0015100 1 1 Q L L S H 1 3 4 Q E R
0015120 R O R 3 2 Q E V A L U A B L
0015140 E . C O N S T A N T P 1 1 Q
0015160 E V A L U A B L E . C O N S T A
0015200 N T P ) \r ( 3 2 6 Q L R S H
0015220 2 4 0 Q L O G A N D 1 7 5 Q
0015240 \ R J 1 M 1 4 4 Q P R O G
0015260 N 1 0 5 Q I G N O R E M A C
0015300 R O 6 4 Q M A S K . 1 ' S
0015320 5 2 Q L R S H 4 7 Q L O G
0015340 A N D ) \r ( 2 7 0 Q " B y t
0015360 e p o s i t i o n o u t o
0015400 f r a n g e " 1 3 1 Q " B
0015420 y t e s i z e o u t o f
0015440 r a n g e " ) \r \ D E P O S I T
0015460 B Y T E E X P A N D E R D 1 \r
0015500 ( L ( 0 X ) ) 001 \ \t \0 \0 001
0015520 @ 002 001 \t \0 \0 001 d 005 001 241 005 002 @ 002 002
0015540 001 \t \0 \0 001 d 005 001 241 005 002 021 " 003 I 265
0015560 025 H 262 : j H 361 262 5 @ 002 001 o \0 \0 \0
0015600 \n \0 \0 020 j 361 263 353 I j 360 262 025 g \0 \0
0015620 @ 001 @ 002 001 @ 002 002 002 001 h 032 032 032 032 020
0015640 @ 002 002 001 o \0 \0 \0 \n \0 \0 020 I 231 H 227
0015660 H d I 330 l 361 223 g \0 \0 020 I 330 l 020
0015700 361 225 g \0 \0 @ 032 020 @ 001 @ 002 002 002 001 I
0015720 l 361 250 ` \0 \0 I 340 320 311 \0 210 m 377 I
0015740 \n \0 \0 m 377 346 021 # \b L \t \0 \0 001 d 005
0015760 001 241 005 002 _ 016 M \t \0 \0 001 d 005 001 241 005
0016000 002 _ 020 226 O 020 N 345 _ 020 277 O 016 262 H O
0016020 020 231 O 016 H I O 020 \f \0 \0 020 O 016 262 7
0016040 g \0 \0 M N h 032 032 032 272 H j 360 251 g \0
0016060 \0 J H h 032 032 032 272 O 016 N H \n \0 \0 m
0016100 377 346 345 _ 016 j 360 221 J 020 g \0 \0 O 016 J
0016120 h 032 032 032 020 g \0 \0 L N H \n \0 \0 h 032
0016140 032 032 273 O 020 262 037 O 020 N 345 _ 020 d j 360
0016160 221 K 020 233 N O 020 360 226 g \0 \0 K 002 032 020
0016200 O 020 265 032 g \0 \0 M N h 032 032 032 275 H j
0016220 360 256 g \0 \0 M H h 032 032 032 203 H \n \0 \0
0016240 275 g \0 \0 K M h 032 032 032 020 \0 ( 5 1 7
0016260 Q L L S H 4 1 5 Q L L S H
0016300 3 5 6 Q L L S H 3 1 2 Q
0016320 \ X D E P O S I T B Y T E 2 5
0016340 1 Q E V A L U A B L E . C O N
0016360 S T A N T P 2 3 4 Q E V A L
0016400 U A B L E . C O N S T A N T P
0016420 2 2 2 Q L L S H 1 3 2 Q E
0016440 R R O R 6 2 Q E R R O R 2
0016460 3 Q E V A L U A B L E . C O N
0016500 S T A N T P 5 E V A L U A B
0016520 L E . C O N S T A N T P ) \r ( 5
0016540 2 3 Q L O G O R 5 0 4 Q L
0016560 L S H 4 6 6 Q L O G A N D
0016600 4 5 3 Q B I T S E T 4 0 7 Q
0016620 B I T C L E A R 3 7 4 Q L
0016640 O G O R 3 4 0 Q L L S H 3
0016660 2 2 Q L O G A N D 2 0 6 Q
0016700 \ R J 1 M 1 6 4 Q \ X D E P
0016720 O S I T B Y T E 1 5 2 Q I G
0016740 N O R E M A C R O 7 7 Q P R
0016760 O G 1 ) \r ( 1 2 7 Q " B y t
0017000 e s i z e o u t o f r a
0017020 n g e " 5 7 Q " B y t e p
0017040 o s i t i o n o u t o f r
0017060 a n g e " ) \r \ L O A D B Y T E
0017100 E X P A N D E R D 1 \r ( L (
0017120 0 X ) ) \0 344 006 \0 \0 001 021 001 @
0017140 002 002 001 \t \0 \0 001 d 005 001 241 005 002 X d 265
0017160 4 @ 002 001 \t \0 \0 001 d 005 001 241 005 002 Y 262
0017200 g \0 \0 g \0 \0 @ 001 I h 032 032 032 g \0
0017220 \0 j @ 002 002 001 h 032 032 032 h 032 032 032 020 g
0017240 \0 \0 020 005 001 227 j H 361 243 j H 361 233 @ 002
0017260 002 001 o \0 \0 \0 \n \0 \0 277 H j 360 236 g \0
0017300 \0 @ 001 @ 002 001 j h 032 032 032 032 020 @ 001 @
0017320 002 001 H l 361 250 ` \0 \0 H 340 320 311 \0 210
0017340 m 377 H \n \0 \0 m 377 346 021 023 005 K \t \0 \0
0017360 001 d 005 001 241 005 002 ] 265 \r g \0 \0 K j 360
0017400 262 0 J 260 6 005 001 227 j M 361 243 j M 361 230
0017420 K o \0 \0 \0 \n \0 \0 277 M 273 J \t \0 \0 001
0017440 d 005 001 241 005 002 ] 262 323 M K H \v \0 \0 020
0017460 g \0 \0 J K h 032 032 032 L h 032 032 032 020 \0
0017500 ( 3 2 2 Q L O A D B Y T E 3
0017520 0 2 Q E V A L U A B L E . C O
0017540 N S T A N T P 2 7 3 Q E R R
0017560 O R 2 2 3 Q E V A L U A B L
0017600 E . C O N S T A N T P 2 1 1 Q
0017620 L L S H 1 3 4 Q E R R O R
0017640 3 2 Q E V A L U A B L E . C
0017660 O N S T A N T P 1 1 Q E V A
0017700 L U A B L E . C O N S T A N T P
0017720 ) \r ( 3 2 6 Q L R S H 2 4 0
0017740 Q L O G A N D 1 7 5 Q \ R
0017760 J 1 M 1 4 4 Q P R O G N 1
0020000 0 5 Q I G N O R E M A C R O
0020020 6 4 Q M A S K . 1 ' S 5 2 Q
0020040 L R S H 4 7 Q L O G A N D
0020060 ) \r ( 2 7 0 Q " B y t e p
0020100 o s i t i o n o u t o f r
0020120 a n g e " 1 3 1 Q " B y t e
0020140 s i z e o u t o f r a n
0020160 g e " ) \r \ D E P O S I T B Y T
0020200 E E X P A N D E R D 1 \r ( L
0020220 ( 0 X ) ) 001 \ \t \0 \0 001 @ 002 001
0020240 \t \0 \0 001 d 005 001 241 005 002 @ 002 002 001 \t \0
0020260 \0 001 d 005 001 241 005 002 021 " 003 I 265 025 H 262
0020300 : j H 361 262 5 @ 002 001 o \0 \0 \0 \n \0 \0
0020320 020 j 361 263 353 I j 360 262 025 g \0 \0 @ 001 @
0020340 002 001 @ 002 002 002 001 h 032 032 032 032 020 @ 002 002
0020360 001 o \0 \0 \0 \n \0 \0 020 I 231 H 227 H d I
0020400 330 l 361 223 g \0 \0 020 I 330 l 020 361 225 g
0020420 \0 \0 @ 032 020 @ 001 @ 002 002 002 001 I l 361
0020440 250 ` \0 \0 I 340 320 311 \0 210 m 377 I \n \0 \0
0020460 m 377 346 021 # \b L \t \0 \0 001 d 005 001 241 005
0020500 002 _ 016 M \t \0 \0 001 d 005 001 241 005 002 _ 020
0020520 226 O 020 N 345 _ 020 277 O 016 262 H O 020 231 O
0020540 016 H I O 020 \f \0 \0 020 O 016 262 7 g \0 \0
0020560 M N h 032 032 032 272 H j 360 251 g \0 \0 J H
0020600 h 032 032 032 272 O 016 N H \n \0 \0 m 377 346 345
0020620 _ 016 j 360 221 J 020 g \0 \0 O 016 J h 032 032
0020640 032 020 g \0 \0 L N H \n \0 \0 h 032 032 032 273
0020660 O 020 262 037 O 020 N 345 _ 020 d j 360 221 K 020
0020700 233 N O 020 360 226 g \0 \0 K 002 032 020 O 020 265
0020720 032 g \0 \0 M N h 032 032 032 275 H j 360 256 g
0020740 \0 \0 M H h 032 032 032 203 H \n \0 \0 275 g \0
0020760 \0 K M h 032 032 032 020 \0 ( 5 1 7 Q L
0021000 L S H 4 1 5 Q L L S H 3 5
0021020 6 Q L L S H 3 1 2 Q \ X D
0021040 E P O S I T B Y T E 2 5 1 Q
0021060 E V A L U A B L E . C O N S T A
0021100 N T P 2 3 4 Q E V A L U A B
0021120 L E . C O N S T A N T P 2 2 2
0021140 Q L L S H 1 3 2 Q E R R O
0021160 R 6 2 Q E R R O R 2 3 Q
0021200 E V A L U A B L E . C O N S T A
0021220 N T P 5 E V A L U A B L E .
0021240 C O N S T A N T P ) \r ( 5 2 3 Q
0021260 L O G O R 5 0 4 Q L L S H
0021300 4 6 6 Q L O G A N D 4 5 3
0021320 Q B I T S E T 4 0 7 Q B I
0021340 T C L E A R 3 7 4 Q L O G O
0021360 R 3 4 0 Q L L S H 3 2 2 Q
0021400 L O G A N D 2 0 6 Q \ R J
0021420 1 M 1 6 4 Q \ X D E P O S I
0021440 T B Y T E 1 5 2 Q I G N O R
0021460 E M A C R O 7 7 Q P R O G 1
0021500 ) \r ( 1 2 7 Q " B y t e s
0021520 i z e o u t o f r a n g e
0021540 " 5 7 Q " B y t e p o s i
0021560 t i o n o u t o f r a n g
0021600 e " ) \r I M O D L E S S P D 1
0021620 \r ( L ( 3 E Q U A L ? 2
0021640 M O D U L U S 1 Y 0 X )
0021660 ) 001 005 002 \0 \0 004 C 225 @ A 360 221 i 020
0021700 B g \0 \0 360 263 037 B d d 005 001 241 005 002 262
0021720 . 277 o \0 \0 \0 B 361 263 $ B d o \0 \0 \0
0021740 361 263 034 277 A @ 331 b \0 d 005 001 243 310 001 b
0021760 \0 j 360 221 C 020 n 200 \0 @ 361 020 B g \0 \0
0022000 360 263 036 B d 005 001 241 005 002 265 020 A @ 325 B
0022020 \n \0 \0 B k 330 342 375 361 020 \t \0 \0 262 357 `
0022040 \0 \0 265 033 l 002 037 021 021 001 A 004 d k 360 262
0022060 025 277 H j 315 \0 277 H A 315 001 260 037 h 027 \0
0022100 \0 277 260 345 l 002 360 235 H A 310 \0 315 \0 277 H
0022120 A 310 001 315 001 203 A \t \0 \0 277 H @ 367 277 H
0022140 310 \0 j 360 230 H 310 001 j 360 222 C 260 J B d
0022160 g \0 \0 360 225 277 H j 361 260 = 005 001 262 023 H
0022200 B k 331 345 d j 360 223 277 C 260 , B 342 260 &
0022220 B \t \0 \0 k 331 271 H ` \0 \0 I 340 320 311 \0
0022240 345 d j 360 222 277 C 215 ` \0 \0 I k 331 340 320
0022260 311 \0 311 002 375 361 H 027 \0 \0 277 020 \0 ( 3 3
0022300 3 Q I N T E G E R L E N G T H
0022320 2 4 1 Q \ I L L E G A L . A
0022340 R G 1 4 4 Q P O W E R O F T
0022360 W O P 1 3 2 Q I M O D ) \r (
0022400 4 0 1 Q \ \ M O D L E S S P B
0022420 O X . G L O B A L R E S O U R C
0022440 E 3 6 2 Q \ M A S K O U T .
0022460 M A R G I N 3 4 2 Q \ R J 1
0022500 M 2 7 2 Q C E L L 2 1 0 Q
0022520 \ \ M O D L E S S P B O X . G
0022540 L O B A L R E S O U R C E 1 5
0022560 1 Q \ \ M O D L E S S P B O X
0022600 . G L O B A L R E S O U R C E
0022620 1 0 7 Q C E L L 1 3 Q W O
0022640 R D ) \r ( 4 7 Q 2 0 0 0 0 0
0022660 Q 3 5 Q 2 0 0 0 0 0 Q ) \r I
0022700 M O D P L U S D 1 \r ( L ( 2
0022720 M O D U L U S 1 Y 0 X
0022740 ) ) \0 257 001 \0 \0 003 B 004 d l 004 360 262
0022760 < 277 B d g \0 \0 360 262 ) 277 n 377 377 A \t
0023000 \0 \0 331 021 001 \0 @ d \t \0 \0 H 361 252 277 @
0023020 \t \0 \0 A \t \0 \0 330 020 \t \0 \0 H k 330 331
0023040 020 g \0 \0 360 262 f @ A 330 020 d l 002 360 244
0023060 d k 360 262 W 277 B d j 361 262 R 277 o \0 \0
0023100 \0 B 361 255 B o \0 \0 \0 361 246 g \0 \0 b 004
0023120 260 232 l 002 037 021 001 \0 @ 004 d k 360 233 277 H
0023140 j 315 \0 277 H @ 315 001 260 030 l 002 360 235 H @
0023160 310 \0 315 \0 277 H @ 310 001 315 001 203 @ \t \0 \0
0023200 277 H A 366 H B \n \0 \0 020 277 B l 033 i \v
0023220 \0 \0 b 004 261 377 V \0 ( 2 5 0 Q \ L
0023240 I S P E R R O R 2 3 7 Q I M
0023260 O D 2 2 6 Q \ I L L E G A L
0023300 . A R G 6 2 Q \ L O N U M
0023320 5 5 Q \ L O N U M 5 1 Q \
0023340 L O N U M 4 1 Q \ L O N U M
0023360 3 0 Q \ L O N U M ) \r ( 1 4
0023400 4 Q W O R D 7 2 Q C E L L
0023420 1 5 Q W O R D ) \r ( 1 3 7
0023440 Q 2 0 0 0 0 0 Q 1 2 7 Q 2
0023460 0 0 0 0 0 Q ) \r I M O D D I F F
0023500 E R E N C E D 1 \r ( L ( 2
0023520 M O D U L U S 1 Y 0 X )
0023540 ) \0 255 001 \0 \0 003 B 004 d l 004 360 262 :
0023560 277 B d g \0 \0 360 262 ' 277 A \t \0 \0 @ \t
0023600 \0 \0 361 251 @ \t \0 \0 A \t \0 \0 331 020 n 377
0023620 377 A \t \0 \0 @ \t \0 \0 331 331 k 330 020 g \0
0023640 \0 360 262 f @ A 331 020 d l 002 360 244 d k 360
0023660 262 W 277 B d j 361 262 R 277 o \0 \0 \0 B 361
0023700 255 B o \0 \0 \0 361 246 g \0 \0 b 004 260 234 l
0023720 002 037 021 001 \0 @ 004 d k 360 233 277 H j 315 \0
0023740 277 H @ 315 001 260 030 l 002 360 235 H @ 310 \0 315
0023760 \0 277 H @ 310 001 315 001 203 @ \t \0 \0 277 H A
0024000 367 H B \n \0 \0 020 277 B l 033 i \v \0 \0 b
0024020 004 261 377 X \0 ( 2 4 6 Q \ L I S P
0024040 E R R O R 2 3 5 Q I M O D
0024060 2 2 4 Q \ I L L E G A L . A R
0024100 G 6 0 Q \ L O N U M 5 4 Q
0024120 \ L O N U M 4 3 Q \ L O N
0024140 U M 3 7 Q \ L O N U M 3 1
0024160 Q \ L O N U M 2 5 Q \ L O
0024200 N U M ) \r ( 1 4 2 Q W O R D
0024220 7 0 Q C E L L 1 5 Q W O R
0024240 D ) \r ( 1 3 5 Q 2 0 0 0 0 0
0024260 Q 1 2 5 Q 2 0 0 0 0 0 Q ) \r
0024300 R O T D 1 \r ( L ( 2 F I E
0024320 L D S I Z E 1 N 0 X ) )
0024340 \0 235 001 \0 \0 003 A 006 \0 \0 b 002 @ d d
0024360 005 001 241 005 002 262 " 277 B 005 001 262 & B d j
0024400 361 262 ! d l 361 263 033 277 A B \n \0 \0 b
0024420 002 j 360 262 3 @ 020 l 033 i \v \0 \0 b \0 260
0024440 317 B g \0 \0 360 225 l 020 b 004 260 316 B g \0
0024460 \0 360 242 B 265 \b l b 004 260 277 l 033 i \v
0024500 \0 \0 b 004 260 265 B A 331 021 001 \0 B l 020 361
0024520 263 & @ n 377 377 345 b \0 d H \n \0 \0 ` \0
0024540 \0 l 020 A 361 221 A 201 l 020 340 320 311 \0 345 A
0024560 H @ \f \0 \0 020 @ H A \v \0 \0 A H @ \f
0024600 \0 \0 020 \0 ( 2 3 2 Q D E P O S I
0024620 T B Y T E 2 2 4 Q L O A D B
0024640 Y T E 2 1 5 Q \ X D E P O S
0024660 I T B Y T E W O R D 1 6 6 Q
0024700 \ X L R S H W O R D 1 3 2 Q
0024720 \ L I S P E R R O R 6 5 Q \
0024740 L I S P E R R O R 4 7 Q I M
0024760 O D ) \r ( 1 7 1 Q \ R J 1 M
0025000 1 1 1 Q C E L L 7 5 Q W O
0025020 R D 3 S M A L L P ) \r ( ) \r
0025040 \ R O T e x p a n d e r D 1 \r
0025060 ( L ( 0 L ) ) \0 206 003 \0 \0 001
0025100 @ 001 @ 002 001 @ 002 002 001 \t \0 \0 001 021 003 002
0025120 J d 005 001 241 005 002 251 J g \0 \0 360 262 d l
0025140 020 272 I \t \0 \0 001 d 005 001 241 005 002 Y 262 S
0025160 H \t \0 \0 001 d 005 001 241 005 002 265 @ J l 020
0025200 360 262 @ I k 360 262 ; g \0 \0 o \0 \0 \0 o
0025220 \0 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 n 177 377
0025240 h 032 032 032 h 032 032 h 032 032 032 032 g \0 \0 H
0025260 n 377 377 h 032 032 032 h 032 032 020 I J \v \0 \0
0025300 020 g \0 \0 020 \0 ( 1 7 7 Q R O T
0025320 6 3 Q E V A L U A B L E . C O
0025340 N S T A N T P 4 5 Q E V A L
0025360 U A B L E . C O N S T A N T P
0025400 1 3 Q E V A L U A B L E . C O
0025420 N S T A N T P ) \r ( 2 0 3 Q I
0025440 G N O R E M A C R O 1 5 6 Q
0025460 L O G A N D 1 3 4 Q \ X t e
0025500 s t e d 1 3 1 Q L O G A N D
0025520 1 1 2 Q L A M B D A 3 3 Q
0025540 W O R D ) \r ( 1 2 6 Q ( L
0025560 A M B D A ( \ X b i t o f f )
0025600 ( D E C L A R E ( L O C A L
0025620 V A R S \ X b i t o f f ) )
0025640 ( i f ( E Q \ X t e s t e d
0025660 \ X b i t o f f ) t h e n
0025700 ( L L S H \ X b i t o f f 1
0025720 ) e l s e ( L O G O R 1
0025740 ( L L S H \ X b i t o f f 1
0025760 ) ) ) ) 1 2 2 Q ( D E C L A
0026000 R E ( L O C A L V A R S \ X
0026020 t e s t e d ) ) 1 1 6 Q ( \
0026040 X t e s t e d ) ) \r \ X L O A D
0026060 B Y T E D 1 \r ( L ( 2 S I
0026100 Z E 1 P O S 0 N ) ) \0
0026120 356 005 \0 \0 003 B l 361 224 l b 004 277 l
0026140 A 361 241 j 020 ` \0 \0 B 340 320 311 \0 021 A
0026160 004 @ 004 d k 360 262 023 277 j @ 361 244 j 271 @
0026200 260 025 n 377 377 271 @ 323 213 l 002 360 264 \t @ 310
0026220 \0 271 @ 310 001 Z 263 + @ l 033 i \v \0 \0 b
0026240 \0 260 321 n 377 377 273 H 323 213 l 002 360 264 \t H
0026260 310 \0 273 H 310 001 \ 263 034 H l 033 i \v \0 \0
0026300 270 H 004 d k 360 262 344 277 j H 361 263 327 j 273
0026320 H 260 345 l 020 A 361 252 I 272 j 271 A l 020 331
0026340 b 002 277 l \b A 361 263 025 J 343 I l 377 345 341
0026360 344 272 I 343 271 A l \b 331 b 002 277 l 004 A 361
0026400 263 035 I l 017 345 341 340 340 340 340 J 342 342 342 342
0026420 344 272 I 342 342 342 342 271 A l 004 331 200 A d j
0026440 361 262 031 I k 345 j 360 246 J 342 n 200 \0 344 201
0026460 J 342 272 I 342 271 k 331 260 346 I K 345 J L 345
0026500 365 020 \0 ( 1 5 2 Q \ L I S P E R
0026520 R O R 1 1 1 Q \ L I S P E R
0026540 R O R ) \r ( 2 3 Q \ R J 1 M )
0026560 \r ( ) \r \ X L O A D B Y T E W O
0026600 R D D 1 \r ( L ( 2 S I Z E
0026620 1 P O S 0 N ) ) \0 030 \0
0026640 \0 \0 003 @ A \n \0 \0 ` \0 \0 l 020 B 361 221
0026660 B 201 l 020 340 320 311 \0 345 020 \0 ( 4 \ X
0026700 L R S H W O R D ) \r ( 7 \ R J
0026720 1 M ) \r ( ) \r \ X D E P O S I T
0026740 B Y T E D 1 \r ( L ( 3 V
0026760 2 S I Z E 1 P O S 0 N
0027000 ) ) 001 = \a \0 \0 004 ` \0 \0 A 340 320 311
0027020 \0 B 340 320 311 \0 021 a 006 H 004 d k 360 262 023
0027040 277 j H 361 244 j 271 H 260 025 n 377 377 271 H 323
0027060 213 l 002 360 264 \t H 310 \0 271 H 310 001 Z 263 ,
0027100 H l 033 i \v \0 \0 X 260 322 n 377 377 275 C 323
0027120 213 l 002 360 264 \t C 310 \0 275 C 310 001 ^ 263 036
0027140 C l 033 i \v \0 \0 b 006 277 C 004 d k 360 262
0027160 342 277 j C 361 263 325 j 275 C 260 343 l 020 A 361
0027200 252 N 275 j 276 A l 020 331 b 002 277 l \b A 361
0027220 263 030 M l 377 345 341 N 343 344 275 N l 377 345 341
0027240 276 A l \b 331 b 002 277 l 004 A 361 263 $ N 343
0027260 342 342 342 342 M n 017 377 345 340 340 340 340 344 275 N
0027300 n 017 377 345 340 340 340 340 276 A l 004 331 b 002 200
0027320 A d j 361 262 M n 177 377 345 340 275 n 200 \0
0027340 N 361 251 M k 324 275 N n 177 377 345 200 N 340 276
0027360 k 331 260 337 M I 345 ] N J 345 ^ @ 004 d k
0027400 360 262 023 277 j @ 361 244 j 273 @ 260 025 n 377 377
0027420 273 @ 323 213 l 002 360 264 \t @ 310 \0 273 @ 310 001
0027440 \ 252 @ l 033 i \v \0 \0 b \0 260 322 K I n
0027460 377 377 346 345 [ L J n 377 377 346 345 \ K M 344
0027500 L N 344 365 020 \0 ( 4 3 7 Q \ L I S
0027520 P E R R O R 1 3 5 Q \ L I S
0027540 P E R R O R 7 5 Q \ L I S P
0027560 E R R O R ) \r ( 2 \ M A S K O
0027600 U T . M A R G I N ) \r ( ) \r \ X
0027620 D E P O S I T B Y T E W O R D
0027640 D 1 \r ( L ( 4 E X T E N T
0027660 3 V 2 S I Z E 1 P O S
0027700 0 N ) ) \0 < 002 \0 \0 005 D 265 005
0027720 A B 330 l 020 361 223 \b \0 \0 020 @ ` \0 \0 A
0027740 340 320 311 \0 B 340 320 311 \0 m 377 346 345 C ` \0
0027760 \0 B 340 320 311 \0 345 021 002 001 H A j 360 221 I
0030000 204 I A \n \0 \0 344 020 \0 ( 7 0 Q \ X
0030020 L L S H W O R D 1 4 Q S H O
0030040 U L D N T ) \r ( 4 3 Q \ R J 1
0030060 M 2 1 Q \ M A S K O U T . M
0030100 A R G I N ) \r ( ) \r \ X L L S H
0030120 W O R D D 1 \r ( L ( 1 P O
0030140 S 0 N ) ) \0 S \0 \0 \0 002 l \b
0030160 A 361 253 @ 341 b \0 277 A l \b 331 b 002 277 l
0030200 004 A 361 256 @ 340 340 340 340 b \0 277 A l 004 331
0030220 b 002 277 l 002 A 361 230 k A 361 221 @ 020 @ 340
0030240 020 l 004 A 361 235 l 003 A 361 223 @ 340 340 020 @
0030260 340 340 340 020 @ j \n \0 \0 221 j 020 \b \0 \0 020
0030300 \0 ( 1 2 0 Q S H O U L D N T
0030320 1 1 2 Q E Q P ) \r N I L \r ( )
0030340 \r \ X L R S H W O R D D 1 \r (
0030360 L ( 1 P O S 0 N ) ) \0
0030400 R \0 \0 \0 002 l 020 A 361 241 j 020 l \b A 361
0030420 253 @ 343 b \0 277 A l \b 331 b 002 277 l 004 A
0030440 361 256 @ 342 342 342 342 b \0 277 A l 004 331 b 002
0030460 277 l 002 A 361 230 k A 361 221 @ 020 @ 342 020 l
0030500 004 A 361 235 l 003 A 361 223 @ 342 342 020 @ 342 342
0030520 342 020 \b \0 \0 020 \0 ( 1 1 7 Q S H O
0030540 U L D N T ) \r N I L \r ( ) \r \ G
0030560 E T B A S E B I T S D 1 \r ( L
0030600 ( 2 S I Z E 1 P O S I T
0030620 I O N 0 A D D R ) ) 001 251 \t
0030640 \0 \0 003 A 342 342 342 342 A l 017 345 021 2 004 @
0030660 H 320 b \0 d 310 \0 Z B I k 331 330 [ l 020
0030700 K 361 262 034 J l 017 K 331 \n \0 \0 ` \0 \0 l
0030720 020 B 361 221 B 201 l 020 340 320 311 \0 345 020 l 020
0030740 I 331 @ 310 001 021 " \b B l 020 361 263 + B M
0030760 331 _ 020 N l 020 O 020 331 \n \0 \0 ` \0 \0 l
0031000 020 O 020 361 222 O 020 201 l 020 340 320 311 \0 345 O
0031020 020 M J \f \0 \0 020 l K 361 242 261 \0 232 l
0031040 037 K 331 _ 020 J O 020 \n \0 \0 ` \0 \0 B l
0031060 020 331 274 l 020 L 361 221 L 201 l 020 340 320 311 \0
0031100 345 _ 016 l 020 O 020 361 253 J 276 j 272 O 020 l
0031120 020 331 _ 020 277 l \b O 020 361 263 026 N 343 J l
0031140 377 345 341 344 276 J 343 272 O 020 l \b 331 _ 020 277
0031160 l 004 O 020 361 263 036 J l 017 345 341 340 340 340 340
0031200 N 342 342 342 342 344 276 J 342 342 342 342 272 O 020 l
0031220 004 331 201 O 020 d j 361 262 031 J k 345 j 360 246
0031240 N 342 n 200 \0 344 201 N 342 276 J 342 272 k 331 260
0031260 346 O 016 N 365 020 l / K 331 _ 020 l 020 O 020
0031300 331 Y N O 020 \n \0 \0 I B O 020 330 l 331
0031320 J \f \0 \0 _ 016 @ 310 002 Z l 020 I 361 247 ^
0031340 j 272 I l 020 331 271 l \b I 361 263 026 N l 377
0031360 345 341 J 343 344 276 J l 377 345 341 272 I l \b 331
0031400 271 l 004 I 361 263 " J 343 342 342 342 342 N n 017
0031420 377 345 340 340 340 340 344 276 J n 017 377 345 340 340 340
0031440 340 272 I l 004 331 200 I d j 361 262 206 N n 177
0031460 377 345 340 276 n 200 \0 J 361 251 N k 324 276 J n
0031500 177 377 345 200 J 340 272 k 331 260 337 \0 ( 4 6 0
0031520 Q \ X D E P O S I T B Y T E W
0031540 O R D 4 4 4 Q \ X L R S H W
0031560 O R D 2 0 7 Q \ X L R S H W
0031600 O R D 1 6 2 Q \ X D E P O S
0031620 I T B Y T E W O R D 1 3 0 Q
0031640 \ X L R S H W O R D 5 0 Q \
0031660 X L R S H W O R D ) \r ( 2 1 2 Q
0031700 \ R J 1 M 1 3 3 Q \ R J 1
0031720 M 5 3 Q \ R J 1 M ) \r ( ) \r
0031740 \ P U T B A S E B I T S D 1 \r
0031760 ( L ( 3 V A L 2 S I Z E
0032000 1 P O S I T I O N 0 A D
0032020 D R ) ) 001 . \n \0 \0 004 A 342 342 342 342
0032040 A l 017 345 021 " 003 @ H 320 b \0 310 \0 272 B
0032060 I k 331 330 273 l 020 K 361 262 032 @ J l 017 K
0032100 331 B C d 005 001 242 \t \0 \0 \f \0 \0 315 \0 277
0032120 261 \0 366 l 020 I 331 @ 310 001 021 B \t C 004 d
0032140 k 360 262 027 277 j C 361 246 j _ 020 277 C 260 031
0032160 n 377 377 _ 020 277 C 323 215 l 002 360 264 \v C 310
0032200 \0 _ 020 277 C 310 001 _ 022 252 C l 033 i \v \0
0032220 \0 b 006 260 313 B l 020 361 263 , B L 331 _ 016
0032240 277 @ J j L O 022 O 016 \n \0 \0 \f \0 \0 315
0032260 \0 277 @ M l 020 O 016 331 O 016 O 022 \f \0 \0
0032300 315 001 261 \0 204 l K 361 262 7 l 037 K 331 276
0032320 B L 331 _ 016 277 @ M N O 016 O 022 \f \0 \0
0032340 315 001 277 O 022 O 016 \n \0 \0 O 016 B l 020 331
0032360 O 020 \f \0 \0 _ 020 277 @ J j L O 020 260 C
0032400 l / K 331 276 l 020 N 331 _ 016 277 @ d 310 002
0032420 N O 016 O 022 \f \0 \0 315 002 277 @ O 022 O 016
0032440 \n \0 \0 N O 016 O 020 \f \0 \0 315 001 277 @ d
0032460 310 \0 j B O 016 l 020 330 331 O 020 O 016 \n \0
0032500 \0 \f \0 \0 315 \0 C 020 \0 ( 4 5 0 Q \
0032520 X D E P O S I T B Y T E W O R D
0032540 4 4 5 Q \ X L R S H W O R D
0032560 4 1 7 Q \ X D E P O S I T B
0032600 Y T E W O R D 4 0 7 Q \ X L
0032620 R S H W O R D 3 7 4 Q \ X D
0032640 E P O S I T B Y T E W O R D 3
0032660 3 1 Q \ X D E P O S I T B Y T
0032700 E W O R D 3 1 6 Q \ X L R S
0032720 H W O R D 3 0 4 Q \ X D E P
0032740 O S I T B Y T E W O R D 2 4 4
0032760 Q \ X D E P O S I T B Y T E W
0033000 O R D 2 2 3 Q \ X D E P O S
0033020 I T B Y T E W O R D 2 2 0 Q
0033040 \ X L R S H W O R D 1 6 5 Q
0033060 \ L I S P E R R O R 6 1 Q \
0033100 X D E P O S I T B Y T E W O R D
0033120 5 6 Q \ L O N U M ) \r N I L
0033140 \r ( ) \r \ G E T B A S E I N T E
0033160 G E R D 1 \r ( L ( 2 S I Z
0033200 E 1 P O S I T I O N 0 A
0033220 D D R ) ) \0 204 \a \0 \0 003 A 342 342 342
0033240 342 A l 017 345 021 " 003 @ H 320 b \0 d 310 \0
0033260 Z B I k 331 330 [ l 020 K 361 262 031 J I \n
0033300 \0 \0 ` \0 \0 l 020 B 361 221 B 201 l 020 340 320
0033320 311 \0 345 020 l 020 I 331 @ 310 001 B d l 020 361
0033340 222 277 l 020 021 003 006 J I \n \0 \0 L N L 331
0033360 M \f \0 \0 ^ l K 361 262 023 B l 020 361 262
0033400 324 M B l 020 331 \n \0 \0 N 365 020 M I \n \0
0033420 \0 L K l 037 331 @ 310 002 \f \0 \0 N 365 020 \0
0033440 ( 1 7 7 Q \ X D E P O S I T B
0033460 Y T E W O R D 1 6 4 Q \ X L
0033500 R S H W O R D 1 5 4 Q \ X L
0033520 R S H W O R D 1 2 7 Q \ X D
0033540 E P O S I T B Y T E W O R D 1
0033560 1 7 Q \ X L R S H W O R D 4
0033600 5 Q \ X L R S H W O R D ) \r (
0033620 5 0 Q \ R J 1 M ) \r ( ) \r \ P
0033640 U T B A S E I N T E G E R D 1
0033660 \r ( L ( 3 V A L 2 S I Z
0033700 E 1 P O S I T I O N 0 A
0033720 D D R ) ) \0 345 \t \0 \0 004 A 342 342 342
0033740 342 A l 017 345 021 " 003 @ H 320 b \0 310 \0 272
0033760 B I k 331 330 273 l 020 K 361 262 027 @ J I B
0034000 C d 005 001 242 \t \0 \0 \f \0 \0 315 \0 277 261 \0
0034020 260 l 020 I 331 @ 310 001 021 2 \b C 004 d k 360
0034040 262 027 277 j C 361 246 j _ 016 277 C 260 031 n 377
0034060 377 _ 016 277 C 323 215 l 002 360 264 \v C 310 \0 _
0034100 016 277 C 310 001 _ 020 252 C l 033 i \v \0 \0 b
0034120 006 260 313 @ J I L O 020 \f \0 \0 315 \0 277 l
0034140 K 361 262 3 B L 331 276 O 020 L \n \0 \0 _
0034160 020 277 B l 020 361 262 023 O 020 l 020 L 331 B L
0034200 331 O 016 \f \0 \0 _ 020 277 @ M j N O 020 \f
0034220 \0 \0 315 001 260 * @ O 020 L \n \0 \0 l 020 L
0034240 331 L O 016 \f \0 \0 315 001 277 @ d 310 002 j K
0034260 l 037 331 O 016 L \n \0 \0 \f \0 \0 315 002 C 020
0034300 \0 ( 3 3 7 Q \ X D E P O S I T
0034320 B Y T E W O R D 3 3 4 Q \ X
0034340 L R S H W O R D 3 1 2 Q \ X
0034360 D E P O S I T B Y T E W O R D
0034400 3 0 0 Q \ X L R S H W O R D
0034420 2 6 5 Q \ X D E P O S I T B Y
0034440 T E W O R D 2 5 1 Q \ X D E
0034460 P O S I T B Y T E W O R D 2 2
0034500 2 Q \ X L R S H W O R D 1 7
0034520 7 Q \ X D E P O S I T B Y T E
0034540 W O R D 1 6 2 Q \ L I S P E
0034560 R R O R 5 6 Q \ X D E P O S
0034600 I T B Y T E W O R D 5 3 Q \
0034620 L O N U M ) \r N I L \r ( ) \r \ G
0034640 E T B A S E N I B B L E D 1 \r
0034660 ( L ( 1 O F F S T 0 B A
0034700 S E ) ) \0 031 001 \0 \0 002 @ A 342 302 021
0034720 001 \0 A k 345 j 360 244 H l 017 345 020 H 342 342
0034740 342 342 020 \0 N I L \r N I L \r ( ) \r \
0034760 P U T B A S E N I B B L E D 1
0035000 \r ( L ( 2 V A L 1 O F F
0035020 S T 0 B A S E ) ) \0 $ 002 \0
0035040 \0 003 A 342 021 021 001 @ H 302 271 @ H A k 345
0035060 j 360 245 I l 360 345 B 210 I l 017 345 B 340 340
0035100 340 340 344 307 020 \0 N I L \r N I L \r ( )
0035120 \r \ G E T B A S E B I T D 1 \r
0035140 ( L ( 1 O F F S T 0 B A
0035160 S E ) ) \0 $ 002 \0 \0 002 A 342 342 342 `
0035200 \0 \0 l \a A l \a 345 331 340 320 311 \0 311 002 021
0035220 002 001 I @ H 302 345 j 360 221 j 020 k 020 \0 N
0035240 I L \r ( 6 \ M A S K O U T . M
0035260 A R G I N ) \r ( ) \r \ P U T B A
0035300 S E B I T D 1 \r ( L ( 2 V
0035320 A L 1 O F F S T 0 B A S
0035340 E ) ) \0 4 003 \0 \0 003 A 342 342 342 ` \0
0035360 \0 l \a A l \a 345 331 340 320 311 \0 311 002 021 022
0035400 002 @ H 302 Z I J 345 j 360 225 B j 360 h 360
0035420 202 B j 360 225 @ H I J 346 307 B 020 \0 N I
0035440 L \r ( 6 \ M A S K O U T . M A
0035460 R G I N ) \r ( ) \r N E W T R U N
0035500 C A T E M U L T I P L Y D 1 \r
0035520 ( L ( 1 Y 0 X ) ) 001 003
0035540 \b \0 \0 002 j d 021 " 003 021 @ \a A @ 361 227
0035560 A @ b 002 277 b \0 200 @ 004 d k 360 262 023 277
0035600 j @ 361 244 j 274 @ 260 025 n 377 377 274 @ 323 213
0035620 l 002 360 264 \t @ 310 \0 274 @ 310 001 ] 263 2 @
0035640 l 033 i \v \0 \0 b \0 260 321 n 377 377 276 A 323
0035660 213 l 002 360 264 \t A 310 \0 276 A 310 001 _ 016 265
0035700 003 202 261 \0 216 A l 033 i \v \0 \0 b 002 277 A
0035720 004 d k 360 262 335 277 j A 361 263 320 j 276 A 260
0035740 336 J k 330 331 270 n 377 377 M 331 273 I K 361 244
0035760 I M 330 260 024 H d n 377 377 360 222 277 j 201 k
0036000 330 270 I K k 330 331 271 N j 360 235 O 016 342 _
0036020 016 j 360 262 ! 023 H I 365 020 O 016 342 _ 016 277
0036040 N d k 345 j 360 252 277 O 016 n 200 \0 330 _ 016
0036060 277 N 342 276 L n 177 377 345 340 274 M d n 177 377
0036100 361 231 277 L k 324 274 M n 177 377 345 340 275 O 016
0036120 k 345 j 360 263 264 n 377 377 L 331 272 H d J 361
0036140 263 201 L 330 260 201 \0 ( 1 4 7 Q \ L I
0036160 S P E R R O R 1 0 1 Q \ L I
0036200 S P E R R O R ) \r N I L \r ( ) \r
0036220 ( P R E T T Y C O M P R I N T
0036240 A D D A R I T H C O M S ) \r ( R
0036260 P A Q Q A D D A R I T H C O M
0036300 S ( ( D E C L A R E : D O N
0036320 T C O P Y E V A L @ C O M P I
0036340 L E E V A L @ L O A D ( P
0036360 ( S E T Q C L I S P I F T R A
0036400 N F L G T ) ) ) ( L O C A L
0036420 V A R S \r . T ) ( C O M S
0036440 ( * R a t i o n a l o p e
0036460 r a t i o n s a n d u s e f
0036500 u l c o n s t a n t s ) ( F
0036520 N S \ R T I M E S 2 \ R P L
0036540 U S 2 \ R M I N U S C R E A
0036560 T E R A T I O N A L \r R A T I
0036600 O N A L T O I N T E G E R ) (
0036620 R E C O R D S R A T I O N A L
0036640 ) ) ( C O M S ( * \r " T h
0036660 e s e f a c i l i t i e s s
0036700 h o u l d b e c o m m o n
0036720 w i t h I n t e r l i s p - 1
0036740 0 a n d I n t e r l i s p -
0036760 V A X " ) ( C O M S ( * \r
0037000 " V e c t o r s a r e f a s
0037020 t e q u i v a l e n t s t o
0037040 0 - o r i g i n P O I N T E
0037060 R a r r a y s " ) ( M A C R
0037100 O S \ V e c t o r L E N G T H
0037120 \ M a k e V e c t o r \r \ V
0037140 e c t o r R E F \ V e c t o r
0037160 S E T ) ( F N S \ V e c t o
0037200 r L E N G T H \ M a k e V e c
0037220 t o r \ V e c t o r R E F \
0037240 V e c t o r S E T ) ) ( C O M
0037260 S ( * \r " B i t m a s k
0037300 f u n c t i o n s " ) ( F N S
0037320 \ S E T U P . M A S K A R R A
0037340 Y S ) ( P R O P G L O B A L
0037360 V A R \ R J 1 M \ M A S K O
0037400 U T . M A R G I N ) ( D E C L
0037420 A R E : \r D O N T E V A L @ L
0037440 O A D D O C O P Y ( P ( \
0037460 S E T U P . M A S K A R R A Y S
0037500 ) ) ) ( M A C R O S M A S K
0037520 . 1 ' S M A S K . 0 ' S B I
0037540 T T E S T B I T S E T B I T
0037560 C L E A R L O G N O T \r ) (
0037600 F N S \ M A S K . 1 ' S . E X
0037620 P A N D E R ) ( F N S M A S
0037640 K . 1 ' S M A S K . 0 ' S B
0037660 I T T E S T B I T S E T B I
0037700 T C L E A R L O G N O T ) (
0037720 D E C L A R E : D O N T C O P
0037740 Y \r E V A L @ C O M P I L E
0037760 ( * " G r u m b l e l o s s
0040000 a g e d d u e t o f a i l
0040020 u r e o f ( F N S . . . )
0040040 \r \t w h e n m e r e l y E
0040060 V A L @ C O M P I L E " ) ( F
0040100 N S \ M A S K . 1 ' S . E X P
0040120 A N D E R ) ) ) ( C O M S (
0040140 * " B Y T E h a c k i n g
0040160 f u n c t i o n s " ) ( R E C
0040200 O R D S \r B Y T E S P E C )
0040220 ( D E C L A R E : D O N T C O
0040240 P Y ( E X P O R T ( M A C R
0040260 O S \ C H E C K . B Y T E S P
0040300 E C \ I N D E X A B L E . F I
0040320 X P ) ) ) ( F N S L O A D B
0040340 Y T E \r D E P O S I T B Y T E
0040360 ) ( M A C R O S L O A D B Y
0040400 T E D E P O S I T B Y T E L
0040420 D B D P B B Y T E B Y T E
0040440 S I Z E B Y T E P O S I T I O
0040460 N ) ( F N S \ L D B E X P A
0040500 N D E R \r \ D P B E X P A N D
0040520 E R \ L O A D B Y T E E X P A
0040540 N D E R \ D E P O S I T B Y T
0040560 E E X P A N D E R ) ( D E C L
0040600 A R E : D O N T C O P Y E V
0040620 A L @ C O M P I L E ( * \r "
0040640 G r u m b l e l o s s a g e d
0040660 d u e t o f a i l u r e
0040700 o f ( F N S . . . ) \r \t w
0040720 h e n m e r e l y E V A L @
0040740 C O M P I L E " ) ( F N S \
0040760 L O A D B Y T E E X P A N D E R
0041000 \ D E P O S I T B Y T E E X P
0041020 A N D E R ) ) ) ) ( C O M S
0041040 ( * \r " S o m e v e r s i o
0041060 n o f t h e f o l l o w i
0041100 n g s h o u l d b e d o n
0041120 e i n M A C H I N E D E P E
0041140 N D E N T f o r t h e \r
0041160 o t h e r I n t e r
0041200 l i s p s . " ) ( G L O B A L
0041220 R E S O U R C E S \ M O D L E
0041240 S S P B O X ) ( F N S I M O
0041260 D L E S S P I M O D P L U S
0041300 I M O D D I F F E R E N C E )
0041320 ( \r M A C R O S I M O D P L U
0041340 S I M O D D I F F E R E N C E
0041360 ) ( F N S R O T ) ( M A C
0041400 R O S R O T ) ( F N S \ R
0041420 O T e x p a n d e r ) ) ( C O
0041440 M S ( * \r " P r i m i t i v
0041460 e F u n c t i o n s f o r
0041500 e x t r a c t i n g f i e l d
0041520 s a s i n t e g e r s " )
0041540 ( M A C R O S \ X L O A D B Y
0041560 T E W O R D ) ( F N S \ X L
0041600 O A D B Y T E \r \ X L O A D B
0041620 Y T E W O R D \ X D E P O S I
0041640 T B Y T E \ X D E P O S I T B
0041660 Y T E W O R D \ X L L S H W O
0041700 R D \ X L R S H W O R D ) (
0041720 F N S \ G E T B A S E B I T S
0041740 \ P U T B A S E B I T S \r \
0041760 G E T B A S E I N T E G E R \
0042000 P U T B A S E I N T E G E R )
0042020 ( * \r " P r i m i t i v e f
0042040 u n c t i o n s , e s p e c i
0042060 a l l y n e e d e d f o r
0042100 C o m m o n L i s p a r r a y
0042120 p a c k a g e . " ) ( D E C
0042140 L A R E : D O N T C O P Y (
0042160 M A C R O S \r . H I H A L F W
0042200 O R D L O . . H I H A L F W O
0042220 R D H I . . L O H A L F W O R
0042240 D L O . . L O H A L F W O R D
0042260 H I . ) ( E X P O R T ( M A
0042300 C R O S \ G E T B A S E N I B
0042320 B L E \r \ P U T B A S E N I B
0042340 B L E \ G E T B A S E B I T
0042360 \ P U T B A S E B I T ) ) ) (
0042400 F N S \ G E T B A S E N I B B
0042420 L E \ P U T B A S E N I B B L
0042440 E \ G E T B A S E B I T \ P
0042460 U T B A S E B I T ) ) \r ( C O
0042500 M S ( * " B e g i n n i n g
0042520 o f r e w r i t e o f s
0042540 o m e L L A R I T H t h i n
0042560 g s , m o d u l a r l y u s
0042600 i n g t h e m a c r o s o
0042620 f \r \t t h i s f i l e
0042640 " ) ( D E C L A R E : D O N
0042660 T C O P Y ( E X P O R T ( C
0042700 O N S T A N T S M A S K 0 W O
0042720 R D 1 ' S M A S K 1 W O R D 0
0042740 ' S M A S K W O R D 1 ' S \r
0042760 M A S K H A L F W O R D 1 ' S
0043000 B I T S P E R H A L F W O R D )
0043020 ( M A C R O S E Q Z E R O P
0043040 ) ( M A C R O S \ M O V E T
0043060 O B O X . X U N B O X . . X
0043100 L L S H . . X L L S H 1 . .
0043120 X L R S H . \r . A D D . 2 W O
0043140 R D . I N T E G E R S . . S U
0043160 B . 2 W O R D . I N T E G E R S
0043200 . . 3 2 B I T M U L . ) ( M
0043220 A C R O S . S U M S M A L L M
0043240 O D . . D I F F E R E N C E S
0043260 M A L L M O D . ) ) ( \r M A C
0043300 R O S . A D D . 2 W O R D . I
0043320 N T E G E R S . . S U B . 2 W
0043340 O R D . I N T E G E R S . . 3
0043360 2 B I T M U L . ) ) ( F N S
0043400 N E W T R U N C A T E M U L T I
0043420 P L Y ) ) ) ) \r ( R E C O R D
0043440 R A T I O N A L ( N U M E R A
0043460 T O R . D E N O M I N A T O
0043500 R ) ( T Y P E ? ( A N D (
0043520 L I S T P D A T U M ) ( F I
0043540 X P ( C A R D A T U M ) )
0043560 ( F I X P ( C D R \r D A T U
0043600 M ) ) ) ) ( C R E A T E ( C
0043620 R E A T E R A T I O N A L N U
0043640 M E R A T O R D E N O M I N A
0043660 T O R ) ) ) \r ( P U T P R O P S
0043700 \ V e c t o r L E N G T H M
0043720 A C R O ( = . \ # B L O C
0043740 K D A T A C E L L S ) ) \r ( P U
0043760 T P R O P S \ M a k e V e c t
0044000 o r D M A C R O ( ( N ) (
0044020 \ A L L O C B L O C K N P T
0044040 R B L O C K . G C T ) ) ) \r ( P
0044060 U T P R O P S \ V e c t o r R
0044100 E F D M A C R O ( ( V I )
0044120 ( \ G E T B A S E P T R V
0044140 ( L L S H I 1 ) ) ) ) \r ( P
0044160 U T P R O P S \ V e c t o r S
0044200 E T D M A C R O ( ( V I
0044220 V A L ) ( \ R P L P T R V
0044240 ( L L S H I 1 ) V A L ) )
0044260 ) \r ( P U T P R O P S \ R J 1
0044300 M G L O B A L V A R T ) \r (
0044320 P U T P R O P S \ M A S K O U
0044340 T . M A R G I N G L O B A L V
0044360 A R T ) \r ( \ S E T U P . M A
0044400 S K A R R A Y S ) \r ( P U T P R
0044420 O P S M A S K . 1 ' S M A C
0044440 R O ( X ( \ M A S K . 1 ' S
0044460 . E X P A N D E R X ) ) ) \r (
0044500 P U T P R O P S M A S K . 0 '
0044520 S M A C R O ( X ( P R O G
0044540 ( ( P O S I T I O N ( C A R
0044560 X ) ) ( S I Z E ( C A D R
0044600 X ) ) T E M ) ( * T h i
0044620 s u s e d t o h a v e a
0044640 l o t \r m o r e i n i t
0044660 , b u t I d e c i d e d
0044700 t h a t i t r e a l l y i
0044720 s n ' t a n i m p o r t a n
0044740 t f u n c t i o n . ) ( R E
0044760 T U R N ( i f ( A N D ( S
0045000 E T Q T E M ( \r E V A L U A
0045020 B L E . C O N S T A N T . F I X
0045040 P P O S I T I O N ) ) ( S E
0045060 T Q P O S I T I O N T E M )
0045100 ( S E T Q T E M ( E V A L
0045120 U A B L E . C O N S T A N T . F
0045140 I X P S I Z E ) ) ( S E T Q
0045160 \r S I Z E T E M ) ) t h e
0045200 n ( M A S K . 0 ' S P O S I
0045220 T I O N S I Z E ) e l s e
0045240 ( L I S T ( Q U O T E L O G
0045260 N O T ) ( L I S T ( Q U O T
0045300 E M A S K . 1 ' S ) P O S I
0045320 T I O N \r S I Z E ) ) ) ) ) )
0045340 ) \r ( P U T P R O P S B I T T
0045360 E S T M A C R O ( ( N M A
0045400 S K ) ( N E Q 0 ( L O G A
0045420 N D N M A S K ) ) ) ) \r ( P
0045440 U T P R O P S B I T S E T M
0045460 A C R O ( = . L O G O R )
0045500 ) \r ( P U T P R O P S B I T C
0045520 L E A R M A C R O ( ( X M
0045540 A S K ) ( L O G A N D X (
0045560 L O G X O R - 1 M A S K ) )
0045600 ) ) \r ( P U T P R O P S L O G
0045620 N O T M A C R O ( ( N ) (
0045640 L O G X O R - 1 N ) ) ) \r (
0045660 T Y P E R E C O R D B Y T E S
0045700 P E C ( B Y T E S P E C . S I
0045720 Z E B Y T E S P E C . P O S I
0045740 T I O N ) ) \r ( P U T P R O P S
0045760 L O A D B Y T E M A C R O
0046000 ( X ( \ L O A D B Y T E E X P
0046020 A N D E R X ) ) ) \r ( P U T P
0046040 R O P S D E P O S I T B Y T E
0046060 M A C R O ( X ( \ D E P O
0046100 S I T B Y T E E X P A N D E R
0046120 X ) ) ) \r ( P U T P R O P S L
0046140 D B M A C R O ( X ( \ L D
0046160 B E X P A N D E R X ) ) ) \r (
0046200 P U T P R O P S D P B M A C
0046220 R O ( X ( \ D P B E X P A N
0046240 D E R X ) ) ) \r ( P U T P R O
0046260 P S B Y T E M A C R O ( X
0046300 ( P R O G ( ( S I Z E ( L
0046320 I S P F O R M . S I M P L I F Y
0046340 ( C A R X ) T ) ) ( P O
0046360 S I T I O N ( L I S P F O R M
0046400 . S I M P L I F Y ( C A D R \r
0046420 X ) T ) ) ) ( R E T U R N
0046440 ( i f ( A N D ( F I X P
0046460 P O S I T I O N ) ( F I X P
0046500 S I Z E ) ) t h e n ( K W O
0046520 T E ( c r e a t e B Y T E S
0046540 P E C B Y T E S P E C . S I Z
0046560 E _ \r S I Z E B Y T E S P
0046600 E C . P O S I T I O N _ P O
0046620 S I T I O N ) ) e l s e ( B
0046640 Q U O T E ( c r e a t e B Y
0046660 T E S P E C B Y T E S P E C .
0046700 S I Z E _ , S I Z E \r B
0046720 Y T E S P E C . P O S I T I O N
0046740 _ , P O S I T I O N ) ) )
0046760 ) ) ) ) \r ( P U T P R O P S B
0047000 Y T E S I Z E M A C R O ( (
0047020 B Y T E S P E C ) ( f e t c h
0047040 B Y T E S P E C . S I Z E o
0047060 f B Y T E S P E C ) ) ) \r ( P
0047100 U T P R O P S B Y T E P O S I
0047120 T I O N M A C R O ( ( B Y T
0047140 E S P E C ) ( f e t c h B Y
0047160 T E S P E C . P O S I T I O N
0047200 o f B Y T E S P E C ) ) ) \r (
0047220 / S E T T O P V A L ( Q U O T
0047240 E \ \ M O D L E S S P B O X .
0047260 G L O B A L R E S O U R C E ) )
0047300 \r ( P U T P R O P S I M O D P
0047320 L U S D M A C R O ( L ( P
0047340 R O G ( ( X ( C A R L ) )
0047360 ( Y ( C A D R L ) ) ( M
0047400 O D U L U S ( C A D D R L )
0047420 ) ) ( A N D ( \r C O N S T A
0047440 N T E X P R E S S I O N P M O
0047460 D U L U S ) ( E Q ( S E T Q
0047500 M O D U L U S ( E V A L M
0047520 O D U L U S ) ) ( Q U O T E
0047540 C E L L ) ) ( R E T U R N (
0047560 S U B L I S ( L I S T ( \r C
0047600 O N S ( Q U O T E X ) X )
0047620 ( C O N S ( Q U O T E Y )
0047640 Y ) ) ( Q U O T E ( ( L A
0047660 M B D A ( \ O V E R F L O W )
0047700 ( I P L U S X Y ) ) 0 )
0047720 ) ) ) ) ( R E T U R N ( Q U
0047740 O T E \r I G N O R E M A C R O
0047760 ) ) ) ) ) \r ( P U T P R O P S
0050000 I M O D D I F F E R E N C E D
0050020 M A C R O ( L ( P R O G (
0050040 ( X ( C A R L ) ) ( Y (
0050060 C A D R L ) ) ( M O D U L U
0050100 S ( C A D D R L ) ) ) ( A
0050120 N D ( \r C O N S T A N T E X P
0050140 R E S S I O N P M O D U L U S
0050160 ) ( E Q ( S E T Q M O D U
0050200 L U S ( E V A L M O D U L U
0050220 S ) ) ( Q U O T E C E L L )
0050240 ) ( R E T U R N ( S U B L I
0050260 S ( L I S T ( \r C O N S (
0050300 Q U O T E X ) X ) ( C O N
0050320 S ( Q U O T E Y ) Y ) )
0050340 ( Q U O T E ( ( L A M B D A
0050360 ( \ O V E R F L O W ) ( I D I
0050400 F F E R E N C E X Y ) ) 0
0050420 ) ) ) ) ) ( R E T U R N ( \r
0050440 Q U O T E I G N O R E M A C R
0050460 O ) ) ) ) ) \r ( P U T P R O P S
0050500 R O T D M A C R O ( L (
0050520 \ R O T e x p a n d e r L ) )
0050540 ) \r ( P U T P R O P S \ X L O
0050560 A D B Y T E W O R D D M A C R
0050600 O ( ( N P O S S I Z E )
0050620 ( * N i s c o n s t r a i
0050640 n e d t o b e a S M A L
0050660 L P ) ( L O G A N D ( \ X L
0050700 R S H W O R D \r N P O S )
0050720 ( M A S K . 1 ' S 0 ( I M I
0050740 N B I T S P E R W O R D S I
0050760 Z E ) ) ) ) ) \r ( P U T P R O P
0051000 S A D D A R I T H C O P Y R
0051020 I G H T ( " X e r o x C o r
0051040 p o r a t i o n " 1 9 8 2 1
0051060 9 8 3 1 9 8 4 1 9 8 5 ) ) \r
0051100 N I L \r
0051104