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