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