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