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