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