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