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