$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>LLDATATYPE.DCOM!2
0000000 ( F I L E C R E A T E D " 1 4
0000020 - S e p - 8 4 0 3 : 0 9 : 2 1
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 > L L D A T A
0000120 T Y P E . ; 8 ) \r " 7 - S e
0000140 p - 8 4 1 8 : 2 8 : 4 7 " r
0000160 e c o m p i l e d c h a n g e
0000200 s : \ A L L O C M D S P A G E
0000220 i n " I N T E R L I S P - D
0000240 7 - S e p - 8 4 . . . "
0000260 d a t e d \r " 7 - S e p - 8
0000300 4 2 3 : 5 4 : 0 6 " ) \r ( F I
0000320 L E C R E A T E D " 1 4 - S e
0000340 p - 8 4 0 3 : 0 9 : 0 0 " {
0000360 E R I S } < L I S P C O R E > S
0000400 O U R C E S > L L D A T A T Y P
0000420 E . ; 8 3 2 0 7 2 c h a n g
0000440 e s t o : ( F N S \r \ A L
0000460 L O C M D S P A G E ) ( R E C
0000500 O R D S D T D ) ( V A R S
0000520 L L D A T A T Y P E C O M S )
0000540 p r e v i o u s d a t e : "
0000560 1 5 - A u g - 8 4 1 4 : 5 0 :
0000600 1 0 " \r { E R I S } < L I S P
0000620 C O R E > S O U R C E S > L L D
0000640 A T A T Y P E . ; 6 ) \r N T Y P
0000660 X D 1 \r ( L ( 0 X ) ) \0
0000700 023 \0 \0 \0 001 ` \0 \0 @ 322 341 @ 323 343 330 342
0000720 320 310 \0 l 377 345 020 \0 N I L \r ( 2 \
0000740 M D S T y p e T a b l e ) \r N I
0000760 L \r \ A L L O C M D S P A G E
0001000 D 1 \r ( L ( 0 T Y P ) F
0001020 4 \ L A S T A R R A Y P A G E
0001040 ) \0 211 004 001 \0 001 ` \0 \0 021 1 003 H 265
0001060 025 ` \0 \0 X n \r 377 361 263 5 H l 002 330 027
0001100 \0 \0 260 8 Z 343 J l 377 345 341 321 Y 311 \0 027
0001120 \0 \0 262 > ` \0 \0 005 001 263 7 l 032 o \0 \0
0001140 \0 ` \0 \0 h 027 \0 \0 277 \v \0 \0 260 # T k
0001160 331 X k 331 c \b 277 \b \0 \0 277 H [ 343 K l
0001200 377 345 341 321 Y \t \0 \0 n 001 \0 320 \t \0 \0 277
0001220 H n 377 370 ` \0 \0 310 001 361 245 @ n 200 \0 344
0001240 211 @ d l \n 360 223 277 n @ \n \n \0 \0 I 020
0001260 \0 ( 2 0 5 Q \ M A K E M D S E
0001300 N T R Y 1 4 6 Q \ N E W P A
0001320 G E 1 3 7 Q \ N E W P A G E
0001340 1 2 1 Q \ C H E C K F O R S
0001360 T O R A G E F U L L 1 0 3 Q
0001400 \ M P . E R R O R ) \r ( 1 5 6 Q
0001420 \ H T C O L L 7 7 Q \ M D
0001440 S F R E E L I S T P A G E 7 3
0001460 Q \ M D S F R E E L I S T P A
0001500 G E 5 6 Q \ M D S F R E E L
0001520 I S T P A G E 5 1 Q \ M D S
0001540 F R E E L I S T P A G E 3 1 Q
0001560 \ N x t M D S P a g e 1 3 Q
0001600 \ N x t M D S P a g e 2 \
0001620 M D S F R E E L I S T P A G E )
0001640 \r ( 7 0 Q " M D S F r e e
0001660 P a g e l i s t b a d .
0001700 ^ N t o c o n t i n u e "
0001720 ) \r \ M A P M D S D 1 \r ( L
0001740 ( 1 F N 0 T Y P E ) ) \0
0001760 k 006 \0 \0 002 @ 236 @ d 005 001 241 005 002 246 @
0002000 \t \0 \0 b \0 277 n 001 \0 n : 377 021 B 005 H
0002020 [ n \r 377 361 263 % ` \0 \0 K 361 264 . K l
0002040 002 330 270 K ] 343 M l 377 345 341 321 Z 004 \ j
0002060 360 263 336 L k 360 262 025 260 327 I k 331 [ X k
0002100 331 271 ` \0 \0 K 361 262 334 h 020 @ 224 L @ 360
0002120 262 277 J 322 341 J 323 343 330 k A 016 277 260 262 \0
0002140 ( 1 5 Q \ T Y P E N U M B E R
0002160 F R O M N A M E ) \r ( 1 1 7 Q
0002200 \ N x t M D S P a g e 4 4 Q
0002220 \ N x t M D S P a g e ) \r N I L
0002240 \r \ C H E C K F O R S T O R A G
0002260 E F U L L D 1 \r N I L \0 U \0
0002300 \0 \0 \0 ` \0 \0 ` \0 \0 361 233 l 024 o \0 \0
0002320 \0 \n \0 \0 277 260 366 l 200 ` \0 \0 ` \0 \0 331
0002340 361 264 5 ` \0 \0 ` \0 \0 331 m 376 345 l @ 360
0002360 232 l 031 o \0 \0 \0 \n \0 \0 260 030 ` \0 \0 263
0002400 024 i 027 \0 \0 277 ` \0 \0 k 317 \0 ` 277 i 027
0002420 \0 \0 277 \b \0 \0 020 \0 ( 1 2 2 Q \ D
0002440 O R E C L A I M 6 6 Q \ M P
0002460 . E R R O R 2 0 Q \ M P . E
0002500 R R O R ) \r ( 1 1 6 Q \ P E N
0002520 D I N G I N T E R R U P T 1 0
0002540 5 Q \ I N T E R R U P T S T A
0002560 T E 1 0 1 Q \ S T O R A G E
0002600 F U L L 7 3 Q \ S T O R A G
0002620 E F U L L 4 5 Q \ N x t A r
0002640 r a y P a g e 4 2 Q \ L A S
0002660 T A R R A Y P A G E 3 3 Q \
0002700 N x t A r r a y P a g e 3 0 Q
0002720 \ L A S T A R R A Y P A G E
0002740 5 \ L A S T A R R A Y P A G E
0002760 2 \ N x t A r r a y P a g e
0003000 ) \r ( 6 3 Q " S p a c e g
0003020 e t t i n g V E R Y f u l l
0003040 . P l e a s e s a v e a n
0003060 d r e l o a d a . s . a . p
0003100 . T y p e c o n t r o l - N
0003120 t o c o n t i n u e n o w
0003140 . " 1 5 Q " S t o r a g e
0003160 c o m p l e t e l y f u l l "
0003200 ) \r \ N E W 2 P A G E D 1 \r (
0003220 L ( 0 B A S E ) ) \0 \r \0 \0
0003240 \0 001 @ \t \0 \0 n 001 \0 320 \t \0 \0 020 \0 (
0003260 1 2 Q \ N E W P A G E 3 \
0003300 N E W P A G E ) \r N I L \r N I L
0003320 \r \ M A K E M D S E N T R Y D
0003340 1 \r ( L ( 1 V 0 V P ) )
0003360 \0 \f \0 \0 \0 002 ` \0 \0 @ 342 320 A 315 \0
0003400 A 020 \0 N I L \r ( 2 \ M D S T y
0003420 p e T a b l e ) \r N I L \r \ G C
0003440 T Y P E D 1 \r ( L ( 1 D T
0003460 D 0 T Y P E N U M ) ) \0
0003500 002 \0 \0 002 @ l 005 360 263 031 A @ \t \0 \0 A
0003520 310 001 A 311 002 \v \0 \0 021 002 001 H I 316 002 I
0003540 020 h 020 \0 ( 2 3 Q \ I N I T M D
0003560 S P A G E 1 2 Q \ A L L O C
0003600 M D S P A G E ) \r N I L \r N I L
0003620 \r \ I N I T M D S P A G E D 1
0003640 \r ( L ( 2 P R E V 1 S I
0003660 Z E 0 B A S E ) ) \0 # 001 \0
0003700 \0 003 j 021 001 \0 H A 330 n 002 \0 361 263 025 @
0003720 B 316 \0 277 @ b 004 A 320 b \0 277 H A 330 X
0003740 260 347 B 020 \0 N I L \r N I L \r N I L
0003760 \r A S S I G N D A T A T Y P E
0004000 D 1 \r ( L ( 5 G V N A M E
0004020 4 P T R F I E L D S 3 S P
0004040 E C S 2 S I Z E 1 D E S
0004060 C R I P T O R S 0 N A M E )
0004100 P 2 \ I N T E R R U P T A
0004120 B L E F 3 A S S I G N D A
0004140 T A T Y P E . A S K U S E R W A
0004160 I T ) \0 330 003 001 \0 006 @ \t \0 \0 021 021
0004200 001 H 262 i ` \0 \0 H 340 340 340 340 320 271 A I
0004220 311 004 \n \0 \0 263 " ` \0 \0 i 360 263 033 ` \0
0004240 \0 262 030 S g \0 \0 o \0 \0 \0 @ h 032 032 \v
0004260 \0 \0 g \0 \0 360 241 H 020 H ` \0 \0 361 262 025
0004300 I g \0 \0 323 315 \0 277 I h 024 004 277 I h 024
0004320 006 260 031 B I 310 001 360 230 D I 311 \b \n \0 \0
0004340 263 327 o \0 \0 \0 @ \n \0 \0 277 ` \0 \0 l 377
0004360 360 226 @ l " \n \0 \0 277 021 020 002 ` \0 \0 k
0004400 330 027 \0 \0 270 ` \0 \0 H 340 340 340 340 320 Y d
0004420 323 l 377 345 l 020 330 l 377 361 232 277 I l 020 320
0004440 i \n \0 \0 277 I @ 323 315 \0 277 B j 360 263 !
0004460 I B 315 001 277 I A \t \0 \0 024 004 277 I C \t
0004500 \0 \0 024 006 277 I D 024 \b 277 H I \n \0 \0 H
0004520 020 \0 ( 3 2 4 Q \ G C T Y P E
0004540 3 0 7 Q C O P Y 2 7 7 Q C
0004560 O P Y 2 5 1 Q \ N E W P A G
0004600 E 1 7 5 Q \ L I S P E R R O
0004620 R 1 5 7 Q E R R O R 1 4 5
0004640 Q E Q U A L 6 7 Q A S K U
0004660 S E R 3 2 Q E Q U A L 3
0004700 \ T Y P E N U M B E R F R O M N
0004720 A M E ) \r ( 2 1 5 Q \ D T D S
0004740 p a c e B a s e 2 1 1 Q \ M
0004760 a x T y p e N u m b e r 2 0 4
0005000 Q \ M a x T y p e N u m b e r
0005020 1 6 3 Q \ M a x T y p e N u
0005040 m b e r 1 1 1 Q * * D E A L
0005060 L O C * * 1 0 2 Q \ M a x S
0005100 y s T y p e N u m 7 2 Q Y
0005120 5 4 Q N 4 6 Q C R O S S C
0005140 O M P I L I N G 3 7 Q C R O
0005160 S S C O M P I L I N G 1 4 Q
0005200 \ D T D S p a c e B a s e ) \r (
0005220 1 5 3 Q " I L L E G A L D
0005240 A T A T Y P E " 6 0 Q " O
0005260 K T O R E D E C L A R E D
0005300 A T A T Y P E " ) \r \ T Y P E
0005320 N U M B E R F R O M N A M E D
0005340 1 \r ( L ( 0 T Y P E ) ) \0
0005360 2 002 \0 \0 001 @ d 262 . g \0 \0 360 h 360 264
0005400 & ` \0 \0 k 021 002 001 I H 361 263 031 @ 323 `
0005420 \0 \0 I 340 340 340 340 320 310 \0 360 221 I 020 I k
0005440 330 Y 260 347 h 020 \0 N I L \r ( 3 4 Q
0005460 \ D T D S p a c e B a s e 1 6
0005500 Q \ M a x T y p e N u m b e r
0005520 6 * * D E A L L O C * * ) \r
0005540 N I L \r C R E A T E C E L L D
0005560 1 \r ( L ( 0 T Y P ) ) \0 006
0005600 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 \ C R
0005620 E A T E C E L L ) \r N I L \r N I
0005640 L \r \ C R E A T E C E L L D 1
0005660 \r ( L ( 0 T Y P ) P 4
0005700 \ I N T E R R U P T A B L E )
0005720 \0 240 005 \0 \0 001 ` \0 \0 @ 340 340 340 340 320 021
0005740 A 004 H 311 002 265 \a @ H \n \0 \0 271 @ l 005
0005760 360 227 o \0 \0 \0 \t \0 \0 277 H I 311 \0 265 016
0006000 d h 316 002 277 @ H \n \0 \0 277 201 316 002 277 H
0006020 l \n 320 Z d 310 001 d n 377 377 360 262 031 277 J
0006040 d d 310 \0 n 177 377 360 222 277 j 203 310 \0 k 330
0006060 315 \0 277 j 201 k 330 315 001 277 I 273 H 310 001 342
0006100 d j 361 235 K h 316 \0 277 K l 002 320 273 k 331
0006120 260 360 277 I 025 001 277 ` \0 \0 262 031 ` \0 \0 k
0006140 361 264 \v ` \0 \0 k 331 027 \0 \0 206 027 \0 \0 277
0006160 \b \0 \0 I 020 \0 ( 2 3 4 Q \ D O R
0006200 E C L A I M 6 3 Q \ G C T Y
0006220 P E 4 2 Q R A I D 2 5 Q
0006240 \ G C T Y P E ) \r ( 2 3 0 Q \
0006260 R E C L A I M . C O U N T D O W
0006300 N 2 2 4 Q \ R E C L A I M .
0006320 C O U N T D O W N 2 1 7 Q \
0006340 R E C L A I M . C O U N T D O W
0006360 N 2 1 0 Q \ R E C L A I M .
0006400 C O U N T D O W N 2 0 3 Q \
0006420 R E C L A I M . C O U N T D O W
0006440 N 2 \ D T D S p a c e B a s
0006460 e ) \r ( 3 7 Q " C R E A T E C
0006500 E L L \ L I S T P " ) \r F E T
0006520 C H F I E L D D 1 \r ( L ( 1
0006540 D A T U M 0 D E S C R I P
0006560 T O R ) ) 001 \n 005 \0 \0 002 @ 001 @ 002
0006600 001 021 2 004 H 227 A H \n \0 \0 b 002 277 @ 002
0006620 002 001 d g \0 \0 360 263 024 d g \0 \0 360 253 d
0006640 g \0 \0 360 245 d g \0 \0 360 226 277 A I 320 311
0006660 \0 020 d g \0 \0 360 236 277 A I 320 310 \0 A I
0006700 320 310 001 \n \0 \0 020 d g \0 \0 360 234 277 A I
0006720 320 310 \0 A I 320 310 001 365 020 g \0 \0 360 233 A
0006740 I 320 310 001 A I 320 310 \0 365 020 @ 002 002 001 I
0006760 273 Z 001 d g \0 \0 360 262 027 277 A K 320 310 \0
0007000 J 002 \t \0 \0 \n \0 \0 J 002 \t \0 \0 345 020 d
0007020 g \0 \0 360 262 3 277 A K 320 310 \0 J 002 \t \0
0007040 \0 \n \0 \0 J 002 \t \0 \0 345 J 002 \t \0 \0 274
0007060 d k L k 331 \n \0 \0 k 331 361 231 k L \n \0
0007100 \0 k 331 331 k 331 020 d g \0 \0 360 262 035 277 A
0007120 K 320 310 \0 J 002 \t \0 \0 \n \0 \0 J 002 \t \0
0007140 \0 345 A K 320 310 001 365 020 g \0 \0 360 237 A K
0007160 320 310 \0 J 002 \t \0 \0 345 j 360 h 360 020 @ l
0007200 033 \n \0 \0 020 \0 ( 4 0 7 Q \ L I S
0007220 P E R R O R 3 7 3 Q B i t F
0007240 i e l d S h i f t e d M a s k
0007260 3 4 4 Q B i t F i e l d M a s
0007300 k 3 3 7 Q L R S H 3 3 4 Q
0007320 B i t F i e l d S h i f t 3
0007340 0 4 Q L L S H 2 7 3 Q L L
0007360 S H 2 6 2 Q B i t F i e l d
0007400 W i d t h 2 5 4 Q B i t F i
0007420 e l d M a s k 2 4 7 Q L R S
0007440 H 2 4 4 Q B i t F i e l d S
0007460 h i f t 2 2 0 Q B i t F i e
0007500 l d M a s k 2 1 3 Q L R S H
0007520 2 1 0 Q B i t F i e l d S h
0007540 i f t 1 1 1 Q M A K E F L O
0007560 A T N U M B E R 1 6 Q \ D T
0007600 E S T ) \r ( 3 5 7 Q F L A G B
0007620 I T S 3 1 6 Q L O N G B I T
0007640 S 2 2 6 Q S I G N E D B I T
0007660 S 1 7 2 Q B I T S 1 4 0 Q
0007700 S W A P P E D F I X P 1 1 6
0007720 Q F I X P 7 1 Q F L O A T
0007740 P 5 4 Q F U L L X P O I N T
0007760 E R 4 6 Q F U L L P O I N T
0010000 E R 4 0 Q X P O I N T E R
0010020 3 1 Q P O I N T E R ) \r N I L
0010040 \r R E P L A C E F I E L D D 1
0010060 \r ( L ( 2 N E W V A L U E
0010100 1 D A T U M 0 D E S C R I
0010120 P T O R ) P 1 3 Q \ I N T
0010140 E R R U P T A B L E ) 001 367 \f \0
0010160 \0 003 @ 002 001 @ 002 002 001 @ 001 021 S \a J 227
0010200 A J \n \0 \0 b 002 277 I g \0 \0 360 247 I d
0010220 g \0 \0 360 230 277 A H 320 B 024 \0 B 020 g \0
0010240 \0 360 262 030 A H 340 k 330 B 322 l 377 345 307 A
0010260 H k 330 320 B 323 315 \0 B 020 I d g \0 \0 360
0010300 230 277 A H 320 B 316 \0 B 020 g \0 \0 360 227 A
0010320 H 320 B \n \0 \0 020 I d g \0 \0 360 231 277 A
0010340 H 320 B \n \0 \0 B 020 g \0 \0 360 230 A H 320
0010360 B \n \0 \0 B 020 I 001 d g \0 \0 360 262 = 277
0010400 A H A H 320 310 \0 I 002 \t \0 \0 \ I 002 \t
0010420 \0 \0 [ \n \0 \0 n 377 377 346 345 B L 345 K \n
0010440 \0 \0 344 021 003 \n O 020 O 022 320 O 024 315 \0 277
0010460 O 024 022 K \n \0 \0 L 345 020 d g \0 \0 360 262
0010500 j 277 A H A H 320 310 \0 I 002 \t \0 \0 \ I
0010520 002 \t \0 \0 [ \n \0 \0 n 377 377 346 345 B k I
0010540 002 \t \0 \0 \n \0 \0 k 331 L 345 345 K \n \0 \0
0010560 344 021 003 \n O 020 O 022 320 O 024 315 \0 277 O 024
0010600 022 K \n \0 \0 L 345 ] k I 002 \t \0 \0 k 331
0010620 \n \0 \0 k 331 361 237 M k I 002 \t \0 \0 \n \0
0010640 \0 k 331 331 k 331 020 M 020 d g \0 \0 360 262 4
0010660 277 A H 320 A H 320 310 \0 I 002 \t \0 \0 \ I
0010700 002 \t \0 \0 [ \n \0 \0 n 377 377 346 345 B 223 n
0010720 377 377 200 j L 345 K \n \0 \0 344 315 \0 B 264 l
0010740 i 020 g \0 \0 360 262 { B 004 d l 002 360 233 277
0010760 B 310 \0 _ 016 277 B 310 001 260 034 d k 360 262 M
0011000 277 B 322 l 016 360 225 j _ 016 277 B 207 n 377 377
0011020 _ 016 277 B 323 276 021 020 \v A H 320 A H 320 310
0011040 \0 I 002 \t \0 \0 \ I 002 \t \0 \0 [ \n \0 \0
0011060 n 377 377 346 345 O 016 L 345 K \n \0 \0 344 315 \0
0011100 277 A H k 330 320 N 315 \0 B 020 l 003 360 227 B
0011120 \t \0 \0 b 004 260 224 B l \n \n \0 \0 b 004 260
0011140 212 @ l 033 \n \0 \0 020 \0 ( 7 6 4 Q \
0011160 L I S P E R R O R 7 5 2 Q \
0011200 L I S P E R R O R 7 4 0 Q \
0011220 F I X P . F R O M . F L O A T P
0011240 7 1 2 Q L L S H 6 7 5 Q
0011260 L L S H 6 7 1 Q B i t F i e
0011300 l d S h i f t 6 6 3 Q B i t
0011320 F i e l d M a s k 5 4 7 Q L
0011340 L S H 5 2 5 Q L L S H 5 2
0011360 1 Q B i t F i e l d S h i f t
0011400 5 1 3 Q B i t F i e l d M a
0011420 s k 4 5 6 Q L L S H 4 5 3
0011440 Q B i t F i e l d W i d t h
0011460 4 4 0 Q L L S H 4 3 3 Q B
0011500 i t F i e l d W i d t h 4 2 2
0011520 Q L R S H 3 7 5 Q L L S H
0011540 3 6 4 Q L L S H 3 6 1 Q
0011560 B i t F i e l d W i d t h 3 4
0011600 5 Q L L S H 3 4 1 Q B i t
0011620 F i e l d S h i f t 3 3 3 Q
0011640 B i t F i e l d M a s k 3 0 4
0011660 Q L R S H 2 5 7 Q L L S H
0011700 2 4 3 Q L L S H 2 3 7 Q
0011720 B i t F i e l d S h i f t 2 3
0011740 1 Q B i t F i e l d M a s k
0011760 2 0 1 Q \ P U T S W A P P E D
0012000 F I X P 1 6 3 Q \ P U T F I
0012020 X P 1 4 3 Q P u t F l o a t
0012040 2 2 Q \ D T E S T ) \r ( 5 6
0012060 2 Q L O N G B I T S 4 7 2 Q
0012100 F L A G B I T S 3 1 3 Q S
0012120 I G N E D B I T S 2 1 1 Q B
0012140 I T S 1 7 0 Q S W A P P E D
0012160 F I X P 1 5 1 Q F I X P 1
0012200 3 2 Q F L O A T P 1 1 4 Q
0012220 F U L L X P O I N T E R 5 6 Q
0012240 X P O I N T E R 4 0 Q F U
0012260 L L P O I N T E R 3 1 Q P O
0012300 I N T E R ) \r ( ) \r B O X C O U
0012320 N T D 1 \r ( L ( 1 N 0
0012340 T Y P E ) P 1 \ I N T E R
0012360 R U P T A B L E ) \0 C 002 \0 \0 002
0012400 ` \0 \0 @ d 005 001 247 265 005 l 002 202 \t \0 \0
0012420 340 340 340 340 320 021 001 \0 H 310 \n H 310 \v 365 H
0012440 310 \f 330 A d 005 001 245 d 005 002 241 005 003 262 023
0012460 021 020 001 H j 315 \f 277 H l \n 320 A \n \0 \0
0012500 023 020 \0 ( 7 7 Q \ P U T F I X P
0012520 1 7 Q \ T Y P E N U M B E R
0012540 F R O M N A M E ) \r ( 2 \ D T
0012560 D S p a c e B a s e ) \r N I L \r
0012600 C O N S C O U N T D 1 \r ( L
0012620 ( 0 N ) ) \0 \b \0 \0 \0 001 l 005 @
0012640 \n \0 \0 020 \0 ( 5 B O X C O U N T
0012660 ) \r N I L \r N I L \r \ D T E S T
0012700 D 1 \r ( L ( 1 T Y P E 0
0012720 O B J ) ) \0 \b \0 \0 \0 002 @ A 323
0012740 \n \0 \0 020 \0 ( 5 \ D T E S T F A
0012760 I L ) \r N I L \r N I L \r \ D T E
0013000 S T F A I L D 1 \r ( L ( 1
0013020 T Y P E N 0 O B J ) ) 001 o
0013040 002 \0 \0 002 ` \0 \0 @ 004 340 340 340 340 320 310 \0
0013060 A 360 221 @ 020 j A 321 d g \0 \0 360 225 277 @
0013100 \t \0 \0 020 d g \0 \0 360 262 @ @ m 377 g \0
0013120 \0 \n \0 \0 d g \0 \0 360 253 d g \0 \0 360 245
0013140 d g \0 \0 360 225 277 g \0 \0 260 033 d g \0 \0
0013160 360 253 d g \0 \0 360 245 d g \0 \0 360 224 277 g
0013200 \0 \0 201 277 h \n \0 \0 020 d g \0 \0 360 262 )
0013220 @ 265 023 ` \0 \0 265 \n @ l 3 i \v \0 \0 020
0013240 006 \0 \0 020 003 262 363 @ d 001 \t \0 \0 g \0 \0
0013260 360 262 350 277 @ 001 020 d g \0 \0 360 225 277 @ \t
0013300 \0 \0 020 d g \0 \0 360 262 S 277 021 001 @ 004
0013320 d l 002 360 231 277 @ 310 \0 270 @ 310 001 260 030 d
0013340 k 360 262 # 277 @ 322 l 016 360 223 j 270 @ 205 n
0013360 377 377 270 @ 323 271 H I 365 005 001 265 \t @ l 033
0013400 i \v \0 \0 020 l 003 360 227 @ \t \0 \0 b \0 260
0013420 300 @ l \n \n \0 \0 b \0 260 266 d g \0 \0 360
0013440 230 277 @ l 004 i \v \0 \0 020 d g \0 \0 360 230
0013460 277 @ l 016 i \v \0 \0 020 d g \0 \0 360 230 277
0013500 @ l 023 i \v \0 \0 020 d g \0 \0 360 230 277 @
0013520 l & i \v \0 \0 020 d g \0 \0 360 230 277 @ l
0013540 ' i \v \0 \0 020 d g \0 \0 360 230 277 @ l 034
0013560 i \v \0 \0 020 g \0 \0 360 227 o \0 \0 \0 \t \0
0013600 \0 020 @ o \0 \0 \0 j A 321 \n \0 \0 i \v \0
0013620 \0 020 \0 ( 5 5 4 Q \ L I S P E R
0013640 R O R 5 5 0 Q C O N C A T
0013660 5 3 4 Q E R R O R 5 1 7 Q
0013700 \ L I S P E R R O R 5 0 0 Q
0013720 \ L I S P E R R O R 4 6 1 Q
0013740 \ L I S P E R R O R 4 4 2 Q
0013760 \ L I S P E R R O R 4 2 3 Q
0014000 \ L I S P E R R O R 4 0 4 Q
0014020 \ L I S P E R R O R 3 6 2 Q
0014040 \ L I S P E R R O R 3 5 0 Q
0014060 \ F I X P . F R O M . F L O A T
0014100 P 3 3 7 Q \ L I S P E R R O
0014120 R 2 3 5 Q \ C O E R C E F O
0014140 N T D E S C 2 1 0 Q T Y P E
0014160 N A M E 1 7 2 Q \ L I S P E
0014200 R R O R 1 4 3 Q \ G E T S T
0014220 R E A M 5 7 Q S T K N T H N
0014240 A M E 3 6 Q \ F L O A T ) \r
0014260 ( 5 2 3 Q \ D I S P L A Y D A
0014300 T A 5 0 5 Q A R R A Y P 4
0014320 6 6 Q T E R M T A B L E P 4
0014340 4 7 Q R E A D T A B L E P 4
0014360 3 0 Q S T A C K P 4 1 1 Q
0014400 L I T A T O M 3 7 2 Q L I S
0014420 T P 2 4 2 Q S M A L L P 2
0014440 2 6 Q F O N T D E S C R I P T
0014460 O R 2 1 3 Q H A R R A Y P
0014500 1 7 6 Q H A R R A Y P 1 6 1
0014520 Q S Y S H A S H A R R A Y 1
0014540 5 0 Q H A R R A Y P 1 3 5 Q
0014560 O U T P U T 1 2 7 Q B O U
0014600 T 1 2 1 Q \ B O U T 1 1 3
0014620 Q \ B O U T S 1 0 5 Q I N
0014640 P U T 7 7 Q B I N 7 1 Q
0014660 \ B I N 6 3 Q \ B I N S 5
0014700 4 Q \ D T E S T F A I L 4 3
0014720 Q S T R E A M 2 7 Q F L O
0014740 A T P 2 \ D T D S p a c e B
0014760 a s e ) \r ( 5 4 2 Q " A R G
0015000 N O T " 5 3 1 Q " A R G
0015020 N O T D I S P L A Y S T R
0015040 E A M " ) \r G E T D E S C R I P
0015060 T O R S D 1 \r ( L ( 0 T Y
0015100 P E N A M E ) ) \0 035 \0 \0 \0 001 `
0015120 \0 \0 @ d 004 l 004 360 225 \t \0 \0 d 241 020 004
0015140 340 340 340 340 320 311 004 \t \0 \0 020 \0 ( 3 2 Q
0015160 C O P Y 1 4 Q \ T Y P E N
0015200 U M B E R F R O M N A M E ) \r (
0015220 2 \ D T D S p a c e B a s e )
0015240 \r N I L \r G E T F I E L D S P E
0015260 C S D 1 \r ( L ( 0 T Y P E
0015300 N A M E ) ) \0 035 \0 \0 \0 001 ` \0 \0
0015320 @ d 004 l 004 360 225 \t \0 \0 d 241 020 004 340 340
0015340 340 340 320 311 006 \t \0 \0 020 \0 ( 3 2 Q C
0015360 O P Y 1 4 Q \ T Y P E N U M
0015400 B E R F R O M N A M E ) \r ( 2
0015420 \ D T D S p a c e B a s e ) \r N
0015440 I L \r N C R E A T E D 1 \r ( L
0015460 ( 1 O L D O B J 0 T Y P
0015500 E ) ) \0 \n \0 \0 \0 002 @ \t \0 \0 A \n
0015520 \0 \0 020 \0 ( 7 N C R E A T E 2
0015540 3 \ T Y P E N U M B E R F R O
0015560 M N A M E ) \r N I L \r N I L \r N
0015600 C R E A T E 2 D 1 \r ( L ( 1
0015620 O L D O B J 0 N T Y P X )
0015640 P 3 \ I N T E R R U P T A
0015660 B L E ) \0 3 004 \0 \0 002 ` \0 \0 @ 340
0015700 340 340 340 320 @ 037 021 " 003 A 004 @ 360 262 036 I
0015720 A H 310 001 \v \0 \0 277 H 311 \b 213 d 001 272 I
0015740 J 320 311 \0 025 \0 277 002 003 265 363 I 020 \0 ( 3
0015760 3 Q \ M O V E B L O C K ) \r (
0016000 2 \ D T D S p a c e B a s e )
0016020 \r N I L \r R E P L A C E F I E L
0016040 D V A L D 1 \r ( L ( 2 N E
0016060 W V A L U E 1 D A T U M 0
0016100 D E S C R I P T O R ) ) \0 \t
0016120 \0 \0 \0 003 @ A B \v \0 \0 A 020 \0 ( 5
0016140 R E P L A C E F I E L D ) \r N I
0016160 L \r N I L \r P U T B A S E P T R
0016200 X D 1 \r ( L ( 2 N E W V A
0016220 L U E 1 O F F S E T 0 D
0016240 A T U M ) ) \0 035 \0 \0 \0 003 @ A 320
0016260 @ A 320 310 \0 n 377 \0 345 B 322 344 315 \0 @ A
0016300 k 330 320 B 323 315 \0 B 020 \0 N I L \r N I
0016320 L \r N I L \r / R E P L A C E F I
0016340 E L D D 1 \r ( L ( 2 N E W
0016360 V A L U E 1 D A T U M 0
0016400 D E S C R I P T O R ) F 0
0016420 L I S P X H I S T ) \0 036 \0 001 \0
0016440 003 P 262 025 g \0 \0 @ A @ A \n \0 \0 h 032
0016460 032 032 032 \t \0 \0 277 @ A B \v \0 \0 020 \0 (
0016500 3 3 Q R E P L A C E F I E L D
0016520 2 4 Q U N D O S A V E 1 4
0016540 Q F E T C H F I E L D ) \r ( 5
0016560 / R E P L A C E F I E L D ) \r
0016600 N I L \r S T O R A G E D 1 \r (
0016620 L ( 1 P A G E T H R E S H O
0016640 L D 0 T Y P E S ) F 6
0016660 R E C L A I M W A I T ) 001 277 006
0016700 001 \0 002 l 002 037 l 002 037 021 B 005 o \0 \0 \0
0016720 \t \0 \0 277 l 017 \t \0 \0 277 o \0 \0 \0 \t \0
0016740 \0 277 l 036 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277
0016760 l - \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 l 7
0017000 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 h \t \0 \0
0017020 277 l 017 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 h
0017040 \t \0 \0 @ 265 003 202 261 001 032 ` \0 \0 k 275 274
0017060 M d L 361 242 261 001 > 277 h \t \0 \0 277 o \0
0017100 \0 \0 \t \0 \0 277 l 017 \t \0 \0 277 o \0 \0 \0
0017120 H \n \0 \0 277 h \t \0 \0 277 h \t \0 \0 277 o
0017140 \0 \0 \0 \t \0 \0 277 h \t \0 \0 277 l 036 \t \0
0017160 \0 277 o \0 \0 \0 \t \0 \0 277 l 2 \t \0 \0 277
0017200 o \0 \0 \0 \t \0 \0 277 h \t \0 \0 277 l \t
0017220 \0 \0 277 o \0 \0 \0 \t \0 \0 277 l 4 \t \0 \0
0017240 277 o \0 \0 \0 \t \0 \0 277 h \t \0 \0 277 o \0
0017260 \0 \0 ` \0 \0 n 001 \0 331 l 002 330 n \r 377 \v
0017300 \0 \0 277 o \0 \0 \0 ` \0 \0 343 k 330 l \a 332
0017320 n 003 177 \v \0 \0 277 o \0 \0 \0 ` \0 \0 k 330
0017340 n \a 377 \v \0 \0 277 o \0 \0 \0 ` \0 \0 n
0017360 \0 331 n : 377 ` \0 \0 331 330 n 032 377 \v \0 \0
0017400 277 \b \0 \0 277 h \t \0 \0 277 h \t \0 \0 277 o
0017420 \0 \0 \0 \t \0 \0 277 o \0 \0 \0 \b \0 \0 \n \0
0017440 \0 277 o \0 \0 \0 \t \0 \0 277 o \0 \0 \0 V \n
0017460 \0 \0 277 o \0 \0 \0 \t \0 \0 277 h \t \0 \0 h
0017500 020 i 360 222 261 376 346 @ Z 277 J 265 004 260 362 003
0017520 243 J 273 h 204 J 001 273 J 002 272 K d d 005 001
0017540 241 005 002 246 \t \0 \0 265 004 260 341 I H A \f \0
0017560 \0 260 330 I H A \f \0 \0 277 M k 330 ] 261 376
0017600 263 \0 ( 6 6 5 Q \ S T O R A G E
0017620 . T Y P E 6 5 5 Q \ S T O R
0017640 A G E . T Y P E 6 4 3 Q \ T
0017660 Y P E N U M B E R F R O M N A M
0017700 E 5 7 3 Q T E R P R I 5 6
0017720 6 Q P R I N 1 5 5 6 Q P R
0017740 I N T N U M 5 4 5 Q P R I N
0017760 1 5 3 5 Q P R I N T N U M
0020000 5 3 2 Q R E C L A I M M I N
0020020 5 2 2 Q P R I N 1 5 1 2 Q
0020040 T E R P R I 5 0 5 Q T E R P
0020060 R I 5 0 0 Q \ S H O W . A R
0020100 R A Y . F R E E L I S T S 4 7
0020120 4 Q \ S T L I N P 4 4 2 Q
0020140 \ S T L I N P 4 2 2 Q \ S T
0020160 L I N P 3 7 6 Q \ S T L I N
0020200 P 3 5 1 Q T E R P R I 3 4
0020220 4 Q P R I N 1 3 3 4 Q T A
0020240 B 3 2 6 Q P R I N 1 3 1 6
0020260 Q T A B 3 1 0 Q T E R P R
0020300 I 3 0 3 Q P R I N 1 2 7 3
0020320 Q T A B 2 6 5 Q P R I N 1
0020340 2 5 5 Q T A B 2 4 7 Q T
0020360 E R P R I 2 4 2 Q P R I N 1
0020400 2 3 2 Q T E R P R I 2 2 5
0020420 Q T E R P R I 2 2 0 Q P R
0020440 I N T N U M 2 0 7 Q T A B
0020460 2 0 1 Q P R I N 1 1 7 1 Q
0020500 T E R P R I 1 3 7 Q T E R P
0020520 R I 1 3 2 Q P R I N 1 1 2
0020540 2 Q T A B 1 1 4 Q T E R P
0020560 R I 1 0 7 Q P R I N 1 7 7
0020600 Q T A B 7 1 Q P R I N 1
0020620 6 1 Q T A B 5 3 Q P R I N
0020640 1 4 3 Q T A B 3 5 Q P R
0020660 I N 1 2 5 Q T A B 1 7 Q
0020700 P R I N 1 ) \r ( 4 6 4 Q \ L A
0020720 S T A R R A Y P A G E 4 5 2 Q
0020740 \ N x t A r r a y P a g e 4
0020760 3 2 Q \ C u r P n P a g e 4
0021000 0 6 Q \ A t o m F r L s t 3
0021020 6 1 Q \ N x t M D S P a g e
0021040 1 5 1 Q \ M a x T y p e N u m
0021060 b e r ) \r ( 5 6 3 Q " s e
0021100 c o n d s . " 5 5 2 Q ( F I
0021120 X 2 ) 5 4 2 Q " ; R E C
0021140 L A I M W A I T = " 5 2 7
0021160 Q ( F I X 4 ) 5 1 7 Q "
0021200 ( R E C L A I M M I N ) = "
0021220 4 4 7 Q " V a r i a b l e -
0021240 d a t u m s p a c e " 4 2 7
0021260 Q " P r i n t N a m e s "
0021300 4 0 3 Q " A t o m s " 3 5 6
0021320 Q " F i x e d - d a t u m s
0021340 p a c e " 3 4 1 Q " P a g e
0021360 s " 3 2 3 Q " P a g e s "
0021400 3 0 0 Q " R e m a i n i n g "
0021420 2 6 2 Q " A l l o c a t e d
0021440 " 2 3 7 Q " D a t a S p a
0021460 c e s " 2 1 4 Q ( F I X 5
0021500 ) 1 7 6 Q " T O T A L " 1
0021520 2 7 Q " p a g e s [ i t e m
0021540 s ] " 1 0 4 Q " T o t a l
0021560 a l l o c " 6 6 Q " I n u
0021600 s e " 5 0 Q " F r e e i t
0021620 e m s " 3 2 Q " A s s i g n
0021640 e d " 1 4 Q " T y p e " ) \r
0021660 \ S T O R A G E . T Y P E A 0 0
0021700 0 6 D 1 \r ( F 0 A L L O C
0021720 M D S ) \0 \a \0 001 \0 \0 P k 330 c \0
0021740 020 \0 N I L \r N I L \r ( ) \r \ S T
0021760 O R A G E . T Y P E D 1 \r ( L
0022000 ( 3 P A G E T H R E S H O L
0022020 D 2 T O T A L A L L O C M D
0022040 S 1 F R E E 0 T Y P E )
0022060 P 0 A L L O C M D S ) 001
0022100 022 \f \0 \0 004 j 021 261 \v ` \0 \0 @ 340 340 340
0022120 340 320 Y j I 310 \0 321 [ 264 003 202 261 \0 311 I
0022140 310 001 Z K g \0 \0 360 222 261 \0 273 K d g \0
0022160 \0 360 222 261 \0 261 g \0 \0 360 222 l 350 204 n 002
0022200 \0 J 333 ^ A j 315 \0 277 A j 315 001 @ g \0
0022220 \0 \n \0 \0 H l 002 332 _ 016 C 265 003 202 261 \0
0022240 210 B O 016 366 @ l 005 360 242 261 \0 231 ` \0 \0
0022260 310 \r _ 020 343 O 020 l 377 345 341 321 _ 024 263 q
0022300 H N 332 \ A 331 ] K d g \0 \0 360 224 277 o
0022320 \0 \0 \0 \t \0 \0 277 l 017 \t \0 \0 277 o \0 \0
0022340 \0 O 016 \n \0 \0 277 o \0 \0 \0 L \n \0 \0 277
0022360 l 036 \t \0 \0 277 o \0 \0 \0 A \n \0 \0 277 l
0022400 + \t \0 \0 277 o \0 \0 \0 M \n \0 \0 277 l 8
0022420 \t \0 \0 277 o \0 \0 \0 @ \t \0 \0 \n \0 \0 277
0022440 h \t \0 \0 h 020 O 016 361 242 261 377 w h 020 A
0022460 O 024 312 \0 \a 366 277 O 024 310 001 _ 022 343 O 022
0022500 261 377 w I 311 002 _ 026 242 261 377 w A k 366 277
0022520 O 026 311 \0 260 362 \0 ( 3 3 6 Q T E R
0022540 P R I 3 3 1 Q P R I N T N U
0022560 M 3 2 6 Q B O X C O U N T
0022600 3 1 5 Q T A B 3 0 7 Q P R
0022620 I N T N U M 2 7 6 Q T A B
0022640 2 7 0 Q P R I N T N U M 2 5
0022660 7 Q T A B 2 5 1 Q P R I N
0022700 T N U M 2 4 0 Q P R I N T N
0022720 U M 2 2 6 Q T A B 2 2 0 Q
0022740 P R I N 1 1 1 6 Q \ M A P
0022760 M D S ) \r ( 2 0 6 Q L I S T P
0023000 1 5 2 Q \ L I S T P D T D
0023020 1 1 3 Q \ S T O R A G E . T Y
0023040 P E A 0 0 0 6 6 3 Q L I S T
0023060 P 5 3 Q S M A L L P 4 1 Q
0023100 L I T A T O M 6 \ D T D S
0023120 p a c e B a s e ) \r ( 3 2 2 Q
0023140 ( F I X 1 2 Q ) 3 0 3 Q
0023160 ( F I X 1 0 Q ) 2 6 4 Q (
0023200 F I X 1 0 Q ) 2 4 5 Q ( F
0023220 I X 1 0 Q ) 2 3 3 Q ( F I
0023240 X 5 ) 2 1 5 Q " L I S T P
0023260 ~ " ) \r \ S T L I N P
0023300 D 1 \r ( L ( 2 T O T 1 A
0023320 L L O C 0 S T R ) ) \0 ( \0
0023340 \0 \0 003 @ \t \0 \0 l 036 \t \0 \0 o \0 \0 \0
0023360 A \n \0 \0 l 2 \t \0 \0 o \0 \0 \0 B A 331
0023400 k 330 \n \0 \0 h \t \0 \0 020 \0 ( 4 5 Q
0023420 T E R P R I 4 1 Q P R I N T
0023440 N U M 2 5 Q T A B 2 0 Q
0023460 P R I N T N U M 1 0 Q T A B
0023500 3 P R I N 1 ) \r N I L \r ( 3
0023520 1 Q ( F I X 1 0 Q ) 1 4 Q
0023540 ( F I X 1 0 Q ) ) \r T Y P E
0023560 N A M E D 1 \r ( L ( 0 D A
0023600 T U M ) ) \0 036 001 \0 \0 001 @ 004 021 001
0023620 \0 H l 006 360 224 @ \t \0 \0 020 j ` \0 \0 H
0023640 340 340 340 340 320 310 \0 321 020 \0 ( 1 5 Q \
0023660 A R R A Y T Y P E N A M E ) \r (
0023700 2 2 Q \ D T D S p a c e B a s
0023720 e ) \r N I L \r \ T Y P E N A M E
0023740 F R O M N U M B E R D 1 \r ( L
0023760 ( 0 N ) ) \0 031 \0 \0 \0 001 @ `
0024000 \0 \0 k 330 375 361 264 017 j ` \0 \0 @ 340 340 340
0024020 340 320 310 \0 321 020 \0 N I L \r ( 1 5 Q
0024040 \ D T D S p a c e B a s e 3
0024060 \ M a x T y p e N u m b e r ) \r
0024100 N I L \r U S E R D A T A T Y P E
0024120 S D 1 \r N I L \0 006 \0 \0 \0 \0 i
0024140 \t \0 \0 020 \0 ( 3 D A T A T Y P E
0024160 S ) \r N I L \r N I L \r D A T A T
0024200 Y P E P D 1 \r ( L ( 0 D A
0024220 T A T Y P E S P E C ) ) \0 j 002
0024240 \0 \0 001 @ d d 005 001 245 d 005 002 241 005 003 262
0024260 ! 277 021 020 \0 j ` \0 \0 @ 340 340 340 340 320 310
0024300 \0 321 X d 262 G g \0 \0 360 h 360 264 ? H 020
0024320 g \0 \0 360 263 6 @ d g \0 \0 360 263 / 277 `
0024340 \0 \0 k 021 002 001 I H 361 263 035 j ` \0 \0 I
0024360 340 340 340 340 320 310 \0 321 @ 360 224 I 265 \v i 206
0024400 I k 330 Y 260 343 h 022 264 003 @ 020 \0 N I L
0024420 \r ( 1 1 3 Q \ D T D S p a c e
0024440 B a s e 7 6 Q \ M a x T y p
0024460 e N u m b e r 6 7 Q H A R R
0024500 A Y P 5 7 Q C C O D E P 4
0024520 5 Q * * D E A L L O C * * 2
0024540 5 Q \ D T D S p a c e B a s e
0024560 ) \r N I L \r D A T A T Y P E S
0024600 D 1 \r ( L ( 0 U S E R S F L
0024620 G ) ) \0 1 005 \0 \0 001 ` \0 \0 @ 225 `
0024640 \0 \0 k 330 200 k 021 2 004 I d H 361 221 J 020
0024660 \t \0 \0 265 003 210 274 K 265 \r L h 032 [ 272 I
0024700 k 330 Y 260 347 L & 273 260 367 \0 ( 3 0 Q
0024720 D A T A T Y P E P ) \r ( 7 \ M
0024740 a x S y s T y p e N u m 2 \
0024760 M a x T y p e N u m b e r ) \r N
0025000 I L \r ( P R E T T Y C O M P R I
0025020 N T L L D A T A T Y P E C O M
0025040 S ) \r ( R P A Q Q L L D A T A
0025060 T Y P E C O M S ( ( * g e n
0025100 e r a l d a t a t y p e s )
0025120 ( F N S N T Y P X \ A L L O
0025140 C M D S P A G E \ M A P M D S
0025160 \ C H E C K F O R S T O R A G
0025200 E F U L L \r \ N E W 2 P A G E
0025220 \ M A K E M D S E N T R Y \
0025240 G C T Y P E \ I N I T M D S P
0025260 A G E A S S I G N D A T A T Y
0025300 P E \ T Y P E N U M B E R F R
0025320 O M N A M E C R E A T E C E L
0025340 L \ C R E A T E C E L L \r )
0025360 ( I N I T V A R S ( C R O S S
0025400 C O M P I L I N G ) ( A S S I
0025420 G N D A T A T Y P E . A S K U S
0025440 E R W A I T ) ) ( G L O B A L
0025460 V A R S C R O S S C O M P I L
0025500 I N G ) ( S P E C V A R S \r
0025520 A S S I G N D A T A T Y P E . A
0025540 S K U S E R W A I T ) ( F N S
0025560 C R E A T E M D S T Y P E T A
0025600 B L E I N I T D A T A T Y P E
0025620 S I N I T D A T A T Y P E N A
0025640 M E S ) ( I N I T V A R S (
0025660 \r \ S T O R A G E F U L L ) )
0025700 ( D E C L A R E : ( E X P O R
0025720 T ( M A C R O S P U T B A S
0025740 E P T R X ) ) ( E X P O R T
0025760 ( C O N S T A N T S \ S M A L
0026000 L P \ F I X P \ F L O A T P
0026020 \r \ L I T A T O M \ L I S T
0026040 P \ A R R A Y P \ S T R I N
0026060 G P \ S T A C K P \ V M E M
0026100 P A G E P \ S T R E A M ) )
0026120 D O N T C O P Y ( E X P O R T
0026140 ( R E C O R D S D T D ) (
0026160 M A C R O S \r \ G E T D T D )
0026200 ( C O N S T A N T S \ G U A
0026220 R D S T O R A G E F U L L \ G
0026240 U A R D 1 S T O R A G E F U L L
0026260 ) ( G L O B A L V A R S \ N
0026300 x t M D S P a g e \ M D S F R
0026320 E E L I S T P A G E \r \ M a x
0026340 S y s T y p e N u m \ M a x T
0026360 y p e N u m b e r \ S T O R A
0026400 G E F U L L \ I N T E R R U P
0026420 T S T A T E \ P E N D I N G I
0026440 N T E R R U P T ) ) ( V A R S
0026460 D T D E C L S ) ( A D D V A
0026500 R S \r ( I N I T V A L U E S
0026520 ( \ N x t M D S P a g e 2 5 6
0026540 ) ( \ M D S F R E E L I S T P
0026560 A G E ) ( \ M a x S y s T y p
0026600 e N u m 0 ) ( \ M a x T y p
0026620 e N u m b e r ) ) ( I N E W C
0026640 O M S ( F N S \r N T Y P X
0026660 \ A L L O C M D S P A G E \ M
0026700 A K E M D S E N T R Y \ G C T
0026720 Y P E \ I N I T M D S P A G E
0026740 A S S I G N D A T A T Y P E
0026760 \ T Y P E N U M B E R F R O M N
0027000 A M E \ C R E A T E C E L L
0027020 \r \ N E W 2 P A G E ) ( F N S
0027040 C R E A T E M D S T Y P E T A
0027060 B L E I N I T D A T A T Y P E
0027100 S I N I T D A T A T Y P E N A
0027120 M E S ) ( V A R S D T D E C
0027140 L S ) ) ( R D C O M S ( F N
0027160 S N T Y P X \r T Y P E N A M
0027200 E ) ) ( R D . S U B F N S (
0027220 \ A R R A Y T Y P E N A M E L
0027240 A M B D A ( X ) ( Q U O T E
0027260 A R R A Y P ) ) ) ( E X P A
0027300 N D M A C R O F N S \ G E T D
0027320 T D P U T B A S E P T R X \r
0027340 R E P L A C E F I E L D F E T
0027360 C H F I E L D \ G E T B I T S
0027400 \ P U T B I T S \ T E S T B
0027420 I T S G E T B A S E B I T S
0027440 P U T B A S E B I T S F F E T
0027460 C H F I E L D F R E P L A C E
0027500 F I E L D \r F R E P L A C E F
0027520 I E L D V A L R E P L A C E F
0027540 I E L D V A L N C R E A T E )
0027560 ( M K I . S U B F N S ( \ G
0027600 C D I S A B L E D . N I L L
0027620 ) ( C R E A T E C E L L .
0027640 \r I . \ C R E A T E C E L L )
0027660 ( \ C H E C K F O R S T O R A G
0027700 E F U L L . N I L L ) ) )
0027720 E V A L @ C O M P I L E ( A D
0027740 D V A R S ( D O N T C O M P I
0027760 L E F N S \r C R E A T E M D S
0030000 T Y P E T A B L E I N I T D A
0030020 T A T Y P E S I N I T D A T A
0030040 T Y P E N A M E S ) ) ) ( F N
0030060 S F E T C H F I E L D R E P
0030100 L A C E F I E L D B O X C O U
0030120 N T C O N S C O U N T \r \ D
0030140 T E S T \ D T E S T F A I L
0030160 G E T D E S C R I P T O R S G
0030200 E T F I E L D S P E C S N C R
0030220 E A T E N C R E A T E 2 R E
0030240 P L A C E F I E L D V A L P U
0030260 T B A S E P T R X \r / R E P L
0030300 A C E F I E L D S T O R A G E
0030320 \ S T O R A G E . T Y P E \
0030340 S T L I N P T Y P E N A M E
0030360 \ T Y P E N A M E F R O M N U M
0030400 B E R U S E R D A T A T Y P E
0030420 S D A T A T Y P E P \r D A T
0030440 A T Y P E S ) ( I N I T V A R
0030460 S ( S T O R A G E . A R R A Y
0030500 S I Z E S ( Q U O T E ( 4
0030520 1 0 1 0 0 1 0 0 0 4 0 0 0
0030540 N I L ) ) ) ) ( P ( M O V
0030560 D ? ( Q U O T E \r F E T C H
0030600 F I E L D ) ( Q U O T E F F
0030620 E T C H F I E L D ) ) ( M O V
0030640 D ? ( Q U O T E R E P L A C
0030660 E F I E L D ) ( Q U O T E F
0030700 R E P L A C E F I E L D ) ) (
0030720 M O V D ? ( Q U O T E \r R E
0030740 P L A C E F I E L D V A L ) (
0030760 Q U O T E F R E P L A C E F I
0031000 E L D V A L ) ) ) ( L O C A L
0031020 V A R S . T ) ( D E C L A
0031040 R E : D O N T E V A L @ L O A
0031060 D E V A L @ C O M P I L E \r
0031100 D O N T C O P Y ( F I L E S
0031120 ( L O A D C O M P ) D T D E C
0031140 L A R E ) ) ) ) \r ( R P A Q ?
0031160 C R O S S C O M P I L I N G ) \r
0031200 ( R P A Q ? A S S I G N D A T
0031220 A T Y P E . A S K U S E R W A I
0031240 T ) \r ( R P A Q ? \ S T O R A
0031260 G E F U L L ) \r ( D E C L A R E
0031300 : E V A L @ C O M P I L E (
0031320 P U T P R O P S P U T B A S E
0031340 P T R X M A C R O ( O P E N
0031360 L A M B D A ( D A T U M O F
0031400 F S E T N E W V A L U E ) (
0031420 \r U N I N T E R R U P T A B L Y
0031440 ( \ P U T B A S E B Y T E D
0031460 A T U M ( A D D 1 ( L L S H
0031500 O F F S E T 1 ) ) ( L O G
0031520 A N D ( \ H I L O C N E W V
0031540 A L U E ) 2 5 5 ) ) ( \ P U
0031560 T B A S E \r D A T U M ( A D
0031600 D 1 O F F S E T ) ( \ L O L
0031620 O C N E W V A L U E ) ) N E
0031640 W V A L U E ) ) ) ) \r ( D E C L
0031660 A R E : E V A L @ C O M P I L
0031700 E ( R P A Q Q \ S M A L L P
0031720 1 ) ( R P A Q Q \ F I X P
0031740 2 ) ( R P A Q Q \ F L O A
0031760 T P 3 ) ( R P A Q Q \ L I
0032000 T A T O M 4 ) ( R P A Q Q
0032020 \r \ L I S T P 5 ) ( R P A Q
0032040 Q \ A R R A Y P 6 ) ( R P
0032060 A Q Q \ S T R I N G P 7 )
0032100 ( R P A Q Q \ S T A C K P 8
0032120 ) ( R P A Q Q \ V M E M P A
0032140 G E P 1 0 ) ( R P A Q Q \
0032160 S T R E A M \r 1 1 ) ( C O N
0032200 S T A N T S \ S M A L L P \
0032220 F I X P \ F L O A T P \ L I
0032240 T A T O M \ L I S T P \ A R
0032260 R A Y P \ S T R I N G P \ S
0032300 T A C K P \ V M E M P A G E P
0032320 \ S T R E A M ) ) \r ( R P A Q
0032340 ? S T O R A G E . A R R A Y S
0032360 I Z E S ( Q U O T E ( 4 1
0032400 0 1 0 0 1 0 0 0 4 0 0 0
0032420 N I L ) ) ) \r ( M O V D ? ( Q
0032440 U O T E F E T C H F I E L D )
0032460 ( Q U O T E F F E T C H F I
0032500 E L D ) ) \r ( M O V D ? ( Q U
0032520 O T E R E P L A C E F I E L D
0032540 ) ( Q U O T E F R E P L A C
0032560 E F I E L D ) ) \r ( M O V D ?
0032600 ( Q U O T E R E P L A C E F I
0032620 E L D V A L ) ( Q U O T E F
0032640 R E P L A C E F I E L D V A L )
0032660 ) \r ( P U T P R O P S L L D A
0032700 T A T Y P E C O P Y R I G H T
0032720 ( " X e r o x C o r p o r a
0032740 t i o n " 1 9 8 2 1 9 8 3
0032760 1 9 8 4 ) ) \r N I L \r
0032773