$ od -c -N 50000 [eris]<Lisp>JCAI>sources>MOD44IO.DCOM!2
0000000 ( F I L E C R E A T E D " 1 4
0000020 - A u g - 8 5 1 3 : 4 6 : 1 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 > M O D 4 4 I
0000120 O . ; 2 6 ) \r " 1 2 - A u g -
0000140 8 5 1 7 : 4 4 : 1 0 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 \ C O P Y S Y S 1 i n " I
0000220 N T E R L I S P - D 1 2 - A u
0000240 g - 8 5 . . . " d a t e d
0000260 \r " 1 2 - A u g - 8 5 1 8 : 2
0000300 1 : 3 6 " ) \r ( F I L E C R E A
0000320 T E D " 1 4 - A u g - 8 5 1
0000340 3 : 4 2 : 5 2 " { E R I S } <
0000360 L I S P C O R E > S O U R C E S
0000400 > M O D 4 4 I O . ; 2 6 1 0 7
0000420 2 5 4 c h a n g e s t o :
0000440 ( F N S \r \ C O P Y S Y S 1 )
0000460 p r e v i o u s d a t e :
0000500 " 2 5 - J u l - 8 5 2 2 : 3 0
0000520 : 5 6 " { E R I S } < L I S P
0000540 C O R E > S O U R C E S > M O D
0000560 4 4 I O . ; 2 5 ) \r \ M 4 4 A d
0000600 d D i s k P a g e s D 1 \r ( L
0000620 ( 2 N E W L A S T B Y T E
0000640 1 N E W L A S T P A G E 0
0000660 S T R E A M ) ) \0 9 \0 \0 \0 003 @
0000700 d 006 \0 \0 310 026 \n \0 \0 @ d 006 \0 \0 311 020
0000720 k 330 A @ 006 \0 \0 311 020 331 @ A \n \0 \0 006
0000740 \0 \0 311 \0 B \r 005 \0 \0 @ A 024 020 @ A 315
0000760 026 @ B 315 027 A 020 \0 ( 5 1 Q \ A D
0001000 D D I S K P A G E S 3 7 Q \
0001020 M 4 4 E x t e n d F i l e P a g
0001040 e M a p 1 1 Q \ M 4 4 F i l
0001060 l I n M a p ) \r ( 4 2 Q A R R
0001100 A Y P 2 7 Q S T R E A M 1
0001120 6 Q S T R E A M 4 S T R E
0001140 A M ) \r ( ) \r \ M 4 4 C l o s e
0001160 F i l e D 1 \r ( L ( 0 S T
0001200 R E A M ) ) \0 . \0 \0 \0 001 @ \t \0
0001220 \0 @ d \t \0 \0 g \0 \0 360 263 037 277 @ d 006
0001240 \0 \0 310 \n @ 006 \0 \0 310 \v i \f \0 \0 277 @
0001260 006 \0 \0 311 006 \t \0 \0 @ 020 \0 ( 5 2 Q
0001300 \ M 4 4 F L U S H D I S K D E S
0001320 C R I P T O R 4 0 Q \ M 4 4
0001340 T r u n c a t e F i l e 1 0 Q
0001360 \ G E T A C C E S S 3 \ C
0001400 L E A R M A P ) \r ( 4 5 Q S T
0001420 R E A M 3 2 Q S T R E A M
0001440 2 4 Q S T R E A M 1 3 Q I
0001460 N P U T ) \r ( ) \r \ M 4 4 C o m
0001500 p l e t e F H D 1 \r ( L ( 0
0001520 S T R E A M ) ) \0 352 \b \0 \0 001
0001540 h h 032 @ \t \0 \0 @ 006 \0 \0 311 006 006 \0 \0
0001560 311 ( 021 S \a I 310 376 k 331 [ m 377 360 263 N
0001600 l 003 g \0 \0 n 377 376 j \f \0 \0 K k 330 276
0001620 ] k I 310 375 * 277 M l 002 n 377 377 * 277 J
0001640 h M 006 \0 \0 311 \0 K @ N d n 326 002 H h
0001660 i \r \v \0 \0 N 360 264 005 H 001 \ I 310 377 360
0001700 232 @ K 315 026 277 @ L 315 027 260 = l @ _ 016
0001720 277 @ O 016 \n \0 \0 273 O 016 d K 360 263 S 277
0001740 J h @ 006 \0 \0 311 016 006 \0 \0 311 \0 m 377 @
0001760 K k 330 K k 330 n 326 002 H \r \t \0 \0 277 @
0002000 K H 001 i \f \0 \0 277 @ I 310 001 I 310 003 365
0002020 024 \b @ d 006 \0 \0 310 027 n 002 \0 360 262 030 277
0002040 @ d 006 \0 \0 310 026 k 330 315 \n 277 @ j 260 027
0002060 l @ 324 260 233 d 006 \0 \0 310 026 315 \n 277 @ d
0002100 006 \0 \0 310 027 315 \v @ 020 \0 ( 2 4 6 Q
0002120 \ M 4 4 S e t E n d O f F i l e
0002140 2 3 5 Q \ A C T O N D I S K
0002160 P A G E S 1 6 6 Q \ M 4 4 F
0002200 i l l I n M a p 1 2 4 Q \ A
0002220 C T O N D I S K P A G E S 5 3
0002240 Q A R R A Y 6 \ M 4 4 R e
0002260 a d L e a d e r P a g e ) \r ( 3
0002300 4 2 Q S T R E A M 3 3 0 Q
0002320 S T R E A M 3 0 4 Q S T R E
0002340 A M 2 6 6 Q S T R E A M 2
0002360 1 2 Q A R R A Y P 2 0 5 Q
0002400 S T R E A M 1 0 4 Q A R R A
0002420 Y P 4 4 Q W O R D 1 7 Q
0002440 F D E V 1 2 Q S T R E A M )
0002460 \r ( ) \r \ M 4 4 C R E A T E F I
0002500 L E D 1 \r ( L ( 5 D I R E
0002520 C T O R Y P 4 T Y P E 3
0002540 C R D A T E 2 L E N G T H
0002560 1 U N A M E 0 F D E V ) )
0002600 001 321 020 \0 \0 006 @ 311 ( A \t \0 \0 l \n
0002620 037 j 021 224 \f I 241 h 020 ` \0 \0 037 d g \0
0002640 \0 024 . 277 d g \0 \0 024 , 277 d ` \0 \0 024
0002660 & 277 d g \0 \0 024 " 277 d g \0 \0 024 277
0002700 d j 317 030 001 277 d ` \0 \0 315 037 277 d j 315
0002720 035 277 d ` \0 \0 315 034 277 d h 024 030 277 d l
0002740 \b 317 024 \a 277 d j 317 004 R 277 d k 317 004 @
0002760 277 d k 317 004 0 277 d h 024 002 277 _ 022 m 377
0003000 024 020 277 O 022 j 315 026 277 O 022 j 315 027 277 O
0003020 022 \ d I 024 004 L @ 024 006 L l 005 g \0 \0
0003040 j d \f \0 \0 ] 024 \f L B d 005 001 241 005 002
0003060 265 034 l @ g \0 \0 n 377 376 j \f \0 \0 ^ 024
0003100 016 L j 024 020 L ` \0 \0 234 k 213 n 001 377 330
0003120 343 342 l 004 330 260 337 j _ 024 317 004 277 O 024
0003140 j 360 h 360 L J 024 024 M 311 \0 _ 016 d H 311
0003160 \0 d 313 \0 k 324 _ 026 314 \0 277 O 026 314 \0 E
0003200 233 O 016 d 310 \0 n 200 \0 324 315 \0 277 O 016 k
0003220 315 002 N j n 377 377 * N l 003 n 377 377 * J
0003240 l 002 320 l 002 037 \t \0 \0 _ 020 l 002 304 J C
0003260 265 004 O 020 l 002 304 J n 032 322 315 366 A 002 001
0003300 002 J l 006 320 021 022 017 O 032 003 265 034 A 001 002
0003320 247 A 001 001 l 1 360 263 8 O 034 K k 324 [ l
0003340 ! 307 277 A 001 260 ' 001 _ 036 277 O 034 K k 324
0003360 [ O 036 307 277 O 032 002 _ 032 260 320 d 001 _ 030
0003400 277 O 034 K k 324 [ O 030 307 277 002 003 265 357 O
0003420 034 K k 324 [ l . 307 277 J K 317 006 \a 023 L
0003440 D \n \0 \0 H J h h 032 032 N 311 \0 m 377 L
0003460 j k h d j d \r \v \0 \0 O 016 N 311 \0 N
0003500 310 003 k 330 320 310 \0 315 004 L d 311 \f A K @
0003520 \f \0 \0 024 022 L 020 \0 ( 7 1 3 Q \ M
0003540 4 4 M A K E D I R E N T R Y 6
0003560 6 2 Q \ W R I T E D I S K P A
0003600 G E S 6 3 4 Q \ M 4 4 S E T
0003620 F I L E T Y P E 4 4 1 Q \ D
0003640 A Y T I M E 0 2 6 6 Q A R R
0003660 A Y 2 3 5 Q A R R A Y 6
0003700 \ M 4 4 P A C K F I L E N A M E
0003720 ) \r ( 3 0 1 Q \ M 4 4 M U L T
0003740 F L G 2 5 7 Q W O R D 2 3
0003760 0 Q S M A L L P O S P 1 1 6
0004000 Q \ S T R E A M . D E F A U L
0004020 T . M A X B U F F E R S 1 0 2
0004040 Q F I L E L I N E L E N G T H
0004060 6 5 Q \ F I L E O U T C H A
0004100 R F N 5 6 Q \ E O S E R R O
0004120 R 4 7 Q \ N O I M A G E O P
0004140 S 4 0 Q \ S T R E A M . N O
0004160 T . O P E N 3 1 Q \ S T R E
0004200 A M . N O T . O P E N 2 4 Q
0004220 004 003 S T R E A M T Y P E # ) \r (
0004240 ) \r \ M 4 4 D e l e t e F i l e
0004260 D 1 \r ( L ( 1 D E V 0
0004300 F I L E N A M E ) ) \0 t 005 \0 \0
0004320 002 @ g \0 \0 A i \f \0 \0 021 021 001 H 264 027
0004340 ` \0 \0 H 006 \0 \0 311 004 021 022 004 J 003 265 \b
0004360 h 022 262 031 h 020 001 \ 006 \0 \0 311 004 K 360 225
0004400 L 265 360 i 260 355 J 002 Z 260 344 H m 377 \n \0
0004420 \0 A 006 \0 \0 311 ( 311 \n Y H 006 \0 \0 311 022
0004440 \n \0 \0 277 I d \t \0 \0 l 003 345 \n \0 \0 277
0004460 I \t \0 \0 277 H \t \0 \0 H h 024 \f H 006 \0
0004500 \0 311 004 020 \0 ( 1 4 7 Q \ M 4 4 K
0004520 i l l F i l e P a g e M a p 1
0004540 4 2 Q F L U S H M A P 1 3 5
0004560 Q \ B O U T 1 2 7 Q \ P E
0004600 E K B I N 1 2 1 Q \ S E T F
0004620 I L E P T R 7 7 Q \ M 4 4 D
0004640 E L E T E P A G E S 1 0 Q \
0004660 M 4 4 G e t F i l e H a n d l e
0004700 ) \r ( 1 5 7 Q S T R E A M 1
0004720 1 4 Q S T R E A M 1 0 3 Q
0004740 F D E V 5 1 Q S T R E A M
0004760 2 5 Q S T R E A M 2 1 Q \
0005000 O P E N F I L E S 3 O L D E
0005020 S T ) \r ( ) \r \ M 4 4 E V E N T
0005040 F N D 1 \r ( L ( 1 E V E N
0005060 T 0 F D E V ) ) \0 322 005 \0 \0
0005100 002 A g \0 \0 360 263 032 A g \0 \0 360 263 023 A
0005120 g \0 \0 360 252 A d g \0 \0 360 242 261 \0 246 277
0005140 @ 311 ( 021 A 004 H 311 \f 265 H H 311 \n \t \0
0005160 \0 ` \0 \0 l 006 360 263 y @ 311 ( 312 \b \a j
0005200 360 @ 311 \0 g \0 \0 \b \0 \0 \n \0 \0 360 274 [
0005220 230 i 027 \0 \0 277 K 221 L 251 ` \0 \0 Y 003 265
0005240 # h 262 N K d L 360 262 + 277 @ \t \0 \0 260
0005260 @ \t \0 \0 277 H j 317 \f 020 277 H h 024 \f 277
0005300 260 253 001 Z 311 006 @ 360 225 J 263 332 i 260 325 I
0005320 002 260 314 264 027 @ g \0 \0 \n \0 \0 277 @ 311 \0
0005340 l 004 \n \0 \0 @ \n \0 \0 204 d @ \v \0 \0 257
0005360 H h 024 \n 277 @ g \0 \0 024 026 277 @ \t \0 \0
0005400 h 020 g \0 \0 360 264 \v @ \t \0 \0 277 @ \t \0
0005420 \0 020 \0 ( 3 1 7 Q \ M 4 4 F L U
0005440 S H D I S K D E S C R I P T O R
0005460 3 1 2 Q \ F L U S H . O P E
0005500 N . S T R E A M S 2 7 6 Q \
0005520 R E M O V E D E V I C E 2 5 5
0005540 Q \ O P E N D I S K D E V I C
0005560 E 2 4 7 Q \ O P E N D I S K
0005600 2 4 3 Q S U B A T O M 2 3
0005620 2 Q \ R E M O V E D E V I C E
0005640 . N A M E S 1 6 2 Q F O R G
0005660 E T P A G E S 1 5 5 Q \ O P
0005700 E N D I R 1 1 3 Q P A C K *
0005720 1 1 0 Q D I S K P A R T I T
0005740 I O N 5 7 Q F O R G E T P A
0005760 G E S ) \r ( 3 0 3 Q B E F O R
0006000 E L O G O U T 2 6 7 Q N I L
0006020 L 2 2 7 Q D S K 1 3 3 Q
0006040 \ O P E N F I L E S 1 2 3 Q
0006060 \ M 4 4 . R E A D Y 1 0 5 Q
0006100 D S K 6 2 Q \ M A C H I N E
0006120 T Y P E 3 0 Q A F T E R S A
0006140 V E V M 2 1 Q A F T E R M A
0006160 K E S Y S 1 2 Q A F T E R S
0006200 Y S O U T 3 A F T E R L O G
0006220 O U T ) \r ( ) \r \ M 4 4 E x t e
0006240 n d F i l e P a g e M a p D 1
0006260 \r ( L ( 1 T O P A G E # 0
0006300 S T R E A M ) ) \0 ^ 003 \0 \0 002
0006320 @ 006 \0 \0 311 016 021 ! 002 H 237 A l 003 330 H
0006340 006 \0 \0 310 002 Y 375 361 221 H 020 A l C 330 m
0006360 300 345 g \0 \0 n 377 376 j \f \0 \0 Z H 237 d
0006400 006 \0 \0 311 \0 H 006 \0 \0 311 \0 I 304 260 031 J
0006420 j n 377 377 * 277 J k @ 006 \0 \0 311 \f 006 \0
0006440 \0 311 \0 310 004 * 277 @ J 024 016 J 020 \0 ( 5
0006460 3 Q A R R A Y ) \r ( 1 2 0 Q
0006500 A R R A Y P 1 1 3 Q S T R E
0006520 A M 7 0 Q A R R A Y P 6 2
0006540 Q A R R A Y P 4 4 Q S M A
0006560 L L P O S P 2 2 Q A R R A Y
0006600 P 3 S T R E A M ) \r ( ) \r \
0006620 M 4 4 F i l l I n M a p D 1 \r
0006640 ( L ( 1 U P T O P A G E 0
0006660 S T R E A M ) ) \0 ~ \t \0 \0 002
0006700 @ A \n \0 \0 @ 006 \0 \0 311 006 006 \0 \0 311 (
0006720 @ 006 \0 \0 311 020 021 c \b H 006 \0 \0 311 \0 ^
0006740 A J 361 262 T N J l 003 330 320 310 \0 _ 016 n
0006760 377 376 360 255 O 016 n 377 377 360 263 = J k 324 272
0007000 260 340 ` \0 \0 A J 331 k 330 _ 020 277 d O 020
0007020 361 222 277 O 020 273 I h N m 377 @ J k 330 J
0007040 K 330 k 331 k 330 ] n 326 002 \r \b \0 \0 \ k
0007060 331 272 M L 361 262 253 @ J 024 020 J 020 \0 ( 1
0007100 5 5 Q \ A C T O N D I S K P A
0007120 G E S 4 \ M 4 4 E x t e n d
0007140 F i l e P a g e M a p ) \r ( 1 0
0007160 4 Q \ M A X D I S K D A s 3
0007200 4 Q A R R A Y P 2 3 Q S T
0007220 R E A M 1 5 Q F D E V 1 0
0007240 Q S T R E A M ) \r ( ) \r \ M 4
0007260 4 G e t F i l e H a n d l e D
0007300 1 \r ( L ( 4 C R E A T E F L
0007320 G 3 F A S T 2 F D E V
0007340 1 R E C O G 0 N A M E ) )
0007360 \0 340 005 \0 \0 005 B 311 ( 311 \n 021 A 004 H
0007400 241 h 020 @ A B D \f \0 \0 Y d 002 001 g \0
0007420 \0 360 263 357 d 002 001 242 261 \0 257 277 ` \0 \0 037
0007440 d g \0 \0 024 . 277 d g \0 \0 024 , 277 d `
0007460 \0 \0 024 & 277 d g \0 \0 024 " 277 d g \0 \0
0007500 024 277 d j 317 030 001 277 d ` \0 \0 315 037 277
0007520 d j 315 035 277 d ` \0 \0 315 034 277 d h 024 030
0007540 277 d l \b 317 024 \a 277 d j 317 004 R 277 d k
0007560 317 004 @ 277 d k 317 004 0 277 d h 024 002 277 [
0007600 m 377 024 020 277 K j 315 026 277 K j 315 027 277 K
0007620 Z d I 001 \t \0 \0 024 004 J B 024 006 J H I
0007640 002 001 \n \0 \0 024 \f J I 002 001 024 022 J ` \0
0007660 \0 221 k 200 j \ 317 004 277 L j 360 h 360 C
0007700 243 J \t \0 \0 J 020 001 246 @ l * \n \0 \0 020
0007720 D 264 004 I 001 020 \0 ( 3 2 7 Q \ L I
0007740 S P E R R O R 3 1 5 Q \ M 4
0007760 4 C o m p l e t e F H 2 5 5 Q
0010000 \ R E A D D I R F P T R 2 3
0010020 7 Q \ M 4 4 P A C K F I L E N
0010040 A M E 2 2 Q \ M 4 4 P A R S
0010060 E F I L E N A M E ) \r ( 2 7 1 Q
0010100 \ M 4 4 M U L T F L G 1 4 1
0010120 Q \ S T R E A M . D E F A U L
0010140 T . M A X B U F F E R S 1 2 5
0010160 Q F I L E L I N E L E N G T H
0010200 1 1 0 Q \ F I L E O U T C H
0010220 A R F N 1 0 1 Q \ E O S E R
0010240 R O R 7 2 Q \ N O I M A G E
0010260 O P S 6 3 Q \ S T R E A M .
0010300 N O T . O P E N 5 4 Q \ S T
0010320 R E A M . N O T . O P E N 4 7
0010340 Q 004 003 S T R E A M T Y P E #
0010360 3 1 Q D I R E C T O R Y ) \r (
0010400 ) \r \ M 4 4 G e t F i l e I n f
0010420 o D 1 \r ( L ( 2 D E V 1
0010440 A T T R I B U T E 0 S T R
0010460 E A M ) ) 001 \t 001 \0 \0 003 @ 004 ` \0
0010500 \0 360 263 023 @ g \0 \0 B i \f \0 \0 b \0 264
0010520 003 202 261 \0 361 A g \0 \0 360 250 A d g \0 \0
0010540 360 262 9 277 @ 006 \0 \0 311 \b 244 @ \t \0 \0 277
0010560 A g \0 \0 360 237 @ 006 \0 \0 310 \n 341 340 @ 006
0010600 \0 \0 310 \v 330 020 @ 006 \0 \0 310 \n @ 006 \0 \0
0010620 310 \v n 001 377 330 343 342 330 020 g \0 \0 360 262 S
0010640 @ \t \0 \0 021 001 \0 H 312 366 207 j 361 264 003 202
0010660 261 \0 223 H d 312 366 \a 320 X d 312 \0 \a d j
0010700 360 221 h 020 l 210 360 262 ! H 310 001 d k 360 223
0010720 g \0 \0 020 d l 002 360 223 g \0 \0 020 j 360 263
0010740 343 H 310 001 \t \0 \0 020 H d 312 \0 207 320 X 260
0010760 314 A d g \0 \0 360 227 277 @ j i \v \0 \0 020
0011000 g \0 \0 360 227 @ l 002 i \v \0 \0 020 A d g
0011020 \0 \0 360 230 277 @ l 004 i \v \0 \0 020 g \0 \0
0011040 360 225 @ j \n \0 \0 020 A d g \0 \0 360 227 277
0011060 @ l 002 \n \0 \0 020 g \0 \0 360 264 \b @ l 004
0011100 \n \0 \0 020 \0 ( 4 0 6 Q \ M 4 4 G
0011120 E T D A T E P R O P 3 7 1 Q
0011140 \ M 4 4 G E T D A T E P R O P
0011160 3 5 2 Q \ M 4 4 G E T D A T E
0011200 P R O P 3 3 7 Q \ M 4 4 G E
0011220 T D A T E P R O P 3 1 7 Q \
0011240 M 4 4 G E T D A T E P R O P 3
0011260 0 2 Q \ M 4 4 G E T D A T E P
0011300 R O P 2 5 2 Q \ T Y P E . F
0011320 R O M . F I L E T Y P E 1 4 7
0011340 Q \ M 4 4 R e a d L e a d e r
0011360 P a g e 6 2 Q \ M 4 4 C o m
0011400 p l e t e F H 2 0 Q \ M 4 4
0011420 G e t F i l e H a n d l e ) \r (
0011440 3 7 5 Q I R E A D D A T E 3
0011460 6 0 Q I W R I T E D A T E 3
0011500 4 3 Q I C R E A T I O N D A T
0011520 E 3 2 5 Q R E A D D A T E
0011540 3 0 6 Q W R I T E D A T E 2
0011560 7 1 Q C R E A T I O N D A T E
0011600 2 3 7 Q B I N A R Y 2 2 6
0011620 Q T E X T 1 4 0 Q T Y P E
0011640 1 2 3 Q S T R E A M 1 1 5
0011660 Q S T R E A M 1 0 5 Q S T
0011700 R E A M 7 5 Q S T R E A M
0011720 6 7 Q L E N G T H 5 3 Q S
0011740 T R E A M 4 3 Q S I Z E 3
0011760 4 Q L E N G T H 1 3 Q O L
0012000 D 4 004 003 S T R E A M T Y P E
0012020 # ) \r ( ) \r \ M 4 4 G E T D A T
0012040 E P R O P D 1 \r ( L ( 2 S
0012060 T R I N G I F Y 1 O F F S E
0012100 T 0 S T R E A M ) ) \0 ' 002
0012120 \0 \0 003 @ \t \0 \0 A 320 021 021 001 H 310 \0 H
0012140 310 001 365 d j 360 257 d o \0 \0 \0 346 Y B 224
0012160 d \t \0 \0 020 I 020 h 020 \0 ( 4 0 Q G
0012200 D A T E 3 \ M 4 4 R e a d L
0012220 e a d e r P a g e ) \r N I L \r (
0012240 3 0 Q - 2 0 0 0 0 0 0 0 0 0
0012260 0 Q ) \r \ M 4 4 G e t F i l e N
0012300 a m e D 1 \r ( L ( 2 F D E
0012320 V 1 R E C O G 0 N A M E
0012340 ) ) \0 \f \0 \0 \0 003 @ A B \v \0 \0 001
0012360 \t \0 \0 020 \0 ( 1 1 Q \ M 4 4 P A
0012400 C K F I L E N A M E 5 \ M 4
0012420 4 P A R S E F I L E N A M E ) \r
0012440 N I L \r ( ) \r \ M 4 4 G e t P a
0012460 g e L o c D 1 \r ( L ( 2 C
0012500 R E A T E ? 1 P A G E N O
0012520 0 S T R E A M ) ) \0 L 002 \0 \0
0012540 003 A @ 006 \0 \0 310 026 361 263 0 A @ 006 \0 \0
0012560 311 020 361 225 @ A \n \0 \0 277 @ 006 \0 \0 311 016
0012600 A l 002 330 021 002 001 H 006 \0 \0 311 \0 H 006 \0
0012620 \0 310 003 I 330 320 310 \0 020 B 234 @ A j \v \0
0012640 \0 h b 004 277 277 260 273 n 377 377 020 \0 ( 7 7
0012660 Q \ M 4 4 A d d D i s k P a g
0012700 e s 2 7 Q \ M 4 4 F i l l I
0012720 n M a p ) \r ( 5 7 Q A R R A Y
0012740 P 5 1 Q A R R A Y P 3 4 Q
0012760 S T R E A M 1 6 Q S T R E
0013000 A M 4 S T R E A M ) \r ( ) \r
0013020 \ M 4 4 K i l l F i l e P a g e
0013040 M a p D 1 \r ( L ( 0 f H a
0013060 n d l e ) ) \0 \r \0 \0 \0 001 @ h 024
0013100 016 @ m 377 024 020 m 377 020 \0 N I L \r N I
0013120 L \r ( ) \r \ M 4 4 M A K E D I R
0013140 E N T R Y D 1 \r ( L ( 3 F
0013160 D E V 2 N C 1 U N A M E
0013200 0 F I D ) ) \0 213 \b \0 \0 004 C
0013220 311 ( 311 \n A 001 021 b \a B l 016 330 342 H \n
0013240 \0 \0 Z H @ 311 \0 275 \ 311 006 311 8 273 L M
0013260 j l \n l 004 K 016 277 H B \n \0 \0 A 002 001
0013300 210 d 001 276 H N \n \0 \0 277 002 003 265 365 I 002
0013320 246 I 001 l 1 360 263 033 H l ! \n \0 \0 277 I
0013340 214 d 001 _ 016 277 H O 016 \n \0 \0 277 002 003 265
0013360 362 H l . \n \0 \0 B k 345 j 360 225 H j \n
0013400 \0 \0 277 H J \n \0 \0 H d \t \0 \0 l 004 344
0013420 \n \0 \0 H \t \0 \0 J 020 \0 ( 2 0 7 Q
0013440 F O R C E O U T P U T 2 0 3 Q
0013460 \ B O U T 1 7 5 Q \ P E E
0013500 K B I N 1 7 0 Q \ S E T F I
0013520 L E P T R 1 6 2 Q \ B O U T
0013540 1 4 7 Q \ B O U T 1 3 4 Q
0013560 \ B O U T 1 1 6 Q \ B O U
0013600 T 7 1 Q \ B O U T 5 5 Q
0013620 \ B O U T 2 2 Q \ F I N D D
0013640 I R H O L E ) \r N I L \r ( ) \r \
0013660 M 4 4 O p e n F i l e D 1 \r (
0013700 L ( 5 O L D S T R E A M 4
0013720 F D E V 3 P A R A M E T E
0013740 R S 2 R E C O G 1 A C C
0013760 E S S 0 N A M E ) ) 001 J \b
0014000 \0 \0 006 021 200 \a A g \0 \0 360 263 T C 260 N
0014020 d 001 ^ 003 001 d g \0 \0 360 237 277 N 002 001 n
0014040 001 377 330 343 342 l 002 330 270 260 2 d g \0 \0 360
0014060 231 277 N 002 001 \t \0 \0 272 260 " d g \0 \0 360
0014100 226 277 N 002 001 272 260 025 d g \0 \0 360 225 277 N
0014120 002 001 273 206 g \0 \0 360 221 i 274 002 003 265 263 @
0014140 d 004 ` \0 \0 360 242 261 \0 216 d 006 \0 \0 311 006
0014160 006 \0 \0 311 ( 312 \f j 360 262 ' 277 @ 006 \0
0014200 \0 311 \f _ 016 006 \0 \0 311 \0 O 016 006 \0 \0 310
0014220 003 j 330 320 310 \0 n 200 \0 360 264 003 202 261 \0 256
0014240 @ Y \t \0 \0 277 H 265 4 J 265 027 I 004 ` \0
0014260 \0 360 263 p D I H J K \r 005 \0 \0 Y 261 \0
0014300 204 o \0 \0 \0 346 Z 004 l 002 360 263 341 l 002 037
0014320 ] j J \v \0 \0 277 M 272 260 323 D 006 \0 \0 311
0014340 ( 311 \0 310 005 I 004 ` \0 \0 360 262 035 I 006 \0
0014360 \0 310 026 260 026 B D h A g \0 \0 360 h 360 \r
0014400 005 \0 \0 Y 263 242 h 020 j 330 361 262 236 I 004 `
0014420 \0 \0 360 226 I 006 \0 \0 311 004 200 @ l 026 \n \0
0014440 \0 020 E 263 A g \0 \0 360 231 I d j 315 \v
0014460 277 j 315 \n 277 L 253 I A J \v \0 \0 277 I \t
0014500 \0 \0 277 J 224 I k 317 004 \0 I 020 \0 ( 4 7
0014520 6 Q \ M 4 4 W r i t e L e a d
0014540 e r P a g e 4 7 1 Q \ M 4 4
0014560 S e t A c c e s s T i m e s 4
0014600 3 5 Q \ L I S P E R R O R 3
0014620 7 7 Q \ M 4 4 G e t F i l e H
0014640 a n d l e 3 2 2 Q \ P U T B
0014660 A S E F I X P 2 7 1 Q \ M 4
0014700 4 C R E A T E F I L E 2 4 1 Q
0014720 \ M 4 4 C o m p l e t e F H
0014740 6 4 Q I D A T E ) \r ( 4 4 5 Q
0014760 O U T P U T 4 2 4 Q S T R
0015000 E A M 4 1 6 Q 004 003 S T R E A
0015020 M T Y P E # 3 7 0 Q I N P U
0015040 T 3 5 5 Q S T R E A M 3 4
0015060 6 Q 004 003 S T R E A M T Y P E #
0015100 3 3 3 Q F D E V 2 5 5 Q
0015120 004 003 S T R E A M T Y P E # 2 1
0015140 3 Q A R R A Y P 2 0 4 Q A
0015160 R R A Y P 1 7 5 Q S T R E A
0015200 M 1 5 7 Q F D E V 1 5 2 Q
0015220 S T R E A M 1 4 1 Q 004 003 S
0015240 T R E A M T Y P E # 1 2 3 Q
0015260 D O N ' T . C H A N G E . D A T
0015300 E 1 1 0 Q T Y P E 7 3 Q
0015320 I C R E A T I O N D A T E 5 3
0015340 Q C R E A T I O N D A T E 2
0015360 5 Q L E N G T H 6 I N P U
0015400 T ) \r ( 3 0 1 Q - 2 0 0 0 0
0015420 0 0 0 0 0 0 Q ) \r \ M 4 4 O P E
0015440 N F I L E F R O M F P D 1 \r (
0015460 L ( 4 D I R I N F O 3 F
0015500 I D 2 A C C E S S 1 N A
0015520 M E 0 D E V ) ) \0 263 002 \0 \0
0015540 005 ` \0 \0 037 d g \0 \0 024 . 277 d g \0 \0
0015560 024 , 277 d ` \0 \0 024 & 277 d g \0 \0 024 "
0015600 277 d g \0 \0 024 277 d j 317 030 001 277 d `
0015620 \0 \0 315 037 277 d j 315 035 277 d ` \0 \0 315 034
0015640 277 d h 024 030 277 d l \b 317 024 \a 277 d j 317
0015660 004 R 277 d k 317 004 @ 277 d k 317 004 0 277 d
0015700 h 024 002 277 021 001 \0 H m 377 024 020 277 H j 315
0015720 026 277 H j 315 027 277 H 022 021 021 001 H g \0 \0
0015740 @ 006 \0 \0 311 \0 g \0 \0 A \f \0 \0 024 004 H
0015760 @ 024 006 H C 024 \f H D 024 022 H ` \0 \0 221
0016000 k 200 j Y 317 004 277 I j 360 h 360 H B \n
0016020 \0 \0 020 \0 ( 2 6 0 Q \ O P E N F
0016040 I L E 2 1 3 Q P A C K * ) \r
0016060 ( 2 3 5 Q \ M 4 4 M U L T F L
0016100 G 2 0 7 Q } 2 0 2 Q F D
0016120 E V 1 7 6 Q { 7 4 Q \ S
0016140 T R E A M . D E F A U L T . M A
0016160 X B U F F E R S 6 0 Q F I L
0016200 E L I N E L E N G T H 4 3 Q
0016220 \ F I L E O U T C H A R F N 3
0016240 4 Q \ E O S E R R O R 2 5 Q
0016260 \ N O I M A G E O P S 1 6 Q
0016300 \ S T R E A M . N O T . O P E
0016320 N 7 \ S T R E A M . N O T .
0016340 O P E N 2 004 003 S T R E A M T
0016360 Y P E # ) \r ( ) \r \ M 4 4 R e a
0016400 d D i s k P a g e D 1 \r ( L
0016420 ( 2 B U F 1 P A G E N O
0016440 0 S T R E A M ) ) \0 201 002 \0 \0
0016460 003 A @ 006 \0 \0 310 \n 375 361 263 ! A @ 006 \0
0016500 \0 310 \n 331 j 360 232 @ d 006 \0 \0 310 \v j 360
0016520 232 277 B n 001 \0 \n \0 \0 j 020 @ A \n \0 \0
0016540 A k 330 021 002 001 H d n 377 377 360 231 277 B n
0016560 001 \0 \n \0 \0 j 020 n 377 376 360 223 \b \0 \0 020
0016600 @ 006 \0 \0 311 006 006 \0 \0 311 ( B @ 006 \0 \0
0016620 311 016 006 \0 \0 311 \0 m 377 @ I d n 326 002 \r
0016640 \b \0 \0 I 360 223 n 002 \0 020 @ \t \0 \0 023 260
0016660 202 \0 ( 1 7 4 Q \ M 4 4 K i l l
0016700 F i l e P a g e M a p 1 6 1 Q
0016720 \ A C T O N D I S K P A G E S
0016740 1 1 5 Q S H O U L D N T 1
0016760 0 3 Q \ C L E A R W O R D S
0017000 5 6 Q \ M 4 4 G e t P a g e L
0017020 o c 4 7 Q \ C L E A R W O R
0017040 D S ) \r ( 1 4 3 Q A R R A Y P
0017060 1 3 6 Q S T R E A M 1 2 7
0017100 Q F D E V 1 2 2 Q S T R E
0017120 A M 3 2 Q S T R E A M 1 7
0017140 Q S T R E A M 4 S T R E A
0017160 M ) \r ( ) \r \ M 4 4 R e a d L e
0017200 a d e r P a g e D 1 \r ( L (
0017220 1 A G A I N 0 S T R E A M
0017240 ) ) \0 E 001 \0 \0 002 @ 006 \0 \0 311 024 021
0017260 001 \0 H 263 5 l \n 037 270 @ 006 \0 \0 311 006 006
0017300 \0 \0 311 ( H @ 006 \0 \0 311 016 265 006 @ \t \0
0017320 \0 006 \0 \0 311 \0 m 377 @ j d n 326 002 \r \b
0017340 \0 \0 @ H 024 024 H 020 A 263 320 H 020 \0 ( 7
0017360 0 Q \ A C T O N D I S K P A G
0017400 E S 4 7 Q \ M A K E L E A D
0017420 E R D A S ) \r ( 5 2 Q A R R A
0017440 Y P 3 7 Q S T R E A M 3 0
0017460 Q F D E V 2 3 Q S T R E A
0017500 M 3 S T R E A M ) \r ( ) \r \
0017520 M 4 4 R e a d P a g e s D 1 \r
0017540 ( L ( 2 B U F F E R S 1
0017560 F I R S T P A G E # 0 S T R
0017600 E A M ) ) \0 ' 004 \0 \0 003 B A j 021
0017620 023 003 H 265 004 J 020 003 243 H 273 h 204 H 001 273
0017640 H 002 270 J @ I K \v \0 \0 324 272 I k 324 271
0017660 260 342 \0 ( 3 5 Q \ M 4 4 R e a d
0017700 D i s k P a g e ) \r N I L \r ( )
0017720 \r \ M 4 4 S e t A c c e s s T i
0017740 m e s D 1 \r ( L ( 2 C R D
0017760 A T E 1 A C C E S S 0 S
0020000 T R E A M ) ) \0 Y 002 \0 \0 003 l 002
0020020 037 \t \0 \0 @ 006 \0 \0 311 024 021 002 001 A g \0
0020040 \0 360 256 A g \0 \0 360 250 A d g \0 \0 360 262
0020060 ! 277 I B 265 003 H l 002 304 277 I l 002 320 H
0020100 l 002 304 277 @ I 310 001 I 310 003 365 024 \b 277 A
0020120 g \0 \0 360 246 A g \0 \0 360 264 \v I l 004 320
0020140 H l 002 304 h 020 \0 ( 5 \ D A Y T I
0020160 M E 0 ) \r ( 1 1 2 Q B O T H
0020200 1 0 4 Q I N P U T 3 7 Q A
0020220 P P E N D 3 0 Q B O T H 2
0020240 2 Q O U T P U T 1 1 Q S T
0020260 R E A M ) \r ( ) \r \ M 4 4 S e t
0020300 E n d O f F i l e D 1 \r ( L
0020320 ( 3 U P D A T E N O W 2 E
0020340 O F F S E T 1 E P A G E 0
0020360 S T R E A M ) ) \0 , 002 \0 \0 004
0020400 @ A 315 026 @ B 315 027 @ A \n \0 \0 @ \t \0
0020420 \0 021 002 001 I H 315 375 I A k 330 315 376 I B
0020440 315 377 C 264 \a @ \t \0 \0 h 020 \0 ( 5 0 Q
0020460 \ M 4 4 W r i t e L e a d e r
0020500 P a g e 2 0 Q \ M 4 4 R e a
0020520 d L e a d e r P a g e 1 4 Q
0020540 \ M 4 4 G e t P a g e L o c ) \r
0020560 N I L \r ( ) \r \ M 4 4 S e t F i
0020600 l e I n f o D 1 \r ( L ( 3
0020620 D E V 2 V A L U E 1 A T
0020640 T R I B U T E 0 S T R E A M
0020660 ) ) \0 s 001 \0 \0 004 @ 004 ` \0 \0 360 021
0020700 001 \0 A d g \0 \0 360 262 024 277 B \t \0 \0 265
0020720 \b B l 033 \n \0 \0 b 004 277 260 036 g \0 \0 360
0020740 237 B d 005 001 241 005 002 256 B l \n \n \0 \0 277
0020760 206 A g \0 \0 360 264 4 H 254 @ g \0 \0 C i
0021000 \f \0 \0 b \0 264 % A g \0 \0 360 225 @ B \n
0021020 \0 \0 217 @ \t \0 \0 j B o \0 \0 \0 346 \v \0
0021040 \0 277 i 264 \a @ \t \0 \0 i 020 \0 ( 1 5 7
0021060 Q \ M 4 4 W r i t e L e a d e
0021100 r P a g e 1 4 7 Q \ P U T B
0021120 A S E F I X P 1 3 5 Q \ M 4
0021140 4 R e a d L e a d e r P a g e
0021160 1 3 0 Q \ M 4 4 S E T F I L E
0021200 T Y P E 1 1 1 Q \ M 4 4 G e
0021220 t F i l e H a n d l e 6 5 Q
0021240 \ L I S P E R R O R 3 5 Q \
0021260 L I S P E R R O R 2 5 Q I D
0021300 A T E ) \r ( 1 2 1 Q T Y P E
0021320 1 0 4 Q O L D 7 3 Q T Y P
0021340 E 4 5 Q I C R E A T I O N D
0021360 A T E 1 5 Q C R E A T I O N
0021400 D A T E 4 004 003 S T R E A M T
0021420 Y P E # ) \r ( 1 4 3 Q - 2 0
0021440 0 0 0 0 0 0 0 0 0 Q ) \r \ M 4 4
0021460 S E T F I L E T Y P E D 1 \r (
0021500 L ( 1 T Y P E 0 S T R E
0021520 A M ) ) \0 p 004 \0 \0 002 A d g \0 \0
0021540 360 223 277 k 260 023 g \0 \0 360 251 A 265 004 j 206
0021560 \t \0 \0 265 004 l 002 @ \t \0 \0 021 " 003 I d
0021600 312 366 \a 320 Z I 312 366 207 [ d j 361 264 " J
0021620 312 \0 \a d j 360 262 032 277 K k 361 264 023 J H
0021640 315 001 J l 002 317 \0 207 J l 210 317 \0 \a i 020
0021660 l 210 360 225 J H 315 001 i 020 J d 312 \0 207 320
0021700 272 K J 312 \0 207 331 [ 260 303 \0 ( 3 7 Q
0021720 \ M 4 4 R e a d L e a d e r P a
0021740 g e 2 7 Q \ F I L E T Y P E
0021760 . F R O M . T Y P E ) \r ( 1 5 Q
0022000 B I N A R Y 4 T E X T ) \r
0022020 ( ) \r \ M 4 4 T r u n c a t e F
0022040 i l e D 1 \r ( L ( 3 U P D
0022060 A T E N O W 2 L O 1 L P
0022100 0 S T R E A M ) ) \0 231 002 \0
0022120 \0 004 A 265 025 @ 006 \0 \0 310 \n b 002 277 @ 006
0022140 \0 \0 310 \v b 004 277 A @ 006 \0 \0 310 026 361 227
0022160 @ A B \v \0 \0 260 h A @ 006 \0 \0 310 026 375
0022200 361 262 Y @ A k 330 \n \0 \0 277 A @ 006 \0 \0
0022220 311 020 375 361 262 . @ 006 \0 \0 311 020 A k 330 021
0022240 002 001 I H 363 263 027 @ 006 \0 \0 311 016 I l 002
0022260 330 n 377 377 * 277 I k 324 Y 260 351 023 @ A 024
0022300 020 277 @ A B \v \0 \0 277 A @ \n \0 \0 277 @
0022320 A \n \0 \0 277 @ \t \0 \0 203 @ B 315 027 277 C
0022340 226 @ A B i \f \0 \0 @ 020 \0 ( 2 2 5 Q
0022360 \ M 4 4 S e t E n d O f F i l
0022400 e 2 0 6 Q F O R C E O U T P
0022420 U T 2 0 1 Q \ S E T I O D I
0022440 R T Y 1 7 3 Q \ M A P P A G
0022460 E 1 6 5 Q \ M 4 4 S e t E n
0022500 d O f F i l e 6 7 Q \ M 4 4
0022520 D E L E T E P A G E S 4 3 Q
0022540 \ M 4 4 A d d D i s k P a g e s
0022560 ) \r ( 1 3 0 Q S T R E A M 1
0022600 0 7 Q S T R E A M 7 5 Q S
0022620 T R E A M 5 2 Q S T R E A M
0022640 3 1 Q S T R E A M 1 7 Q
0022660 S T R E A M 6 S T R E A M )
0022700 \r ( ) \r \ M 4 4 W r i t e D i s
0022720 k P a g e D 1 \r ( L ( 3 N
0022740 B Y T E S 2 B U F 1 P A
0022760 G E N O 0 S T R E A M ) )
0023000 \0 310 001 \0 \0 004 @ A i \v \0 \0 A k 330 021
0023020 001 \0 A @ 006 \0 \0 310 026 360 263 ( @ 006 \0 \0
0023040 311 006 006 \0 \0 311 ( B @ 006 \0 \0 311 016 006 \0
0023060 \0 311 \0 m 377 @ H d n 326 005 \r \b \0 \0 261
0023100 \0 202 A @ 006 \0 \0 310 \n 360 262 ) @ 006 \0 \0
0023120 311 006 006 \0 \0 311 ( B @ 006 \0 \0 311 016 006 \0
0023140 \0 311 \0 m 377 @ H d h d C \r \n \0 \0 H
0023160 360 260 P @ d 006 \0 \0 311 020 A 361 251 277 @ A
0023200 k 330 \n \0 \0 277 @ 006 \0 \0 311 006 006 \0 \0 311
0023220 ( B h h 032 032 @ 006 \0 \0 311 016 006 \0 \0 311
0023240 \0 m 377 @ H d k 330 h d j \r \n \0 \0 H
0023260 k 330 360 237 @ A k 330 315 026 277 @ j 315 027 277
0023300 i 221 C 020 @ \t \0 \0 023 277 261 377 < \0 ( 3
0023320 0 1 Q \ M 4 4 K i l l F i l e
0023340 P a g e M a p 2 5 0 Q \ W R
0023360 I T E D I S K P A G E S 1 7 6
0023400 Q \ M 4 4 E x t e n d F i l e
0023420 P a g e M a p 1 5 0 Q \ W R
0023440 I T E D I S K P A G E S 7 0 Q
0023460 \ A C T O N D I S K P A G E S
0023500 5 \ M 4 4 G e t P a g e L o
0023520 c ) \r ( 2 3 0 Q A R R A Y P
0023540 2 2 3 Q S T R E A M 2 1 0 Q
0023560 F D E V 2 0 3 Q S T R E A
0023600 M 1 6 1 Q S T R E A M 1 3
0023620 2 Q A R R A Y P 1 2 5 Q S
0023640 T R E A M 1 1 6 Q F D E V
0023660 1 1 1 Q S T R E A M 1 0 0 Q
0023700 S T R E A M 5 2 Q A R R A
0023720 Y P 4 5 Q S T R E A M 3 6
0023740 Q F D E V 3 1 Q S T R E A
0023760 M 2 0 Q S T R E A M ) \r ( )
0024000 \r \ M 4 4 W r i t e L e a d e r
0024020 P a g e D 1 \r ( L ( 0 S T
0024040 R E A M ) ) \0 8 001 \0 \0 001 @ 006 \0
0024060 \0 311 024 021 001 \0 H 264 , @ 006 \0 \0 311 006 006
0024100 \0 \0 311 ( H @ 006 \0 \0 311 016 265 006 @ \t \0
0024120 \0 006 \0 \0 311 \0 m 377 @ j d n 326 005 \r \b
0024140 \0 \0 h 020 \0 ( 6 4 Q \ A C T O N
0024160 D I S K P A G E S 4 3 Q \ M
0024200 A K E L E A D E R D A S ) \r ( 4
0024220 6 Q A R R A Y P 3 3 Q S T
0024240 R E A M 2 4 Q F D E V 1 7
0024260 Q S T R E A M 3 S T R E A
0024300 M ) \r ( ) \r \ M 4 4 W r i t e P
0024320 a g e s D 1 \r ( L ( 2 B U
0024340 F F E R S 1 F I R S T P A G
0024360 E # 0 S T R E A M ) ) \0 326
0024400 \n \0 \0 003 B 003 265 004 k 213 j 021 002 001 H 003
0024420 222 261 \0 211 I 022 021 A 004 @ d 006 \0 \0 312 004
0024440 020 j 360 263 027 277 @ g \0 \0 \n \0 \0 277 @ \t
0024460 \0 \0 277 @ j 317 004 020 277 @ A i \v \0 \0 @
0024500 006 \0 \0 311 020 A H k 331 330 Y 375 361 227 @ I
0024520 k 330 \n \0 \0 277 ` \0 \0 H 361 263 u B h 273
0024540 Z 003 265 B h 262 k ` \0 \0 k 331 274 @ A d
0024560 L k 331 330 L 021 A \t k _ 022 M 363 263 ? B
0024600 001 B 002 b 004 277 _ 020 277 O 016 265 ) O 020 h
0024620 032 _ 016 276 O 022 k 324 260 341 I k 324 271 H 002
0024640 X 261 377 n 001 [ 322 j 360 245 K 263 274 i 260 267
0024660 J 002 260 256 O 020 & _ 016 277 260 332 N 022 \f \0
0024700 \0 277 A L 324 b 002 277 H L 331 X L 361 263 237
0024720 @ A I B \f \0 \0 h 020 \0 ( 3 2 2 Q
0024740 \ M 4 4 W r i t e P a g e s 1
0024760 2 7 4 Q \ M 4 4 W r i t e P a
0025000 g e s 1 1 2 0 Q \ M 4 4 E x
0025020 t e n d F i l e P a g e M a p
0025040 7 2 Q \ M 4 4 G e t P a g e L
0025060 o c 5 5 Q \ M 4 4 W r i t e
0025100 L e a d e r P a g e 5 0 Q \
0025120 M 4 4 S e t A c c e s s T i m e
0025140 s ) \r ( 1 4 5 Q \ # D I S K B
0025160 U F F E R S 1 2 4 Q \ # D I
0025200 S K B U F F E R S 7 6 Q S T
0025220 R E A M 4 5 Q O U T P U T
0025240 3 1 Q S T R E A M ) \r ( ) \r \
0025260 M 4 4 W r i t e P a g e s 1 D
0025300 1 \r ( L ( 3 B U F F E R S
0025320 2 L A S T P A G E # 1 F I
0025340 R S T P A G E # 0 S T R E A
0025360 M ) ) \0 265 004 \0 \0 004 B @ 006 \0 \0 310
0025400 026 375 361 262 * @ 006 \0 \0 311 006 006 \0 \0 311 (
0025420 C @ 006 \0 \0 311 016 006 \0 \0 311 \0 m 377 @ A
0025440 k 330 B k 330 n 326 005 \r \b \0 \0 020 021 @ 003
0025460 B @ 006 \0 \0 310 \n 360 236 @ 006 \0 \0 310 \v Y
0025500 n 002 \0 360 242 C 260 033 h h 032 X C h 273 272
0025520 J 265 B H h 030 h 031 277 j 271 B k 324 b 004
0025540 277 X @ 006 \0 \0 311 006 006 \0 \0 311 ( H @ 006
0025560 \0 \0 311 016 006 \0 \0 311 \0 m 377 @ A k 330 B
0025600 k 330 h d I \r \n \0 \0 @ B 315 026 @ I 315
0025620 027 h 020 003 243 J 273 h 204 J 001 273 J 002 272 H
0025640 K 030 277 H d h h 032 031 277 002 270 260 244 \0 (
0025660 2 1 6 Q \ W R I T E D I S K P
0025700 A G E S 6 1 Q \ A C T O N D
0025720 I S K P A G E S ) \r ( 1 7 4 Q
0025740 A R R A Y P 1 6 7 Q S T R E
0025760 A M 1 6 0 Q F D E V 1 5 3
0026000 Q S T R E A M 1 0 2 Q S T
0026020 R E A M 7 2 Q S T R E A M
0026040 3 7 Q A R R A Y P 3 2 Q S
0026060 T R E A M 2 3 Q F D E V 1
0026100 6 Q S T R E A M 4 S T R E
0026120 A M ) \r ( ) \r \ A D D D I S K P
0026140 A G E S D 1 \r ( L ( 4 L A
0026160 S T N U M C H A R S 3 D A s
0026200 2 N P A G E S 1 F I R S
0026220 T N E W P A G E 0 S T R E A
0026240 M ) ) \0 221 \n \0 \0 005 l \n 037 A @ 006
0026260 \0 \0 311 006 006 \0 \0 311 ( 021 # 004 H B d `
0026300 \0 \0 361 223 277 ` \0 \0 k 021 2 \t N M 363 264
0026320 ! O 016 022 032 [ J H C m 377 @ I d n 326
0026340 002 h d d I \r \f \0 \0 B j 361 263 " h 020
0026360 _ 022 277 O 020 265 021 O 022 h 032 _ 020 _ 016 277
0026400 N k 324 ^ 260 311 O 022 & _ 020 277 260 364 ` \0
0026420 \0 d B 361 221 277 B 274 J K C m 377 @ I d
0026440 L 330 h d D I \r \v \0 \0 277 K h 030 277 I
0026460 L 324 271 B L 331 b 004 260 262 \0 ( 1 7 7 Q
0026500 \ W R I T E D I S K P A G E S
0026520 7 6 Q \ A C T O N D I S K P
0026540 A G E S ) \r ( 1 4 6 Q \ M A X
0026560 D I S K D A s 3 5 Q \ M A X
0026600 D I S K D A s 2 7 Q \ M A X
0026620 D I S K D A s 1 4 Q F D E V
0026640 7 S T R E A M ) \r ( ) \r \ M
0026660 4 4 D E L E T E P A G E S D 1
0026700 \r ( L ( 1 F I R S T P A G E
0026720 0 S T R E A M ) ) 001 \f \v \0
0026740 \0 002 @ 006 \0 \0 311 006 @ 006 \0 \0 311 \b 233 @
0026760 006 \0 \0 310 026 A 331 l 003 330 201 l @ A k 330
0027000 021 203 \n l 002 I 361 221 h 020 H 006 \0 \0 311 (
0027020 ^ I d ` \0 \0 361 223 277 ` \0 \0 Y g \0 \0
0027040 h j \f \0 \0 [ A m 377 360 235 @ 006 \0 \0 311
0027060 \f 006 \0 \0 311 \0 310 004 204 @ A \n \0 \0 \ L
0027100 n 377 377 360 222 261 \0 242 K j n 377 376 * 277 K
0027120 k L * 277 I k 331 l 002 _ 020 277 _ 016 277 O
0027140 020 O 016 363 257 K O 020 n 377 376 * 277 O 020 k
0027160 324 _ 020 260 356 N h K 006 \0 \0 311 \0 J k 331
0027200 @ J d I l 003 331 330 n 326 002 h d d @ 006
0027220 \0 \0 310 \n k 330 \r \f \0 \0 275 N h K 006 \0
0027240 \0 311 \0 J k 331 ` \0 \0 J M n 377 377 \r \b
0027260 \0 \0 277 M J _ 024 277 _ 022 277 O 024 O 022 363
0027300 263 027 H K O 024 J 331 k 330 ( \n \0 \0 277 O
0027320 024 k 324 _ 024 260 350 K M J 331 l 002 330 ( 274
0027340 M k 330 272 261 377 [ H \t \0 \0 h 020 \0 ( 4
0027360 1 0 Q \ M 4 4 F L U S H D I S
0027400 K D E S C R I P T O R 3 5 3 Q
0027420 \ M 4 4 M A R K P A G E F R E
0027440 E 3 1 7 Q \ W R I T E D I S
0027460 K P A G E S 2 6 7 Q \ A C T
0027500 O N D I S K P A G E S 1 3 3 Q
0027520 \ M 4 4 G e t P a g e L o c
0027540 1 0 2 Q A R R A Y ) \r ( 3 0 6
0027560 Q \ F R E E P A G E F I D 2
0027600 7 6 Q A R R A Y P 2 5 7 Q
0027620 S T R E A M 2 3 0 Q A R R A
0027640 Y P 1 2 1 Q A R R A Y P 1
0027660 1 4 Q S T R E A M 7 5 Q W
0027700 O R D 7 1 Q \ M A X D I S K
0027720 D A s 6 3 Q \ M A X D I S K
0027740 D A s 5 3 Q F D E V 2 0 Q
0027760 S T R E A M 1 1 Q S T R E
0030000 A M 3 S T R E A M ) \r ( ) \r
0030020 \ A S S I G N D I S K P A G E
0030040 D 1 \r ( L ( 1 P R E V D A
0030060 0 D S K ) ) \0 352 \a \0 \0 002 A n
0030100 377 377 360 263 027 A d n 377 376 360 262 023 277 ` \0
0030120 \0 227 o \0 \0 \0 \t \0 \0 277 @ 310 034 201 k 330
0030140 @ 311 \f l 200 021 C 006 @ 312 \f 020 j 360 230 o
0030160 \0 \0 \0 @ \n \0 \0 277 I H 342 342 342 l 330
0030200 \n \0 \0 277 H l \a 345 \ d j 361 242 261 \0 215
0030220 J 342 272 k 331 260 364 i 275 I l \n \0 \0 260
0030240 { l 377 360 263 w K J 345 j 360 255 J 342 Z d
0030260 j 360 247 277 L k 324 274 260 356 J j 360 263 X I
0030300 \t \0 \0 277 I 006 \0 \0 311 006 006 \0 \0 311 0 276
0030320 I k N 016 l 331 340 340 340 L 330 270 I K J
0030340 344 \n \0 \0 277 @ 311 \0 @ 311 \0 310 005 d j 360
0030360 262 024 277 ` \0 \0 227 o \0 \0 \0 \t \0 \0 277 I
0030400 \t \0 \0 201 k 331 315 005 277 @ H 315 034 277 @ k
0030420 317 \f \0 H 020 l 200 272 j \ 277 I [ 265 203
0030440 M 242 261 377 u h 020 \0 ( 3 0 4 Q \ C
0030460 O U N T D I S K F R E E P A G E
0030500 S 2 7 7 Q R A I D 2 4 5 Q
0030520 \ B O U T 2 0 4 Q \ B A C
0030540 K F I L E P T R 1 4 0 Q \ S
0030560 E T F I L E P T R 1 0 4 Q \
0030600 S E T F I L E P T R 7 0 Q R
0030620 A I D 3 2 Q R A I D ) \r ( 2
0030640 6 7 Q \ D I S K D E B U G 2
0030660 1 6 Q F D E V 2 1 1 Q S T
0030700 R E A M 2 2 Q \ D I S K D E
0030720 B U G ) \r ( 2 7 4 Q " [ D i
0030740 s k d e b u g ] F r e e p
0030760 a g e h i n t w e n t n e
0031000 g a t i v e . ^ N t o c
0031020 o n t i n u e " 6 4 Q " D I
0031040 S K D E S C R I P T O R n o t
0031060 o p e n " 2 7 Q " [ D i s
0031100 k d e b u g ] \ A S S I G N
0031120 D I S K P A G E c a l l e d
0031140 w i t h \ F I L L I N D A .
0031160 ^ N t o c o n t i n u e "
0031200 ) \r \ C O U N T D I S K F R E E
0031220 P A G E S D 1 \r ( L ( 0 D
0031240 D ) ) \0 P 003 \0 \0 001 @ 004 ` \0 \0 360
0031260 256 @ 265 005 g \0 \0 \t \0 \0 \t \0 \0 b \0 277
0031300 j 021 ! 002 @ l \n \0 \0 277 @ Z 265 004
0031320 H 020 j 360 226 H l \b 324 X 260 360 J l 377 360
0031340 263 353 l 200 271 I 342 Y j 360 263 341 J I 345 j
0031360 360 262 364 H k 324 270 260 356 \0 ( 3 7 Q \
0031400 S E T F I L E P T R 2 2 Q \
0031420 O P E N D I S K D E S C R I P T
0031440 O R 1 7 Q \ G E T D E V I C
0031460 E F R O M N A M E ) \r ( 1 4 Q
0031500 D S K 4 004 003 S T R E A M T Y
0031520 P E # ) \r ( ) \r \ M 4 4 M A R K
0031540 P A G E F R E E D 1 \r ( L (
0031560 1 D A 0 D E V ) ) \0 a 004
0031600 \0 \0 002 @ d 004 ` \0 \0 360 224 006 \0 \0 311 (
0031620 021 1 003 H 312 \f 020 j 360 243 H 311 \f 203 @ \t
0031640 \0 \0 Y d A 342 342 342 l 330 \n \0 \0 I
0031660 Z k l \a A l \a 345 331 \n \0 \0 [ J K 345
0031700 j 360 263 037 I \t \0 \0 277 I J K 346 \n \0 \0
0031720 277 H 311 \0 d 310 005 k 324 315 005 277 H k 317 \f
0031740 \0 h 020 \0 ( 1 1 4 Q \ B O U T
0031760 1 0 4 Q \ B A C K F I L E P T
0032000 R 7 0 Q L L S H 5 2 Q S
0032020 E T F I L E P T R 3 6 Q \ O
0032040 P E N D I S K D E S C R I P T O
0032060 R ) \r ( 1 2 Q F D E V 5 004
0032100 003 F D E V T Y P E # ) \r ( ) \r \
0032120 M 4 4 F L U S H D I S K D E S C
0032140 R I P T O R D 1 \r ( L ( 0
0032160 D E V ) ) \0 Y 005 \0 \0 001 @ d 004 `
0032200 \0 \0 360 224 006 \0 \0 311 ( 021 A 004 H d 312 \f
0032220 \0 j 360 221 h 020 311 \f Y 265 \n o \0 \0 \0 \t
0032240 \0 \0 020 l \b \n \0 \0 I H 311 \0 274 [ 006 \0
0032260 \0 311 006 006 \0 \0 311 8 272 K L j l \f l 004
0032300 J 016 277 I \t \0 \0 H j 317 \f \0 277 j d 360
0032320 h 360 i 020 \0 ( 1 1 2 Q F O R C E
0032340 O U T P U T 5 3 Q \ S E T F
0032360 I L E P T R 4 5 Q R A I D )
0032400 \r ( 7 1 Q F D E V 6 4 Q S
0032420 T R E A M 1 2 Q F D E V 5
0032440 004 003 F D E V T Y P E # ) \r (
0032460 4 2 Q " [ D i s k d e b u g
0032500 ] n o d i s k d e s c r i
0032520 p t o r s t r e a m " ) \r \ M
0032540 A K E L E A D E R D A S D 1 \r
0032560 ( L ( 0 S T R E A M ) ) \0
0032600 1 001 \0 \0 001 l 004 g \0 \0 n 377 376 j \f \0
0032620 \0 021 001 \0 H j n 377 377 * H k @ 006 \0 \0
0032640 311 \f 006 \0 \0 311 \0 310 004 * @ H 024 016 @ m
0032660 377 024 020 H 020 \0 ( 1 3 Q A R R A Y
0032700 ) \r ( 3 7 Q A R R A Y P 3 2
0032720 Q S T R E A M 4 W O R D )
0032740 \r ( ) \r D I S K F R E E P A G E
0032760 S D 1 \r ( L ( 1 R E C O M
0033000 P U T E 0 D S K ) ) \0 y 002
0033020 \0 \0 002 ` \0 \0 l 006 360 232 @ 265 005 g \0 \0
0033040 A \n \0 \0 020 @ d 004 l 004 360 230 265 005 g \0
0033060 \0 i \n \0 \0 021 021 001 H 004 ` \0 \0 360 232 H
0033100 006 \0 \0 311 022 g \0 \0 360 244 @ \t \0 \0 277 A
0033120 262 0 H \t \0 \0 \t \0 \0 Y d H 006 \0 \0 311
0033140 ( 311 \0 310 005 360 263 030 H 006 \0 \0 311 ( 311 \0
0033160 I 315 005 277 H 006 \0 \0 311 ( k 317 \f \0 I 020
0033200 H 006 \0 \0 311 ( 311 \0 310 005 020 \0 ( 1 0 5
0033220 Q \ C O U N T D I S K F R E E
0033240 P A G E S 1 0 2 Q \ O P E N
0033260 D I S K D E S C R I P T O R 7
0033300 2 Q \ I L L E G A L . A R G
0033320 4 1 Q \ G E T D E V I C E F R
0033340 O M N A M E 2 0 Q \ D F S F
0033360 r e e D i s k P a g e s ) \r ( 1
0033400 6 0 Q F D E V 1 4 4 Q F D
0033420 E V 1 3 0 Q F D E V 1 1 3
0033440 Q F D E V 6 4 Q \ M 4 4 O
0033460 p e n F i l e 5 7 Q F D E V
0033500 5 1 Q 004 003 F D E V T Y P E #
0033520 3 5 Q D S K 1 4 Q D S K
0033540 2 \ M A C H I N E T Y P E )
0033560 \r ( ) \r V M E M S I Z E D 1 \r
0033600 N I L \0 \a \0 \0 \0 \0 ` \0 \0 310 024 020
0033620 \0 N I L \r ( 2 \ I n t e r f a
0033640 c e P a g e ) \r ( ) \r \ M 4 4 G
0033660 E N E R A T E F I L E S D 1 \r
0033700 ( L ( 3 O P T I O N S 2
0033720 D E S I R E D P R O P S 1 P
0033740 A T T E R N 0 F D E V ) )
0033760 002 025 027 \0 \0 004 @ 006 \0 \0 311 ( 311 \n ` \0
0034000 \0 006 \0 \0 006 \0 \0 311 \0 021 302 \r H 233 A \t
0034020 \0 \0 _ 030 003 265 \t h 262 T \b \0 \0 020 001 d
0034040 g \0 \0 360 227 277 O 030 002 001 272 260 033 d g \0
0034060 \0 360 226 277 O 030 002 001 273 213 d g \0 \0 360 233
0034100 277 O 030 002 001 274 O 030 002 002 260 310 g \0 \0 360
0034120 262 031 O 030 002 001 \t \0 \0 ] j 360 263 352 M 005
0034140 001 262 345 M _ 022 277 260 337 i 260 256 K L 264 \t
0034160 g \0 \0 L h 032 032 g \0 \0 M 265 005 g \0 \0
0034200 h 032 032 \n \0 \0 032 \t \0 \0 \t \0 \0 _ 020 L
0034220 227 L \t \0 \0 l * 360 221 K 207 K g \0 \0 L
0034240 \v \0 \0 021 201 026 O 034 310 003 k 331 _ ( 277 O
0034260 034 311 \0 _ * 277 O ( O 034 310 002 330 _ & 277
0034300 O 034 312 \0 C j 360 h 360 _ , 277 O ( k 330
0034320 _ ( O & 361 263 * O , 227 O * O ( 320 310
0034340 \0 204 O * O ( 302 _ $ 277 I O $ 302 _ $
0034360 l # 360 252 O $ d l * 360 242 261 \0 326 277 O
0034400 036 022 ^ B 242 261 \0 201 ` \0 \0 037 d g \0 \0
0034420 024 . 277 d g \0 \0 024 , 277 d ` \0 \0 024 &
0034440 277 d g \0 \0 024 " 277 d g \0 \0 024 277 d
0034460 j 317 030 001 277 d ` \0 \0 315 037 277 d j 315 035
0034500 277 d ` \0 \0 315 034 277 d h 024 030 277 d l \b
0034520 317 024 \a 277 d j 317 004 R 277 d k 317 004 @ 277
0034540 d k 317 004 0 277 d h 024 002 277 _ 032 m 377 024
0034560 020 277 O 032 j 315 026 277 O 032 j 315 027 277 O 032
0034600 _ 016 @ 024 006 277 j N 032 _ 024 g \0 \0 J g
0034620 \0 \0 \v \0 \0 _ 026 C g \0 \0 360 252 C 003 262
0034640 N g \0 \0 C 034 262 G g \0 \0 g \0 \0 H d
0034660 O 024 O 020 O 022 O 026 N \t \0 \0 \r 006 \0 \0
0034700 h d d O 016 h h 032 032 032 032 032 032 032 032 032
0034720 020 _ " 277 O 265 016 O " h 032 _ _ 036
0034740 277 261 376 353 O " & _ 277 261 376 342 g \0 \0
0034760 g \0 \0 H O 024 O 020 O 022 O 026 O 016 h h
0035000 032 032 032 032 032 032 032 032 032 020 \0 ( 7 1 1 Q
0035020 \ M 4 4 S O R T F I L E S 7
0035040 0 5 Q L E N G T H 6 3 6 Q
0035060 C O N C A T 2 5 4 Q C O N C
0035100 A T 2 3 6 Q C H C O N 1 2
0035120 2 6 Q D I R E C T O R Y . M A
0035140 T C H . S E T U P 2 2 3 Q C
0035160 O N C A T L I S T 2 1 7 Q \
0035200 N C O N C 2 1 4 2 Q M K A T
0035220 O M 4 6 Q \ N U L L F I L E
0035240 G E N E R A T O R 3 3 Q U N
0035260 P A C K F I L E N A M E . S T R
0035300 I N G ) \r ( 7 7 4 Q \ M 4 4 F
0035320 I L E I N F O F N 7 7 1 Q \
0035340 M 4 4 N E X T F I L E F N 6 6
0035360 7 Q \ M 4 4 F I L E I N F O F
0035400 N 6 6 4 Q \ M 4 4 S O R T E
0035420 D N E X T F I L E F N 6 5 5 Q
0035440 S O R T 6 4 4 Q S O R T
0035460 6 3 3 Q } 6 2 7 Q { 5 1
0035500 6 Q \ S T R E A M . D E F A U
0035520 L T . M A X B U F F E R S 5 0
0035540 2 Q F I L E L I N E L E N G T
0035560 H 4 6 5 Q \ F I L E O U T C
0035600 H A R F N 4 5 6 Q \ E O S E
0035620 R R O R 4 4 7 Q \ N O I M A
0035640 G E O P S 4 4 0 Q \ S T R E
0035660 A M . N O T . O P E N 4 3 1 Q
0035700 \ S T R E A M . N O T . O P E
0035720 N 4 2 4 Q 004 003 S T R E A M T
0035740 Y P E # 2 5 0 Q % . 2 1 1
0035760 Q * 2 0 3 Q ; 1 7 4 Q
0036000 % . 1 3 0 Q V E R S I O N
0036020 1 0 7 Q E X T E N S I O N 7
0036040 2 Q N A M E 5 4 Q H O S T
0036060 2 0 Q A R R A Y P 1 5 Q
0036100 A R R A Y P 1 2 Q \ D I S K
0036120 N A M E C A S E A R R A Y 3
0036140 F D E V ) \r ( ) \r \ M 4 4 S O R
0036160 T F I L E S A 0 0 0 1 D 1 \r (
0036200 L ( 1 Y 0 X ) ) \0 036 \0
0036220 \0 \0 002 @ 001 A 001 \n \0 \0 d g \0 \0 360 221
0036240 i 020 g \0 \0 360 264 \t @ 002 001 A 002 001 361 020
0036260 \0 ( 6 U A L P H O R D E R ) \r
0036300 ( 2 1 Q E Q U A L 1 2 Q L
0036320 E S S P ) \r ( ) \r \ M 4 4 S O R
0036340 T F I L E S D 1 \r ( L ( 5
0036360 P A T T E R N L E N G T H 4
0036400 H O S T P R E F I X 3 D E S
0036420 I R E D V E R S I O N 2 F I
0036440 L T E R 1 S E A R C H S T A
0036460 T E 0 D I R S T R E A M ) )
0036500 \0 ) 003 \0 \0 006 021 0 002 @ A B C D E
0036520 \r 006 \0 \0 265 \v H 022 g \0 \0 \n \0 \0 020 272
0036540 I 265 \t J h 032 Y 270 260 342 J & 271 260 335 \0
0036560 ( 2 6 Q S O R T 1 4 Q \ M
0036600 4 4 G E N E R A T E N E X T ) \r
0036620 ( 2 3 Q \ M 4 4 S O R T F I L
0036640 E S A 0 0 0 1 ) \r ( ) \r \ M 4 4
0036660 G E N E R A T E N E X T D 1 \r
0036700 ( L ( 6 G E N F I L E S T A
0036720 T E 5 P A T T E R N L E N G
0036740 T H 4 H O S T P R E F I X
0036760 3 D E S I R E D V E R S I O N
0037000 2 F I L T E R 1 S E A R
0037020 C H S T A T E 0 D I R S T R
0037040 E A M ) ) 001 d 016 \0 \0 \a l . A 002
0037060 \n \0 \0 021 321 \r @ A \n \0 \0 Z 264 003 202 261
0037100 001 * @ \t \0 \0 E l \r 330 331 Y E J k 331
0037120 330 \ k J k 331 _ 022 277 _ 020 277 O 020 O 022
0037140 363 263 $ @ d l ! 360 232 277 @ O 022 k 331
0037160 \n \0 \0 260 023 l . 360 221 i 270 O 022 m 377 324
0037200 _ 022 277 260 331 k 275 C 227 M C 360 243 277 277 260
0037220 247 L D 265 \r j [ M k 360 231 D 227 l 002 205
0037240 \t \0 \0 260 363 j H 221 j 200 k 330 330 330 \t \0
0037260 \0 ^ D 226 d k D \v \0 \0 277 @ I l \r 330
0037300 \n \0 \0 K _ 016 k L _ 032 277 _ 030 277 O 030
0037320 O 032 363 263 i @ Z d l . 360 262 031 277 i
0037340 270 N O 016 k 324 _ 016 J + 277 O 032 m 377 324
0037360 _ 032 277 260 333 l ! 360 262 351 H 252 N O 016 k
0037400 324 _ 016 l . + 277 i 270 D 262 2 N O 016 k
0037420 324 _ 016 l ; + 277 O 032 k 331 _ 024 277 k _
0037440 026 O 024 363 263 030 N O 016 k 324 _ 016 F 222 @
0037460 201 l 1 + 277 O 026 k 324 260 345 H 252 N O
0037500 016 k 324 _ 016 l . + 277 M k 360 236 D 234 N
0037520 O 016 k 330 o \0 \0 \0 \v \0 \0 277 B 265 $ F
0037540 265 \n N M I h 032 032 032 020 002 002 002 002 002 002
0037560 I 030 F 002 002 002 002 002 001 006 \0 \0 h 024 022 N
0037600 020 N \n \0 \0 263 332 277 277 277 277 277 261 376 252 \0
0037620 ( 5 3 0 Q D I R E C T O R Y .
0037640 M A T C H 4 5 6 Q R P L S T
0037660 R I N G 2 2 6 Q \ S E T F I
0037700 L E P T R 2 1 5 Q R P L S T
0037720 R I N G 2 0 4 Q A L L O C S
0037740 T R I N G 1 6 6 Q N C H A R
0037760 S 1 0 6 Q \ M 4 4 R E A D V
0040000 E R S I O N 3 1 Q G E T F I
0040020 L E P T R 1 6 Q \ M 4 4 S E
0040040 A R C H D I R 6 M E M B ) \r
0040060 ( 5 1 7 Q S T R E A M ) \r (
0040100 4 5 3 Q " ; 1 " ) \r \ M 4 4 N
0040120 E X T F I L E F N D 1 \r ( L
0040140 ( 1 N A M E O N L Y 0 G E
0040160 N F I L E S T A T E ) ) \0 / 006
0040200 \0 \0 002 @ 001 @ 002 001 @ 002 002 002 001 @ 002 002
0040220 001 A h 360 264 \b @ 002 002 002 002 001 021 025 005 I
0040240 002 \t \0 \0 ] H I K J L M @ \r \a \0 \0
0040260 020 \0 ( 5 4 Q \ M 4 4 G E N E R
0040300 A T E N E X T 4 0 Q L E N G
0040320 T H ) \r N I L \r ( ) \r \ M 4 4 S
0040340 O R T E D N E X T F I L E F N
0040360 D 1 \r ( L ( 1 N A M E O N L
0040400 Y 0 G E N F I L E S T A T E
0040420 ) ) \0 217 006 \0 \0 002 @ 002 001 001 @ 002 @
0040440 002 001 002 030 277 021 ! 002 H d 262 \ 002 001 Y k
0040460 360 263 = H 001 \t \0 \0 272 l \n I 361 262 034 H
0040500 001 006 \0 \0 311 \0 H 001 006 \0 \0 310 003 J k 331
0040520 330 I l 0 324 307 277 260 027 I \t \0 \0 Y J I
0040540 \t \0 \0 331 k 330 021 022 005 K 003 265 034 023 @ 002
0040560 002 002 002 002 001 h 024 022 @ 002 002 002 002 002 002 H
0040600 002 002 001 030 H 001 020 001 275 H 001 006 \0 \0 311 \0
0040620 H 001 006 \0 \0 310 003 L k 331 330 M 307 277 K 002
0040640 273 L k 324 274 260 304 \0 ( 1 1 1 Q L E
0040660 N G T H 1 0 3 Q C H C O N
0040700 3 6 Q N C H A R S ) \r ( 1 7 3
0040720 Q S T R I N G P 1 6 4 Q S
0040740 T R I N G P 6 1 Q S T R I N
0040760 G P 5 2 Q S T R I N G P ) \r
0041000 ( ) \r \ M 4 4 F I L E I N F O F
0041020 N D 1 \r ( L ( 1 A T T R I
0041040 B U T E 0 G E N F I L E S T
0041060 A T E ) ) \0 Q 001 \0 \0 002 @ 002 002 002
0041100 002 002 001 021 001 \0 H d 262 C d 006 \0 \0 311 022
0041120 263 7 277 H d h 024 016 277 h 024 \b 277 H @ 002
0041140 002 002 002 002 002 001 024 022 277 H @ 001 @ 002 002 002
0041160 002 002 002 001 H 006 \0 \0 311 \f \v \0 \0 024 \f 277
0041200 H i \n \0 \0 277 H A \n \0 \0 020 \0 ( 1 1
0041220 6 Q \ M 4 4 G e t F i l e I n
0041240 f o 1 1 0 Q \ M 4 4 R e a d
0041260 L e a d e r P a g e 1 0 0 Q
0041300 \ R E A D D I R F P T R ) \r ( 7
0041320 3 Q S T R E A M 2 1 Q S T
0041340 R E A M ) \r ( ) \r \ M 4 4 P A R
0041360 S E F I L E N A M E D 1 \r ( L
0041400 ( 3 C R E A T E F L G 2
0041420 D E V 1 R E C O G 0 X )
0041440 ) \0 302 004 \0 \0 004 @ B C \v \0 \0 021 1
0041460 003 H d 244 d h 032 032 020 g \0 \0 360 227 h g
0041500 \0 \0 h 032 032 020 H B 311 ( 311 \n A g \0 \0
0041520 360 246 A g \0 \0 360 264 003 i \v \0 \0 Z 264 D
0041540 H 001 265 003 A d g \0 \0 360 245 d g \0 \0 360
0041560 227 277 J \t \0 \0 001 260 " d g \0 \0 360 233 277
0041600 J \t \0 \0 001 001 k 330 h 032 215 g \0 \0 360 222
0041620 J 001 205 H 001 J \n \0 \0 Y d 225 002 273 I 001
0041640 260 : 273 A 265 004 H 001 d g \0 \0 360 245 d g
0041660 \0 \0 360 235 277 H 001 d 005 001 241 005 002 265 035 k
0041700 260 032 d g \0 \0 360 245 d g \0 \0 360 222 277 h
0041720 210 277 H 001 d 005 001 241 005 002 271 H I d 222 \t
0041740 \0 \0 030 H K h 032 032 020 \0 ( 2 7 1 Q
0041760 C H C O N 1 6 0 Q S A S S O
0042000 C 1 3 3 Q L A S T 1 1 5 Q
0042020 L A S T 6 4 Q \ M 4 4 L O
0042040 O K U P V E R S I O N S 5 \
0042060 M 4 4 U N P A C K F I L E N A M
0042100 E ) \r ( 2 4 3 Q O L D E S T
0042120 2 3 5 Q O L D 2 1 1 Q O L
0042140 D / N E W 2 0 3 Q N E W 1
0042160 4 5 Q O L D E S T 1 2 4 Q
0042200 N E W 1 0 6 Q O L D / N E W
0042220 1 0 0 Q O L D 5 5 Q O L
0042240 D / N E W 4 7 Q N E W 3 1
0042260 Q D I R E C T O R Y 2 3 Q
0042300 D I R E C T O R Y ) \r ( ) \r \ F
0042320 I N D D I R H O L E D 1 \r ( L
0042340 ( 1 D I R S T R E A M 0
0042360 # W O R D S ) ) \0 ~ 004 \0 \0 002 A
0042400 006 \0 \0 311 022 265 003 j 021 1 003 A H \n \0 \0
0042420 277 A 006 \0 \0 311 006 006 \0 \0 311 4 273 A d k
0042440 K 016 263 C 277 A Z l 003 345 341 A 330 Y
0042460 @ 375 361 263 B l 004 J 361 262 < A H \n \0 \0
0042500 277 I @ 361 262 I @ 331 271 A I 343 \n \0 \0
0042520 277 A I l 377 345 \n \0 \0 277 A H I 340 324 X
0042540 \n \0 \0 277 A @ 343 \n \0 \0 277 A @ l 377 345
0042560 \n \0 \0 H 020 H I 340 324 270 260 221 \0 ( 1 6
0042600 3 Q \ B O U T 1 5 2 Q \ B
0042620 O U T 1 4 3 Q \ S E T F I L
0042640 E P T R 1 3 1 Q \ B O U T
0042660 1 2 0 Q \ B O U T 1 0 0 Q
0042700 \ S E T F I L E P T R 2 0 Q
0042720 \ S E T F I L E P T R ) \r ( 3 2
0042740 Q F D E V 2 5 Q S T R E A
0042760 M 3 S T R E A M ) \r ( ) \r \
0043000 M 4 4 P A C K F I L E N A M E
0043020 D 1 \r ( L ( 0 U N A M E ) )
0043040 \0 3 \0 \0 \0 001 @ 001 264 / g \0 \0 @ 002
0043060 001 001 g \0 \0 @ 002 002 l . @ 002 002 \n \0 \0
0043100 224 o \0 \0 \0 203 o \0 \0 \0 @ 001 \n \0 \0 \n
0043120 \0 \0 \t \0 \0 \f \0 \0 020 \0 ( 6 0 Q P
0043140 A C K * 5 5 Q P A C K C 5
0043160 2 Q \ A P P E N D 2 4 7 Q
0043200 \ A P P E N D 2 3 0 Q M E M
0043220 B ) \r ( 1 5 Q } 6 { ) \r (
0043240 4 2 Q ( 5 6 Q 7 3 Q ) 3
0043260 5 Q ( 7 3 Q ) ) \r \ M 4 4 L O
0043300 O K U P V E R S I O N S D 1 \r
0043320 ( L ( 2 H M I N 1 S T R
0043340 E A M 0 U N A M E ) ) \0 255
0043360 \t \0 \0 003 @ 002 002 \t \0 \0 l \r 330 j @ 002
0043400 002 032 @ 001 d 005 001 241 005 002 021 c \b J j 360
0043420 221 h 272 B i 360 227 H l 006 330 342 b 004 277 A
0043440 I B \v \0 \0 \ 241 M 020 A 311 006 311 0 _ 016
0043460 277 A k O 016 016 273 L k 360 223 k 276 260 024 A
0043500 d l ! 360 262 L L l 002 331 \n \0 \0 ^ 262
0043520 C K H 331 273 J 232 N J 360 262 8 N K 032 h
0043540 032 020 M 227 M d 001 001 N 361 230 277 N K 032 M
0043560 032 ] 260 037 _ 020 d 002 237 277 N O 020 002 001 001
0043600 361 224 O 020 002 260 357 O 020 N K 032 O 020 002 032
0043620 031 277 B 262 214 A d 311 022 262 207 277 h 261 377 177
0043640 \0 ( 1 3 1 Q \ M 4 4 R E A D V
0043660 E R S I O N 6 0 Q \ M 4 4 S
0043700 E A R C H D I R 5 L E N G T
0043720 H ) \r N I L \r ( ) \r \ M 4 4 R E
0043740 A D V E R S I O N D 1 \r ( L
0043760 ( 1 M A X C H A R S 0 D I
0044000 R S T R E A M ) ) \0 - 004 \0 \0 002
0044020 A j 021 " 003 k Z H 363 263 ! @ 273 l 0
0044040 K 361 263 026 K l 9 361 256 I l \n 332 K l 0
0044060 331 330 271 J k 324 260 340 h 020 I 020 \0 N I L
0044100 \r N I L \r ( ) \r \ O P E N D I S
0044120 K D E S C R I P T O R D 1 \r (
0044140 L ( 0 D E V ) ) \0 267 004 \0 \0
0044160 001 @ d 004 ` \0 \0 360 246 311 032 \t \0 \0 b \0
0044200 006 \0 \0 311 ( 312 \f 020 j 360 242 261 \0 210 @ 006
0044220 \0 \0 311 ( 311 \f 021 1 003 H 265 037 @ 006 \0 \0
0044240 311 ( ` \0 \0 360 262 031 @ o \0 \0 \0 g \0 \0
0044260 @ \t \0 \0 \f \0 \0 260 ! \t \0 \0 277 260 337 g
0044300 \0 \0 @ 006 \0 \0 311 \0 g \0 \0 o \0 \0 \0 \f
0044320 \0 \0 g \0 \0 \n \0 \0 271 @ 006 \0 \0 311 ( I
0044340 024 \f 277 I d 006 \0 \0 310 \n k 330 315 034 277 I
0044360 006 \0 \0 310 \n j 273 272 K d J 363 262 277 I
0044400 g \0 \0 024 " 277 @ 006 \0 \0 311 ( k 317 \f 020
0044420 277 k 023 @ 006 \0 \0 311 ( 311 \f 020 I \n \0 \0
0044440 277 K k 324 [ 260 324 \0 ( 2 5 6 Q \ M
0044460 A P P A G E 1 4 6 Q \ O P E
0044500 N F I L E 1 4 0 Q P A C K *
0044520 1 1 2 Q F O R G E T P A G E
0044540 S 1 0 5 Q \ M 4 4 O P E N F
0044560 I L E F R O M F P 1 0 2 Q \
0044600 C R E A T E . F I D . F O R . D
0044620 D 1 4 Q \ G E T D E V I C E
0044640 F R O M N A M E ) \r ( 2 4 5 Q
0044660 F D E V 2 3 0 Q F D E V 2
0044700 2 1 Q N I L L 2 0 1 Q S T
0044720 R E A M 1 6 6 Q S T R E A M
0044740 1 5 3 Q F D E V 1 4 3 Q
0044760 B O T H 1 3 1 Q } 1 2 4 Q
0045000 F D E V 1 2 0 Q { 7 6 Q
0045020 B O T H 6 3 Q \ M A I N D
0045040 I S K 5 6 Q F D E V 4 0 Q
0045060 F D E V 2 1 Q F D E V 5
0045100 004 003 F D E V T Y P E # ) \r (
0045120 1 3 5 Q " D I S K D E S C R I
0045140 P T O R . ; 1 " 7 3 Q " D I
0045160 S K D E S C R I P T O R . ; 1 "
0045200 ) \r \ R E A D D I R F P T R D
0045220 1 \r ( L ( 2 F P T R 1 E
0045240 N T R Y S T A R T 0 S T R E
0045260 A M ) ) \0 8 003 \0 \0 003 @ A l 002 330
0045300 \n \0 \0 @ B 265 016 l 005 g \0 \0 j d \f \0
0045320 \0 b 004 006 \0 \0 311 \0 021 022 002 H 006 \0 \0 311
0045340 006 006 \0 \0 311 6 272 H I j l \n l 004 J 016
0045360 B 020 \0 ( 2 5 Q A R R A Y 7
0045400 \ S E T F I L E P T R ) \r ( 5 0
0045420 Q F D E V 4 3 Q S T R E A
0045440 M 3 2 Q A R R A Y P 2 0 Q
0045460 S M A L L P O S P ) \r ( ) \r \
0045500 M 4 4 S E A R C H D I R D 1 \r
0045520 ( L ( 2 H M I N 1 T L I
0045540 S T 0 S T R E A M ) ) \0 211
0045560 \n \0 \0 003 ` \0 \0 006 \0 \0 311 \0 A 001 A 002
0045600 021 s \t B 224 @ h 024 022 277 J \t \0 \0 274 @
0045620 I ] \n \0 \0 277 @ 311 006 311 4 _ 022 277 @ d
0045640 k O 022 016 221 h 020 _ 016 l 003 345 341 @
0045660 330 _ 020 340 M 330 271 O 016 342 342 k 360 263 026 B
0045700 262 317 B O 020 361 263 311 @ M 024 022 277 h b 004
0045720 277 260 276 @ M l \f 330 \n \0 \0 277 @ [ L
0045740 375 361 263 255 J ^ 247 A I 030 277 K L 331 020 H
0045760 @ 302 N 001 360 262 231 N 002 260 353 \0 ( 1 4
0046000 6 Q \ S E T F I L E P T R 4
0046020 0 Q \ S E T F I L E P T R 3
0046040 1 Q L E N G T H ) \r ( 5 A R
0046060 R A Y P 2 \ D I S K N A M E
0046100 C A S E A R R A Y ) \r ( ) \r \ M
0046120 4 4 U N P A C K F I L E N A M E
0046140 D 1 \r ( L ( 2 C R E A T E
0046160 F L G 1 D E V 0 N A M E
0046200 ) ) 001 S \b \0 \0 003 ` \0 \0 006 \0 \0 311
0046220 \0 021 q \a @ d 262 & i 360 263 ! @ d 004 l
0046240 004 360 244 005 \a 264 027 @ k ) l { 360 264 017 o
0046260 \0 \0 \0 @ l 005 \v \0 \0 Y 241 h 020 h A 311
0046300 \0 h 032 h 032 032 _ 016 002 274 O 016 002 001 275 I
0046320 k 324 271 @ d I ) l < 360 262 O 277 o \0 \0
0046340 \0 @ \n \0 \0 264 005 g \0 \0 020 l # 360 246 K
0046360 d l * 360 223 277 277 260 304 l . 360 262 037 @ I
0046400 k 330 ) 265 005 261 \0 316 d l ; 360 244 d l !
0046420 360 227 277 I k 324 271 277 260 a 277 K & 274 B 223
0046440 M J & 275 I k 324 271 @ I ) Z 242 261 \0 247
0046460 H J 302 [ j 360 263 205 L K d l ; 360 262 255
0046500 277 277 260 7 l H 360 224 g \0 \0 260 025 J d l
0046520 L 360 224 277 g \0 \0 207 l N 360 262 8 g \0 \0
0046540 276 @ I k 324 Y ) Z d 262 j l ; 360 251 J
0046560 l ! 360 264 003 202 261 377 F @ I k 324 Y ) Z
0046600 264 003 202 261 377 9 H J 302 Z d j 360 262 267 277
0046620 261 377 + N 222 261 377 & j 276 J 262 ! l 0 J
0046640 361 263 033 J l 9 361 263 025 N l \n 332 J l 0
0046660 331 330 276 @ I k 324 Y ) Z 260 341 N d j 360
0046700 225 277 g \0 \0 276 207 n 377 377 361 222 261 376 357 J
0046720 d 263 232 277 O 016 N 030 O 016 020 \0 ( 1 3 3
0046740 Q S T R P O S 5 7 Q S T R
0046760 P O S ) \r ( 4 7 3 Q O L D 3
0047000 2 6 Q N E W 3 1 5 Q O L D
0047020 E S T 3 0 1 Q O L D 1 4 0
0047040 Q D I R E C T O R Y 5 A R
0047060 R A Y P 2 \ D I S K N A M E
0047100 C A S E A R R A Y ) \r ( 1 2 7
0047120 Q " > " 5 1 Q " } " ) \r \
0047140 C R E A T E . F I D . F O R . D
0047160 D D 1 \r ( L ( 0 F D E V )
0047200 ) \0 $ 001 \0 \0 001 l 005 g \0 \0 j d \f
0047220 \0 \0 021 001 \0 H 006 \0 \0 311 \0 @ 006 \0 \0 311
0047240 ( 311 \b l 1 320 l 005 304 H 020 \0 ( 1 1 Q
0047260 A R R A Y ) \r ( 2 6 Q F D E
0047300 V 2 0 Q A R R A Y P 4 S
0047320 M A L L P O S P ) \r ( ) \r \ O P
0047340 E N D I S K D 1 \r ( L ( 1
0047360 F D E V 0 P A R T N U M ) )
0047400 \0 R 002 \0 \0 002 021 001 @ \t \0 \0 241 h
0047420 020 l 022 \t \0 \0 Y h 316 \0 277 I X d l $
0047440 \n \0 \0 H @ 317 \b \a H d l 002 320 316 \0 H
0047460 l 002 315 037 H n 001 226 315 H l 002 315 ! H
0047500 l 016 315 " H l \b 315 # H ` \0 \0 311 016 024
0047520 016 @ H A \v \0 \0 020 \0 ( 1 1 7 Q \
0047540 O P E N D I S K D E V I C E 3
0047560 3 Q \ L O C K W O R D S 1 6
0047600 Q \ A L L O C B L O C K 6
0047620 \ T E S T P A R T I T I O N ) \r
0047640 ( 1 0 5 Q \ M A I N D I S K )
0047660 \r ( ) \r \ O P E N D I S K D E V
0047700 I C E A 0 0 1 7 D 1 \r ( L (
0047720 0 N A M E ) ) \0 \t \0 \0 \0 001 @
0047740 m 377 ) l } 360 020 \0 N I L \r N I L \r
0047760 ( ) \r \ O P E N D I S K D E V I
0050000 C E A 0 0 2 9 A 0 0 3 0 D 1 \r
0050020 ( L ( 0 D E V ) ) \0 023 \0 \0
0050040 \0 001 @ 006 \0 \0 311 ( 312 \f j 360 264 006 @
0050060 \t \0 \0 020 \0 ( 2 0 Q \ R E M O V
0050100 E D E V I C E ) \r ( 3 F D E V
0050120 ) \r ( ) \r \ O P E N D I S K D E
0050140 V I C E A 0 0 2 9 D 1 \r ( N A
0050160 M E E R R O R S E T F 0
0050200 F D E V F 1 R E S E T V A
0050220 R S L S T F 2 R E S E T Y
0050240 F 3 N A M E F 4 P A
0050260 R T I T I O N ) \0 , \0 005 002 \0 g
0050300 \0 \0 P h 032 032 h h 032 032 Q 032 c 002 277 S
0050320 P \n \0 \0 277 P \t \0 \0 264 \r T 247 g \0 \0
0050340 P \n \0 \0 277 P c 004 i 020 \0 ( 4 4 Q
0050360 \ D E F I N E D E V I C E 3 1
0050400 Q \ O P E N D I R 2 4 Q \
0050420 D E F I N E D E V I C E ) \r ( 4
0050440 0 Q D S K 2 \ O P E N D I
0050460 S K D E V I C E A 0 0 2 9 A 0 0
0050500 3 0 ) \r ( ) \r \ O P E N D I S K
0050520 D E V I C E D 1 \r ( L ( 1
0050540 D S K O B J ) P 3 R E S E
0050560 T Y P 2 L I S P X H I S T
0050600 P 1 F D E V P 0 N A
0050620 M E I 2 F D E V I 0
0050640 P A R T I T I O N F 5 L I
0050660 S P X H I S T F 6 R E S E
0050700 T V A R S L S T ) \0 372 005 002 \0 003
0050720 g \0 \0 @ 265 005 \b \0 \0 \n \0 \0 021 021 001 I
0050740 265 003 202 261 \0 267 ` \0 \0 037 d H 024 \0 277 d
0050760 k 317 \0 277 d g \0 \0 024 002 277 d g \0 \0
0051000 024 004 277 d g \0 \0 024 \f 277 d g \0 \0 024 016
0051020 277 d g \0 \0 024 022 277 d g \0 \0 024 024 277 d
0051040 g \0 \0 024 030 277 d g \0 \0 024 032 277 d g \0
0051060 \0 024 034 277 d g \0 \0 024 026 277 d g \0 \0 024
0051100 \n 277 d g \0 \0 024 \b 277 d g \0 \0 024 006 277
0051120 d g \0 \0 024 020 277 d g \0 \0 024 : 277 d g
0051140 \0 \0 024 8 277 d g \0 \0 024 6 277 d g \0 \0
0051160 024 4 277 d g \0 \0 024 2 277 d g \0 \0 024 0
0051200 277 d g \0 \0 024 . 277 d g \0 \0 024 * 277 d
0051220 g \0 \0 024 $ 277 \t \0 \0 Y A 265 \a ` \0 \0
0051240 b 002 024 ( A H 024 032 U 021 ! 004 V o \0 \0
0051260 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 \ \n \0
0051300 \0 L 223 \b \0 \0 020 K 020 \0 ( 3 6 5 Q
0051320 E R R O R ! 3 6 0 Q R E S E
0051340 T R E S T O R E 3 4 6 Q \ O
0051360 P E N D I S K D E V I C E A 0 0
0051400 2 9 3 1 0 Q \ M A K E . P M
0051420 A P . D E V I C E 1 3 Q P A
0051440 C K * 1 0 Q D I S K P A R T
0051460 I T I O N ) \r ( 3 5 4 Q E R R
0051500 O R 3 4 3 Q I N T E R N A L
0051520 3 1 7 Q \ M A I N D I S K
0051540 3 0 2 Q \ G E N E R I C . R E
0051560 A D P 2 7 3 Q N I L L 2 6
0051600 4 Q \ I S . N O T . R A N D A
0051620 C C E S S P 2 5 5 Q \ I L L
0051640 E G A L . D E V I C E O P 2 4
0051660 6 Q \ I S . N O T . R A N D A
0051700 C C E S S P 2 3 7 Q \ I L L
0051720 E G A L . D E V I C E O P 2 3
0051740 0 Q \ G E N E R I C . B I N S
0051760 2 2 1 Q \ G E N E R I C . B
0052000 O U T S 2 1 2 Q \ G E N E R
0052020 I C . R E N A M E F I L E 2 0
0052040 3 Q N I L L 1 7 4 Q \ O P
0052060 E N D I S K D E V I C E A 0 0 1
0052100 7 1 6 5 Q \ M 4 4 E V E N T
0052120 F N 1 5 6 Q \ M 4 4 G E N E
0052140 R A T E F I L E S 1 4 7 Q \
0052160 M 4 4 O p e n F i l e 1 4 0 Q
0052200 \ M 4 4 W r i t e P a g e s
0052220 1 3 1 Q \ M 4 4 T r u n c a t
0052240 e F i l e 1 2 2 Q \ M 4 4 S
0052260 e t F i l e I n f o 1 1 3 Q
0052300 \ M 4 4 R e a d P a g e s 1 0
0052320 4 Q \ M 4 4 O p e n F i l e
0052340 7 5 Q \ M 4 4 G e t F i l e N
0052360 a m e 6 6 Q \ M 4 4 G e t F
0052400 i l e I n f o 5 7 Q \ M 4 4
0052420 D e l e t e F i l e 5 0 Q \
0052440 M 4 4 C l o s e F i l e 3 0 Q
0052460 004 003 F D E V T Y P E # 2 D
0052500 S K ) \r ( 3 4 0 Q ( \ O P E
0052520 N D I S K D E V I C E A 0 0 2 9
0052540 ) ) \r \ O P E N D I R D 1 \r (
0052560 L ( 0 F D E V ) ) \0 354 \t \0
0052600 \0 001 @ 006 \0 \0 311 ( 312 \b \a 021 201 \b @ 006
0052620 \0 \0 311 ( j 317 \f 277 j d 360 h 360 H j
0052640 360 247 H \t \0 \0 242 261 \0 251 @ o \0 \0 \0 g
0052660 \0 \0 l 005 g \0 \0 j d \f \0 \0 [ d j n
0052700 200 \0 * 277 K k l d * 277 K l 002 k * 277
0052720 K l 003 j * 277 K l 004 k * 277 \f \0 \0 Y
0052740 d d 006 \0 \0 310 \n k 330 274 l @ L 361 241 L
0052760 201 l @ 315 034 @ 006 \0 \0 311 ( I 024 \n H j
0053000 360 263 Z @ \t \0 \0 Z l \b \n \0 \0 277 J @
0053020 006 \0 \0 311 ( 311 \0 _ 016 277 ^ 006 \0 \0 311 006
0053040 006 \0 \0 311 6 275 N O 016 j l \f l 004 M 016
0053060 277 @ 006 \0 \0 311 ( 311 \0 _ 020 j O 020 j \n
0053100 \0 \0 l 003 324 \v \0 \0 277 @ d \t \0 \0 254 277
0053120 @ 006 \0 \0 311 ( h 024 \n h 020 @ 006 \0 \0 311
0053140 ( k 317 \f 277 k j 360 h 360 I 020 \0 ( 3
0053160 1 3 Q \ M 4 4 C H E C K P A S
0053200 S W O R D 3 0 5 Q \ P U T B
0053220 A S E F I X P 2 7 7 Q \ G E
0053240 T B A S E F I X P 2 1 2 Q \
0053260 S E T F I L E P T R 2 0 4 Q
0053300 \ O P E N D I S K D E S C R I P
0053320 T O R 1 3 4 Q \ M 4 4 O P E
0053340 N F I L E F R O M F P 7 1 Q
0053360 A R R A Y 4 3 Q \ T E S T P
0053400 A R T I T I O N ) \r ( 3 3 4 Q
0053420 F D E V 3 2 1 Q F D E V 2
0053440 6 2 Q F D E V 2 4 0 Q F D
0053460 E V 2 3 3 Q S T R E A M 2
0053500 2 0 Q F D E V 1 6 6 Q F D
0053520 E V 1 4 2 Q S T R E A M 6
0053540 4 Q S M A L L P O S P 5 7 Q
0053560 B O T H 1 7 Q F D E V 3
0053600 F D E V ) \r ( 5 4 Q " S Y
0053620 S D I R . ; 1 " ) \r \ M 4 4 C H
0053640 E C K P A S S W O R D D 1 \r (
0053660 L ( 0 D E V ) P 1 3 Q
0053700 \ I N T E R R U P T A B L E )
0053720 \0 322 \f \0 \0 001 g \0 \0 @ 006 \0 \0 311 \0 o
0053740 \0 \0 \0 \v \0 \0 g \0 \0 g \0 \0 \v \0 \0 021
0053760 241 \n H 241 i 020 l 005 \t \0 \0 271 H n 003 \0
0054000 \n \0 \0 277 H 006 \0 \0 311 006 006 \0 \0 311 6 _
0054020 016 277 H I j l 022 l 004 O 016 016 277 I 310 \0
0054040 j 360 225 H \t \0 \0 i 020 H n 002 \0 \n \0 \0
0054060 277 H ^ \t \0 \0 275 H M 006 \0 \0 311 \0 _
0054100 024 277 _ 022 006 \0 \0 311 006 006 \0 \0 311 6 _ 020
0054120 277 O 022 O 024 j N l 004 O 020 016 277 H \t \0
0054140 \0 277 M \t \0 \0 275 @ 006 \0 \0 311 \0 L h d
0054160 M \r 005 \0 \0 [ 241 h 020 021 020 \v \b \0 \0 Z
0054200 l @ 320 I l \t 304 277 J l I 320 K 002 \t \0
0054220 \0 \n \0 \0 277 J l I 320 J l @ 320 \n \0 \0
0054240 022 263 206 i 274 260 302 \0 ( 3 1 1 Q \ C
0054260 H E C K B C P L P A S S W O R D
0054300 2 7 5 Q S e t B c p l S t r
0054320 i n g 2 7 2 Q \ D E C R Y P
0054340 T . P W D 2 5 0 Q \ G E T P
0054360 A C K E T B U F F E R 2 3 6 Q
0054400 \ I N T E R N A L / G E T P A
0054420 S S W O R D 2 1 7 Q M K A T
0054440 O M 2 1 2 Q \ C L O S E F I
0054460 L E 1 4 0 Q A L L O C S T R
0054500 I N G 1 3 1 Q S E T F I L E
0054520 P T R 1 2 0 Q \ C L O S E F
0054540 I L E 5 4 Q S E T F I L E P
0054560 T R 4 4 Q \ A L L O C B L O
0054600 C K 3 0 Q \ O P E N F I L E
0054620 1 7 Q P A C K * ) \r ( 2 2 4
0054640 Q F D E V 1 6 5 Q F D E V
0054660 1 6 0 Q S T R E A M 1 4 6
0054700 Q S T R I N G P 6 6 Q F D
0054720 E V 6 1 Q S T R E A M 2 5
0054740 Q O L D 2 2 Q I N P U T
0054760 6 F D E V 2 { ) \r ( 1 4
0055000 Q " } S Y S . B O O T ; 1 " )
0055020 \r \ M 4 4 H O S T N A M E P D
0055040 1 \r ( L ( 1 D E V 0 N A
0055060 M E ) ) \0 B 001 \0 \0 002 021 020 \0 @ g
0055100 \0 \0 360 223 \b \0 \0 020 g \0 \0 @ k h i \r
0055120 005 \0 \0 264 ( @ l 004 \n \0 \0 d 005 001 241 005
0055140 002 X d 262 030 \t \0 \0 264 023 H \b \0 \0 360 226
0055160 g \0 \0 \t \0 \0 020 H \t \0 \0 020 \0 ( 7 7
0055200 Q \ O P E N D I S K 7 2 Q
0055220 \ G E T D E V I C E F R O M N A
0055240 M E 6 2 Q D I S K P A R T I
0055260 T I O N 5 4 Q \ T E S T P A
0055300 R T I T I O N 3 7 Q S U B A
0055320 T O M 2 7 Q S T R P O S 1
0055340 3 Q \ O P E N D I S K D E V I
0055360 C E ) \r ( 6 7 Q D S K 1 7 Q
0055400 D S K 6 D S K ) \r ( ) \r \
0055420 C O P Y S Y S A 0 0 0 1 A 0 0 0
0055440 2 D 1 \r ( L ( 0 F I L E )
0055460 F 0 R E S E T S T A T E )
0055500 \0 025 \0 001 \0 001 @ \t \0 \0 P 264 016 @ 006
0055520 \0 \0 311 004 265 003 @ \t \0 \0 020 \0 ( 2 2 Q
0055540 D E L F I L E 3 C L O S E
0055560 F ) \r ( 1 2 Q S T R E A M ) \r
0055600 ( ) \r \ C O P Y S Y S A 0 0 0 1
0055620 D 1 \r ( N A M E E R R O R S
0055640 E T F 0 R E S E T V A R S
0055660 L S T F 1 D O N T S A V E
0055700 F 2 R E S E T Y F 3
0055720 F I L E F 4 S Y S N A M E
0055740 ) \0 350 \0 005 002 \0 g \0 \0 d \t \0 \0 032
0055760 g \0 \0 i \n \0 \0 277 P 032 c \0 277 h d d
0056000 d \b \0 \0 277 Q 250 \b \0 \0 265 003 202 261 \0 212
0056020 ` \0 \0 310 024 < \0 277 S g \0 \0 g \0 \0 h
0056040 g \0 \0 = \n 341 340 h 032 032 o \0 \0 \0 032 \r
0056060 005 \0 \0 < 006 \t \0 \0 < 004 277 g \0 \0 = 006
0056100 h 032 032 h h 032 032 P 032 c \0 277 T 265 - g
0056120 \0 \0 ` \0 \0 003 001 004 ` \0 \0 360 262 & ` \0
0056140 \0 002 003 262 037 ` \0 \0 002 001 3 020 262 026 ` \0
0056160 \0 002 002 3 020 233 ` \0 \0 210 = \b \n \0 \0 277
0056200 260 317 i \t \0 \0 h 032 032 h 032 P 032 c \0 277
0056220 = 004 = 002 \n \0 \0 < 002 265 006 = 006 260 $ 005
0056240 001 262 024 j = 004 361 234 = 006 j = 006 331 \n \0
0056260 \0 277 261 377 O \b \0 \0 277 \b \0 \0 277 = 006 h
0056300 032 \b \0 \0 277 < 006 277 277 277 277 c 004 i 020 \0
0056320 ( 3 3 3 Q \ R E S E T K E Y B
0056340 O A R D 3 2 3 Q \ R E S E T
0056360 K E Y B O A R D 3 1 7 Q \ C
0056400 L E A R S Y S B U F 3 1 0 Q
0056420 \ L I S P E R R O R 2 5 6 Q
0056440 \ C O P Y S Y S 1 2 3 5 Q C
0056460 U R S O R 2 2 6 Q S E T 1
0056500 1 7 Q G E T S T R E A M 1 1
0056520 2 Q O P E N F I L E 4 1 Q
0056540 \ F L U S H V M 3 3 Q R E C
0056560 L A I M 1 6 Q S E T T O P V
0056600 A L 6 G E T T O P V A L ) \r
0056620 ( 2 2 0 Q S Y S O U T C U R S
0056640 O R 2 1 0 Q S Y S O U T C U
0056660 R S O R 1 7 7 Q S Y S O U T
0056700 C U R S O R 1 7 0 Q S Y S O
0056720 U T C U R S O R 1 6 2 Q 004 003
0056740 B I T M A P T Y P E # 1 5 4 Q
0056760 S Y S O U T C U R S O R 1 5
0057000 1 Q C U R S O R 1 2 5 Q \
0057020 C O P Y S Y S A 0 0 0 1 A 0 0 0
0057040 2 7 2 Q L E N G T H 6 6 Q
0057060 N E W 6 3 Q O U T P U T
0057100 5 2 Q \ I n t e r f a c e P a
0057120 g e 1 2 Q \ V M E M . I N H
0057140 I B I T . W R I T E 2 \ V M
0057160 E M . I N H I B I T . W R I T E
0057200 ) \r ( 1 0 5 Q ( ( S E Q U E
0057220 N T I A L T ) ( T Y P E B
0057240 I N A R Y ) ) ) \r \ C O P Y S Y
0057260 S D 1 \r ( P 1 R E S E T Y
0057300 P 0 L I S P X H I S T I
0057320 2 D O N T S A V E I 1
0057340 S Y S N A M E I 0 F I L E
0057360 F 3 L I S P X H I S T F
0057400 4 R E S E T V A R S L S T )
0057420 \0 " 003 002 \0 003 S 021 ! 002 T o \0 \0 \0
0057440 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0057460 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q E R
0057500 R O R ! 3 0 Q R E S E T R E
0057520 S T O R E 1 6 Q \ C O P Y S
0057540 Y S A 0 0 0 1 ) \r ( 2 4 Q E R
0057560 R O R 1 3 Q I N T E R N A L
0057600 ) \r ( 1 0 Q ( \ C O P Y S Y
0057620 S A 0 0 0 1 ) ) \r \ C O P Y S Y
0057640 S 1 D 1 \r ( L ( 1 L A S T
0057660 P A G E 0 S T R E A M ) F
0057700 4 6 Q R E S E T V A R S L S
0057720 T ) 003 x & 001 \0 002 @ 006 \0 \0 311 006 021
0057740 001 \0 H 004 ` \0 \0 360 264 \f H 006 \0 \0 311 022
0057760 g \0 \0 360 022 262 g @ d 006 \0 \0 311 006 006 \0
0060000 \0 311 \0 g \0 \0 360 262 V 277 @ 006 \0 \0 311 006
0060020 \t \0 \0 @ 006 \0 \0 311 006 j 317 \f 020 277 j d
0060040 360 h 360 @ 006 \0 \0 311 \f 006 \0 \0 311 \0 \t \0
0060060 \0 @ 006 \0 \0 @ 006 \0 \0 ` \0 \0 310 024 021 002
0060100 001 H I 315 \n 277 I 022 315 026 277 @ 006 \0 \0 @
0060120 006 \0 \0 j 315 \v 277 j 315 027 277 020 @ 006 \0 \0
0060140 311 006 006 \0 \0 312 \0 0 j 360 h 360 ` \0 \0 k
0060160 331 ` \0 \0 l 002 ` \0 \0 n 200 \0 ` \0 \0 310
0060200 : 021 367 025 g \0 \0 d \t \0 \0 032 g \0 \0 k
0060220 \n \0 \0 277 W L 032 c L g \0 \0 d \t \0 \0
0060240 032 g \0 \0 J I 341 320 \n \0 \0 277 W L 032 c
0060260 L g \0 \0 d \t \0 \0 032 g \0 \0 @ 006 \0 \0
0060300 311 006 _ 032 004 ` \0 \0 360 262 032 O 032 006 \0 \0
0060320 311 022 g \0 \0 360 233 I k 331 271 J n 001 \0 320
0060340 272 k 200 j \n \0 \0 277 W L 032 c L I l 002
0060360 330 g \0 \0 h j \f \0 \0 _ 030 I J 021 B 033
0060400 k _ 6 277 O 6 O , 363 263 . O . _ 4 277
0060420 O 2 265 035 O 4 h 032 _ 2 _ 0 277 O 6 k
0060440 324 _ 6 277 O . n 001 \0 320 _ . 277 260 327 O
0060460 4 & _ 2 277 260 350 O 0 022 _ 026 A 343 _ 020
0060500 _ 016 N j 360 230 J n 001 \0 \n \0 \0 260 B `
0060520 \0 \0 d l 006 360 230 277 N J k \v \0 \0 260 ;
0060540 l \b 360 227 N J k \v \0 \0 260 / O 030 k N
0060560 \t \0 \0 * 277 ` \0 \0 J O 030 006 \0 \0 311 \0
0060600 N k 331 ` \0 \0 N d n 326 002 \r \b \0 \0 277
0060620 O 030 k ` \0 \0 310 \a * 277 H 262 034 @ 006 \0
0060640 \0 A 315 \n 277 @ 006 \0 \0 j 315 \v 277 @ j O
0060660 026 001 \v \0 \0 260 % @ O 026 001 _ 277 _ 036
0060700 006 \0 \0 311 006 006 \0 \0 311 8 _ 034 277 O 036 O
0060720 j n 002 \0 l 004 O 034 016 277 K A 361 222 261
0060740 001 o O 020 K 361 263 , L d 310 \0 M 346 315 \0
0060760 277 ` \0 \0 l \b 360 223 \b \0 \0 277 O 020 O 016
0061000 324 _ 020 277 M 342 ] j 360 227 L k 320 274 n 200
0061020 \0 275 ` \0 \0 d l 006 360 262 ' 277 K J I A
0061040 K 331 k 330 _ " 277 d O " 361 222 277 O " _
0061060 024 \v \0 \0 277 K O 024 k 331 330 _ 022 261 \0 207
0061100 l \b 360 262 % K J I A K 331 k 330 _ $ 277
0061120 d O $ 361 222 277 O $ _ 024 \v \0 \0 277 K O
0061140 024 k 331 330 _ 022 260 ^ I k 330 l 002 _ ( 277
0061160 _ & 277 O ( O & 363 263 023 O 030 O ( n 377
0061200 376 * 277 O ( k 324 _ ( 260 354 ` \0 \0 O 026
0061220 O 030 006 \0 \0 311 \0 K k 331 ` \0 \0 K d I
0061240 k 331 330 d A 361 221 277 A n 326 002 \r \b \0 \0
0061260 _ 022 K 331 k 330 _ 024 277 O 030 k O 030 O 024
0061300 k 330 ( * 277 H 263 ) @ J O 024 341 340 021 003
0061320 036 O 8 006 \0 \0 311 006 006 \0 \0 311 8 _ * 277
0061340 O 8 O : j O < l 004 O * 016 023 260 & @
0061360 K k 331 A O 022 361 223 O 026 260 025 O 026 O 024
0061400 021 R % k _ H 277 O > 003 265 021 O B 022 \v
0061420 \0 \0 277 O 022 k 330 [ 261 376 304 001 _ J 277 O
0061440 H O @ 363 263 350 O J _ F 277 O D 265 031 O
0061460 F h 032 _ D _ B 277 O H k 324 _ H 277 O
0061500 > 002 _ > 260 305 O F & _ D 277 260 354 h 020
0061520 \0 ( 1 4 7 0 Q \ W R I T E P A
0061540 G E S 1 3 2 6 Q \ A C T O N
0061560 D I S K P A G E S 1 2 0 3 Q
0061600 \ D O V E . A C T O N V M E M F
0061620 I L E 1 1 3 2 Q \ D L . A C
0061640 T O N V M E M F I L E 1 0 4 1
0061660 Q \ D o v e D i s p l a y . S
0061700 e t C u r s o r S h a p e 7 3
0061720 3 Q \ W R I T E P A G E S 6
0061740 6 5 Q \ A C T O N D I S K P A
0061760 G E S 6 3 1 Q \ L O O K U P
0062000 F M A P 6 2 0 Q \ D O V E .
0062020 A C T O N V M E M F I L E 6 0
0062040 4 Q \ D L . A C T O N V M E M
0062060 F I L E 5 6 3 Q \ C L E A R
0062100 W O R D S 4 3 7 Q A R R A Y
0062120 4 1 5 Q S E T T O P V A L
0062140 3 3 6 Q G E T T O P V A L 3
0062160 2 1 Q S E T T O P V A L 3 0
0062200 6 Q G E T T O P V A L 2 7 1
0062220 Q S E T T O P V A L 2 6 1 Q
0062240 G E T T O P V A L 1 2 7 Q
0062260 \ C O P Y S Y S 0 S U B R 7 1
0062300 Q \ M 4 4 F L U S H D I S K D
0062320 E S C R I P T O R ) \r ( 1 4 0 1
0062340 Q F D E V 1 3 7 4 Q S T R
0062360 E A M 1 3 0 3 Q \ I S F M A
0062400 P 1 2 7 3 Q A R R A Y P 1
0062420 2 6 4 Q \ M A I N D I S K 1
0062440 0 7 3 Q \ M A C H I N E T Y P
0062460 E 1 0 3 2 Q \ M A C H I N E
0062500 T Y P E 7 5 6 Q F D E V 7
0062520 5 1 Q S T R E A M 7 1 7 Q
0062540 S T R E A M 7 0 7 Q S T R E
0062560 A M 6 7 4 Q \ I S F M A P
0062600 6 5 4 Q \ I S F M A P 6 4 4
0062620 Q A R R A Y P 6 3 6 Q \ M
0062640 A I N D I S K 5 7 0 Q \ M A
0062660 C H I N E T Y P E 4 3 2 Q W
0062700 O R D 3 7 3 Q \ M 4 4 O p e
0062720 n F i l e 3 6 6 Q F D E V
0062740 3 5 6 Q 004 003 F D E V T Y P E #
0062760 3 4 6 Q S T R E A M 3 4 2
0063000 Q \ # D I S K B U F F E R S
0063020 3 3 2 Q \ # D I S K B U F F E
0063040 R S 3 1 2 Q \ E M U S W A P
0063060 B U F F E R S 3 0 2 Q \ E M
0063100 U S W A P B U F F E R S 2 6 5
0063120 Q \ # S W A P B U F F E R S
0063140 2 5 5 Q \ # S W A P B U F F E
0063160 R S 2 4 5 Q \ I n t e r f a
0063200 c e P a g e 2 3 7 Q \ E M .
0063220 C U R S O R B I T M A P 2 3 2
0063240 Q \ E M U B U F F E R S 2 2
0063260 5 Q \ # E M U B U F F E R S
0063300 2 1 3 Q F D E V 2 0 6 Q S
0063320 T R E A M 1 7 1 Q S T R E A
0063340 M 1 6 5 Q S T R E A M 1 4
0063360 2 Q \ I n t e r f a c e P a g
0063400 e 1 3 7 Q S T R E A M 1 3
0063420 3 Q S T R E A M 1 2 2 Q A
0063440 R R A Y P 1 1 5 Q S T R E A
0063460 M 7 5 Q S T R E A M 6 4 Q
0063500 S T R E A M 5 4 Q D S K
0063520 4 7 Q F D E V 4 2 Q S T R
0063540 E A M 3 1 Q \ M 4 4 O p e n
0063560 F i l e 2 4 Q F D E V 1 5
0063600 Q 004 003 F D E V T Y P E # 3
0063620 S T R E A M ) \r ( ) \r G A T H E
0063640 R S T A T S D 1 \r ( L ( 0
0063660 F I L E N A M E ) ) \0 214 001 \0 \0
0063700 001 ` \0 \0 l 006 360 230 o \0 \0 \0 @ \n \0 \0
0063720 020 @ 262 m ` \0 \0 223 \b \0 \0 277 @ g \0 \0
0063740 \n \0 \0 d g \0 \0 360 263 033 257 g \0 \0 g \0
0063760 \0 g \0 \0 @ \f \0 \0 b \0 207 o \0 \0 \0 @
0064000 \n \0 \0 277 i 027 \0 \0 @ g \0 \0 g \0 \0 \v
0064020 \0 \0 021 001 \0 H d \t \0 \0 277 H 006 \0 \0 311
0064040 006 \t \0 \0 277 H 006 \0 \0 311 006 j 317 \f 020 277
0064060 022 006 \0 \0 311 \f 006 \0 \0 311 \0 \t \0 \0 020 `
0064100 \0 \0 264 \t \b \0 \0 h 027 \0 \0 020 \0 ( 2 0
0064120 5 Q \ G A T H E R S T A T S
0064140 1 7 4 Q \ G A T H E R S T A T
0064160 S 1 4 2 Q \ M 4 4 F L U S H
0064200 D I S K D E S C R I P T O R 1
0064220 3 0 Q \ C L O S E F I L E 1
0064240 2 0 Q \ O P E N F I L E 1 0
0064260 1 Q E R R O R 6 6 Q P A C
0064300 K F I L E N A M E 4 1 Q F I
0064320 L E N A M E F I E L D 3 1 Q
0064340 G A T H E R S T A T S 1 6 Q
0064360 E R R O R ) \r ( 2 1 1 Q \ S T
0064400 A T S O N 2 0 0 Q \ S T A T
0064420 S O N 1 6 7 Q A R R A Y P
0064440 1 6 2 Q S T R E A M 1 4 7 Q
0064460 S T R E A M 1 3 5 Q S T R
0064500 E A M 1 1 5 Q N E W 1 1 2
0064520 Q O U T P U T 1 0 6 Q \ S
0064540 T A T S O N 6 2 Q B O D Y
0064560 5 7 Q D S K 5 4 Q H O S T
0064600 4 5 Q D S K 3 6 Q H O S
0064620 T 2 5 Q \ S T A T S O N 2
0064640 \ M A C H I N E T Y P E ) \r (
0064660 7 5 Q " S t a t s f i l e
0064700 m u s t b e o n D S K "
0064720 1 2 Q " S t a t s n o t
0064740 i m p l e m e n t e d f o r
0064760 t h i s t y p e o f m a c
0065000 h i n e " ) \r ( P R E T T Y C O
0065020 M P R I N T M O D 4 4 I O C O
0065040 M S ) \r ( R P A Q Q M O D 4 4
0065060 I O C O M S ( ( * D e v i c
0065100 e d e p e n d e n t c o d e
0065120 f o r t h e M o d e l 4 4
0065140 d i s k ) ( F N S \ M 4 4
0065160 A d d D i s k P a g e s \ M 4
0065200 4 C l o s e F i l e \r \ M 4 4
0065220 C o m p l e t e F H \ M 4 4 C
0065240 R E A T E F I L E \ M 4 4 D e
0065260 l e t e F i l e \ M 4 4 E V E
0065300 N T F N \ M 4 4 E x t e n d F
0065320 i l e P a g e M a p \ M 4 4 F
0065340 i l l I n M a p \r \ M 4 4 G e
0065360 t F i l e H a n d l e \ M 4 4
0065400 G e t F i l e I n f o \ M 4 4
0065420 G E T D A T E P R O P \ M 4 4
0065440 G e t F i l e N a m e \ M 4 4
0065460 G e t P a g e L o c \ M 4 4 K
0065500 i l l F i l e P a g e M a p \r
0065520 \ M 4 4 M A K E D I R E N T R Y
0065540 \ M 4 4 O p e n F i l e \ M
0065560 4 4 O P E N F I L E F R O M F P
0065600 \ M 4 4 R e a d D i s k P a g
0065620 e \ M 4 4 R e a d L e a d e r
0065640 P a g e \ M 4 4 R e a d P a g
0065660 e s \r \ M 4 4 S e t A c c e s
0065700 s T i m e s \ M 4 4 S e t E n
0065720 d O f F i l e \ M 4 4 S e t F
0065740 i l e I n f o \ M 4 4 S E T F
0065760 I L E T Y P E \ M 4 4 T r u n
0066000 c a t e F i l e \ M 4 4 W r i
0066020 t e D i s k P a g e \r \ M 4 4
0066040 W r i t e L e a d e r P a g e
0066060 \ M 4 4 W r i t e P a g e s \
0066100 M 4 4 W r i t e P a g e s 1 )
0066120 ( F N S \ A D D D I S K P A G
0066140 E S \ M 4 4 D E L E T E P A G
0066160 E S \r \ A S S I G N D I S K P
0066200 A G E \ C O U N T D I S K F R
0066220 E E P A G E S \ M 4 4 M A R K
0066240 P A G E F R E E \ M 4 4 F L U
0066260 S H D I S K D E S C R I P T O R
0066300 \ M A K E L E A D E R D A S
0066320 \r D I S K F R E E P A G E S V
0066340 M E M S I Z E ) ( I N I T V A
0066360 R S ( \ M 4 4 M U L T F L G
0066400 T ) ) ( D E C L A R E : D O
0066420 N T C O P Y ( M A C R O S U
0066440 C A S E C H A R \r U P D A T E
0066460 V A L I D A T I O N ) ( R E C
0066500 O R D S M 4 4 D E V I C E )
0066520 ( G L O B A L V A R S \ O P E
0066540 N F I L E S \ M 4 4 M U L T F
0066560 L G \ D I S K N A M E C A S E
0066600 A R R A Y ) ( M A C R O S \r
0066620 . L I S P . T O . B F S . . B
0066640 F S . T O . L I S P . . D I S
0066660 K C A S E A R R A Y . ) ( C O
0066700 N S T A N T S ( P a g e M a p
0066720 I n c r e m e n t 6 4 ) ) (
0066740 C O M S ( * F i l e \r p r
0066760 o p e r t i e s ) ( R E C O R
0067000 D S M 4 4 F I L E P R O P )
0067020 ( C O N S T A N T S * F P R
0067040 O P T Y P E S ) ( C O N S T A
0067060 N T S * F P T Y P E S ) ) )
0067100 ( G L O B A L R E S O U R C E
0067120 S \r \ M 4 4 P A G E B U F F E
0067140 R ) ( C O M S ( * D i r e
0067160 c t o r y e n u m e r a t i o
0067200 n ) ( F N S \ M 4 4 G E N E
0067220 R A T E F I L E S \ M 4 4 S O
0067240 R T F I L E S \ M 4 4 G E N E
0067260 R A T E N E X T \r \ M 4 4 N E
0067300 X T F I L E F N \ M 4 4 S O R
0067320 T E D N E X T F I L E F N \ M
0067340 4 4 F I L E I N F O F N ) ) (
0067360 C O M S ( * D i r e c t o r
0067400 y l o o k u p r o u t i n e
0067420 s ) ( F N S \r \ M 4 4 P A R
0067440 S E F I L E N A M E \ F I N D
0067460 D I R H O L E \ M 4 4 P A C K
0067500 F I L E N A M E \ M 4 4 L O O
0067520 K U P V E R S I O N S \ M 4 4
0067540 R E A D V E R S I O N \ O P E
0067560 N D I S K D E S C R I P T O R \r
0067600 \ R E A D D I R F P T R \ M
0067620 4 4 S E A R C H D I R \ M 4 4
0067640 U N P A C K F I L E N A M E )
0067660 ( F N S ) ( V A R S \ F I L
0067700 E N A M E C H A R S L S T ) (
0067720 G L O B A L V A R S \r \ F I L
0067740 E N A M E C H A R S L S T ) (
0067760 D E C L A R E : D O N T C O P
0070000 Y ( R E C O R D S U N A M E
0070020 F I L E S P E C M 4 4 G E N
0070040 F I L E S T A T E M 4 4 D I R
0070060 S E A R C H S T A T E ) ( \r M
0070100 A C R O S B E T W E E N ) ) )
0070120 ( C O M S ( F N S \ C R E
0070140 A T E . F I D . F O R . D D \
0070160 O P E N D I S K \ O P E N D I
0070200 S K D E V I C E \ O P E N D I
0070220 R \ M 4 4 C H E C K P A S S W
0070240 O R D \r \ M 4 4 H O S T N A M
0070260 E P ) ( D E C L A R E : D O
0070300 N T C O P Y ( C O N S T A N T
0070320 S \ O F F S E T . B C P L U S
0070340 E R N A M E \ O F F S E T . B
0070360 C P L P A S S W O R D \r \ N W
0070400 O R D S . B C P L P A S S W O R
0070420 D ) ) ) ( C O M S ( * S Y
0070440 S O U T e t c ) ( F N S \
0070460 C O P Y S Y S \ C O P Y S Y S
0070500 1 ) ) ( C O M S ( * S t a
0070520 t s c o d e . O n M O D 4
0070540 4 I O \r b e c a u s e i t
0070560 w r i t e s o n t h e d i
0070600 s k a n d u s e s r e c o
0070620 r d s n o t e x p o r t e d
0070640 f r o m M O D 4 4 I O ) (
0070660 F N S G A T H E R S T A T S )
0070700 ( V A R S ( \r \ S T A T S O
0070720 N N I L ) ) ) ( D E C L A R
0070740 E : E V A L @ C O M P I L E
0070760 D O N T C O P Y ( L O C A L V
0071000 A R S . T ) ( F I L E S
0071020 ( L O A D C O M P ) L L B F S
0071040 ) ) ) ) \r ( R P A Q ? \ M 4 4
0071060 M U L T F L G T ) \r ( / S E T
0071100 T O P V A L ( Q U O T E \ \
0071120 M 4 4 P A G E B U F F E R . G L
0071140 O B A L R E S O U R C E ) ) \r (
0071160 R P A Q Q \ F I L E N A M E C
0071200 H A R S L S T ( 3 6 4 3 4
0071220 5 4 6 ) ) \r ( R P A Q Q \ S
0071240 T A T S O N N I L ) \r ( P U T
0071260 P R O P S M O D 4 4 I O C O
0071300 P Y R I G H T ( " X e r o x
0071320 C o r p o r a t i o n " 1 9 8
0071340 1 1 9 8 2 1 9 8 3 1 9 8 4
0071360 1 9 8 5 ) ) \r N I L \r
0071374