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