$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>FLOPPY.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - N o v - 8 5 1 4 : 2 7 : 1 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P > K O
0000100 T O > S O U R C E S > F L O P P
0000120 Y . ; 7 ) \r " 2 5 - O c t - 8
0000140 5 1 7 : 4 6 : 3 6 " t c o m
0000160 p l ' d i n " I N T E R L I
0000200 S P - D 6 - N o v - 8 5 .
0000220 . . " d a t e d " 6 - N o
0000240 v - 8 5 1 2 : 1 3 : 1 2 " ) \r
0000260 ( F I L E C R E A T E D " 7
0000300 - N o v - 8 5 1 4 : 2 1 : 2 9
0000320 " { E R I S } < L I S P > K O
0000340 T O > S O U R C E S > F L O P P
0000360 Y . ; 7 3 4 0 5 2 3 c h a n
0000400 g e s t o : ( V A R S \r F
0000420 L O P P Y C O M S ) ( F N S
0000440 \ F L O P P Y . T R A N S F E R
0000460 F L O P P Y . R E S T A R T )
0000500 p r e v i o u s d a t e :
0000520 " 2 5 - O c t - 8 5 1 2 : 1 3
0000540 : 2 3 " \r { E R I S } < L I S
0000560 P > K O T O > S O U R C E S > F
0000600 L O P P Y . ; 6 ) \r \ F L O P P
0000620 Y . T R A N S L A T E F L O P P
0000640 Y R E S U L T D 1 \r ( L ( 0
0000660 F L O P P Y R E S U L T ) )
0000700 \0 177 001 \0 \0 001 @ d n 213 330 345 n \b @ 360
0000720 223 g \0 \0 020 n 213 230 345 021 001 \0 H d j 360
0000740 223 g \0 \0 020 k 360 223 g \0 \0 020 H d n \b
0000760 \b 360 223 g \0 \0 020 n \t \0 360 223 g \0 \0 020
0001000 H d n 210 \0 360 223 g \0 \0 020 n 210 200 360 223
0001020 g \0 \0 020 H d n 200 200 360 263 366 d n \b 200
0001040 360 223 g \0 \0 020 d n \n \0 360 223 g \0 \0 020
0001060 n \b 020 360 223 g \0 \0 020 H n \b @ 360 263 223
0001100 g \0 \0 020 \0 N I L \r ( 1 7 4 Q U
0001120 N K N O W N E R R O R 1 6 1 Q
0001140 R E C O R D N O T F O U N D
0001160 1 5 0 Q R E C A L I B R A T E
0001200 R R O R 1 3 6 Q N O T R E A
0001220 D Y 1 1 4 Q D O O R I S O P
0001240 E N 1 0 3 Q D O O R O P E N
0001260 E D 7 0 Q D A T A L O S T
0001300 5 7 Q C R C E R R O R 4 4 Q
0001320 B U S Y 3 5 Q O K 1 5 Q
0001340 W R I T E P R O T E C T ) \r (
0001360 ) \r \ F L O P P Y . S E V E R E
0001400 . E R R O R D 1 \r ( I 0 M
0001420 E S S A G E ) \0 \v \0 \0 \0 001 o \0
0001440 \0 \0 @ \n \0 \0 h 020 \0 ( 7 E R R O
0001460 R ) \r N I L \r ( 3 " F l o p
0001500 p y : S e v e r e E r r o r
0001520 ! " ) \r \ F L O P P Y . T R A N
0001540 S L A T E P M P A G E E T Y P E
0001560 D 1 \r ( L ( 0 P M P A G E
0001600 E T Y P E ) ) \0 ' \0 \0 \0 001 @ d
0001620 j 360 223 g \0 \0 020 k 360 223 g \0 \0 020 @ d
0001640 l 002 360 223 g \0 \0 020 l 003 360 223 g \0 \0 020
0001660 g \0 \0 020 \0 N I L \r ( 4 4 Q ?
0001700 4 0 Q B A D S E C T O R S 3
0001720 0 Q P F I L E L I S T 1 6 Q
0001740 F I L E 7 F R E E ) \r ( )
0001760 \r \ F L O P P Y . T R A N S L A
0002000 T E F I L E T Y P E D 1 \r ( L
0002020 ( 0 F I L E T Y P E ) ) \0
0002040 g \0 \0 \0 001 @ d j 360 223 g \0 \0 020 n \b
0002060 \0 360 223 g \0 \0 020 @ d n \b 001 360 223 g \0
0002100 \0 020 n \b 002 360 223 g \0 \0 020 @ d n \b 003
0002120 360 223 g \0 \0 020 n \b 004 360 223 g \0 \0 020 @
0002140 d n \b 005 360 223 g \0 \0 020 n \b 006 360 223 g
0002160 \0 \0 020 @ d n \b \a 360 223 g \0 \0 020 n \b
0002200 022 360 223 g \0 \0 020 g \0 \0 020 \0 N I L \r
0002220 ( 1 4 4 Q ? 1 4 0 Q B A C
0002240 K S T O P D E B U G G E E 1 2
0002260 7 Q B A C K S T O P D E B U G
0002300 G E R 1 1 4 Q P F I L E L I
0002320 S T 1 0 3 Q C L E A R I N G
0002340 H O U S E B A C K U P F I L E
0002360 7 0 Q F I L E 5 7 Q B A C
0002400 K S T O P L O G 4 4 Q A T V
0002420 M S T R A N S A C T I O N 3 3
0002440 Q D I R E C T O R Y 2 0 Q
0002460 U N A S S I G N E D 7 F R E
0002500 E ) \r ( ) \r \ F L O P P Y . M T
0002520 L . F I X P D 1 \r ( L ( 0
0002540 X ) ) \0 032 \0 \0 \0 001 @ l 020 \n \0 \0
0002560 n 377 377 345 o \0 \0 \0 345 @ n 377 377 345 l 020
0002600 347 344 020 \0 ( 5 R S H ) \r N I L \r
0002620 ( 1 5 Q - 3 7 7 7 7 6 0 0 0
0002640 0 1 Q ) \r \ F L O P P Y . L T M
0002660 . F I X P D 1 \r ( L ( 0 X
0002700 ) ) \0 032 \0 \0 \0 001 @ l 020 \n \0 \0 n
0002720 377 377 345 o \0 \0 \0 345 @ n 377 377 345 l 020 347
0002740 344 020 \0 ( 5 R S H ) \r N I L \r (
0002760 1 5 Q - 3 7 7 7 7 6 0 0 0 0
0003000 1 Q ) \r \ F L O P P Y . M T L .
0003020 I D A T E D 1 \r ( L ( 0 X
0003040 ) ) \0 \b \0 \0 \0 001 @ o \0 \0 \0 346 020
0003060 \0 N I L \r N I L \r ( 4 - 2 0
0003100 0 0 0 0 0 0 0 0 0 Q ) \r \ F L O
0003120 P P Y . L T M . I D A T E D 1
0003140 \r ( L ( 0 X ) ) \0 \b \0 \0 \0
0003160 001 @ o \0 \0 \0 346 020 \0 N I L \r N I L
0003200 \r ( 4 - 2 0 0 0 0 0 0 0 0 0
0003220 0 Q ) \r \ F L O P P Y . T R A N
0003240 S L A T E S E T U P D 1 \r ( I
0003260 0 S E T U P ) \0 K \0 \0 \0 001
0003300 @ d j 360 223 g \0 \0 020 k 360 223 g \0 \0 020
0003320 @ d l 002 360 223 g \0 \0 020 l 003 360 223 g \0
0003340 \0 020 @ d l 004 360 223 g \0 \0 020 l 005 360 223
0003360 g \0 \0 020 @ d l 006 360 223 g \0 \0 020 l \a
0003400 360 223 g \0 \0 020 \b \0 \0 020 \0 ( 1 1 0 Q
0003420 S H O U L D N T ) \r ( 1 0 4 Q
0003440 I B M D 1 0 2 4 7 4 Q I B
0003460 M D 5 1 2 6 2 Q I B M D 2 5
0003500 6 5 2 Q I B M D 1 2 8 4 0
0003520 Q I B M S 1 0 2 4 3 0 Q I
0003540 B M S 5 1 2 1 6 Q I B M S 2
0003560 5 6 7 I B M S 1 2 8 ) \r ( )
0003600 \r \ F L O P P Y . S E T U P . I
0003620 O C B D 1 \r ( P 5 \ I N T
0003640 E R R U P T A B L E P 4 G
0003660 A P 3 P 3 S E C T O R S P
0003700 E R T R A C K P 2 E N C O
0003720 D E D S E C T O R L E N G T H
0003740 P 1 D E N S I T Y P 0
0003760 S E C T O R L E N G T H I 1
0004000 S E T U P I 0 F L O P P
0004020 Y I O C B ) \0 b 006 \0 \0 002 021 P 004
0004040 A \t \0 \0 X A \t \0 \0 Y A \t \0 \0 Z A
0004060 \t \0 \0 [ A \t \0 \0 \ 021 020 005 @ 006 \0 \0
0004100 H 342 315 003 277 @ 006 \0 \0 I 317 004 303 277 @ 006
0004120 \0 \0 j 317 004 \v 277 @ 006 \0 \0 H 342 342 317 \v
0004140 \a 277 @ 006 \0 \0 J 317 \v 207 277 @ 006 \0 \0 K
0004160 317 \f \a 277 @ 006 \0 \0 L 317 \f 207 @ 020 \0 (
0004200 3 2 Q \ F L O P P Y . G A P 3
0004220 2 5 Q \ F L O P P Y . S E C
0004240 T O R S P E R T R A C K 2 0 Q
0004260 \ F L O P P Y . E N C O D E D
0004300 S E C T O R L E N G T H 1 3 Q
0004320 \ F L O P P Y . D E N S I T Y
0004340 6 \ F L O P P Y . S E C T O
0004360 R L E N G T H ) \r ( 1 3 2 Q F
0004400 L O P P Y I O C B 1 2 1 Q F
0004420 L O P P Y I O C B 1 1 0 Q F
0004440 L O P P Y I O C B 7 5 Q F L
0004460 O P P Y I O C B 6 4 Q F L O
0004500 P P Y I O C B 5 3 Q F L O P
0004520 P Y I O C B 4 2 Q F L O P P
0004540 Y I O C B ) \r ( ) \r \ F L O P P
0004560 Y . C H E C K . F L O P P Y I O
0004600 C B D 1 \r ( P 0 S E T U P
0004620 I 0 F L O P P Y I O C B
0004640 F 2 \ F L O P P Y . C Y L I
0004660 N D E R S ) 001 240 002 001 \0 001 021 001
0004700 @ 006 \0 \0 312 \t 036 j l \a l 006 k l 002 l
0004720 005 h 032 032 032 032 032 032 \n \0 \0 232 @ 006 \0 \0
0004740 310 \n j 330 j 360 247 o \0 \0 \0 \t \0 \0 277 @
0004760 006 \0 \0 313 005 277 @ 006 \0 \0 313 005 277 @ 006 \0
0005000 \0 @ 006 \0 \0 310 001 @ 006 \0 \0 310 \0 321 233 @
0005020 006 \0 \0 310 \a k 331 j 360 263 N @ 006 \0 \0 310
0005040 001 @ 006 \0 \0 310 \0 321 263 027 @ 006 \0 \0 310 \a
0005060 Y j 360 263 4 I 005 003 225 I \t \0 \0 263 * @
0005100 006 \0 \0 312 \t 036 l 005 331 j 360 262 024 @ 006 \0
0005120 \0 313 005 343 343 @ 006 \0 \0 310 \a 330 R 361 227 o
0005140 \0 \0 \0 \t \0 \0 277 @ 006 \0 \0 312 004 \v k 331
0005160 j 360 251 @ 006 \0 \0 312 \t \0 j 360 247 o \0 \0
0005200 \0 \t \0 \0 277 @ 006 \0 \0 312 004 303 d j 360 262
0005220 2 277 @ 006 \0 \0 312 \v 207 d j 360 223 277 j 260
0005240 ] d k 360 223 277 k 260 U d l 002 360 224 277 l
0005260 002 260 K l 003 360 223 l 003 260 C o \0 \0 \0 260
0005300 : l \b 360 262 1 @ 006 \0 \0 312 \v 207 d j 360
0005320 224 277 l 004 260 ( d k 360 224 277 l 005 260 037 d
0005340 l 002 360 224 277 l 006 260 025 l 003 360 222 l \a 213
0005360 o \0 \0 \0 203 o \0 \0 \0 \t \0 \0 X @ 006 \0
0005400 \0 310 003 H \t \0 \0 l 002 333 331 j 360 262 F @
0005420 006 \0 \0 312 \v \a H \t \0 \0 l 004 333 331 j 360
0005440 262 3 @ 006 \0 \0 312 \f \a H \t \0 \0 331 j 360
0005460 262 # @ 006 \0 \0 313 005 l 377 345 @ 006 \0 \0 312
0005500 \f \a 361 256 @ 006 \0 \0 312 \f 207 H \t \0 \0 331
0005520 j 360 246 o \0 \0 \0 \t \0 \0 h 020 \0 ( 6 3
0005540 4 Q \ F L O P P Y . S E V E R
0005560 E . E R R O R 6 2 1 Q \ F L
0005600 O P P Y . G A P 3 5 5 7 Q \
0005620 F L O P P Y . S E C T O R S P E
0005640 R T R A C K 5 3 4 Q \ F L O
0005660 P P Y . S E C T O R L E N G T H
0005700 5 1 1 Q \ F L O P P Y . S E
0005720 C T O R L E N G T H 4 7 6 Q
0005740 \ F L O P P Y . S E V E R E . E
0005760 R R O R 3 0 6 Q \ F L O P P
0006000 Y . S E V E R E . E R R O R 2
0006020 5 0 Q \ F L O P P Y . S E V E
0006040 R E . E R R O R 1 7 7 Q \ F
0006060 Z E R O P 6 0 Q \ F L O P P
0006100 Y . S E V E R E . E R R O R 3
0006120 5 Q M E M B ) \r ( 6 1 2 Q F
0006140 L O P P Y I O C B 6 0 1 Q F
0006160 L O P P Y I O C B 5 7 0 Q F
0006200 L O P P Y I O C B 5 5 0 Q F
0006220 L O P P Y I O C B 5 2 5 Q F
0006240 L O P P Y I O C B 5 0 3 Q F
0006260 L O P P Y I O C B 4 1 4 Q F
0006300 L O P P Y I O C B 3 3 0 Q F
0006320 L O P P Y I O C B 3 1 3 Q F
0006340 L O P P Y I O C B 2 7 1 Q F
0006360 L O P P Y I O C B 2 5 5 Q F
0006400 L O P P Y I O C B 2 3 3 Q F
0006420 L O P P Y I O C B 2 2 3 Q F
0006440 L O P P Y I O C B 2 0 5 Q F
0006460 L O P P Y I O C B 1 6 0 Q F
0006500 L O P P Y I O C B 1 4 7 Q F
0006520 L O P P Y I O C B 1 4 1 Q F
0006540 L O P P Y I O C B 1 2 5 Q F
0006560 L O P P Y I O C B 1 1 5 Q F
0006600 L O P P Y I O C B 1 0 7 Q F
0006620 L O P P Y I O C B 1 0 3 Q F
0006640 L O P P Y I O C B 7 4 Q F L
0006660 O P P Y I O C B 6 5 Q F L O
0006700 P P Y I O C B 4 2 Q F L O P
0006720 P Y I O C B 6 F L O P P Y I
0006740 O C B ) \r ( 6 3 1 Q " I l l
0006760 e g a l F L O P P Y I O C B
0007000 S e t u p 3 " 4 7 3 Q " I
0007020 l l e g a l F L O P P Y I O C
0007040 B S e t u p 2 " 4 6 6 Q
0007060 " I l l e g a l F L O P P Y I
0007100 O C B S e t u p 2 " 4 0 1
0007120 Q " I l l e g a l F L O P P
0007140 Y I O C B S e t u p 2 " 3
0007160 0 3 Q " I l l e g a l F L O
0007200 P P Y I O C B S e t u p 1 "
0007220 2 4 5 Q " I l l e g a l F
0007240 L O P P Y I O C B B u f f e r
0007260 " 5 5 Q " I l l e g a l F
0007300 L O P P Y I O C B C o m m a n
0007320 d " ) \r \ F L O P P Y . D E N S
0007340 I T Y D 1 \r ( I 0 S E T U
0007360 P ) \0 0 \0 \0 \0 001 @ j 360 256 @ k 360
0007400 252 @ l 002 360 245 @ d l 003 360 221 j 020 l 004
0007420 360 256 @ l 005 360 251 @ l 006 360 244 @ l \a 360
0007440 222 l \b 020 \b \0 \0 020 \0 ( 5 5 Q S H
0007460 O U L D N T ) \r N I L \r ( ) \r \
0007500 F L O P P Y . S E C T O R L E N
0007520 G T H D 1 \r ( I 0 S E T U
0007540 P ) \0 : \0 \0 \0 001 @ j 360 245 @ d l
0007560 004 360 222 l 200 020 k 360 245 @ d l 005 360 223 n
0007600 001 \0 020 l 002 360 245 @ d l 006 360 223 n 002 \0
0007620 020 l 003 360 244 @ l \a 360 223 n 004 \0 020 \b \0
0007640 \0 020 \0 ( 6 7 Q S H O U L D N T
0007660 ) \r N I L \r ( ) \r \ F L O P P Y
0007700 . E N C O D E D S E C T O R L E
0007720 N G T H D 1 \r ( I 0 S E T
0007740 U P ) \0 5 \0 \0 \0 001 @ j 360 245 @ d
0007760 l 004 360 221 j 020 k 360 245 @ d l 005 360 221 k
0010000 020 l 002 360 245 @ d l 006 360 222 l 002 020 l 003
0010020 360 244 @ l \a 360 222 l 003 020 \b \0 \0 020 \0 (
0010040 6 2 Q S H O U L D N T ) \r N I
0010060 L \r ( ) \r \ F L O P P Y . G A P
0010100 3 D 1 \r ( I 0 S E T U P )
0010120 \0 C \0 \0 \0 001 @ d j 360 222 l 033 020 k
0010140 360 222 l * 020 @ d l 002 360 222 l : 020 l 003
0010160 360 222 l K 020 @ d l 004 360 222 l 032 020 l 005
0010200 360 222 l 6 020 @ d l 006 360 222 l T 020 l \a
0010220 360 222 l t 020 \b \0 \0 020 \0 ( 1 0 0 Q
0010240 S H O U L D N T ) \r N I L \r ( )
0010260 \r \ F L O P P Y . S E C T O R S
0010300 P E R T R A C K D 1 \r ( I 0
0010320 S E T U P ) \0 = \0 \0 \0 001 @ d
0010340 j 360 222 l 032 020 k 360 222 l 017 020 @ d l 002
0010360 360 222 l \b 020 l 003 360 222 l 004 020 @ d l 004
0010400 360 222 l $ 020 l 005 360 263 333 @ d l 006 360 263
0010420 332 l \a 360 263 336 \b \0 \0 020 \0 ( 7 2 Q
0010440 S H O U L D N T ) \r N I L \r ( )
0010460 \r \ F L O P P Y . R U N A 0 0 0
0010500 1 D 1 \r ( N A M E E R R O R
0010520 S E T L ( 0 N I L ) P
0010540 1 \ I N T E R R U P T A B L E
0010560 F 2 F L O P P Y I O C B
0010600 F 3 R E S E T V A R S L S T
0010620 F 4 R E S E T Y ) \0 h 002
0010640 003 002 \0 g \0 \0 R h 032 032 R \t \0 \0 h 032
0010660 032 S 032 c 006 277 ` \0 \0 310 023 021 001 \0 H j
0010700 360 265 \v H 005 003 264 006 H \t \0 \0 022 244 \b \0
0010720 \0 260 344 021 020 001 ` \0 \0 R l 020 304 277 ` \0
0010740 \0 ` \0 \0 315 023 023 ` \0 \0 310 023 021 001 \0 H
0010760 j 360 265 \v H 005 003 264 006 H \t \0 \0 022 224 h
0011000 c \b i 020 \b \0 \0 277 260 337 \0 ( 1 4 3 Q
0011020 B L O C K 1 3 1 Q \ F Z E
0011040 R O P 5 5 Q B L O C K 5 0
0011060 Q \ F Z E R O P 1 2 Q \ F
0011100 L O P P Y . L O C K . B U F F E
0011120 R ) \r ( 1 0 6 Q \ I O P A G E
0011140 1 0 0 Q \ F L O P P Y I O C
0011160 B A D D R 7 5 Q \ I O P A G
0011200 E 6 5 Q \ F L O P P Y I O C
0011220 B 2 5 Q \ I O P A G E 2
0011240 \ F L O P P Y . U N L O C K . B
0011260 U F F E R ) \r ( ) \r \ F L O P P
0011300 Y . R U N D 1 \r ( P 3 R E
0011320 S E T Z P 2 R E S E T Y
0011340 P 1 L I S P X H I S T P
0011360 0 R E T R Y F L G I 1 N
0011400 O E R R O R I 0 F L O P P
0011420 Y I O C B F 4 \ F L O P P
0011440 Y M P E R R O R S F 5 L I
0011460 S P X H I S T F 6 R E S E
0011500 T V A R S L S T F 7 \ F L
0011520 O P P Y M P E R R O R S F L G )
0011540 002 t 004 004 \0 002 021 020 \0 U 021 ! 003 V o
0011560 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 [
0011600 \n \0 \0 277 K 223 \b \0 \0 277 023 ` \0 \0 312 \0
0011620 @ j 360 232 ` \0 \0 312 \0 020 j 360 221 i 020 `
0011640 \0 \0 312 \0 \0 j 360 244 \b \0 \0 h 020 ` \0 \0
0011660 312 \0 260 j 360 231 ` \0 \0 312 \0 ` j 360 263 2
0011700 H 263 / @ 006 \0 \0 312 \t 036 l \a l 006 j h
0011720 032 032 032 \n \0 \0 263 032 A \t \0 \0 277 ` \0 \0
0011740 312 \0 \0 j 360 242 261 001 357 A \t \0 \0 261 001 347
0011760 ` \0 \0 312 \0 020 j 360 222 261 001 273 T k 330 c
0012000 \b 277 W 016 242 261 \0 301 ` \0 \0 312 \0 020 j 360
0012020 221 j 210 ` \0 \0 310 \0 n @ \0 346 d j 360 224
0012040 277 h 261 \0 240 d n 002 D 360 227 277 o \0 \0 \0
0012060 261 \0 222 d n 002 E 360 227 277 o \0 \0 \0 261 \0
0012100 204 d n 002 F 360 226 277 o \0 \0 \0 260 v d n
0012120 002 G 360 226 277 o \0 \0 \0 260 i d n 002 H 360
0012140 226 277 o \0 \0 \0 260 \ d n 002 I 360 226 277 o
0012160 \0 \0 \0 260 O d n 002 J 360 226 277 o \0 \0 \0
0012200 260 B d n 002 K 360 226 277 o \0 \0 \0 260 5 d
0012220 n 002 U 360 226 277 o \0 \0 \0 260 ( n 002 V 360
0012240 225 o \0 \0 \0 260 035 o \0 \0 \0 ` \0 \0 312 \0
0012260 020 j 360 221 j 210 ` \0 \0 310 \0 n @ \0 346 \n
0012300 \0 \0 \t \0 \0 277 H 242 261 \0 307 A 222 261 376 336
0012320 ` \0 \0 312 \0 020 j 360 221 j 210 ` \0 \0 310 \0
0012340 n @ \0 346 d j 360 224 277 h 261 \0 240 d n 002
0012360 D 360 227 277 o \0 \0 \0 261 \0 222 d n 002 E 360
0012400 227 277 o \0 \0 \0 261 \0 204 d n 002 F 360 226 277
0012420 o \0 \0 \0 260 v d n 002 G 360 226 277 o \0 \0
0012440 \0 260 i d n 002 H 360 226 277 o \0 \0 \0 260 \
0012460 d n 002 I 360 226 277 o \0 \0 \0 260 O d n 002
0012500 J 360 226 277 o \0 \0 \0 260 B d n 002 K 360 226
0012520 277 o \0 \0 \0 260 5 d n 002 U 360 226 277 o \0
0012540 \0 \0 260 ( n 002 V 360 225 o \0 \0 \0 260 035 o
0012560 \0 \0 \0 ` \0 \0 312 \0 020 j 360 221 j 210 ` \0
0012600 \0 310 \0 n @ \0 346 \n \0 \0 \t \0 \0 260 G `
0012620 \0 \0 312 \0 020 j 360 h 360 d n 002 U 360 245 d
0012640 n 002 V 360 222 277 i 201 277 h 262 + n \a 320 \t
0012660 \0 \0 260 " ` \0 \0 312 \0 300 j 360 256 H 262 027
0012700 A 222 261 375 351 g \0 \0 \t \0 \0 207 A 222 261 375
0012720 335 \b \0 \0 277 i 270 261 375 223 \0 ( 1 1 5 4
0012740 Q \ F L O P P Y . E R R O R
0012760 1 1 4 3 Q \ F L O P P Y . B R
0013000 E A K 1 1 1 2 Q B L O C K
0013020 1 0 4 5 Q \ F L O P P Y . B R
0013040 E A K 1 0 4 2 Q C O N C A T
0013060 5 3 5 Q \ F L O P P Y . B R
0013100 E A K 5 3 2 Q C O N C A T
0013120 2 0 5 Q \ F L O P P Y . R E C
0013140 A L I B R A T E 1 6 4 Q \ F
0013160 L O P P Y . I N I T I A L I Z E
0013200 1 5 6 Q M E M B 1 0 3 Q
0013220 \ F L O P P Y . E R R O R 4 1
0013240 Q E R R O R ! 3 3 Q R E S
0013260 E T R E S T O R E 2 1 Q \ F
0013300 L O P P Y . R U N A 0 0 0 1 ) \r
0013320 ( 1 1 4 0 Q C R C E R R O R
0013340 1 1 1 7 Q \ F L O P P Y R E S
0013360 U L T 1 0 5 2 Q \ F L O P P
0013400 Y R E S U L T 1 0 3 1 Q \ F
0013420 L O P P Y R E S U L T 1 0 1 6
0013440 Q \ F L O P P Y R E S U L T
0013460 5 6 6 Q \ F L O P P Y R E S U
0013500 L T 5 5 3 Q \ F L O P P Y R
0013520 E S U L T 5 2 1 Q \ F L O P
0013540 P Y R E S U L T 5 0 6 Q \ F
0013560 L O P P Y R E S U L T 2 5 6 Q
0013600 \ F L O P P Y R E S U L T 2
0013620 4 3 Q \ F L O P P Y R E S U L
0013640 T 2 1 3 Q \ F L O P P Y R E
0013660 S U L T 1 7 0 Q \ F L O P P
0013700 Y R E S U L T 1 3 7 Q F L O
0013720 P P Y I O C B 1 2 1 Q \ F L
0013740 O P P Y R E S U L T 1 1 0 Q
0013760 \ F L O P P Y R E S U L T 7 2
0014000 Q \ F L O P P Y R E S U L T
0014020 5 7 Q \ F L O P P Y R E S U L
0014040 T 4 6 Q \ F L O P P Y R E S
0014060 U L T 2 7 Q E R R O R 1 6
0014100 Q I N T E R N A L ) \r ( 1 0
0014120 1 3 Q " D o m i n o E r r o
0014140 r " 1 0 0 5 Q " D o m i n
0014160 o E r r o r i n R e s e t
0014200 P a t c h " 7 7 2 Q " D o
0014220 m i n o E r r o r I n N O
0014240 O P P a t c h " 7 5 5 Q "
0014260 D o m i n o N o D m a E n d C
0014300 o u n t 2 E r r o r " 7 4 0
0014320 Q " D o m i n o N o D m a E
0014340 n d C o u n t 1 E r r o r "
0014360 7 2 3 Q " D o m i n o B a d
0014400 D m a C h a n n e l E r r o r
0014420 " 7 0 6 Q " D o m i n o T
0014440 r a c k T o B i g E r r o r "
0014460 6 7 1 Q " D o m i n o C o
0014500 m m a n d T r a c k E r r o r
0014520 " 6 5 4 Q " D o m i n o I
0014540 n v a l i d E s c a p e C m d
0014560 E r r o r " 6 3 6 Q " D o m
0014600 i n o U n I m p l F l o p p y
0014620 C m d E r r o r " 6 2 0 Q
0014640 " D o m i n o N o V a l i d C
0014660 o m m a n d E r r o r " 5 0
0014700 3 Q " D o m i n o E r r o r
0014720 " 4 7 5 Q " D o m i n o
0014740 E r r o r i n R e s e t P
0014760 a t c h " 4 6 2 Q " D o m i
0015000 n o E r r o r I n N O O P
0015020 P a t c h " 4 4 5 Q " D o
0015040 m i n o N o D m a E n d C o u
0015060 n t 2 E r r o r " 4 3 0 Q
0015100 " D o m i n o N o D m a E n d
0015120 C o u n t 1 E r r o r " 4 1
0015140 3 Q " D o m i n o B a d D m
0015160 a C h a n n e l E r r o r "
0015200 3 7 6 Q " D o m i n o T r a
0015220 c k T o B i g E r r o r " 3
0015240 6 1 Q " D o m i n o C o m m
0015260 a n d T r a c k E r r o r "
0015300 3 4 4 Q " D o m i n o I n v
0015320 a l i d E s c a p e C m d E r
0015340 r o r " 3 2 6 Q " D o m i n
0015360 o U n I m p l F l o p p y C m
0015400 d E r r o r " 3 1 0 Q " D
0015420 o m i n o N o V a l i d C o m
0015440 m a n d E r r o r " 1 3 Q
0015460 ( \ F L O P P Y . R U N A 0 0 0
0015500 1 ) ) \r \ F L O P P Y . E R R O
0015520 R D 1 \r ( P 0 $ F L O P P
0015540 Y R E S U L T ) \0 O 001 \0 \0 \0 021
0015560 020 \0 ` \0 \0 310 \0 \t \0 \0 X d g \0 \0 360
0015600 262 027 \b \0 \0 277 \b \0 \0 277 ` \0 \0 312 \0 \0
0015620 j 360 223 \b \0 \0 277 \b \0 \0 H \t \0 \0 H o
0015640 \0 \0 \0 \n \0 \0 223 \b \0 \0 277 \b \0 \0 ` \0
0015660 \0 312 \0 \0 j 360 264 006 \b \0 \0 h 020 \0 ( 1
0015700 1 3 Q \ F L O P P Y . R E C A
0015720 L I B R A T E 7 6 Q \ F L O
0015740 P P Y . I N I T I A L I Z E 7
0015760 2 Q \ F L O P P Y . C L O S E
0016000 6 6 Q M E M B 5 6 Q \ F
0016020 L O P P Y . B R E A K 5 2 Q
0016040 \ F L O P P Y . I N I T I A L I
0016060 Z E 4 6 Q \ F L O P P Y . R
0016100 E C A L I B R A T E 3 1 Q \
0016120 F L O P P Y . I N I T I A L I Z
0016140 E 2 5 Q \ F L O P P Y . C L
0016160 O S E 1 2 Q \ F L O P P Y .
0016200 T R A N S L A T E F L O P P Y R
0016220 E S U L T ) \r ( 1 0 1 Q \ F L
0016240 O P P Y R E S U L T 3 5 Q \
0016260 F L O P P Y R E S U L T 1 7 Q
0016300 D O O R O P E N E D 5 \ F
0016320 L O P P Y R E S U L T ) \r ( 6
0016340 3 Q ( D O O R O P E N E D D
0016360 O O R I S O P E N ) ) \r \ F L O
0016400 P P Y . L O C K . B U F F E R
0016420 D 1 \r ( P 1 C O U N T P
0016440 0 B U F F E R I 0 F L O
0016460 P P Y I O C B ) \0 W 004 \0 \0 001 021
0016500 @ 003 @ 006 \0 \0 312 \t 036 k l 002 h 032 032 \n
0016520 \0 \0 264 B @ 006 \0 \0 310 001 @ 006 \0 \0 310 \0
0016540 321 270 @ 006 \0 \0 310 \a 271 H I \n \0 \0 277 I
0016560 k 331 j 273 272 K J 363 263 033 H K n 001 \0 332
0016600 320 H K n 001 \0 332 320 310 \0 315 \0 277 K k 324
0016620 [ 260 345 h 020 \0 ( 5 6 Q \ L O C K
0016640 P A G E S 2 2 Q M E M B ) \r
0016660 ( 4 6 Q F L O P P Y I O C B
0016700 3 6 Q F L O P P Y I O C B 3
0016720 0 Q F L O P P Y I O C B 6
0016740 F L O P P Y I O C B ) \r ( ) \r \
0016760 F L O P P Y . U N L O C K . B U
0017000 F F E R D 1 \r ( P 1 C O U
0017020 N T P 0 B U F F E R I
0017040 0 F L O P P Y I O C B ) \0 2
0017060 002 \0 \0 001 021 001 @ 006 \0 \0 312 \t 036 k l
0017100 002 h 032 032 \n \0 \0 264 035 @ 006 \0 \0 310 001 @
0017120 006 \0 \0 310 \0 321 270 @ 006 \0 \0 310 \a 271 H I
0017140 \n \0 \0 h 020 \0 ( 5 6 Q \ U N L O
0017160 C K P A G E S 2 2 Q M E M B
0017200 ) \r ( 4 6 Q F L O P P Y I O C
0017220 B 3 6 Q F L O P P Y I O C B
0017240 3 0 Q F L O P P Y I O C B
0017260 6 F L O P P Y I O C B ) \r ( )
0017300 \r \ F L O P P Y . P R E P A R E
0017320 F O R C R A S H D 1 \r N I L
0017340 \0 \0 \0 \0 \0 \b \0 \0 \b \0 \0 o \0 \0 \0
0017360 h d ` \0 \0 \f \0 \0 o \0 \0 \0 \n \0 \0 242
0017400 \b \0 \0 h 020 \0 ( 3 4 Q R E S E T
0017420 3 0 Q M E M B E R 2 1 Q
0017440 P R O M P T F O R W O R D 5
0017460 S A V E V M 2 \ F L O P P Y
0017500 . D E B U G B L O C K S ) \r ( 1
0017520 6 Q P R O M P T W I N D O W )
0017540 \r ( 2 5 Q ( N I L " y "
0017560 " Y " " y e s " " Y E S " )
0017600 1 1 Q " P r o c e e d ? " )
0017620 \r \ F L O P P Y . C O M M A N D
0017640 D 1 \r ( P 1 \ I N T E R R
0017660 U P T A B L E P 0 D I S K
0017700 A D D R E S S I 3 N O E R
0017720 R O R I 2 S U B C O M M A
0017740 N D I 1 C O M M A N D I
0017760 0 F L O P P Y I O C B ) \0
0020000 B 002 \0 \0 004 021 020 \0 k X 021 020 001 @ 006 \0
0020020 \0 A 317 \t 036 277 @ 006 \0 \0 B 315 \n 277 @ 006
0020040 \0 \0 H 314 005 277 @ 006 \0 \0 h 323 315 \0 277 @
0020060 006 \0 \0 h 322 315 001 277 @ 006 \0 \0 j 315 \a 023
0020100 @ C \n \0 \0 020 \0 ( 7 7 Q \ F L O
0020120 P P Y . R U N ) \r ( 6 6 Q F L
0020140 O P P Y I O C B 5 5 Q F L O
0020160 P P Y I O C B 4 4 Q F L O P
0020200 P Y I O C B 3 4 Q F L O P P
0020220 Y I O C B 2 4 Q F L O P P Y
0020240 I O C B 1 3 Q F L O P P Y I
0020260 O C B ) \r ( ) \r \ F L O P P Y .
0020300 I N I T I A L I Z E D 1 \r ( P
0020320 1 \ F L O P P Y . S C R A T
0020340 C H . F L O P P Y I O C B I
0020360 0 N O E R R O R ) \0 T 002 \0 \0
0020400 001 \b \0 \0 d g \0 \0 360 262 A 277 ` \0 \0 265
0020420 4 ` \0 \0 037 021 001 \0 H l 006 \n \0 \0 277 H
0020440 006 \0 \0 k 314 005 277 H 022 021 001 001 I l \a j
0020460 @ \f \0 \0 277 I l \b k @ \f \0 \0 I 027 \0
0020500 \0 277 020 h 027 \0 \0 277 260 341 g \0 \0 360 264 005
0020520 \b \0 \0 020 \0 ( 1 2 1 Q \ D O V E
0020540 F L O P P Y . R E S E T 7 3 Q
0020560 \ F L O P P Y . C O M M A N D
0020600 6 2 Q \ F L O P P Y . C O M
0020620 M A N D 3 4 Q \ F L O P P Y
0020640 . S E T U P . I O C B 2 M A
0020660 C H I N E T Y P E ) \r ( 1 1 3 Q
0020700 D O V E 1 0 5 Q \ \ F L O
0020720 P P Y . S C R A T C H . F L O P
0020740 P Y I O C B . G L O B A L R E S
0020760 O U R C E 7 7 Q \ \ F L O P
0021000 P Y . S C R A T C H . F L O P P
0021020 Y I O C B . G L O B A L R E S O
0021040 U R C E 4 1 Q F L O P P Y I
0021060 O C B 2 2 Q 004 003 F L O P P Y
0021100 I O C B T Y P E # 1 5 Q \ \
0021120 F L O P P Y . S C R A T C H . F
0021140 L O P P Y I O C B . G L O B A L
0021160 R E S O U R C E 6 D A N D E
0021200 L I O N ) \r ( ) \r \ F L O P P Y
0021220 . N O P D 1 \r ( P 1 \ F L
0021240 O P P Y . S C R A T C H . F L O
0021260 P P Y I O C B I 0 N O E R
0021300 R O R ) \0 5 002 \0 \0 001 ` \0 \0 265 *
0021320 ` \0 \0 037 021 001 \0 H l 006 \n \0 \0 277 H 006
0021340 \0 \0 k 314 005 277 H 022 021 001 001 I j d @ \f
0021360 \0 \0 I 027 \0 \0 277 020 h 027 \0 \0 277 260 353 \0
0021400 ( 4 6 Q \ F L O P P Y . C O M
0021420 M A N D 2 1 Q \ F L O P P Y
0021440 . S E T U P . I O C B ) \r ( 6 0
0021460 Q \ \ F L O P P Y . S C R A T
0021500 C H . F L O P P Y I O C B . G L
0021520 O B A L R E S O U R C E 5 2 Q
0021540 \ \ F L O P P Y . S C R A T C
0021560 H . F L O P P Y I O C B . G L O
0021600 B A L R E S O U R C E 2 6 Q
0021620 F L O P P Y I O C B 7 004 003 F
0021640 L O P P Y I O C B T Y P E # 2
0021660 \ \ F L O P P Y . S C R A T C
0021700 H . F L O P P Y I O C B . G L O
0021720 B A L R E S O U R C E ) \r ( ) \r
0021740 \ F L O P P Y . R E C A L I B R
0021760 A T E D 1 \r ( P 1 \ F L O
0022000 P P Y . S C R A T C H . F L O P
0022020 P Y I O C B I 0 N O E R R
0022040 O R ) \0 I 002 \0 \0 001 \b \0 \0 d g \0
0022060 \0 360 262 8 277 ` \0 \0 265 + ` \0 \0 037 021 001
0022100 \0 H l 006 \n \0 \0 277 H 006 \0 \0 k 314 005 277
0022120 H 022 021 001 001 I l 006 j @ \f \0 \0 I 027 \0
0022140 \0 277 020 h 027 \0 \0 277 260 352 g \0 \0 360 264 003
0022160 i 020 \0 ( 6 2 Q \ F L O P P Y .
0022200 C O M M A N D 3 4 Q \ F L O
0022220 P P Y . S E T U P . I O C B 2
0022240 M A C H I N E T Y P E ) \r ( 1
0022260 0 2 Q D O V E 7 4 Q \ \ F
0022300 L O P P Y . S C R A T C H . F L
0022320 O P P Y I O C B . G L O B A L R
0022340 E S O U R C E 6 6 Q \ \ F L
0022360 O P P Y . S C R A T C H . F L O
0022400 P P Y I O C B . G L O B A L R E
0022420 S O U R C E 4 1 Q F L O P P
0022440 Y I O C B 2 2 Q 004 003 F L O P
0022460 P Y I O C B T Y P E # 1 5 Q
0022500 \ \ F L O P P Y . S C R A T C H
0022520 . F L O P P Y I O C B . G L O B
0022540 A L R E S O U R C E 6 D A N
0022560 D E L I O N ) \r ( ) \r \ F L O P
0022600 P Y . R E C O V E R D 1 \r ( P
0022620 1 \ F L O P P Y . S C R A T
0022640 C H . F L O P P Y I O C B I
0022660 0 N O E R R O R ) \0 6 002 \0 \0
0022700 001 ` \0 \0 265 + ` \0 \0 037 021 001 \0 H l 006
0022720 \n \0 \0 277 H 006 \0 \0 k 314 005 277 H 022 021 001
0022740 001 I l \b k @ \f \0 \0 I 027 \0 \0 277 020 h
0022760 027 \0 \0 277 260 352 \0 ( 4 7 Q \ F L O
0023000 P P Y . C O M M A N D 2 1 Q
0023020 \ F L O P P Y . S E T U P . I O
0023040 C B ) \r ( 6 1 Q \ \ F L O P P
0023060 Y . S C R A T C H . F L O P P Y
0023100 I O C B . G L O B A L R E S O U
0023120 R C E 5 3 Q \ \ F L O P P Y
0023140 . S C R A T C H . F L O P P Y I
0023160 O C B . G L O B A L R E S O U R
0023200 C E 2 6 Q F L O P P Y I O C
0023220 B 7 004 003 F L O P P Y I O C B
0023240 T Y P E # 2 \ \ F L O P P Y
0023260 . S C R A T C H . F L O P P Y I
0023300 O C B . G L O B A L R E S O U R
0023320 C E ) \r ( ) \r \ F L O P P Y . T
0023340 R A N S F E R D 1 \r ( P 3
0023360 \ I N T E R R U P T A B L E P
0023400 1 A N S W E R P 0 M E
0023420 S S A G E I 4 N O E R R O
0023440 R I 3 P A G E I 2 D
0023460 I S K A D D R E S S I 1 C
0023500 O M M A N D I 0 F L O P P
0023520 Y I O C B ) 001 ! 004 \0 \0 005 021 0 002
0023540 \b \0 \0 d g \0 \0 360 262 ^ 277 A d g \0 \0
0023560 360 222 277 k 212 g \0 \0 360 222 l 002 202 \b \0 \0
0023600 b 002 277 021 020 003 @ 006 \0 \0 A 317 \t 036 277 @
0023620 006 \0 \0 j 315 \n 277 @ 006 \0 \0 B 314 005 277 @
0023640 006 \0 \0 C 323 315 \0 277 @ 006 \0 \0 C 322 315 001
0023660 277 @ 006 \0 \0 k 315 \a 023 @ D \n \0 \0 264 003
0023700 202 261 \0 273 C 020 g \0 \0 360 264 003 202 261 \0 257
0023720 A d g \0 \0 360 224 277 g \0 \0 213 g \0 \0 360
0023740 223 g \0 \0 202 \b \0 \0 b 002 277 @ 006 \0 \0 312
0023760 004 303 d j 360 224 277 g \0 \0 212 l \b 360 223 g
0024000 \0 \0 202 g \0 \0 @ 006 \0 \0 312 \v 207 Z d j
0024020 360 224 277 l 200 260 k 360 224 n 001 \0 260 030 J
0024040 d l 002 360 224 277 n 002 \0 212 l 003 360 223 n 004
0024060 \0 202 g \0 \0 \n \0 \0 277 A g \0 \0 360 262 032
0024100 B 343 343 B n 377 377 345 343 B l 377 345 ` \0 \0
0024120 g \0 \0 \r 005 \0 \0 277 B 343 343 B n 377 377 345
0024140 343 B l 377 345 C A \r 005 \0 \0 X g \0 \0 360
0024160 222 261 377 S D 244 H \t \0 \0 020 h 020 \0 ( 4
0024200 3 4 Q \ F L O P P Y . B R E A
0024220 K 4 1 5 Q \ D O V E F L O P
0024240 P Y . X F E R D I S K 3 7 1 Q
0024260 \ D O V E F L O P P Y . X F E
0024300 R D I S K 3 3 2 Q \ D O V E
0024320 F L O P P Y . S E T C O N T E X
0024340 T 2 1 2 Q S H O U L D N T
0024360 1 4 0 Q \ F L O P P Y . R U N
0024400 4 2 Q S H O U L D N T 5
0024420 M A C H I N E T Y P E ) \r ( 4 2
0024440 1 Q O K 3 6 5 Q R E A D D
0024460 A T A 3 6 2 Q \ F L O P P Y
0024500 . P R E R E A D . S C R A T C H
0024520 . B U F F E R 3 3 7 Q W R I
0024540 T E D A T A 3 2 7 Q ? 2 5
0024560 4 Q F L O P P Y I O C B 2 5
0024600 0 Q ? 2 4 4 Q D O U B L E
0024620 2 3 4 Q S I N G L E 2 2 1
0024640 Q F L O P P Y I O C B 2 0 6
0024660 Q W R I T E D A T A 2 0 1 Q
0024700 W R I T E 1 7 5 Q R E A D
0024720 D A T A 1 6 7 Q R E A D 1
0024740 5 3 Q D O V E 1 2 7 Q F L
0024760 O P P Y I O C B 1 1 6 Q F L
0025000 O P P Y I O C B 1 0 5 Q F L
0025020 O P P Y I O C B 7 5 Q F L O
0025040 P P Y I O C B 6 5 Q F L O P
0025060 P Y I O C B 5 4 Q F L O P P
0025100 Y I O C B 3 2 Q W R I T E
0025120 2 2 Q R E A D 1 1 Q D A N
0025140 D E L I O N ) \r ( ) \r \ F L O P
0025160 P Y . R E A D S E C T O R D 1
0025200 \r ( I 3 N O E R R O R I
0025220 2 P A G E I 1 D I S K A
0025240 D D R E S S I 0 F L O P P
0025260 Y I O C B ) \0 \r \0 \0 \0 004 @ g \0
0025300 \0 A B C \r 005 \0 \0 020 \0 ( 1 2 Q \
0025320 F L O P P Y . T R A N S F E R )
0025340 \r ( 3 R E A D ) \r ( ) \r \ F L
0025360 O P P Y . W R I T E S E C T O R
0025400 D 1 \r ( I 3 N O E R R O R
0025420 I 2 P A G E I 1 D I
0025440 S K A D D R E S S I 0 F L
0025460 O P P Y I O C B ) \0 \r \0 \0 \0 004
0025500 @ g \0 \0 A B C \r 005 \0 \0 020 \0 ( 1 2
0025520 Q \ F L O P P Y . T R A N S F
0025540 E R ) \r ( 3 W R I T E ) \r ( )
0025560 \r \ F L O P P Y . F O R M A T T
0025600 R A C K S D 1 \r ( P 5 I
0025620 P 3 \ I N T E R R U P T A B
0025640 L E P 1 M E S S A G E P
0025660 0 A N S W E R I 3 N O
0025700 E R R O R I 2 K O U N T
0025720 I 1 D I S K A D D R E S S
0025740 I 0 F L O P P Y I O C B F
0025760 6 \ F L O P P Y . S C R A T
0026000 C H . B U F F E R ) \0 342 006 001 \0
0026020 004 021 0 002 \b \0 \0 d g \0 \0 360 262 @ 277 021
0026040 020 003 @ 006 \0 \0 l 005 317 \t 036 277 @ 006 \0 \0
0026060 j 315 \n 277 @ 006 \0 \0 A 314 005 277 @ 006 \0 \0
0026100 h 323 315 \0 277 @ 006 \0 \0 h 322 315 001 277 @ 006
0026120 \0 \0 B 315 \a 023 @ C \n \0 \0 020 d g \0 \0
0026140 360 246 d g \0 \0 360 264 364 277 @ 006 \0 \0 312 004
0026160 303 d j 360 224 277 g \0 \0 212 l \b 360 223 g \0
0026200 \0 202 g \0 \0 @ 006 \0 \0 312 \v 207 Z d j 360
0026220 224 277 l 200 260 k 360 224 n 001 \0 260 030 J d
0026240 l 002 360 224 277 n 002 \0 212 l 003 360 223 n 004 \0
0026260 202 g \0 \0 \n \0 \0 277 B k 331 j 021 002 005 M
0026300 L 363 263 . A 343 343 M 330 A n 377 377 345 343 A
0026320 l 377 345 V g \0 \0 \r 005 \0 \0 Y g \0 \0 360
0026340 246 C 252 I \t \0 \0 277 M k 324 ] 260 324 h 020
0026360 i 020 \0 ( 3 2 5 Q \ F L O P P Y
0026400 . B R E A K 3 1 1 Q \ D O V
0026420 E F L O P P Y . X F E R D I S K
0026440 2 4 5 Q \ D O V E F L O P P
0026460 Y . S E T C O N T E X T 1 1 1
0026500 Q \ F L O P P Y . R U N 5
0026520 M A C H I N E T Y P E ) \r ( 3 1
0026540 5 Q O K 3 0 5 Q F O R M A
0026560 T T R A C K 2 4 2 Q ? 1 6
0026600 7 Q F L O P P Y I O C B 1 6
0026620 3 Q ? 1 5 7 Q D O U B L E
0026640 1 4 7 Q S I N G L E 1 3 4
0026660 Q F L O P P Y I O C B 1 2 4
0026700 Q D A Y B R E A K 1 1 6 Q
0026720 D O V E 1 0 0 Q F L O P P Y
0026740 I O C B 6 7 Q F L O P P Y I
0026760 O C B 5 6 Q F L O P P Y I O
0027000 C B 4 6 Q F L O P P Y I O C
0027020 B 3 6 Q F L O P P Y I O C B
0027040 2 4 Q F L O P P Y I O C B
0027060 1 1 Q D A N D E L I O N ) \r (
0027100 ) \r \ F L O P P Y . D I S K C H
0027120 A N G E C L E A R D 1 \r ( P
0027140 1 \ F L O P P Y . S C R A T C
0027160 H . F L O P P Y I O C B I 0
0027200 N O E R R O R ) \0 6 002 \0 \0 001
0027220 ` \0 \0 265 + ` \0 \0 037 021 001 \0 H l 006 \n
0027240 \0 \0 277 H 006 \0 \0 k 314 005 277 H 022 021 001 001
0027260 I l \b k @ \f \0 \0 I 027 \0 \0 277 020 h 027
0027300 \0 \0 277 260 352 \0 ( 4 7 Q \ F L O P
0027320 P Y . C O M M A N D 2 1 Q \
0027340 F L O P P Y . S E T U P . I O C
0027360 B ) \r ( 6 1 Q \ \ F L O P P Y
0027400 . S C R A T C H . F L O P P Y I
0027420 O C B . G L O B A L R E S O U R
0027440 C E 5 3 Q \ \ F L O P P Y .
0027460 S C R A T C H . F L O P P Y I O
0027500 C B . G L O B A L R E S O U R C
0027520 E 2 6 Q F L O P P Y I O C B
0027540 7 004 003 F L O P P Y I O C B T
0027560 Y P E # 2 \ \ F L O P P Y .
0027600 S C R A T C H . F L O P P Y I O
0027620 C B . G L O B A L R E S O U R C
0027640 E ) \r ( ) \r \ F L O P P Y . M O
0027660 U N T E D P D 1 \r ( P 1 \
0027700 I N T E R R U P T A B L E P
0027720 0 A N S W E R I 0 N O E
0027740 R R O R F 2 \ F L O P P Y
0027760 . M O U N T E D P . D O V E T I
0030000 M E F 3 \ F L O P P Y . M
0030020 O U N T E D P . D O V E A N S W
0030040 E R F 4 \ F L O P P Y . S
0030060 C R A T C H . B U F F E R ) \0
0030100 h 002 003 \0 001 021 020 \0 \b \0 \0 d g \0 \0 360
0030120 262 032 277 021 020 001 i \t \0 \0 277 ` \0 \0 312 \0
0030140 \0 j 360 022 h 360 h 360 260 4 g \0 \0 360 264 .
0030160 R 233 \b \0 \0 R 331 l 003 361 242 S 260 026 l 024
0030200 j k T g \0 \0 \r 005 \0 \0 g \0 \0 360 221 h
0030220 200 i c 006 277 \b \0 \0 c 004 277 S X @ 241 d
0030240 221 H 020 o \0 \0 \0 \t \0 \0 h 020 \0 ( 1 4
0030260 4 Q \ F L O P P Y . B R E A K
0030300 1 2 2 Q I D A T E 1 0 4 Q
0030320 \ D O V E F L O P P Y . T R A
0030340 N S F E R 5 7 Q I D A T E
0030360 2 4 Q \ F L O P P Y . N O P
0030400 5 M A C H I N E T Y P E ) \r (
0030420 1 0 7 Q T I M E O U T 1 0 0
0030440 Q R E A D D A T A 4 7 Q D
0030460 O V E 3 0 Q \ F L O P P Y R
0030500 E S U L T 1 1 Q D A N D E L
0030520 I O N ) \r ( 1 4 1 Q " D o o
0030540 r o p e n ( e d ) o r d i
0030560 s k m i s s i n g " ) \r \ F L
0030600 O P P Y . C A N . R E A D P D
0030620 1 \r ( I 0 N O E R R O R )
0030640 \0 \f \0 \0 \0 001 @ \t \0 \0 264 006 @ \t \0 \0
0030660 020 \0 ( 1 1 Q \ F L O P P Y . M
0030700 O U N T E D P 3 \ F L O P P
0030720 Y . E X I S T S P ) \r N I L \r (
0030740 ) \r \ F L O P P Y . C A N . W R
0030760 I T E P D 1 \r ( I 0 N O E
0031000 R R O R ) \0 022 \0 \0 \0 001 @ \t \0 \0
0031020 264 \f @ \t \0 \0 264 006 @ \t \0 \0 020 \0 ( 1
0031040 7 Q \ F L O P P Y . W R I T E
0031060 A B L E P 1 1 Q \ F L O P P
0031100 Y . M O U N T E D P 3 \ F L
0031120 O P P Y . E X I S T S P ) \r N I
0031140 L \r ( ) \r \ F L O P P Y . W R I
0031160 T E A B L E P D 1 \r ( P 1
0031200 \ I N T E R R U P T A B L E P
0031220 0 A N S W E R I 0 N O
0031240 E R R O R ) \0 W 002 \0 \0 001 021 020 \0
0031260 \b \0 \0 d g \0 \0 360 262 & 277 021 020 001 i \t
0031300 \0 \0 277 ` \0 \0 312 \0 \0 j 360 h 360 265 \f `
0031320 \0 \0 312 \0 220 j 360 h 360 022 h 360 260 027 d g
0031340 \0 \0 360 245 d g \0 \0 360 226 277 \b \0 \0 h 360
0031360 201 277 h X @ 241 d 221 H 020 o \0 \0 \0 \t \0
0031400 \0 h 020 \0 ( 1 2 3 Q \ F L O P P
0031420 Y . B R E A K 1 0 0 Q \ D O
0031440 V E F L O P P Y . W R I T E P R
0031460 O T E C T E D 2 4 Q \ F L O
0031500 P P Y . N O P 5 M A C H I N
0031520 E T Y P E ) \r ( 7 2 Q D A Y B
0031540 R E A K 6 4 Q D O V E 4 4
0031560 Q \ F L O P P Y R E S U L T
0031600 3 0 Q \ F L O P P Y R E S U L
0031620 T 1 1 Q D A N D E L I O N )
0031640 \r ( 1 2 0 Q " W r i t e p
0031660 r o t e c t e d " ) \r \ F L O P
0031700 P Y . T W O S I D E D P D 1 \r
0031720 ( P 1 \ I N T E R R U P T A
0031740 B L E P 0 A N S W E R I
0031760 0 N O E R R O R ) \0 G 002 \0
0032000 \0 001 021 020 \0 \b \0 \0 d g \0 \0 360 262 032 277
0032020 021 020 001 i \t \0 \0 277 ` \0 \0 312 \0 j 360
0032040 022 h 360 h 360 260 023 d g \0 \0 360 245 d g \0
0032060 \0 360 222 277 i 201 277 h X @ 241 d 221 H 020 o
0032100 \0 \0 \0 \t \0 \0 h 020 \0 ( 1 0 3 Q \
0032120 F L O P P Y . B R E A K 2 4 Q
0032140 \ F L O P P Y . N O P 5 M
0032160 A C H I N E T Y P E ) \r ( 5 6 Q
0032200 D A Y B R E A K 5 0 Q D O
0032220 V E 3 0 Q \ F L O P P Y R E
0032240 S U L T 1 1 Q D A N D E L I
0032260 O N ) \r ( 1 0 0 Q " N o t
0032300 a t w o s i d e d f l o p
0032320 p y " ) \r \ F L O P P Y . D U M
0032340 P D 1 \r ( P 1 P A G E P
0032360 0 S T R I N G I 1 M O
0032400 D E I 0 D I S K A D D R E
0032420 S S F 5 \ F L O P P Y . S
0032440 C R A T C H . F L O P P Y I O C
0032460 B ) \0 z 005 001 \0 002 021 P 004 U @ l \n
0032500 037 \v \0 \0 Y l \a 037 I 274 ` \0 \0 006 \0 \0
0032520 312 \v 207 Z d j 360 224 277 l 200 260 k 360 224
0032540 n 001 \0 260 030 J d l 002 360 224 277 n 002 \0 212
0032560 l 003 360 223 n 004 \0 202 g \0 \0 273 d K 315 002
0032600 277 d j 317 \0 C 277 d j 317 \0 020 277 d k 317
0032620 \0 \0 277 d L 024 \0 277 X A d g \0 \0 360 225
0032640 277 d \t \0 \0 020 g \0 \0 360 224 H \t \0 \0 020
0032660 H 020 \0 ( 1 6 5 Q E B C D I C T
0032700 O A S C I I 1 5 3 Q A S C I
0032720 I T O A S C I I 1 2 Q \ F L
0032740 O P P Y . R E A D S E C T O R )
0032760 \r ( 1 5 7 Q E B C D I C 1 4
0033000 4 Q A S C I I 1 0 1 Q ?
0033020 2 6 Q F L O P P Y I O C B 2
0033040 3 Q \ F L O P P Y I O C B ) \r
0033060 ( ) \r \ F L O P P Y . D E B U G
0033100 D 1 \r N I L \0 O \0 \0 \0 \0 \b \0
0033120 \0 \b \0 \0 d g \0 \0 360 262 4 277 ` \0 \0 g
0033140 \0 \0 l 024 l F 032 \v \0 \0 g \0 \0 g \0 \0
0033160 \v \0 \0 277 ` \0 \0 g \0 \0 n 001 " l F 032
0033200 \v \0 \0 g \0 \0 g \0 \0 \v \0 \0 214 d g \0
0033220 \0 360 246 d g \0 \0 360 264 003 h 020 \0 ( 7 5
0033240 Q P U T W I N D O W P R O P
0033260 6 4 Q I N S P E C T 4 4 Q
0033300 P U T W I N D O W P R O P 3 3
0033320 Q I N S P E C T 5 M A C H
0033340 I N E T Y P E 2 C L O S E I
0033360 N S P E C T ) \r ( 1 1 0 Q D A
0033400 Y B R E A K 1 0 2 Q D O V E
0033420 7 2 Q \ F L O P P Y R E S U
0033440 L T 6 7 Q T I T L E 5 3 Q
0033460 F L O P P Y R E S U L T 5 0
0033500 Q \ F L O P P Y R E S U L T
0033520 4 1 Q \ F L O P P Y I O C B
0033540 3 6 Q T I T L E 2 3 Q F L
0033560 O P P Y I O C B 2 0 Q \ F L
0033600 O P P Y I O C B 1 1 Q D A N
0033620 D E L I O N ) \r ( ) \r F L O P P
0033640 Y . R E S T A R T A 0 0 0 1 D
0033660 1 \r ( N A M E E R R O R S E T
0033700 F 0 \ F L O P P Y . S C R
0033720 A T C H . B U F F E R F 1
0033740 R E S E T Y ) \0 H \0 002 002 \0 ` \0
0033760 \0 h i \v \0 \0 277 l 004 \t \0 \0 c \0 277 l
0034000 004 \t \0 \0 027 \0 \0 277 ` \0 \0 264 \a \b \0 \0
0034020 277 h 027 \0 \0 027 \0 \0 027 \0 \0 027 \0 \0 277 g
0034040 \0 \0 \t \0 \0 277 i \t \0 \0 264 \a \b \0 \0 277
0034060 h c 002 i 020 \0 ( 1 0 0 Q \ F L O
0034100 P P Y . S E T U P . H A R D W A
0034120 R E 7 3 Q \ F L O P P Y . E
0034140 X I S T S P 6 6 Q F L O P P
0034160 Y . M O D E 4 1 Q \ F L O P
0034200 P Y . F L U S H 2 5 Q \ F L
0034220 O P P Y . B U F F E R 1 5 Q
0034240 \ F L O P P Y . B U F F E R 7
0034260 O B T A I N . M O N I T O R L
0034300 O C K ) \r ( 6 3 Q P I L O T
0034320 5 7 Q \ C F L O P P Y F D E V
0034340 5 4 Q \ H F L O P P Y F D E
0034360 V 5 1 Q \ S F L O P P Y F D
0034400 E V 4 6 Q \ P F L O P P Y F
0034420 D E V 3 4 Q \ F L O P P Y F
0034440 D E V 3 0 Q \ F L O P P Y .
0034460 P R E R E A D . S C R A T C H .
0034500 B U F F E R 2 \ F L O P P Y
0034520 L O C K ) \r ( ) \r F L O P P Y .
0034540 R E S T A R T D 1 \r ( P 2
0034560 R E S E T Z P 1 R E S E T
0034600 Y P 0 L I S P X H I S T
0034620 F 3 L I S P X H I S T F
0034640 4 R E S E T V A R S L S T )
0034660 \0 + 003 002 \0 \0 g \0 \0 \t \0 \0 027 \0 \0 S
0034700 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h
0034720 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020
0034740 \0 ( 4 6 Q E R R O R ! 4 1 Q
0034760 R E S E T R E S T O R E 2 7
0035000 Q F L O P P Y . R E S T A R T
0035020 A 0 0 0 1 5 C R E A T E . M
0035040 O N I T O R L O C K ) \r ( 3 5 Q
0035060 E R R O R 2 4 Q I N T E R
0035100 N A L 1 0 Q \ F L O P P Y L
0035120 O C K 2 F L O P P Y ) \r (
0035140 2 1 Q ( F L O P P Y . R E S T
0035160 A R T A 0 0 0 1 ) ) \r F L O P P
0035200 Y . M O D E A 0 0 0 1 D 1 \r (
0035220 N A M E E R R O R S E T P
0035240 2 \ I N T E R R U P T A B L E
0035260 P 1 F D E V P 0 O L
0035300 D M O D E F 3 M O D E F
0035320 4 R E S E T Y ) \0 325 003 002 002
0035340 \0 ` \0 \0 h i \v \0 \0 277 021 001 ` \0 \0
0035360 242 h 260 4 ` \0 \0 ` \0 \0 360 224 g \0 \0 260
0035400 ' ` \0 \0 ` \0 \0 360 224 g \0 \0 260 032 ` \0
0035420 \0 ` \0 \0 360 223 g \0 \0 213 ` \0 \0 ` \0 \0
0035440 360 264 005 g \0 \0 270 S d g \0 \0 360 236 277 `
0035460 \0 \0 265 I \b \0 \0 277 ` \0 \0 260 @ d g \0
0035500 \0 360 236 277 ` \0 \0 265 4 \b \0 \0 277 ` \0 \0
0035520 260 + d g \0 \0 360 236 277 ` \0 \0 265 037 \b \0
0035540 \0 277 ` \0 \0 260 026 d g \0 \0 360 262 6 277 `
0035560 \0 \0 265 \t \b \0 \0 277 ` \0 \0 271 ` \0 \0 231
0035600 I ` \0 \0 360 243 \b \0 \0 277 S 237 021 020 002 g
0035620 \0 \0 I \n \0 \0 277 I 027 \0 \0 023 H 022 c \b
0035640 i 020 245 ` \0 \0 Y 260 330 S l 033 \n \0 \0 c
0035660 006 277 261 377 ; \0 ( 3 1 5 Q \ L I S
0035700 P E R R O R 2 6 4 Q \ D E F
0035720 I N E D E V I C E 2 4 7 Q \
0035740 F L O P P Y . C L O S E 2 2 5
0035760 Q \ C F L O P P Y . I N I T
0036000 1 7 7 Q \ S F L O P P Y . I N
0036020 I T 1 5 2 Q \ H F L O P P Y
0036040 . I N I T 1 2 5 Q \ P F L O
0036060 P P Y . I N I T 7 O B T A I
0036100 N . M O N I T O R L O C K ) \r (
0036120 3 0 4 Q \ F L O P P Y F D E V
0036140 2 7 1 Q \ F L O P P Y F D E
0036160 V 2 6 0 Q F L O P P Y 2 4
0036200 2 Q \ F L O P P Y F D E V 2
0036220 3 5 Q \ F L O P P Y F D E V
0036240 2 3 1 Q \ C F L O P P Y F D E
0036260 V 2 2 0 Q \ C F L O P P Y F
0036300 D E V 2 1 1 Q C P M 2 0 3
0036320 Q \ S F L O P P Y F D E V 1
0036340 7 2 Q \ S F L O P P Y F D E V
0036360 1 6 4 Q S Y S O U T 1 5 6
0036400 Q \ H F L O P P Y F D E V 1
0036420 4 5 Q \ H F L O P P Y F D E V
0036440 1 3 7 Q H U G E P I L O T
0036460 1 3 1 Q \ P F L O P P Y F D E
0036500 V 1 2 0 Q \ P F L O P P Y F
0036520 D E V 1 1 2 Q P I L O T 1
0036540 0 4 Q C P M 7 6 Q \ F L O
0036560 P P Y F D E V 7 3 Q \ C F L
0036600 O P P Y F D E V 6 7 Q S Y S
0036620 O U T 6 2 Q \ F L O P P Y F
0036640 D E V 5 7 Q \ S F L O P P Y
0036660 F D E V 5 2 Q H U G E P I L
0036700 O T 4 5 Q \ F L O P P Y F D
0036720 E V 4 2 Q \ H F L O P P Y F
0036740 D E V 3 5 Q P I L O T 3 0
0036760 Q \ F L O P P Y F D E V 2 5
0037000 Q \ P F L O P P Y F D E V 1
0037020 6 Q \ F L O P P Y F D E V 2
0037040 \ F L O P P Y L O C K ) \r ( )
0037060 \r F L O P P Y . M O D E D 1 \r
0037100 ( P 2 R E S E T Z P 1
0037120 R E S E T Y P 0 L I S P X
0037140 H I S T I 0 M O D E F
0037160 3 L I S P X H I S T F 4
0037200 R E S E T V A R S L S T ) \0 "
0037220 003 002 \0 001 S 021 ! 002 T o \0 \0 \0 g \0 \0
0037240 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b
0037260 \0 \0 020 I 020 \0 ( 3 5 Q E R R O R
0037300 ! 3 0 Q R E S E T R E S T O
0037320 R E 1 6 Q F L O P P Y . M O
0037340 D E A 0 0 0 1 ) \r ( 2 4 Q E R
0037360 R O R 1 3 Q I N T E R N A L
0037400 ) \r ( 1 0 Q ( F L O P P Y .
0037420 M O D E A 0 0 0 1 ) ) \r \ F L O
0037440 P P Y . S E T U P . H A R D W A
0037460 R E D 1 \r ( F 1 \ F L O P
0037500 P Y . T R A C K S P E R C Y L I
0037520 N D E R F 2 \ F L O P P Y
0037540 . S E C T O R S P E R T R A C K
0037560 F 3 \ F L O P P Y . C Y L
0037600 I N D E R S F 4 \ F L O P
0037620 P Y . S C R A T C H . F L O P P
0037640 Y I O C B F 5 \ F L O P P
0037660 Y . I B M S 1 2 8 . F L O P P Y
0037700 I O C B F 6 \ F L O P P Y
0037720 . I B M D 2 5 6 . F L O P P Y I
0037740 O C B F 7 \ F L O P P Y .
0037760 I B M D 5 1 2 . F L O P P Y I O
0040000 C B F 1 0 Q \ P F L O P P
0040020 Y L A S T D A T A P A G E F
0040040 1 1 Q \ P F L O P P Y F I R S
0040060 T D A T A P A G E ) \0 346 001 \t \0
0040100 \0 \b \0 \0 d g \0 \0 360 242 261 \0 254 277 n 001
0040120 360 027 \0 \0 277 ` \0 \0 l 360 320 027 \0 \0 l \b
0040140 320 027 \0 \0 277 ` \0 \0 037 021 001 \0 H l 006 \n
0040160 \0 \0 277 H 006 \0 \0 k 314 005 277 H 022 c \b 277
0040200 ` \0 \0 037 021 001 \0 H l 006 \n \0 \0 277 H 006
0040220 \0 \0 k 314 005 277 H 022 j \n \0 \0 c \n 277 `
0040240 \0 \0 037 021 001 \0 H l 006 \n \0 \0 277 H 006 \0
0040260 \0 k 314 005 277 H 022 l 005 \n \0 \0 c \f 277 `
0040300 \0 \0 037 021 001 \0 H l 006 \n \0 \0 277 H 006 \0
0040320 \0 k 314 005 277 H 022 l 006 \n \0 \0 c 016 277 l
0040340 M c 006 277 l 002 c 002 277 l 017 c 004 277 n \b
0040360 312 027 \0 \0 260 ! g \0 \0 360 262 030 l ( c 006
0040400 277 l 002 c 002 277 l \t c 004 277 n 002 254 027 \0
0040420 \0 202 \b \0 \0 277 Q R 332 k 330 c 022 S Q R
0040440 332 332 c 020 h 020 \0 ( 3 2 3 Q S H O
0040460 U L D N T 2 3 2 Q \ F L O P
0040500 P Y . S E T U P . I O C B 2 1
0040520 2 Q \ F L O P P Y . S E T U P
0040540 . I O C B 1 7 2 Q \ F L O P
0040560 P Y . S E T U P . I O C B 1 5
0040600 2 Q \ F L O P P Y . S E T U P
0040620 . I O C B 1 3 2 Q \ F L O P
0040640 P Y . S E T U P . I O C B 1 1
0040660 3 Q \ F L O P P Y . S E T U P
0040700 . I O C B 6 0 Q \ F L O P P
0040720 Y . S E T U P . I O C B 2 M
0040740 A C H I N E T Y P E ) \r ( 3 1 7
0040760 Q \ H F L O P P Y . M A X P A
0041000 G E S 2 6 7 Q D O V E 2 6
0041020 2 Q \ H F L O P P Y . M A X P
0041040 A G E S 2 1 7 Q F L O P P Y
0041060 I O C B 2 0 0 Q 004 003 F L O P
0041100 P Y I O C B T Y P E # 1 5 7 Q
0041120 F L O P P Y I O C B 1 4 0 Q
0041140 004 003 F L O P P Y I O C B T Y P
0041160 E # 1 2 0 Q F L O P P Y I O
0041200 C B 1 0 1 Q 004 003 F L O P P Y
0041220 I O C B T Y P E # 6 5 Q F L
0041240 O P P Y I O C B 4 6 Q 004 003 F
0041260 L O P P Y I O C B T Y P E # 4
0041300 2 Q \ F L O P P Y R E S U L T
0041320 3 4 Q \ F L O P P Y I O C B
0041340 2 6 Q \ I O C B P A G E 2
0041360 2 Q \ F L O P P Y I O C B A D
0041400 D R 6 D A N D E L I O N ) \r
0041420 ( ) \r \ F L O P P Y . E V E N T
0041440 F N D 1 \r ( I 1 E V E N T
0041460 I 0 F D E V ) \0 ) \0 \0 \0
0041500 002 i \t \0 \0 241 h 020 A g \0 \0 360 254 A g
0041520 \0 \0 360 246 A g \0 \0 360 264 356 \b \0 \0 277 \b
0041540 \0 \0 277 \b \0 \0 277 260 337 \0 ( 4 4 Q \
0041560 F L O P P Y . I N I T I A L I Z
0041600 E 4 0 Q \ F L O P P Y . S E
0041620 T U P . H A R D W A R E 3 4 Q
0041640 \ F L O P P Y . C L O S E 3
0041660 \ F L O P P Y . E X I S T S P
0041700 ) \r ( 2 6 Q A F T E R M A K E
0041720 S Y S 2 0 Q A F T E R S Y S
0041740 O U T 1 2 Q A F T E R L O G
0041760 O U T ) \r ( ) \r \ F L O P P Y .
0042000 H O S T N A M E P D 1 \r ( L
0042020 ( 1 F D E V 0 N A M E ) )
0042040 \0 022 \0 \0 \0 002 A 004 ` \0 \0 360 264 \n @
0042060 A 006 \0 \0 311 \0 360 020 \0 N I L \r ( 1 4
0042100 Q F D E V 4 004 003 F D E V T
0042120 Y P E # ) \r ( ) \r \ F L O P P Y
0042140 . A D D D E V I C E N A M E D
0042160 1 \r ( I 0 F I L E N A M E )
0042200 \0 024 \0 \0 \0 001 g \0 \0 ` \0 \0 006 \0 \0
0042220 311 \0 g \0 \0 @ \f \0 \0 020 \0 ( 2 1 Q
0042240 P A C K * ) \r ( 1 5 Q } 1 0
0042260 Q F D E V 5 \ F L O P P Y
0042300 F D E V 2 { ) \r ( ) \r \ F L
0042320 O P P Y . A S S U R E F I L E N
0042340 A M E A 0 0 0 1 D 1 \r ( N A M
0042360 E E R R O R S E T F 0 F
0042400 I L E N A M E ) \0 \b \0 001 002 \0 P
0042420 \t \0 \0 h 032 020 \0 ( 3 U N P A C K
0042440 F I L E N A M E ) \r N I L \r ( )
0042460 \r \ F L O P P Y . A S S U R E F
0042500 I L E N A M E A 0 0 0 2 D 1 \r
0042520 ( N A M E E R R O R S E T F
0042540 0 U N A M E ) \0 \b \0 001 002 \0
0042560 P \t \0 \0 h 032 020 \0 ( 3 P A C K F
0042600 I L E N A M E ) \r N I L \r ( ) \r
0042620 \ F L O P P Y . A S S U R E F I
0042640 L E N A M E D 1 \r ( P 1 F
0042660 I L E N A M E P 0 U N A M
0042700 E I 1 N O E R R O R I
0042720 0 F I L E ) \0 [ 002 \0 \0 002 021
0042740 001 @ d 004 ` \0 \0 360 226 277 @ 006 \0 \0 311 004
0042760 271 o \0 \0 \0 \t \0 \0 X 224 H d 001 256 277 A
0043000 221 h 020 @ l * \n \0 \0 b \0 260 327 001 X g
0043020 \0 \0 \n \0 \0 277 o \0 \0 \0 \t \0 \0 Y 231 I
0043040 d 001 o \0 \0 \0 360 235 277 A 263 327 @ l * \n
0043060 \0 \0 b \0 260 256 001 020 \0 ( 1 2 3 Q \
0043100 L I S P E R R O R 7 6 Q \ F
0043120 L O P P Y . A S S U R E F I L E
0043140 N A M E A 0 0 0 2 6 6 Q L I
0043160 S T P U T 5 2 Q \ L I S P E
0043200 R R O R 3 1 Q \ F L O P P Y
0043220 . A S S U R E F I L E N A M E A
0043240 0 0 0 1 ) \r ( 6 3 Q H O S T
0043260 1 7 Q S T R E A M 1 0 Q 004
0043300 003 S T R E A M T Y P E # ) \r (
0043320 1 0 7 Q 031 ( M K A T O M " "
0043340 ) 7 3 Q ( \ F L O P P Y . A
0043360 S S U R E F I L E N A M E A 0 0
0043400 0 2 ) 2 6 Q ( \ F L O P P Y
0043420 . A S S U R E F I L E N A M E A
0043440 0 0 0 1 ) ) \r \ F L O P P Y . O
0043460 T H E R I N F O D 1 \r ( L (
0043500 0 O T H E R I N F O ) ) \0 *
0043520 004 \0 \0 001 021 @ 003 @ 260 d 001 [ d 003 230
0043540 d 002 003 226 001 K 002 001 200 i 032 270 I 265 \a H
0043560 h 032 Z 201 H & 271 002 003 265 341 J 020 \0 N I
0043600 L \r N I L \r ( ) \r \ F L O P P Y
0043620 . L E X A S S O C D 1 \r ( P
0043640 1 B U C K E T I 1 A L I
0043660 S T I 0 K E Y ) \0 ! 002 \0
0043700 \0 002 A 021 021 001 H 003 265 004 h 020 001 271 @ I
0043720 001 \n \0 \0 264 367 @ I 001 360 221 I 020 H 002 X
0043740 260 347 \0 ( 2 1 Q A L P H O R D E
0043760 R ) \r N I L \r ( ) \r \ F L O P P
0044000 Y . L E X P U T A S S O C D 1
0044020 \r ( P 3 B U C K E T P 2
0044040 T A I L P 0 B U C K E T
0044060 I 2 A L I S T I 1 V
0044100 A L I 0 K E Y ) \0 d 004 \0
0044120 \0 003 021 020 \0 B 001 X B 245 @ A 032 h 032 020
0044140 @ d H 001 360 225 277 H A 031 B 020 H 001 \n \0
0044160 \0 225 @ A 032 B 032 020 B 002 B 021 022 003 I 003
0044200 265 \t J @ A 032 & B 020 001 273 J d 002 262 365
0044220 277 @ d K 001 360 225 277 K A 031 260 354 K 001 \n
0044240 \0 \0 231 J @ A 032 J 002 032 031 260 334 J 002 272
0044260 I 002 Y 260 314 \0 ( 1 1 7 Q A L P H
0044300 O R D E R 3 6 Q A L P H O R
0044320 D E R ) \r N I L \r ( ) \r \ F L O
0044340 P P Y . L E X R E M O V E A S S
0044360 O C D 1 \r ( P 3 B U C K E
0044400 T P 2 T A I L P 0 B
0044420 U C K E T I 1 A L I S T
0044440 I 0 K E Y ) \0 B 004 \0 \0 002 021
0044460 020 \0 A 001 X A 264 025 @ H 001 360 222 A 002 020
0044500 A 002 A 021 022 003 I 003 265 004 A 020 001 273 J 002
0044520 262 372 @ d K 001 360 230 277 J d 002 002 031 277 260
0044540 353 K 001 \n \0 \0 263 344 J 002 272 I 002 Y 260 331
0044560 \0 ( 6 6 Q A L P H O R D E R )
0044600 \r N I L \r ( ) \r \ F L O P P Y .
0044620 C A C H E D . R E A D D 1 \r (
0044640 P 0 A N S W E R I 0 N
0044660 O E R R O R ) \0 030 001 \0 \0 001 021 020
0044700 \0 i \t \0 \0 243 \b \0 \0 277 @ \t \0 \0 264 006
0044720 @ \t \0 \0 020 \0 ( 2 5 Q \ F L O P
0044740 P Y . O P E N 1 7 Q \ F L O
0044760 P P Y . U N C A C H E D . R E A
0045000 D 1 2 Q \ F L O P P Y . C L
0045020 O S E 6 \ F L O P P Y . C A
0045040 N . R E A D P ) \r N I L \r ( ) \r
0045060 \ F L O P P Y . C A C H E D . W
0045100 R I T E D 1 \r ( P 0 A N S
0045120 W E R I 0 N O E R R O R )
0045140 \0 030 001 \0 \0 001 021 020 \0 i \t \0 \0 243 \b
0045160 \0 \0 277 @ \t \0 \0 264 006 @ \t \0 \0 020 \0 (
0045200 2 5 Q \ F L O P P Y . O P E N
0045220 1 7 Q \ F L O P P Y . U N C
0045240 A C H E D . W R I T E 1 2 Q
0045260 \ F L O P P Y . C L O S E 6
0045300 \ F L O P P Y . C A N . R E A D
0045320 P ) \r N I L \r ( ) \r \ F L O P P
0045340 Y . O P E N D 1 \r ( I 0 N
0045360 O E R R O R ) \0 / \0 \0 \0 001 ` \0
0045400 \0 ` \0 \0 360 257 ` \0 \0 ` \0 \0 360 247 ` \0
0045420 \0 ` \0 \0 360 224 @ \t \0 \0 020 ` \0 \0 ` \0
0045440 \0 360 224 @ \t \0 \0 020 \b \0 \0 020 \0 ( 5 4
0045460 Q S H O U L D N T 5 0 Q \
0045500 C F L O P P Y . O P E N 3 3 Q
0045520 \ P F L O P P Y . O P E N ) \r
0045540 ( 4 2 Q \ F L O P P Y F D E V
0045560 3 7 Q \ C F L O P P Y F D E
0045600 V 2 5 Q \ F L O P P Y F D E
0045620 V 2 2 Q \ S F L O P P Y F D
0045640 E V 1 5 Q \ F L O P P Y F D
0045660 E V 1 2 Q \ H F L O P P Y F
0045700 D E V 5 \ F L O P P Y F D E
0045720 V 2 \ P F L O P P Y F D E V
0045740 ) \r ( ) \r \ F L O P P Y . C L O
0045760 S E D 1 \r N I L \0 ] \0 \0 \0 \0
0046000 ` \0 \0 ` \0 \0 360 227 ` \0 \0 006 \0 \0 260 E
0046020 ` \0 \0 ` \0 \0 360 262 024 ` \0 \0 006 \0 \0 h
0046040 024 \0 277 ` \0 \0 006 \0 \0 260 * ` \0 \0 ` \0
0046060 \0 360 262 023 ` \0 \0 006 \0 \0 h 024 \0 277 ` \0
0046100 \0 006 \0 \0 215 ` \0 \0 ` \0 \0 360 231 ` \0 \0
0046120 006 \0 \0 h 024 \0 277 \b \0 \0 h 020 \0 ( 1 3
0046140 1 Q \ F L O P P Y . F L U S H
0046160 ) \r ( 1 2 2 Q C I N F O 1 1
0046200 7 Q \ C F L O P P Y I N F O
0046220 1 1 2 Q \ F L O P P Y F D E V
0046240 1 0 7 Q \ C F L O P P Y F D
0046260 E V 1 0 3 Q P F I N F O 1
0046300 0 0 Q \ P F L O P P Y I N F O
0046320 7 1 Q P F I N F O 6 6 Q
0046340 \ S F L O P P Y I N F O 6 0 Q
0046360 \ F L O P P Y F D E V 5 5 Q
0046400 \ S F L O P P Y F D E V 5 0
0046420 Q P F I N F O 4 5 Q \ P F
0046440 L O P P Y I N F O 3 6 Q P F
0046460 I N F O 3 3 Q \ H F L O P P
0046500 Y I N F O 2 5 Q \ F L O P P
0046520 Y F D E V 2 2 Q \ H F L O P
0046540 P Y F D E V 1 5 Q P F I N F
0046560 O 1 2 Q \ P F L O P P Y I N
0046600 F O 5 \ F L O P P Y F D E V
0046620 2 \ P F L O P P Y F D E V )
0046640 \r ( ) \r \ F L O P P Y . F L U S
0046660 H D 1 \r ( P 1 S T R E A M
0046700 F 2 \ O P E N F I L E S )
0046720 \0 S 002 001 \0 \0 \b \0 \0 d g \0 \0 360 245
0046740 d g \0 \0 360 222 277 i 201 277 h 247 R 021 021 001
0046760 H 003 265 004 h 020 001 Y 006 \0 \0 311 006 ` \0 \0
0047000 360 262 # I R \n \0 \0 c 004 277 I 006 \0 \0 g
0047020 \0 \0 024 , 277 I 006 \0 \0 g \0 \0 024 . 277 I
0047040 \t \0 \0 277 H 002 X 260 312 \0 ( 1 1 3 Q
0047060 \ S E T A C C E S S 6 0 Q D
0047100 R E M O V E 2 F L O P P Y .
0047120 M O D E ) \r ( 1 0 4 Q \ S T R
0047140 E A M . N O T . O P E N 1 0 1
0047160 Q S T R E A M 7 2 Q \ S T
0047200 R E A M . N O T . O P E N 6 7
0047220 Q S T R E A M 5 0 Q \ F L
0047240 O P P Y F D E V 4 3 Q S T R
0047260 E A M 1 4 Q H U G E P I L O
0047300 T 6 S Y S O U T ) \r ( ) \r \
0047320 F L O P P Y . U N C A C H E D .
0047340 R E A D D 1 \r ( I 0 N O E
0047360 R R O R ) \0 036 \0 \0 \0 001 @ \t \0 \0
0047400 241 h 020 i \t \0 \0 256 @ \t \0 \0 277 @ \t \0
0047420 \0 264 361 @ \t \0 \0 i 020 \0 ( 3 2 Q \
0047440 F L O P P Y . R E C A L I B R A
0047460 T E 2 4 Q \ F L O P P Y . C
0047500 A N . R E A D P 1 7 Q \ F L
0047520 O P P Y . I N I T I A L I Z E
0047540 1 2 Q \ F L O P P Y . C A N .
0047560 R E A D P 3 \ F L O P P Y .
0047600 E X I S T S P ) \r N I L \r ( ) \r
0047620 \ F L O P P Y . U N C A C H E D
0047640 . W R I T E D 1 \r ( I 0 N
0047660 O E R R O R ) \0 036 \0 \0 \0 001 @ \t
0047700 \0 \0 241 h 020 i \t \0 \0 256 @ \t \0 \0 277 @
0047720 \t \0 \0 264 361 @ \t \0 \0 i 020 \0 ( 3 2 Q
0047740 \ F L O P P Y . R E C A L I B
0047760 R A T E 2 4 Q \ F L O P P Y
0050000 . C A N . W R I T E P 1 7 Q
0050020 \ F L O P P Y . I N I T I A L I
0050040 Z E 1 2 Q \ F L O P P Y . C
0050060 A N . W R I T E P 3 \ F L O
0050100 P P Y . E X I S T S P ) \r N I L
0050120 \r ( ) \r \ F L O P P Y . E X I S
0050140 T S P D 1 \r ( I 0 N O E R
0050160 R O R ) \0 # \0 \0 \0 001 \b \0 \0 d g
0050200 \0 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 221
0050220 i 020 @ 246 o \0 \0 \0 \t \0 \0 h 020 \0 ( 3
0050240 7 Q \ F L O P P Y . B R E A K
0050260 2 M A C H I N E T Y P E ) \r
0050300 ( 1 4 Q D O V E 6 D A N D
0050320 E L I O N ) \r ( 3 4 Q " N o
0050340 f l o p p y d r i v e o n
0050360 t h i s m a c h i n e " ) \r
0050400 \ F L O P P Y . B R E A K D 1
0050420 \r ( I 0 M E S S A G E ) \0
0050440 021 \0 \0 \0 001 @ i \n \0 \0 g \0 \0 l 005 i
0050460 \v \0 \0 h 020 \0 ( 1 5 Q \ L I S P
0050500 E R R O R 4 \ F L O P P Y .
0050520 M E S S A G E ) \r ( 7 { F L O
0050540 P P Y } ) \r ( ) \r \ F L O P P Y
0050560 . M E S S A G E D 1 \r ( I 1
0050600 S T R E A M I 0 M E S S
0050620 A G E ) \0 033 \0 \0 \0 002 A 265 \a ` \0
0050640 \0 b 002 \t \0 \0 o \0 \0 \0 A \n \0 \0 @ A
0050660 \n \0 \0 h 020 \0 ( 2 7 Q P R I N 1
0050700 2 2 Q P R I N 1 1 2 Q F
0050720 R E S H L I N E ) \r ( 5 P R O
0050740 M P T W I N D O W ) \r ( 1 6 Q
0050760 " F l o p p y : " ) \r \ F L
0051000 O P P Y . B U F F E R D 1 \r (
0051020 I 0 N ) \0 \r \0 \0 \0 001 @ l 200
0051040 332 h d l 200 \f \0 \0 020 \0 ( 1 2 Q \
0051060 A L L O C B L O C K ) \r N I L \r
0051100 ( ) \r \ P F L O P P Y . I N I T
0051120 D 1 \r N I L \0 312 \0 \0 \0 \0 ` \0
0051140 \0 037 027 \0 \0 ` \0 \0 037 d g \0 \0 024 \0 277
0051160 d k 317 \0 277 d g \0 \0 024 002 277 d g \0
0051200 \0 024 004 277 d g \0 \0 024 006 277 d g \0 \0 024
0051220 \b 277 d g \0 \0 024 \n 277 d g \0 \0 024 \f 277
0051240 d g \0 \0 024 016 277 d g \0 \0 024 020 277 d g
0051260 \0 \0 024 022 277 d g \0 \0 024 024 277 d g \0 \0
0051300 024 026 277 d g \0 \0 024 030 277 d g \0 \0 024 032
0051320 277 d g \0 \0 024 034 277 d ` \0 \0 024 ( 277 d
0051340 g \0 \0 024 : 277 d g \0 \0 024 8 277 d g \0
0051360 \0 024 6 277 d g \0 \0 024 4 277 d g \0 \0 024
0051400 2 277 d g \0 \0 024 0 277 d g \0 \0 024 . 277
0051420 d g \0 \0 024 * 277 d g \0 \0 024 $ 277 027 \0
0051440 \0 d \t \0 \0 h 020 \0 ( 3 0 6 Q \ M
0051460 A K E . P M A P . D E V I C E )
0051500 \r ( 3 0 2 Q \ P F L O P P Y F
0051520 D E V 2 7 4 Q \ G E N E R I
0051540 C . R E A D P 2 6 5 Q N I L
0051560 L 2 5 6 Q \ I S . N O T . R
0051600 A N D A C C E S S P 2 4 7 Q
0051620 \ I L L E G A L . D E V I C E O
0051640 P 2 4 0 Q \ I S . N O T . R
0051660 A N D A C C E S S P 2 3 1 Q
0051700 \ I L L E G A L . D E V I C E O
0051720 P 2 2 2 Q \ G E N E R I C .
0051740 B I N S 2 1 3 Q \ G E N E R
0051760 I C . B O U T S 2 0 4 Q \ P
0052000 F L O P P Y . R E N A M E F I L
0052020 E 1 7 5 Q \ P F L O P P Y I
0052040 N F O 1 6 6 Q \ P F L O P P
0052060 Y . W R I T E P A G E S 1 5 7
0052100 Q \ P F L O P P Y . T R U N C
0052120 A T E F I L E 1 5 0 Q \ P F
0052140 L O P P Y . S E T F I L E I N F
0052160 O 1 4 1 Q \ P F L O P P Y .
0052200 O P E N F I L E 1 3 2 Q \ P
0052220 F L O P P Y . R E A D P A G E S
0052240 1 2 3 Q \ P F L O P P Y . O
0052260 P E N F I L E 1 1 4 Q \ F L
0052300 O P P Y . H O S T N A M E P 1
0052320 0 5 Q \ P F L O P P Y . G E T
0052340 F I L E N A M E 7 6 Q \ P F
0052360 L O P P Y . G E T F I L E I N F
0052400 O 6 7 Q \ P F L O P P Y . G
0052420 E N E R A T E F I L E S 6 0 Q
0052440 \ F L O P P Y . E V E N T F N
0052460 5 1 Q T R U E 4 2 Q \ P
0052500 F L O P P Y . D E L E T E F I L
0052520 E 3 3 Q \ P F L O P P Y . C
0052540 L O S E F I L E 1 6 Q F L O
0052560 P P Y 1 1 Q 004 003 F D E V T Y
0052600 P E # 6 \ P F L O P P Y I N
0052620 F O 2 004 003 P F I N F O T Y P
0052640 E # ) \r ( ) \r \ P F L O P P Y .
0052660 O P E N D 1 \r N I L \0 h \0 \0
0052700 \0 \0 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 \0 263
0052720 X ` \0 \0 006 \0 \0 311 ( 006 \0 \0 h 024 002 277
0052740 h 027 \0 \0 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 h
0052760 024 004 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 h 024 006
0053000 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 h 024 \b 277 h
0053020 027 \0 \0 \b \0 \0 \b \0 \0 ` \0 \0 006 \0 \0 311
0053040 ( 006 \0 \0 i 024 \0 i 020 \0 ( 1 2 6 Q
0053060 \ P F L O P P Y . O P E N . P F
0053100 I L E L I S T 1 2 3 Q \ P F
0053120 L O P P Y . O P E N . P S E C T
0053140 O R 9 ) \r ( 1 4 1 Q P F I N F
0053160 O 1 3 4 Q F D E V 1 3 1 Q
0053200 \ F L O P P Y F D E V 1 2 0
0053220 Q \ P F L O P P Y P S E C T O
0053240 R 9 1 1 0 Q P F I N F O 1
0053260 0 3 Q F D E V 1 0 0 Q \ F
0053300 L O P P Y F D E V 7 2 Q P F
0053320 I N F O 6 5 Q F D E V 6 2
0053340 Q \ F L O P P Y F D E V 5 4
0053360 Q P F I N F O 4 7 Q F D E
0053400 V 4 4 Q \ F L O P P Y F D E
0053420 V 4 1 Q \ P F L O P P Y P F
0053440 I L E L I S T 3 1 Q P F I N
0053460 F O 2 4 Q F D E V 2 1 Q
0053500 \ F L O P P Y F D E V 1 2 Q
0053520 P F I N F O 5 F D E V 2
0053540 \ F L O P P Y F D E V ) \r ( ) \r
0053560 \ P F L O P P Y . O P E N . P S
0053600 E C T O R 9 D 1 \r ( P 0 P
0053620 S E C T O R 9 ) \0 ( 001 \0 \0 \0 021
0053640 020 \0 \b \0 \0 X 251 o \0 \0 \0 \t \0 \0 277 260
0053660 363 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 H 024 \b 277
0053700 H 027 \0 \0 h 020 \0 ( 1 6 Q \ F L O
0053720 P P Y . B R E A K 5 \ P F L
0053740 O P P Y . G E T . P S E C T O R
0053760 9 ) \r ( 4 4 Q \ P F L O P P Y
0054000 P S E C T O R 9 3 4 Q P F I
0054020 N F O 2 7 Q F D E V 2 4 Q
0054040 \ F L O P P Y F D E V ) \r (
0054060 1 3 Q " N o t a p i l o t
0054100 f l o p p y " ) \r \ P F L O P
0054120 P Y . G E T . P S E C T O R 9
0054140 D 1 \r ( P 2 \ F L O P P Y .
0054160 I B M S 1 2 8 . F L O P P Y I O
0054200 C B P 0 P S E C T O R 9 )
0054220 \0 [ 003 \0 \0 \0 021 001 ` \0 \0 265 K `
0054240 \0 \0 037 Y l 006 \n \0 \0 277 I 006 \0 \0 k 314
0054260 005 277 I j \n \0 \0 021 001 002 J l \t ` \0 \0
0054300 037 i \f \0 \0 270 J 027 \0 \0 023 H d 262 # 006
0054320 \0 \0 310 \0 n 303 \f 331 j 360 264 026 H 006 \0 \0
0054340 310 025 l j 361 250 H 020 h 027 \0 \0 277 260 312 h
0054360 020 \0 ( 5 5 Q \ F L O P P Y . R
0054400 E A D S E C T O R 3 7 Q \ F
0054420 L O P P Y . S E T U P . I O C B
0054440 2 1 Q \ F L O P P Y . S E T
0054460 U P . I O C B ) \r ( 1 2 4 Q \
0054500 \ F L O P P Y . I B M S 1 2 8 .
0054520 F L O P P Y I O C B . G L O B A
0054540 L R E S O U R C E 1 1 0 Q P
0054560 S E C T O R 9 7 2 Q P S E C
0054600 T O R 9 6 2 Q \ \ F L O P P
0054620 Y . I B M S 1 2 8 . F L O P P Y
0054640 I O C B . G L O B A L R E S O U
0054660 R C E 5 0 Q 004 003 P S E C T O
0054700 R 9 T Y P E # 2 6 Q F L O P
0054720 P Y I O C B 1 2 Q 004 003 F L O
0054740 P P Y I O C B T Y P E # 5 \
0054760 \ F L O P P Y . I B M S 1 2 8 .
0055000 F L O P P Y I O C B . G L O B A
0055020 L R E S O U R C E ) \r ( ) \r \ P
0055040 F L O P P Y . O P E N . P F I L
0055060 E L I S T D 1 \r ( P 2 0 Q
0055100 P F A L L O C P 1 3 Q S T
0055120 A R T P 6 P F A L L O C S
0055140 P 5 P F A L L O C P 4
0055160 P L P A G E P 3 P M P A
0055200 G E P 2 F I L E N A M E
0055220 P 1 P F I L E L I S T P
0055240 0 P S E C T O R 9 F 2 1 Q
0055260 \ P F L O P P Y F I R S T D A
0055300 T A P A G E F 2 2 Q \ P F
0055320 L O P P Y L A S T D A T A P A G
0055340 E ) 001 303 021 002 \0 \0 021 260 \n ` \0 \0 006
0055360 \0 \0 311 ( 006 \0 \0 311 \b X 006 \0 \0 310 \b \t
0055400 \0 \0 271 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 I 024
0055420 002 277 I 027 \0 \0 277 H 006 \0 \0 l 022 320 k \n
0055440 \0 \0 277 W " k 330 021 001 \v ` \0 \0 037 273 O
0055460 026 k 331 K \n \0 \0 277 K 006 \0 \0 310 \0 n 2
0055500 313 331 j 360 250 \b \0 \0 277 h ^ 023 260 240 K 006
0055520 \0 \0 310 206 n \b 004 360 264 r ` \0 \0 037 274 O
0055540 026 L \n \0 \0 277 L 006 \0 \0 310 \0 n 252 252 331
0055560 j 360 231 L 006 \0 \0 310 017 l d 361 231 \b \0 \0
0055600 277 h ^ 023 261 377 h l \a 037 L l 021 320 _ 022
0055620 277 L 006 \0 \0 310 017 _ 016 277 l d O 016 361 222
0055640 O 016 201 l d _ 020 277 d O 020 315 002 277 d j
0055660 317 \0 C 277 d j 317 \0 020 277 d k 317 \0 \0 277
0055700 d O 022 024 \0 277 \t \0 \0 213 274 K 006 \0 \0 310
0055720 206 \t \0 \0 h 032 272 ` \0 \0 037 d J 024 \0 277
0055740 d O 026 024 006 277 d K 024 \b 277 d L 024 \n 277
0055760 275 K 006 \0 \0 310 206 j 360 244 M \t \0 \0 277 M
0056000 N 032 276 O 026 d W $ k 330 331 j 360 262 024 023
0056020 N \t \0 \0 ^ 002 N 021 " 017 O 032 003 265 032 260
0056040 ! K 006 \0 \0 _ 024 310 202 O 024 310 201 365 k 330
0056060 330 _ 026 277 261 376 366 001 _ 034 277 O 030 003 265 035
0056100 023 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 N 024 004 277
0056120 N 021 021 020 O 036 003 265 + h 020 001 _ 036 262 342
0056140 O 034 006 \0 \0 O 036 024 004 277 O 036 006 \0 \0 O
0056160 034 316 002 277 O 032 002 _ 032 277 O 030 002 _ 030 277
0056200 260 232 001 _ 006 \0 \0 311 \b 006 \0 \0 310 206 n
0056220 \b 004 360 237 O 006 \0 \0 311 \0 g \0 \0 O
0056240 \v \0 \0 277 O 036 002 _ 036 260 255 \0 ( 6 7 1
0056260 Q \ P F L O P P Y . D I R . P
0056300 U T 4 5 2 Q D R E V E R S E
0056320 4 2 4 Q \ P F L O P P Y . A
0056340 D D . T O . P F I L E L I S T
0056360 3 5 2 Q \ F L O P P Y . T R A
0056400 N S L A T E F I L E T Y P E 3
0056420 3 7 Q M K A T O M 2 2 6 Q
0056440 \ P F L O P P Y . D A M A G E D
0056460 1 7 3 Q \ P F L O P P Y . R
0056500 E A D P A G E N O 1 3 6 Q \
0056520 P F L O P P Y . D A M A G E D
0056540 1 1 5 Q \ P F L O P P Y . R E
0056560 A D P A G E N O 7 0 Q \ P U
0056600 T S W A P P E D F I X P 3 0 Q
0056620 \ P F L O P P Y . C R E A T E
0056640 . P F I L E L I S T ) \r ( 6 6 4
0056660 Q O L D 6 5 7 Q P F A L L
0056700 O C 6 4 3 Q P M P A G E 6
0056720 3 6 Q P F A L L O C 6 0 5 Q
0056740 P F A L L O C 5 7 3 Q P F
0056760 A L L O C 5 4 2 Q P F I N F
0057000 O 5 3 5 Q F D E V 5 3 2 Q
0057020 \ F L O P P Y F D E V 4 7 3
0057040 Q P M P A G E 4 1 3 Q P M
0057060 P A G E 3 6 0 Q 004 003 P F A L
0057100 L O C T Y P E # 3 4 5 Q P M
0057120 P A G E 2 5 3 Q P L P A G E
0057140 2 1 5 Q P L P A G E 2 0 0
0057160 Q P L P A G E 1 6 3 Q 004 003
0057200 P L P A G E T Y P E # 1 5 0 Q
0057220 P M P A G E 1 2 2 Q P M P
0057240 A G E 1 0 3 Q 004 003 P M P A G
0057260 E T Y P E # 6 1 Q P S E C T
0057300 O R 9 5 4 Q \ P F L O P P Y
0057320 P F I L E L I S T 4 4 Q P F
0057340 I N F O 3 7 Q F D E V 3 4
0057360 Q \ F L O P P Y F D E V 2 3
0057400 Q P S E C T O R 9 1 5 Q P
0057420 F I N F O 1 0 Q F D E V 5
0057440 \ F L O P P Y F D E V ) \r ( )
0057460 \r \ P F L O P P Y . D A M A G E
0057500 D D 1 \r N I L \0 \n \0 \0 \0 \0 o
0057520 \0 \0 \0 \t \0 \0 h 020 \0 ( 6 \ F L O
0057540 P P Y . B R E A K ) \r N I L \r (
0057560 3 " D a m a g e d f l o p
0057600 p y . N e e d s s c a v e
0057620 n g i n g . " ) \r \ P F L O P P
0057640 Y . O P E N F I L E A 0 0 0 1
0057660 D 1 \r ( N A M E E R R O R S E
0057700 T F 0 A C C E S S ) \0 020
0057720 \0 001 002 \0 P g \0 \0 360 223 \b \0 \0 202 \b \0
0057740 \0 i 020 \0 ( 1 4 Q \ F L O P P Y
0057760 . C A C H E D . W R I T E 1 0
0060000 Q \ F L O P P Y . C A C H E D
0060020 . R E A D ) \r ( 3 I N P U T )
0060040 \r ( ) \r \ P F L O P P Y . O P E
0060060 N F I L E D 1 \r ( P 4 B U
0060100 C K E T P 3 F U L L F I L
0060120 E N A M E P 2 P F A L L O
0060140 C P 1 W A I T P 0 S
0060160 T R E A M I 5 O L D S T R
0060200 E A M I 4 F D E V I 3
0060220 O T H E R I N F O I 2 R
0060240 E C O G I 1 A C C E S S
0060260 I 0 F I L E ) \0 260 005 \0 \0 006
0060300 @ A B C D E \r 006 \0 \0 265 003 202 261 \0 241
0060320 021 @ 003 C \t \0 \0 b 006 277 o \0 \0 \0 \t \0
0060340 \0 247 @ l \t \n \0 \0 260 361 @ d 004 ` \0 \0
0060360 360 244 B C \v \0 \0 X d 262 u 006 \0 \0 311 \f
0060400 272 A d g \0 \0 360 263 R 277 g \0 \0 C 026 002
0060420 Y 262 031 H \t \0 \0 225 \b \0 \0 277 260 367 J 006
0060440 \0 \0 k 317 \f \0 277 C 260 - J 006 \0 \0 312 \f
0060460 \0 j 360 263 364 H 006 \0 \0 311 004 [ l \t i \v
0060500 \0 \0 b \0 260 225 d 001 021 001 004 H L 001 L 002
0060520 \v \0 \0 023 002 003 265 360 A g \0 \0 360 236 H 006
0060540 \0 \0 j 315 \n 277 H 006 \0 \0 j 315 \v H 020 \0
0060560 ( 2 2 2 Q \ P F L O P P Y . S
0060600 E T F I L E I N F O 2 0 1 Q
0060620 \ L I S P E R R O R 1 3 2 Q
0060640 B L O C K 1 2 6 Q \ P F L O
0060660 P P Y . S T R E A M S . A G A I
0060700 N S T 6 6 Q \ P F L O P P Y
0060720 . O P E N F I L E 1 4 7 Q \
0060740 L I S P E R R O R 4 0 Q \ P
0060760 F L O P P Y . O P E N F I L E A
0061000 0 0 0 1 2 6 Q \ F L O P P Y
0061020 . O T H E R I N F O 1 1 Q \
0061040 S F L O P P Y . H A C K ) \r ( 2
0061060 5 1 Q S T R E A M 2 4 1 Q
0061100 S T R E A M 2 3 3 Q O U T P
0061120 U T 1 7 0 Q S T R E A M 1
0061140 5 5 Q P F A L L O C 1 4 1 Q
0061160 P F A L L O C 1 1 4 Q W A
0061200 I T 1 0 5 Q I N P U T 7 5
0061220 Q S T R E A M 5 7 Q 004 003 S
0061240 T R E A M T Y P E # ) \r ( 3 5
0061260 Q ( \ P F L O P P Y . O P E N
0061300 F I L E A 0 0 0 1 ) ) \r \ P F L
0061320 O P P Y . O P E N F I L E 1 A 0
0061340 0 0 1 D 1 \r ( N A M E E R R
0061360 O R S E T P 5 S T R E A M
0061400 P 4 I D A T E P 3 P
0061420 L P A G E P 2 P F A L L O
0061440 C P 1 E X T E N S I O N
0061460 P 0 F I L E N A M E F 6
0061500 R E C O G F 7 O T H E R
0061520 I N F O F 1 0 Q F I L E
0061540 F 1 1 Q R E S E T Y ) \0 205
0061560 006 004 002 \0 ` \0 \0 h i \v \0 \0 277 021 ` 005
0061600 W 020 \t \0 \0 X V \n \0 \0 272 V d g \0 \0
0061620 360 246 d g \0 \0 360 262 024 277 J 265 \v H V W
0061640 016 \v \0 \0 260 2 \t \0 \0 260 - d g \0 \0 360
0061660 236 277 J 250 H V W 016 \v \0 \0 260 033 h 260 030
0061700 d g \0 \0 360 245 d g \0 \0 360 225 277 J \t \0
0061720 \0 203 277 \b \0 \0 ] 265 034 V d g \0 \0 360 245
0061740 d g \0 \0 360 232 277 H l \t i \v \0 \0 270 260
0061760 221 277 h 022 c 022 i 020 \0 ( 1 7 1 Q \
0062000 L I S P E R R O R 1 4 1 Q S
0062020 H O U L D N T 1 3 4 Q \ P F
0062040 L O P P Y . O P E N O L D F I L
0062060 E 1 0 6 Q \ P F L O P P Y .
0062100 O P E N N E W F I L E 6 4 Q
0062120 \ P F L O P P Y . O P E N O L D
0062140 F I L E 5 7 Q \ P F L O P P
0062160 Y . O P E N N E W F I L E 2 5
0062200 Q \ P F L O P P Y . D I R . G
0062220 E T 2 0 Q \ F L O P P Y . A
0062240 S S U R E F I L E N A M E 7
0062260 O B T A I N . M O N I T O R L O
0062300 C K ) \r ( 1 5 7 Q O L D / N E
0062320 W 1 5 1 Q N E W 1 2 5 Q
0062340 O L D E S T 1 1 7 Q O L D
0062360 7 2 Q N E W 4 1 Q O L D /
0062400 N E W 3 3 Q E X A C T 2
0062420 \ F L O P P Y L O C K ) \r ( ) \r
0062440 \ P F L O P P Y . O P E N F I L
0062460 E 1 D 1 \r ( P 2 R E S E T
0062500 Z P 1 R E S E T Y P 0
0062520 L I S P X H I S T I 2 O
0062540 T H E R I N F O I 1 R E C
0062560 O G I 0 F I L E F 3
0062600 L I S P X H I S T F 4 R E
0062620 S E T V A R S L S T ) \0 " 003 002
0062640 \0 003 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0
0062660 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0
0062700 020 I 020 \0 ( 3 5 Q E R R O R !
0062720 3 0 Q R E S E T R E S T O R E
0062740 1 6 Q \ P F L O P P Y . O P
0062760 E N F I L E 1 A 0 0 0 1 ) \r ( 2
0063000 4 Q E R R O R 1 3 Q I N T
0063020 E R N A L ) \r ( 1 0 Q ( \ P
0063040 F L O P P Y . O P E N F I L E 1
0063060 A 0 0 0 1 ) ) \r \ P F L O P P Y
0063100 . O P E N O L D F I L E D 1 \r
0063120 ( P 1 S T R E A M P 0
0063140 P L P A G E I 0 P F A L L
0063160 O C ) 001 k 021 \0 \0 001 021 360 016 021 020
0063200 @ d 242 261 001 ` 006 \0 \0 311 \n X ` \0 \0 037
0063220 d ` \0 \0 024 006 277 @ 006 \0 \0 311 \0 \t \0 \0
0063240 272 d J 024 004 277 H 006 \0 \0 [ 310 \n K 310 \t
0063260 365 H 006 \0 \0 \ 310 \b L 310 \a 365 330 H 006 \0
0063300 \0 ] 310 \f M 310 \v 365 375 361 262 023 H 006 \0 \0
0063320 ^ 310 \b N 310 \a 365 n 002 \0 332 260 ! H 006 \0
0063340 \0 _ 016 310 016 O 016 310 \r 365 H 006 \0 \0 _ 020
0063360 310 \n O 020 310 \t 365 n 002 \0 332 331 n 002 \0 333
0063400 _ 022 277 d O 022 315 \n 277 H 006 \0 \0 _ 024 310
0063420 \n O 024 310 \t 365 H 006 \0 \0 _ 026 310 \b O 026
0063440 310 \a 365 330 H 006 \0 \0 _ 030 310 \f O 030 310 \v
0063460 365 375 361 262 025 H 006 \0 \0 _ 032 310 \b O 032 310
0063500 \a 365 n 002 \0 332 260 ! H 006 \0 \0 _ 034 310 016
0063520 O 034 310 \r 365 H 006 \0 \0 _ 036 310 \n O 036 310
0063540 \t 365 n 002 \0 332 331 n 002 \0 334 _ 277 d O
0063560 315 \v 277 d g \0 \0 024 . 277 d g \0 \0 024
0063600 , 277 d ` \0 \0 024 & 277 d g \0 \0 024 " 277
0063620 d g \0 \0 024 277 d j 317 030 001 277 d ` \0
0063640 \0 315 037 277 d j 315 035 277 d ` \0 \0 315 034 277
0063660 d h 024 030 277 d l \b 317 024 \a 277 d j 317 004
0063700 R 277 d k 317 004 @ 277 d k 317 004 0 277 d h
0063720 024 002 277 Y d 006 \0 \0 @ 024 \f I 006 \0 \0 H
0063740 024 016 I 020 \0 ( 4 5 Q \ F L O P P
0063760 Y . A D D D E V I C E N A M E )
0064000 \r ( 5 4 4 Q S T R E A M 5 3
0064020 5 Q S T R E A M 4 6 2 Q \
0064040 S T R E A M . D E F A U L T . M
0064060 A X B U F F E R S 4 4 6 Q F
0064100 I L E L I N E L E N G T H 4 3
0064120 1 Q \ F I L E O U T C H A R F
0064140 N 4 2 2 Q \ E O S E R R O R
0064160 4 1 3 Q \ N O I M A G E O P
0064200 S 4 0 4 Q \ S T R E A M . N
0064220 O T . O P E N 3 7 5 Q \ S T
0064240 R E A M . N O T . O P E N 3 3
0064260 6 Q P L P A G E 3 2 1 Q P
0064300 L P A G E 2 7 6 Q P L P A G
0064320 E 2 5 5 Q P L P A G E 2 3
0064340 7 Q P L P A G E 2 2 2 Q P
0064360 L P A G E 1 6 3 Q P L P A G
0064400 E 1 4 6 Q P L P A G E 1 2
0064420 5 Q P L P A G E 1 0 6 Q P
0064440 L P A G E 7 2 Q P L P A G E
0064460 5 7 Q P L P A G E 4 0 Q
0064500 P F A L L O C 3 1 Q \ F L O
0064520 P P Y F D E V 2 4 Q 004 003 S T
0064540 R E A M T Y P E # 1 6 Q P F
0064560 A L L O C ) \r ( ) \r \ P F L O P
0064600 P Y . O P E N N E W F I L E D
0064620 1 \r ( P 1 3 Q V A L U E P
0064640 4 S T R E A M P 3 I D
0064660 A T E P 2 P L P A G E P
0064700 1 P F A L L O C P 0 L
0064720 E N G T H I 2 O T H E R I
0064740 N F O I 1 R E C O G I
0064760 0 F I L E N A M E ) 001 262 \f \0
0065000 \0 003 021 260 \n g \0 \0 B 026 002 X d 264 016 d
0065020 n 001 377 330 n 002 \0 333 k 330 X \t \0 \0 Y @
0065040 A I \v \0 \0 \b \0 \0 [ g \0 \0 B 026 002 275
0065060 ` \0 \0 037 d k 315 F 277 d n \b 256 315 E 277
0065100 d l 273 315 D 277 d l 002 315 C 277 d l d 315
0065120 020 277 d n 377 377 315 002 277 d k 315 001 277 d n
0065140 252 252 315 \0 277 ^ d 006 \0 \0 l 003 320 K \t \0
0065160 \0 \n \0 \0 277 N 006 \0 \0 l 005 320 K \t \0 \0
0065200 \n \0 \0 277 M d 003 220 001 g \0 \0 360 225 N 006
0065220 \0 \0 k 205 N 006 \0 \0 l 002 315 F 277 Z 021 020
0065240 \v I 006 \0 \0 311 \0 \t \0 \0 \t \0 \0 _ 026 277
0065260 J 006 \0 \0 O 026 \t \0 \0 _ 016 277 l d O 016
0065300 361 222 O 016 201 l d 315 017 277 l \a 037 J l 021
0065320 320 _ 022 277 J 006 \0 \0 310 017 _ 020 277 d O 020
0065340 315 002 277 d j 317 \0 C 277 d j 317 \0 020 277 d
0065360 k 317 \0 \0 277 d O 022 024 \0 277 k O 026 k J
0065400 006 \0 \0 310 017 \v \0 \0 \v \0 \0 023 I 006 \0 \0
0065420 J 024 \n I \t \0 \0 ` \0 \0 037 d ` \0 \0 024
0065440 006 277 I 006 \0 \0 311 \0 \t \0 \0 _ 024 277 d O
0065460 024 024 004 277 d j 315 \n 277 d j 315 \v 277 d g
0065500 \0 \0 024 . 277 d g \0 \0 024 , 277 d ` \0 \0
0065520 024 & 277 d g \0 \0 024 " 277 d g \0 \0 024
0065540 277 d j 317 030 001 277 d ` \0 \0 315 037 277 d j
0065560 315 035 277 d ` \0 \0 315 034 277 d h 024 030 277 d
0065600 l \b 317 024 \a 277 d j 317 004 R 277 d k 317 004
0065620 @ 277 d k 317 004 0 277 d h 024 002 277 \ d 006
0065640 \0 \0 I 024 \f L 006 \0 \0 I 006 \0 \0 311 \n 024
0065660 016 L 020 \0 ( 4 5 0 Q \ F L O P P
0065700 Y . A D D D E V I C E N A M E
0065720 4 2 4 Q \ P F L O P P Y . A D
0065740 D . T O . P F I L E L I S T 4
0065760 1 0 Q R P L S T R I N G 4 0
0066000 5 Q S U B S T R I N G 2 6 6
0066020 Q N C H A R S 2 5 2 Q M K
0066040 S T R I N G 2 4 7 Q M K S T
0066060 R I N G 2 0 0 Q \ P U T S W
0066100 A P P E D F I X P 1 7 5 Q \
0066120 F L O P P Y . L T M . I D A T E
0066140 1 6 1 Q \ P U T S W A P P E
0066160 D F I X P 1 5 6 Q \ F L O P
0066200 P Y . L T M . I D A T E 4 5 Q
0066220 I D A T E 4 2 Q \ P F L O
0066240 P P Y . D I R . P U T 3 3 Q
0066260 \ P F L O P P Y . A L L O C A T
0066300 E ) \r ( 6 5 2 Q P F A L L O C
0066320 6 4 6 Q S T R E A M 6 3 7
0066340 Q S T R E A M 5 6 4 Q \ S
0066360 T R E A M . D E F A U L T . M A
0066400 X B U F F E R S 5 5 0 Q F I
0066420 L E L I N E L E N G T H 5 3 3
0066440 Q \ F I L E O U T C H A R F N
0066460 5 2 4 Q \ E O S E R R O R
0066500 5 1 5 Q \ N O I M A G E O P S
0066520 5 0 6 Q \ S T R E A M . N O
0066540 T . O P E N 4 7 7 Q \ S T R
0066560 E A M . N O T . O P E N 4 4 3
0066600 Q P F A L L O C 4 3 4 Q \
0066620 F L O P P Y F D E V 4 2 7 Q
0066640 004 003 S T R E A M T Y P E # 4 1
0066660 5 Q P F A L L O C 4 0 0 Q
0066700 P L P A G E 3 2 5 Q P L P A
0066720 G E 2 6 1 Q P L P A G E 2
0066740 4 2 Q P F A L L O C 2 2 5 Q
0066760 P L P A G E 2 1 7 Q P L P
0067000 A G E 2 1 1 Q T E X T 1 6
0067020 6 Q P L P A G E 1 4 7 Q P
0067040 L P A G E 6 0 Q 004 003 P L P A
0067060 G E T Y P E # 5 1 Q T Y P E
0067100 5 L E N G T H ) \r ( ) \r \ P
0067120 F L O P P Y . A S S U R E S T R
0067140 E A M D 1 \r ( P 0 S T R E
0067160 A M I 0 F I L E ) \0 ! 001
0067200 \0 \0 001 021 020 \0 @ d 004 ` \0 \0 360 221 @ 020
0067220 g \0 \0 \n \0 \0 X 265 370 @ l 027 \n \0 \0 b
0067240 \0 260 346 \0 ( 3 3 Q \ L I S P E R
0067260 R O R 2 2 Q \ P F L O P P Y
0067300 . O P E N F I L E 1 ) \r ( 1 7 Q
0067320 O L D 1 0 Q 004 003 S T R E A
0067340 M T Y P E # ) \r ( ) \r \ P F L O
0067360 P P Y . G E T F I L E I N F O A
0067400 0 0 0 1 D 1 \r ( N A M E E R
0067420 R O R S E T P 2 A N S W E
0067440 R P 1 P L P A G E P 0
0067460 S T R E A M F 3 F I L E
0067500 F 4 R E S E T Y F 5
0067520 P F A L L O C F 6 A T T R
0067540 I B U T E ) \0 + 003 004 002 \0 ` \0 \0
0067560 h i \v \0 \0 277 021 0 002 \b \0 \0 277 S \t \0
0067600 \0 X 265 \b J 022 c \b i 020 006 \0 \0 311 \f c
0067620 \n V \n \0 \0 260 360 \0 ( 4 7 Q \ P F
0067640 L O P P Y . G E T F I L E I N F
0067660 O 1 2 3 Q \ P F L O P P Y .
0067700 A S S U R E S T R E A M 1 6 Q
0067720 \ F L O P P Y . C A C H E D .
0067740 R E A D 7 O B T A I N . M O
0067760 N I T O R L O C K ) \r ( 3 7 Q
0070000 S T R E A M 2 \ F L O P P Y
0070020 L O C K ) \r ( ) \r \ P F L O P P
0070040 Y . G E T F I L E I N F O D 1
0070060 \r ( P 2 R E S E T Z P 1
0070100 R E S E T Y P 0 L I S P
0070120 X H I S T I 2 F D E V I
0070140 1 A T T R I B U T E I 0
0070160 F I L E F 3 L I S P X H
0070200 I S T F 4 R E S E T V A R
0070220 S L S T ) \0 " 003 002 \0 003 S 021 ! 002
0070240 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0070260 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3
0070300 5 Q E R R O R ! 3 0 Q R E
0070320 S E T R E S T O R E 1 6 Q \
0070340 P F L O P P Y . G E T F I L E I
0070360 N F O A 0 0 0 1 ) \r ( 2 4 Q E
0070400 R R O R 1 3 Q I N T E R N A
0070420 L ) \r ( 1 0 Q ( \ P F L O P
0070440 P Y . G E T F I L E I N F O A 0
0070460 0 0 1 ) ) \r \ P F L O P P Y . G
0070500 E T F I L E I N F O 1 D 1 \r (
0070520 P 1 A N S W E R P 0 P
0070540 L P A G E I 1 A T T R I B
0070560 U T E I 0 P F A L L O C )
0070600 001 W 020 \0 \0 002 021 360 016 021 020 017 @ 006 \0
0070620 \0 311 \n X A d g \0 \0 360 262 025 277 d 006 \0
0070640 \0 Z 310 006 J 310 005 365 \t \0 \0 \t \0 \0 020 g
0070660 \0 \0 360 262 024 H 006 \0 \0 [ 310 004 K 310 003 365
0070700 \t \0 \0 \t \0 \0 020 A d g \0 \0 360 237 277 H
0070720 006 \0 \0 \ 310 006 L 310 005 365 \t \0 \0 020 g \0
0070740 \0 360 236 H 006 \0 \0 ] 310 004 M 310 003 365 \t \0
0070760 \0 020 A d g \0 \0 360 262 _ 277 H 006 \0 \0 ^
0071000 310 \n N 310 \t 365 H 006 \0 \0 _ 016 310 \b O 016
0071020 310 \a 365 330 H 006 \0 \0 _ 020 310 \f O 020 310 \v
0071040 365 375 361 262 024 H 006 \0 \0 _ 022 310 \b O 022 310
0071060 \a 365 n 002 \0 332 020 H 006 \0 \0 _ 024 310 016 O
0071100 024 310 \r 365 H 006 \0 \0 _ 026 310 \n O 026 310 \t
0071120 365 n 002 \0 332 331 020 g \0 \0 360 262 031 H 006 \0
0071140 \0 310 F d k 360 223 g \0 \0 020 l 002 360 262 371
0071160 g \0 \0 020 A d g \0 \0 360 222 l \b 020 g \0
0071200 \0 360 226 H 006 \0 \0 310 002 020 A d g \0 \0 360
0071220 236 277 H 006 \0 \0 _ 030 310 \b O 030 310 \a 365 020
0071240 g \0 \0 360 235 H 006 \0 \0 _ 032 310 \n O 032 310
0071260 \t 365 020 A d g \0 \0 360 236 277 H 006 \0 \0 _
0071300 034 310 \f O 034 310 \v 365 020 g \0 \0 360 264 017 H
0071320 006 \0 \0 _ 036 310 016 O 036 310 \r 365 020 \0 ( 1
0071340 5 1 Q \ F L O P P Y . M T L .
0071360 I D A T E 1 2 5 Q \ F L O P
0071400 P Y . M T L . I D A T E 7 6 Q
0071420 G D A T E 7 3 Q \ F L O P
0071440 P Y . M T L . I D A T E 4 6 Q
0071460 G D A T E 4 3 Q \ F L O P
0071500 P Y . M T L . I D A T E ) \r ( 5
0071520 1 3 Q P L P A G E 5 0 4 Q
0071540 H U G E L E N G T H 4 6 7 Q
0071560 P L P A G E 4 6 0 Q H U G E
0071600 P A G E L E N G T H 4 4 1 Q
0071620 P L P A G E 4 3 3 Q H U G E
0071640 P A G E S T A R T 4 1 6 Q P
0071660 L P A G E 4 0 7 Q S I Z E
0071700 3 7 7 Q P L P A G E 3 7 1 Q
0071720 M E S A T Y P E 3 6 1 Q B
0071740 Y T E S I Z E 3 5 3 Q B I N
0071760 A R Y 3 4 2 Q T E X T 3 3
0072000 1 Q P L P A G E 3 2 2 Q T
0072020 Y P E 3 0 0 Q P L P A G E
0072040 2 6 3 Q P L P A G E 2 4 1 Q
0072060 P L P A G E 2 2 0 Q P L P
0072100 A G E 2 0 2 Q P L P A G E
0072120 1 6 7 Q P L P A G E 1 5 7 Q
0072140 L E N G T H 1 3 7 Q P L P
0072160 A G E 1 3 1 Q I C R E A T I
0072200 O N D A T E 1 1 3 Q P L P A
0072220 G E 1 0 4 Q I W R I T E D A
0072240 T E 6 1 Q P L P A G E 5 2
0072260 Q C R E A T I O N D A T E 3
0072300 1 Q P L P A G E 2 1 Q W R
0072320 I T E D A T E 1 1 Q P F A L
0072340 L O C ) \r ( ) \r \ P F L O P P Y
0072360 . S E T F I L E I N F O A 0 0 0
0072400 1 D 1 \r ( N A M E E R R O R
0072420 S E T P 2 S U C C E S S F
0072440 U L P 1 P L P A G E P
0072460 0 S T R E A M F 3 V A L
0072500 U E F 4 F I L E F 5
0072520 R E S E T Y F 6 A T T R I
0072540 B U T E ) 001 i 003 004 002 \0 ` \0 \0 h
0072560 i \v \0 \0 277 021 0 002 \b \0 \0 277 T \t \0 \0
0072600 X 265 \b J 022 c \n i 020 006 \0 \0 311 016 271 i
0072620 272 V d g \0 \0 360 262 027 277 I 006 \0 \0 l 005
0072640 320 S \t \0 \0 \t \0 \0 \n \0 \0 261 001 \r d g
0072660 \0 \0 360 262 027 277 I 006 \0 \0 l 003 320 S \t \0
0072700 \0 \t \0 \0 \n \0 \0 261 \0 361 d g \0 \0 360 262
0072720 024 277 I 006 \0 \0 l 005 320 S \t \0 \0 \n \0 \0
0072740 261 \0 330 d g \0 \0 360 262 024 277 I 006 \0 \0 l
0072760 003 320 S \t \0 \0 \n \0 \0 261 \0 277 d g \0 \0
0073000 360 222 261 \0 266 d g \0 \0 360 262 " 277 S d 003
0073020 220 001 g \0 \0 360 231 I 006 \0 \0 k 315 F 261 \0
0073040 232 I 006 \0 \0 l 002 315 F 261 \0 217 d g \0 \0
0073060 360 262 ( 277 H 006 \0 \0 S d g \0 \0 360 223 277
0073100 j 260 023 d g \0 \0 360 223 277 l 002 206 g \0 \0
0073120 360 264 003 k 317 030 001 260 a d g \0 \0 360 231 277
0073140 I 006 \0 \0 S 315 002 260 Q d g \0 \0 360 235 277
0073160 I 006 \0 \0 l \a 320 S \n \0 \0 260 = d g \0
0073200 \0 360 235 277 I 006 \0 \0 l \t 320 S \n \0 \0 260
0073220 ) d g \0 \0 360 235 277 I 006 \0 \0 l \v 320 S
0073240 \n \0 \0 260 025 g \0 \0 360 264 016 I 006 \0 \0 l
0073260 \r 320 S \n \0 \0 200 Z 277 H \t \0 \0 222 261 376
0073300 305 H 006 \0 \0 311 \f 006 \0 \0 311 006 I \n \0 \0
0073320 277 261 376 262 \0 ( 5 4 3 Q \ P F L O
0073340 P P Y . W R I T E P A G E N O
0073360 5 2 0 Q O P E N P 5 1 1 Q
0073400 \ P U T S W A P P E D F I X P
0073420 4 6 6 Q \ P U T S W A P P E D
0073440 F I X P 4 4 2 Q \ P U T S W
0073460 A P P E D F I X P 4 1 6 Q \
0073500 P U T S W A P P E D F I X P 2
0073520 1 4 Q \ P U T S W A P P E D F
0073540 I X P 2 1 1 Q \ F L O P P Y
0073560 . L T M . I D A T E 1 6 3 Q
0073600 \ P U T S W A P P E D F I X P
0073620 1 6 0 Q \ F L O P P Y . L T M
0073640 . I D A T E 1 3 2 Q \ P U T
0073660 S W A P P E D F I X P 1 2 7 Q
0073700 \ F L O P P Y . L T M . I D A
0073720 T E 1 2 4 Q I D A T E 7 6
0073740 Q \ P U T S W A P P E D F I X
0073760 P 7 3 Q \ F L O P P Y . L T
0074000 M . I D A T E 7 0 Q I D A T
0074020 E 2 3 Q \ P F L O P P Y . A
0074040 S S U R E S T R E A M 1 6 Q
0074060 \ F L O P P Y . C A C H E D . W
0074100 R I T E 7 O B T A I N . M O
0074120 N I T O R L O C K ) \r ( 5 3 5 Q
0074140 P F A L L O C 5 3 0 Q S T
0074160 R E A M 5 0 2 Q P L P A G E
0074200 4 7 3 Q H U G E L E N G T H
0074220 4 5 7 Q P L P A G E 4 5 0
0074240 Q H U G E P A G E L E N G T H
0074260 4 3 3 Q P L P A G E 4 2 4
0074300 Q H U G E P A G E S T A R T
0074320 4 0 7 Q P L P A G E 4 0 0 Q
0074340 P A G E L E N G T H 3 6 7 Q
0074360 P L P A G E 3 6 0 Q M E S
0074400 A T Y P E 3 4 3 Q L F 3 3
0074420 2 Q C R L F 3 2 0 Q C R
0074440 3 1 3 Q S T R E A M 3 0 3 Q
0074460 E O L 2 7 0 Q P L P A G E
0074500 2 5 6 Q P L P A G E 2 5 0
0074520 Q T E X T 2 3 4 Q T Y P E
0074540 2 2 3 Q L E N G T H 2 0 2
0074560 Q P L P A G E 1 7 2 Q I C
0074600 R E A T I O N D A T E 1 5 1 Q
0074620 P L P A G E 1 4 1 Q I W R
0074640 I T E D A T E 1 1 5 Q P L P
0074660 A G E 1 0 5 Q C R E A T I O
0074700 N D A T E 6 1 Q P L P A G E
0074720 5 1 Q W R I T E D A T E 3
0074740 7 Q S T R E A M 2 \ F L O
0074760 P P Y L O C K ) \r ( ) \r \ P F L
0075000 O P P Y . S E T F I L E I N F O
0075020 D 1 \r ( P 2 R E S E T Z
0075040 P 1 R E S E T Y P 0 L
0075060 I S P X H I S T I 2 V A L
0075100 U E I 1 A T T R I B U T E
0075120 I 0 F I L E F 3 L I
0075140 S P X H I S T F 4 R E S E
0075160 T V A R S L S T ) \0 " 003 002 \0 003
0075200 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221
0075220 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I
0075240 020 \0 ( 3 5 Q E R R O R ! 3 0
0075260 Q R E S E T R E S T O R E 1
0075300 6 Q \ P F L O P P Y . S E T F
0075320 I L E I N F O A 0 0 0 1 ) \r ( 2
0075340 4 Q E R R O R 1 3 Q I N T
0075360 E R N A L ) \r ( 1 0 Q ( \ P
0075400 F L O P P Y . S E T F I L E I N
0075420 F O A 0 0 0 1 ) ) \r \ P F L O P
0075440 P Y . C L O S E F I L E A 0 0 0
0075460 1 D 1 \r ( N A M E E R R O R
0075500 S E T P 1 F U L L F I L E
0075520 N A M E P 0 S T R E A M
0075540 F 2 F I L E F 3 R E S
0075560 E T Y ) \0 037 002 002 002 \0 ` \0 \0 h i
0075600 \v \0 \0 277 021 001 R \t \0 \0 X \t \0 \0 277
0075620 H \t \0 \0 022 c 006 i 020 \0 ( 3 0 Q \
0075640 P F L O P P Y . C L O S E F I L
0075660 E 1 2 3 Q \ C L E A R M A P
0075700 1 7 Q \ P F L O P P Y . A S
0075720 S U R E S T R E A M 7 O B T
0075740 A I N . M O N I T O R L O C K )
0075760 \r ( 2 \ F L O P P Y L O C K )
0076000 \r ( ) \r \ P F L O P P Y . C L O
0076020 S E F I L E D 1 \r ( P 2 R
0076040 E S E T Z P 1 R E S E T Y
0076060 P 0 L I S P X H I S T I
0076100 0 F I L E F 3 L I S P
0076120 X H I S T F 4 R E S E T V
0076140 A R S L S T ) \0 " 003 002 \0 001 S 021
0076160 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202
0076200 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0
0076220 ( 3 5 Q E R R O R ! 3 0 Q
0076240 R E S E T R E S T O R E 1 6 Q
0076260 \ P F L O P P Y . C L O S E F
0076300 I L E A 0 0 0 1 ) \r ( 2 4 Q E
0076320 R R O R 1 3 Q I N T E R N A
0076340 L ) \r ( 1 0 Q ( \ P F L O P
0076360 P Y . C L O S E F I L E A 0 0 0
0076400 1 ) ) \r \ P F L O P P Y . C L O
0076420 S E F I L E 1 D 1 \r ( P 5
0076440 \ I N T E R R U P T A B L E P
0076460 4 F U L L F I L E N A M E
0076500 P 3 N P M P A G E P 2
0076520 N E X T P 1 P M P A G E
0076540 P 0 P F A L L O C I 0
0076560 S T R E A M ) \0 260 006 \0 \0 001 021 P
0076600 004 @ 006 \0 \0 311 \f X @ 006 \0 \0 311 004 \ @
0076620 \t \0 \0 g \0 \0 360 222 261 \0 223 H 006 \0 \0 311
0076640 006 H 006 \0 \0 311 \n \n \0 \0 241 h 020 H 006 \0
0076660 \0 311 \b Y H 006 \0 \0 311 004 Z d 006 \0 \0 311
0076700 \b [ 021 020 005 I 006 \0 \0 k 315 203 277 I 006 \0
0076720 \0 n \b 004 315 206 277 K 006 \0 \0 k 315 004 277 K
0076740 006 \0 \0 n \b 004 315 \a 277 H 006 \0 \0 311 006 k
0076760 331 I i \v \0 \0 277 J 006 \0 \0 311 006 k 331 K
0077000 i \v \0 \0 277 i \t \0 \0 277 i \t \0 \0 023 H
0077020 006 \0 \0 j 317 \f \0 277 j d 360 h 360 H 006 \0
0077040 \0 312 \f 020 j 360 243 @ \t \0 \0 L 020 \0 ( 2
0077060 5 4 Q \ P F L O P P Y . D E L
0077100 E T E F I L E 2 1 7 Q \ P F
0077120 L O P P Y . S A V E . P S E C T
0077140 O R 9 2 1 2 Q \ P F L O P P
0077160 Y . S A V E . P F I L E L I S T
0077200 2 0 5 Q \ P F L O P P Y . W
0077220 R I T E P A G E N O 1 6 7 Q
0077240 \ P F L O P P Y . W R I T E P A
0077260 G E N O 5 3 Q \ P F L O P P
0077300 Y . W R I T E P A G E N O 2 4
0077320 Q \ G E T A C C E S S ) \r ( 2
0077340 4 2 Q P F A L L O C 2 2 4 Q
0077360 P F A L L O C 1 7 4 Q P F
0077400 A L L O C 1 5 6 Q P F A L L
0077420 O C 1 4 4 Q P M P A G E 1
0077440 3 4 Q P M P A G E 1 2 2 Q
0077460 P M P A G E 1 1 2 Q P M P A
0077500 G E 1 0 0 Q P F A L L O C
0077520 7 1 Q P F A L L O C 6 2 Q
0077540 P F A L L O C 4 6 Q P F A L
0077560 L O C 4 0 Q P F A L L O C
0077600 2 7 Q I N P U T 1 5 Q S T
0077620 R E A M 6 S T R E A M ) \r (
0077640 ) \r \ P F L O P P Y . D E L E T
0077660 E F I L E A 0 0 0 1 D 1 \r ( N
0077700 A M E E R R O R S E T P 5
0077720 F U L L F I L E N A M E P
0077740 4 N P M P A G E P 3 N E
0077760 X T P 2 P M P A G E P
0100000 1 P F A L L O C P 0 F I
0100020 L E N A M E F 6 F I L E
0100040 F 7 R E S E T Y ) \0 ^ 006 002
0100060 002 \0 ` \0 \0 h i \v \0 \0 277 021 ` 005 \b \0
0100100 \0 277 V i \n \0 \0 X d 262 A g \0 \0 \n \0
0100120 \0 Y d 262 7 006 \0 \0 311 \0 \t \0 \0 275 I \t
0100140 \0 \0 231 I 006 \0 \0 k 317 \f 020 260 035 I 006 \0
0100160 \0 j 317 \f 020 277 I \t \0 \0 277 I \t \0 \0 277
0100200 I \t \0 \0 277 \b \0 \0 277 M 022 c 016 i 020 \0
0100220 ( 1 2 5 Q \ P F L O P P Y . S
0100240 A V E . P F I L E L I S T 1 2
0100260 1 Q \ P F L O P P Y . D E L E
0100300 T E . F R O M . P F I L E L I S
0100320 T 1 1 4 Q \ P F L O P P Y .
0100340 D E A L L O C A T E 1 0 7 Q
0100360 \ P F L O P P Y . D I R . R E M
0100400 O V E 5 7 Q \ P F L O P P Y
0100420 . S T R E A M S . U S I N G 5
0100440 2 Q \ F L O P P Y . A D D D E
0100460 V I C E N A M E 3 6 Q \ P F
0100500 L O P P Y . D I R . G E T 2 4
0100520 Q \ F L O P P Y . A S S U R E
0100540 F I L E N A M E 1 6 Q \ P F
0100560 L O P P Y . O P E N 7 O B T
0100600 A I N . M O N I T O R L O C K )
0100620 \r ( 7 6 Q P F A L L O C 6 4
0100640 Q P F A L L O C 4 5 Q P F
0100660 A L L O C 3 3 Q O L D E S T
0100700 2 \ F L O P P Y L O C K ) \r
0100720 ( ) \r \ P F L O P P Y . D E L E
0100740 T E F I L E D 1 \r ( P 2 R
0100760 E S E T Z P 1 R E S E T Y
0101000 P 0 L I S P X H I S T I
0101020 1 F D E V I 0 F I L E
0101040 F 3 L I S P X H I S T F
0101060 4 R E S E T V A R S L S T )
0101100 \0 " 003 002 \0 002 S 021 ! 002 T o \0 \0 \0
0101120 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0101140 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q E R
0101160 R O R ! 3 0 Q R E S E T R E
0101200 S T O R E 1 6 Q \ P F L O P
0101220 P Y . D E L E T E F I L E A 0 0
0101240 0 1 ) \r ( 2 4 Q E R R O R 1
0101260 3 Q I N T E R N A L ) \r ( 1
0101300 0 Q ( \ P F L O P P Y . D E L
0101320 E T E F I L E A 0 0 0 1 ) ) \r \
0101340 P F L O P P Y . G E N E R A T E
0101360 F I L E S A 0 0 0 1 A 0 0 0 2
0101400 D 1 \r ( I 1 Y I 0 X )
0101420 \0 021 \0 \0 \0 002 @ 006 \0 \0 311 \0 A 006 \0
0101440 \0 311 \0 \n \0 \0 020 \0 ( 1 6 Q U A L
0101460 P H O R D E R ) \r ( 1 1 Q P F
0101500 A L L O C 3 P F A L L O C )
0101520 \r ( ) \r \ P F L O P P Y . G E N
0101540 E R A T E F I L E S A 0 0 0 1
0101560 D 1 \r ( N A M E E R R O R S E
0101600 T P 1 7 Q E B U C K E T
0101620 P 1 3 Q N B U C K E T P
0101640 7 F I L E G E N O B J P 6
0101660 V E R S I O N P 5 V A L
0101700 I S T P 4 P F A L L O C
0101720 P 3 G E N F I L E S T A T E
0101740 P 2 D E S I R E D V E R S
0101760 I O N P 1 F I L T E R P
0102000 0 A L L O C S F 2 3 Q
0102020 P A T T E R N F 2 4 Q O P
0102040 T I O N S F 2 5 Q F D E V
0102060 F 2 6 Q R E S E T Y ) 001
0102100 F 023 004 002 \0 ` \0 \0 h i \v \0 \0 277 021 200
0102120 \a \b \0 \0 g \0 \0 360 223 \b \0 \0 277 i \t \0
0102140 \0 242 261 \0 347 i \t \0 \0 242 261 \0 337 W & \t
0102160 \0 \0 271 W & g \0 \0 \n \0 \0 272 021 0 \n `
0102200 \0 \0 006 \0 \0 311 ( 006 \0 \0 311 006 261 \0 262 d
0102220 001 021 001 \v 021 0 016 O 026 261 \0 211 d 001 021 001
0102240 017 J 3 265 0 I O 026 001 o \0 \0 \0 O 036
0102260 001 \v \0 \0 \n \0 \0 264 [ J 263 3 O 036 002 275
0102300 h g \0 \0 M \v \0 \0 ^ M 026 002 \ d 262 D
0102320 h 032 260 @ O 036 002 026 002 \ 264 8 I L 006 \0
0102340 \0 311 \0 \n \0 \0 264 , L h 032 260 ' 021 0 022
0102360 O 036 260 031 d 001 002 _ 277 O " 265 \t O
0102400 h 032 _ $ 202 O & _ " 277 002 003 265 347 O
0102420 $ 022 022 _ 030 003 232 O 032 265 g O 030 _ 034 _
0102440 032 277 002 003 265 003 202 261 377 u O 034 022 022 _ 020
0102460 003 232 O 022 265 B O 020 _ 024 _ 022 277 002 003 265
0102500 003 202 261 377 M O 024 022 270 g \0 \0 W ( \n \0
0102520 \0 227 H g \0 \0 \n \0 \0 277 H W * 006 \0 \0
0102540 311 \0 h h 032 032 032 273 g \0 \0 g \0 \0 K 032
0102560 032 022 c , i 020 \t \0 \0 _ 022 O 020 031 260 276
0102600 \t \0 \0 _ 032 O 030 031 260 231 \0 ( 4 7 5 Q
0102620 L A S T 4 6 3 Q L A S T
0102640 4 2 3 Q S O R T 4 1 3 Q M
0102660 E M B 2 4 0 Q D I R E C T O
0102700 R Y . M A T C H 2 0 2 Q \ P
0102720 F L O P P Y . D I R . V E R S I
0102740 O N 1 6 1 Q D I R E C T O R
0102760 Y . M A T C H 1 5 6 Q C O N
0103000 C A T 6 5 Q F I L E N A M E
0103020 F I E L D 5 4 Q D I R E C T
0103040 O R Y . M A T C H . S E T U P
0103060 4 3 Q \ F L O P P Y . C A C H
0103100 E D . R E A D 3 3 Q \ F L O
0103120 P P Y . E X I S T S P 2 6 Q
0103140 \ F L O P P Y . C L O S E 1 6
0103160 Q M A C H I N E T Y P E 7
0103200 O B T A I N . M O N I T O R L O
0103220 C K ) \r ( 4 5 0 Q \ P F L O P
0103240 P Y . F I L E I N F O F N 4 4
0103260 5 Q \ P F L O P P Y . N E X T
0103300 F I L E F N 4 3 2 Q F D E V
0103320 4 2 0 Q \ P F L O P P Y . G
0103340 E N E R A T E F I L E S A 0 0 0
0103360 1 A 0 0 0 2 4 0 6 Q S O R T
0103400 2 3 3 Q P F A L L O C 1 7
0103420 6 Q O L D 1 0 4 Q P F I N
0103440 F O 7 7 Q F D E V 7 4 Q
0103460 \ F L O P P Y F D E V 6 2 Q
0103500 V E R S I O N 2 1 Q D O V E
0103520 2 \ F L O P P Y L O C K ) \r
0103540 ( 1 5 0 Q " . " ) \r \ P F L
0103560 O P P Y . G E N E R A T E F I L
0103600 E S D 1 \r ( P 2 R E S E T
0103620 Z P 1 R E S E T Y P 0
0103640 L I S P X H I S T I 3 O
0103660 P T I O N S I 2 D E S I R
0103700 E D P R O P S I 1 P A T T
0103720 E R N I 0 F D E V F 3
0103740 L I S P X H I S T F 4 R
0103760 E S E T V A R S L S T ) \0 " 003
0104000 002 \0 004 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n
0104020 \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0
0104040 \0 020 I 020 \0 ( 3 5 Q E R R O R !
0104060 3 0 Q R E S E T R E S T O R
0104100 E 1 6 Q \ P F L O P P Y . G
0104120 E N E R A T E F I L E S A 0 0 0
0104140 1 ) \r ( 2 4 Q E R R O R 1 3
0104160 Q I N T E R N A L ) \r ( 1 0
0104200 Q ( \ P F L O P P Y . G E N E
0104220 R A T E F I L E S A 0 0 0 1 ) )
0104240 \r \ P F L O P P Y . N E X T F I
0104260 L E F N D 1 \r ( P 3 A N S
0104300 W E R P 2 D E V I C E N A
0104320 M E P 1 F I L E N A M E
0104340 P 0 A L L O C S I 2 S
0104360 C R A T C H L I S T I 1 N
0104400 A M E O N L Y I 0 G E N F
0104420 I L E S T A T E ) \0 5 004 \0 \0 003
0104440 021 @ 003 @ 001 X d 241 h 020 @ 002 002 H 001 030
0104460 @ H 002 030 H 001 006 \0 \0 311 \0 Y @ 002 001 Z
0104500 A 221 I 020 o \0 \0 \0 @ 002 001 o \0 \0 \0 I
0104520 \f \0 \0 020 \0 ( 6 2 Q C O N C A T
0104540 ) \r ( 3 0 Q P F A L L O C ) \r
0104560 ( 5 6 Q " } " 4 7 Q " {
0104600 " ) \r \ P F L O P P Y . F I L E
0104620 I N F O F N D 1 \r ( I 1 A
0104640 T T R I B U T E I 0 G E N
0104660 F I L E S T A T E ) \0 \n \0 \0 \0
0104700 002 @ 002 002 001 A \n \0 \0 020 \0 ( 7 \ P
0104720 F L O P P Y . G E T F I L E I N
0104740 F O 1 ) \r N I L \r ( ) \r \ P F L
0104760 O P P Y . R E N A M E F I L E A
0105000 0 0 0 1 D 1 \r ( N A M E E R
0105020 R O R S E T P 1 3 Q V A L
0105040 U E P 4 F U L L F I L E N
0105060 A M E P 3 P L P A G E P
0105100 2 P F A L L O C P 1 N
0105120 E W F I L E N A M E P 0 O
0105140 L D F I L E N A M E F 1 4 Q
0105160 O L D F I L E F 1 5 Q N
0105200 E W F I L E F 1 6 Q R E S
0105220 E T Y F 1 7 Q O L D R E C
0105240 O G F 2 0 Q N E W R E C O
0105260 G ) \0 361 \f 005 002 \0 ` \0 \0 h i \v \0
0105300 \0 277 021 260 \n \b \0 \0 277 W 030 \t \0 \0 270 W
0105320 032 \t \0 \0 271 H W 036 \n \0 \0 Z d 242 261 \0
0105340 306 \t \0 \0 277 J 006 \0 \0 311 \n 273 021 020 \v I
0105360 \t \0 \0 _ 026 277 K 006 \0 \0 O 026 \t \0 \0 275
0105400 l d M 361 221 M 201 l d 315 017 277 l \a 037 K
0105420 l 021 320 _ 016 277 K 006 \0 \0 310 017 276 d N 315
0105440 002 277 d j 317 \0 C 277 d j 317 \0 020 277 d k
0105460 317 \0 \0 277 d O 016 024 \0 277 k O 026 k K 006
0105500 \0 \0 310 017 \v \0 \0 \v \0 \0 023 l \a 037 K l
0105520 021 320 _ 024 277 K 006 \0 \0 310 017 _ 020 277 l d
0105540 O 020 361 222 O 020 201 l d _ 022 277 d O 022 315
0105560 002 277 d j 317 \0 C 277 d j 317 \0 020 277 d k
0105600 317 \0 \0 277 d O 024 024 \0 277 \t \0 \0 Y W
0105620 J \v \0 \0 277 J 006 \0 \0 311 006 K \n \0 \0 277
0105640 I \t \0 \0 022 c 034 i 020 \0 ( 3 5 2 Q
0105660 \ F L O P P Y . A D D D E V I C
0105700 E N A M E 3 4 5 Q \ P F L O
0105720 P P Y . W R I T E P A G E N O
0105740 3 3 2 Q \ P F L O P P Y . D I
0105760 R . P U T 3 2 3 Q M K A T O
0106000 M 2 2 0 Q R P L S T R I N G
0106020 2 1 5 Q S U B S T R I N G
0106040 1 0 5 Q N C H A R S 7 1 Q
0106060 M K S T R I N G 5 2 Q \ P F
0106100 L O P P Y . D I R . R E M O V E
0106120 4 1 Q \ P F L O P P Y . D I
0106140 R . G E T 3 2 Q \ F L O P P
0106160 Y . A S S U R E F I L E N A M E
0106200 2 4 Q \ F L O P P Y . A S S
0106220 U R E F I L E N A M E 1 6 Q
0106240 \ P F L O P P Y . O P E N 7
0106260 O B T A I N . M O N I T O R L O
0106300 C K ) \r ( 3 3 7 Q P F A L L O
0106320 C 2 3 7 Q P L P A G E 2 1
0106340 0 Q P L P A G E 1 4 0 Q P
0106360 L P A G E 1 0 0 Q P L P A G
0106400 E 5 7 Q P F A L L O C 2
0106420 \ F L O P P Y L O C K ) \r ( ) \r
0106440 \ P F L O P P Y . R E N A M E F
0106460 I L E D 1 \r ( P 2 R E S E
0106500 T Z P 1 R E S E T Y P
0106520 0 L I S P X H I S T I 4
0106540 N E W R E C O G I 3 O L D
0106560 R E C O G I 2 F D E V I
0106600 1 N E W F I L E I 0 O
0106620 L D F I L E F 3 L I S P X
0106640 H I S T F 4 R E S E T V A
0106660 R S L S T ) \0 2 003 002 \0 005 C 245 g
0106700 \0 \0 b 006 277 D 245 g \0 \0 b \b 277 S 021 !
0106720 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g
0106740 \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 (
0106760 5 5 Q E R R O R ! 5 0 Q R
0107000 E S E T R E S T O R E 3 6 Q
0107020 \ P F L O P P Y . R E N A M E F
0107040 I L E A 0 0 0 1 ) \r ( 4 4 Q E
0107060 R R O R 3 3 Q I N T E R N A
0107100 L 1 4 Q N E W 4 O L D )
0107120 \r ( 3 0 Q ( \ P F L O P P Y
0107140 . R E N A M E F I L E A 0 0 0 1
0107160 ) ) \r \ P F L O P P Y . S T R E
0107200 A M S . A G A I N S T D 1 \r (
0107220 L ( 0 S T R E A M ) F 5
0107240 \ O P E N F I L E S ) \0 ? 005
0107260 001 \0 001 U 021 A 004 H 003 265 004 I 020 001 \ 006
0107300 \0 \0 311 006 ` \0 \0 360 262 037 L 006 \0 \0 311 \f
0107320 @ 006 \0 \0 311 \f 360 236 L d @ 360 250 273 J 265
0107340 \r K h 032 Z Y 277 H 002 X 260 316 K & Z 260
0107360 367 \0 N I L \r ( 4 0 Q S T R E A
0107400 M 3 2 Q S T R E A M 2 3 Q
0107420 \ F L O P P Y F D E V 1 6 Q
0107440 S T R E A M ) \r ( ) \r \ P F L
0107460 O P P Y . S T R E A M S . U S I
0107500 N G D 1 \r ( L ( 0 P F A L
0107520 L O C ) F 5 \ O P E N F I
0107540 L E S ) \0 6 005 001 \0 001 U 021 A 004 H
0107560 003 265 004 I 020 001 \ 006 \0 \0 311 006 ` \0 \0 360
0107600 262 026 L d 006 \0 \0 311 \f @ 360 230 273 J 265 \r
0107620 K h 032 Z Y 277 H 002 X 260 327 K & Z 260 367
0107640 \0 N I L \r ( 3 3 Q S T R E A M
0107660 2 3 Q \ F L O P P Y F D E V
0107700 1 6 Q S T R E A M ) \r ( ) \r
0107720 \ P F L O P P Y . R E A D P A G
0107740 E S D 1 \r ( P 2 B U F F E
0107760 R P 1 I I 2 B U F F
0110000 E R S I 1 F I R S T P A G
0110020 E # I 0 S T R E A M ) \0
0110040 ' 003 \0 \0 003 B d 003 243 d 221 h 032 j 021 022
0110060 002 H 003 265 004 h 020 001 272 @ A I 330 J \v \0
0110100 \0 277 H 002 270 I k 324 271 260 350 \0 ( 3 3 Q
0110120 \ P F L O P P Y . R E A D P A
0110140 G E ) \r N I L \r ( ) \r \ P F L O
0110160 P P Y . R E A D P A G E A 0 0 0
0110200 1 D 1 \r ( N A M E E R R O R
0110220 S E T P 2 P A G E N O P
0110240 1 P F A L L O C P 0 S
0110260 T R E A M F 4 F I R S T P
0110300 A G E # F 5 F I L E F
0110320 6 B U F F E R F 7 R E S
0110340 E T Y ) \0 \ 004 004 002 \0 ` \0 \0 h i
0110360 \v \0 \0 277 021 @ 003 U \t \0 \0 X 006 \0 \0 311
0110400 \f Y 006 \0 \0 311 006 T k 330 330 272 T H \t \0
0110420 \0 k 331 343 342 361 262 $ J I 006 \0 \0 311 006 I
0110440 006 \0 \0 311 \b 006 \0 \0 [ 310 202 K 310 201 365 k
0110460 331 330 361 264 016 I \t \0 \0 204 J V \n \0 \0 277
0110500 h 022 c 016 i 020 \0 ( 1 2 3 Q \ P F
0110520 L O P P Y . R E A D P A G E N O
0110540 1 1 5 Q \ P F L O P P Y . E
0110560 X T E N D 4 5 Q \ G E T E O
0110600 F P T R 1 7 Q \ P F L O P P
0110620 Y . A S S U R E S T R E A M 7
0110640 O B T A I N . M O N I T O R L
0110660 O C K ) \r ( 7 4 Q P M P A G E
0110700 6 7 Q P F A L L O C 6 1 Q
0110720 P F A L L O C 3 1 Q P F A
0110740 L L O C 2 3 Q S T R E A M
0110760 2 \ F L O P P Y L O C K ) \r (
0111000 ) \r \ P F L O P P Y . R E A D P
0111020 A G E D 1 \r ( P 2 R E S E
0111040 T Z P 1 R E S E T Y P
0111060 0 L I S P X H I S T I 2
0111100 B U F F E R I 1 F I R S T
0111120 P A G E # I 0 F I L E F
0111140 3 L I S P X H I S T F 4
0111160 R E S E T V A R S L S T ) \0
0111200 & 003 002 \0 003 S 021 ! 002 T o \0 \0 \0 g \0
0111220 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 277 J
0111240 223 \b \0 \0 277 023 \b \0 \0 020 \0 ( 4 3 Q
0111260 B L O C K 3 6 Q E R R O R !
0111300 3 0 Q R E S E T R E S T O R
0111320 E 1 6 Q \ P F L O P P Y . R
0111340 E A D P A G E A 0 0 0 1 ) \r ( 2
0111360 4 Q E R R O R 1 3 Q I N T
0111400 E R N A L ) \r ( 1 0 Q ( \ P
0111420 F L O P P Y . R E A D P A G E A
0111440 0 0 0 1 ) ) \r \ P F L O P P Y .
0111460 R E A D P A G E N O D 1 \r ( P
0111500 2 \ F L O P P Y . I B M D 5
0111520 1 2 . F L O P P Y I O C B P
0111540 0 A N S W E R I 2 N O E
0111560 R R O R I 1 P A G E I
0111600 0 P A G E N O F 3 \ P F
0111620 L O P P Y L A S T D A T A P A G
0111640 E ) \0 Q 003 001 \0 003 021 001 ` \0 \0 265
0111660 2 ` \0 \0 037 Y l 006 \n \0 \0 277 I 006 \0 \0
0111700 k 314 005 277 I l 006 \n \0 \0 021 001 002 k @ 361
0111720 244 @ S 361 262 024 o \0 \0 \0 \t \0 \0 277 h 260
0111740 023 h 027 \0 \0 277 260 344 J @ \t \0 \0 A B \f
0111760 \0 \0 270 J 027 \0 \0 H 020 \0 ( 1 1 0 Q
0112000 \ F L O P P Y . R E A D S E C T
0112020 O R 1 0 3 Q \ P F L O P P Y
0112040 . P A G E N O T O D I S K A D D
0112060 R E S S 6 3 Q \ F L O P P Y
0112100 . S E V E R E . E R R O R 4 0
0112120 Q \ F L O P P Y . S E T U P .
0112140 I O C B 2 1 Q \ F L O P P Y
0112160 . S E T U P . I O C B ) \r ( 1 1
0112200 5 Q \ \ F L O P P Y . I B M D
0112220 5 1 2 . F L O P P Y I O C B . G
0112240 L O B A L R E S O U R C E 7 3
0112260 Q \ \ F L O P P Y . I B M D 5
0112300 1 2 . F L O P P Y I O C B . G L
0112320 O B A L R E S O U R C E 2 6 Q
0112340 F L O P P Y I O C B 1 2 Q
0112360 004 003 F L O P P Y I O C B T Y P E
0112400 # 5 \ \ F L O P P Y . I B M
0112420 D 5 1 2 . F L O P P Y I O C B .
0112440 G L O B A L R E S O U R C E ) \r
0112460 ( 6 0 Q " I l l e g a l R
0112500 e a d P a g e N u m b e r "
0112520 ) \r \ P F L O P P Y . W R I T E
0112540 P A G E N O D 1 \r ( P 2 \
0112560 F L O P P Y . I B M D 5 1 2 . F
0112600 L O P P Y I O C B P 0 A N
0112620 S W E R I 2 N O E R R O R
0112640 I 1 P A G E I 0 P A
0112660 G E N O F 3 \ P F L O P P
0112700 Y L A S T D A T A P A G E ) \0
0112720 Q 003 001 \0 003 021 001 ` \0 \0 265 2 ` \0 \0
0112740 037 Y l 006 \n \0 \0 277 I 006 \0 \0 k 314 005 277
0112760 I l 006 \n \0 \0 021 001 002 k @ 361 244 @ S 361
0113000 262 024 o \0 \0 \0 \t \0 \0 277 h 260 023 h 027 \0
0113020 \0 277 260 344 J @ \t \0 \0 A B \f \0 \0 270 J
0113040 027 \0 \0 H 020 \0 ( 1 1 0 Q \ F L O
0113060 P P Y . W R I T E S E C T O R
0113100 1 0 3 Q \ P F L O P P Y . P A
0113120 G E N O T O D I S K A D D R E S
0113140 S 6 3 Q \ F L O P P Y . S E
0113160 V E R E . E R R O R 4 0 Q \
0113200 F L O P P Y . S E T U P . I O C
0113220 B 2 1 Q \ F L O P P Y . S E
0113240 T U P . I O C B ) \r ( 1 1 5 Q
0113260 \ \ F L O P P Y . I B M D 5 1 2
0113300 . F L O P P Y I O C B . G L O B
0113320 A L R E S O U R C E 7 3 Q \
0113340 \ F L O P P Y . I B M D 5 1 2 .
0113360 F L O P P Y I O C B . G L O B A
0113400 L R E S O U R C E 2 6 Q F L
0113420 O P P Y I O C B 1 2 Q 004 003 F
0113440 L O P P Y I O C B T Y P E # 5
0113460 \ \ F L O P P Y . I B M D 5 1
0113500 2 . F L O P P Y I O C B . G L O
0113520 B A L R E S O U R C E ) \r ( 6
0113540 0 Q " I l l e g a l W r i t
0113560 e P a g e N u m b e r " ) \r
0113600 \ P F L O P P Y . P A G E N O T
0113620 O D I S K A D D R E S S D 1 \r
0113640 ( L ( 0 P A G E N O ) F
0113660 3 \ F L O P P Y . S E C T O R
0113700 S P E R T R A C K F 4 \ F
0113720 L O P P Y . T R A C K S P E R C
0113740 Y L I N D E R ) \0 " 003 002 \0 001 021
0113760 0 002 @ k 331 S 334 k 330 Z @ k 331 S 333 X
0114000 d T 334 Y H T 333 d 341 341 I 341 J 330 330 020
0114020 \0 N I L \r N I L \r ( ) \r \ P F L
0114040 O P P Y . D I S K A D D R E S S
0114060 T O P A G E N O D 1 \r ( L (
0114100 0 D I S K A D D R E S S ) F
0114120 0 \ F L O P P Y . S E C T O
0114140 R S P E R T R A C K F 1 \
0114160 F L O P P Y . T R A C K S P E R
0114200 C Y L I N D E R ) \0 025 \0 002 \0 001
0114220 @ l 377 345 P @ n 377 377 345 343 Q @ 343 343 332
0114240 330 332 330 020 \0 N I L \r N I L \r ( ) \r
0114260 \ P F L O P P Y . D I R . G E T
0114300 D 1 \r ( P 7 P F A L L O C
0114320 P 6 V E R S I O N P 5
0114340 E X T E N S I O N P 4 N
0114360 A M E P 3 V A L I S T P
0114400 2 E A L I S T P 1 N A
0114420 L I S T P 0 U N A M E I
0114440 1 R E C O G I 0 F I L
0114460 E N A M E ) \0 232 \n \0 \0 002 021 240 \t
0114500 @ \t \0 \0 b \0 A g \0 \0 360 263 a d \t \0
0114520 \0 270 g \0 \0 H g \0 \0 ' g \0 \0 H g \0
0114540 \0 ' h 032 032 032 032 \t \0 \0 \t \0 \0 274 H g
0114560 \0 \0 ' \t \0 \0 275 H g \0 \0 ' \t \0 \0 276
0114600 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 006 271 L I
0114620 026 002 272 M J 026 002 273 N A K @ \f \0 \0 276
0114640 A g \0 \0 360 263 031 N K 026 002 020 ` \0 \0 006
0114660 \0 \0 311 ( 006 \0 \0 311 004 _ 020 003 265 004 h 020
0114700 001 _ 022 006 \0 \0 311 \0 @ 360 225 O 022 265 362 i
0114720 020 O 020 002 260 345 \0 ( 1 4 1 Q \ P F
0114740 L O P P Y . D I R . V E R S I O
0114760 N 1 0 1 Q U - C A S E 7 0
0115000 Q U - C A S E 5 7 Q U - C
0115020 A S E 5 4 Q P A C K F I L E
0115040 N A M E 2 3 Q U N P A C K F
0115060 I L E N A M E 6 \ F L O P P
0115100 Y . A S S U R E F I L E N A M E
0115120 ) \r ( 2 1 0 Q P F A L L O C
0115140 1 7 1 Q P F I N F O 1 6 4 Q
0115160 F D E V 1 6 1 Q \ F L O P
0115200 P Y F D E V 1 4 6 Q N E W
0115220 1 1 5 Q P F I N F O 1 1 0 Q
0115240 F D E V 1 0 5 Q \ F L O P
0115260 P Y F D E V 7 5 Q V E R S I
0115300 O N 6 4 Q E X T E N S I O N
0115320 4 3 Q N A M E 3 7 Q N A
0115340 M E 3 3 Q D I R E C T O R Y
0115360 2 7 Q D I R E C T O R Y 1
0115400 4 Q E X A C T ) \r ( ) \r \ P F
0115420 L O P P Y . D I R . P U T D 1
0115440 \r ( P 6 V E R S I O N P
0115460 5 E X T E N S I O N P 4
0115500 N A M E P 3 V A L I S T
0115520 P 2 E A L I S T P 1 N
0115540 A L I S T P 0 U N A M E
0115560 I 2 P F A L L O C I 1
0115600 R E C O G I 0 F I L E N A
0115620 M E ) \0 261 \a \0 \0 003 021 p 006 @ i \n
0115640 \0 \0 265 \b g \0 \0 \t \0 \0 b \0 d \t \0 \0
0115660 X g \0 \0 H g \0 \0 ' g \0 \0 H g \0 \0
0115700 ' h 032 032 032 032 \t \0 \0 \t \0 \0 \ H g \0
0115720 \0 ' \t \0 \0 ] H g \0 \0 ' \t \0 \0 ^ `
0115740 \0 \0 006 \0 \0 311 ( 006 \0 \0 311 006 Y L I 026
0115760 002 Z M J 026 002 [ N A K \v \0 \0 ^ H g
0116000 \0 \0 N \v \0 \0 H g \0 \0 \n \0 \0 A g \0
0116020 \0 360 224 @ \t \0 \0 203 H \t \0 \0 b \0 B 006
0116040 \0 \0 @ 024 \0 N B K \v \0 \0 [ M K J \v
0116060 \0 \0 Z L J I \v \0 \0 Y ` \0 \0 006 \0 \0
0116100 311 ( 006 \0 \0 I 024 006 B 020 \0 ( 2 3 6 Q
0116120 \ F L O P P Y . L E X P U T A
0116140 S S O C 2 2 7 Q \ F L O P P
0116160 Y . L E X P U T A S S O C 2 2
0116200 0 Q \ F L O P P Y . L E X P U
0116220 T A S S O C 2 0 1 Q P A C K
0116240 F I L E N A M E 1 7 4 Q U -
0116260 C A S E 1 6 2 Q L I S T P U
0116300 T 1 5 3 Q L I S T P U T 1
0116320 4 2 Q \ P F L O P P Y . D I R
0116340 . V E R S I O N 1 0 3 Q U -
0116360 C A S E 7 2 Q U - C A S E
0116400 6 1 Q U - C A S E 5 6 Q P
0116420 A C K F I L E N A M E 2 5 Q
0116440 U N P A C K F I L E N A M E 1
0116460 7 Q G E N S Y M 7 \ F L O
0116500 P P Y . A S S U R E F I L E N A
0116520 M E ) \r ( 2 5 2 Q P F I N F O
0116540 2 4 5 Q F D E V 2 4 2 Q
0116560 \ F L O P P Y F D E V 2 0 7 Q
0116600 P F A L L O C 1 6 6 Q E X
0116620 A C T 1 5 7 Q H O S T 1 4
0116640 7 Q V E R S I O N 1 1 7 Q
0116660 P F I N F O 1 1 2 Q F D E V
0116700 1 0 7 Q \ F L O P P Y F D E
0116720 V 7 7 Q V E R S I O N 6 6
0116740 Q E X T E N S I O N 4 5 Q
0116760 N A M E 4 1 Q N A M E 3 5
0117000 Q D I R E C T O R Y 3 1 Q
0117020 D I R E C T O R Y 1 4 Q B A
0117040 D F I L E N A M E ) \r ( ) \r \ P
0117060 F L O P P Y . D I R . R E M O V
0117100 E D 1 \r ( P 7 V E R S I O
0117120 N P 6 E X T E N S I O N
0117140 P 5 N A M E P 4 V A L
0117160 I S T P 3 E A L I S T P
0117200 2 N A L I S T P 1 U N
0117220 A M E P 0 F I L E N A M E
0117240 I 0 P F A L L O C ) \0 235
0117260 \b \0 \0 001 021 200 \a @ 006 \0 \0 311 \0 X d \t
0117300 \0 \0 Y g \0 \0 I g \0 \0 ' g \0 \0 I g
0117320 \0 \0 ' h 032 032 032 032 \t \0 \0 \t \0 \0 ] I
0117340 g \0 \0 ' \t \0 \0 ^ I g \0 \0 ' \t \0 \0
0117360 _ 016 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 006 Z
0117400 M J 026 002 [ N K 026 002 \ O 016 g \0 \0 L
0117420 \v \0 \0 _ 016 d L \n \0 \0 \ d 236 N L K
0117440 \v \0 \0 273 M K J \v \0 \0 260 025 N K \n \0
0117460 \0 [ 226 M K J \v \0 \0 204 M J \n \0 \0 272
0117500 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 J 024 006 @ 020
0117520 \0 ( 2 1 2 Q \ F L O P P Y . L
0117540 E X R E M O V E A S S O C 2 0
0117560 4 Q \ F L O P P Y . L E X P U
0117600 T A S S O C 1 7 4 Q \ F L O
0117620 P P Y . L E X R E M O V E A S S
0117640 O C 1 6 5 Q \ F L O P P Y .
0117660 L E X P U T A S S O C 1 5 6 Q
0117700 \ F L O P P Y . L E X P U T A
0117720 S S O C 1 4 5 Q \ F L O P P
0117740 Y . L E X R E M O V E A S S O C
0117760 1 3 6 Q \ P F L O P P Y . D
0120000 I R . V E R S I O N 7 3 Q U
0120020 - C A S E 6 2 Q U - C A S E
0120040 5 1 Q U - C A S E 4 6 Q
0120060 P A C K F I L E N A M E 1 5 Q
0120100 U N P A C K F I L E N A M E )
0120120 \r ( 2 2 6 Q P F I N F O 2 2
0120140 1 Q F D E V 2 1 6 Q \ F L
0120160 O P P Y F D E V 1 3 2 Q O L
0120200 D 1 1 0 Q P F I N F O 1 0
0120220 3 Q F D E V 1 0 0 Q \ F L
0120240 O P P Y F D E V 6 7 Q V E R
0120260 S I O N 5 6 Q E X T E N S I
0120300 O N 3 5 Q N A M E 3 1 Q
0120320 N A M E 2 5 Q D I R E C T O
0120340 R Y 2 1 Q D I R E C T O R Y
0120360 6 P F A L L O C ) \r ( ) \r \
0120400 P F L O P P Y . D I R . V E R S
0120420 I O N D 1 \r ( P 0 P F A L
0120440 L O C I 3 F I L E N A M E
0120460 I 2 V A L I S T I 1
0120500 R E C O G I 0 V E R S I O
0120520 N ) \0 250 005 \0 \0 004 021 020 \0 B 021 1 004
0120540 I 003 265 025 J 022 b 004 A g \0 \0 360 262 * d
0120560 262 ! g \0 \0 260 037 001 d 001 3 020 230 274 K 265
0120600 \r L h 032 [ Z 277 I 002 Y 260 327 L & [ 260
0120620 367 g \0 \0 b 002 277 @ 263 ? A d g \0 \0 360
0120640 262 025 277 B 265 004 k 020 \t \0 \0 001 001 d 3 020
0120660 262 1 k 330 020 g \0 \0 360 226 B \t \0 \0 001 001
0120700 020 A d g \0 \0 360 224 277 B 001 001 020 g \0 \0
0120720 360 255 \b \0 \0 277 210 A g \0 \0 360 222 C 265 004
0120740 @ 020 g \0 \0 \n \0 \0 X 262 367 H \t \0 \0 277
0120760 H \t \0 \0 277 H \t \0 \0 277 \b \0 \0 277 260 342
0121000 \0 ( 2 4 3 Q \ P F L O P P Y .
0121020 S A V E . P F I L E L I S T 2
0121040 3 7 Q \ P F L O P P Y . D E L
0121060 E T E . F R O M . P F I L E L I
0121100 S T 2 3 2 Q \ P F L O P P Y
0121120 . D E A L L O C A T E 2 2 5 Q
0121140 \ P F L O P P Y . D I R . R E
0121160 M O V E 2 1 6 Q \ P F L O P
0121200 P Y . D I R . G E T 1 7 3 Q
0121220 S H O U L D N T 1 4 4 Q L A
0121240 S T 1 2 1 Q L A S T ) \r ( 2
0121260 1 3 Q O L D 2 0 1 Q N E W
0121300 1 6 6 Q E X A C T 1 5 4 Q
0121320 O L D E S T 1 3 6 Q O L D
0121340 1 0 5 Q N E W 7 2 Q N E
0121360 W 3 3 Q O L D 2 2 Q O L
0121400 D / N E W ) \r ( ) \r \ P F L O P
0121420 P Y . G E T F I L E N A M E A 0
0121440 0 0 1 A 0 0 0 2 D 1 \r ( N A M
0121460 E E R R O R S E T F 0 F
0121500 I L E ) \0 \b \0 001 002 \0 P \t \0 \0 h
0121520 032 020 \0 ( 3 \ F L O P P Y . A S
0121540 S U R E F I L E N A M E ) \r N I
0121560 L \r ( ) \r \ P F L O P P Y . G E
0121600 T F I L E N A M E A 0 0 0 1 D
0121620 1 \r ( N A M E E R R O R S E T
0121640 P 1 0 Q P F A L L O C P
0121660 7 V A L I S T P 6 E A
0121700 L I S T P 5 N A L I S T
0121720 P 4 V E R S I O N P 3
0121740 E X T E N S I O N P 2 N A
0121760 M E P 1 U N A M E P 0
0122000 F I L E N A M E F 1 1 Q
0122020 R E C O G F 1 2 Q F I L E
0122040 F 1 3 Q R E S E T Y ) \0
0122060 320 \t 003 002 \0 ` \0 \0 h i \v \0 \0 277 021 220
0122100 \b W 024 004 ` \0 \0 360 231 W 024 006 \0 \0 311 004
0122120 261 \0 257 i \t \0 \0 264 003 202 261 \0 245 i \t \0
0122140 \0 243 h 261 \0 234 o \0 \0 \0 \t \0 \0 d 242 261
0122160 \0 220 001 270 W 022 g \0 \0 360 222 261 \0 200 H \t
0122200 \0 \0 271 g \0 \0 I g \0 \0 ' g \0 \0 I g
0122220 \0 \0 ' h 032 032 032 032 \t \0 \0 \t \0 \0 272 I
0122240 g \0 \0 ' \t \0 \0 273 I g \0 \0 ' \t \0 \0
0122260 274 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 006 275 J
0122300 M 026 002 276 K N 026 002 _ 016 277 L W 022 O 016
0122320 \v \0 \0 274 W 022 g \0 \0 360 237 I g \0 \0 L
0122340 \v \0 \0 277 I \t \0 \0 X 260 023 L O 016 026 002
0122360 _ 020 d 232 006 \0 \0 311 \0 X 200 H \t \0 \0 022
0122400 c 026 i 020 \0 ( 3 1 1 Q \ F L O P
0122420 P Y . A D D D E V I C E N A M E
0122440 2 6 2 Q P A C K F I L E N A
0122460 M E 2 5 5 Q L I S T P U T
0122500 2 3 5 Q \ P F L O P P Y . D I
0122520 R . V E R S I O N 1 7 2 Q U
0122540 - C A S E 1 6 1 Q U - C A S
0122560 E 1 5 0 Q U - C A S E 1 4
0122600 5 Q P A C K F I L E N A M E
0122620 1 1 4 Q U N P A C K F I L E N
0122640 A M E 6 7 Q \ P F L O P P Y
0122660 . G E T F I L E N A M E A 0 0 0
0122700 1 A 0 0 0 2 5 3 Q \ F L O P
0122720 P Y . C A C H E D . R E A D 4
0122740 1 Q \ F L O P P Y . E X I S T
0122760 S P 7 O B T A I N . M O N I
0123000 T O R L O C K ) \r ( 3 0 1 Q P
0123020 F A L L O C 2 5 1 Q V E R S
0123040 I O N 2 4 3 Q N E W 2 0 6
0123060 Q P F I N F O 2 0 1 Q F D
0123100 E V 1 7 6 Q \ F L O P P Y F
0123120 D E V 1 6 6 Q V E R S I O N
0123140 1 5 5 Q E X T E N S I O N
0123160 1 3 4 Q N A M E 1 3 0 Q N
0123200 A M E 1 2 4 Q D I R E C T O
0123220 R Y 1 2 0 Q D I R E C T O R
0123240 Y 1 0 3 Q E X A C T 3 0 Q
0123260 S T R E A M 2 1 Q 004 003 S T
0123300 R E A M T Y P E # 2 \ F L O
0123320 P P Y L O C K ) \r ( 6 4 Q (
0123340 \ P F L O P P Y . G E T F I L E
0123360 N A M E A 0 0 0 1 A 0 0 0 2 ) )
0123400 \r \ P F L O P P Y . G E T F I L
0123420 E N A M E D 1 \r ( P 2 R E
0123440 S E T Z P 1 R E S E T Y
0123460 P 0 L I S P X H I S T I
0123500 2 F D E V I 1 R E C O G
0123520 I 0 F I L E F 3 L I
0123540 S P X H I S T F 4 R E S E
0123560 T V A R S L S T ) \0 " 003 002 \0 003
0123600 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221
0123620 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I
0123640 020 \0 ( 3 5 Q E R R O R ! 3 0
0123660 Q R E S E T R E S T O R E 1
0123700 6 Q \ P F L O P P Y . G E T F
0123720 I L E N A M E A 0 0 0 1 ) \r ( 2
0123740 4 Q E R R O R 1 3 Q I N T
0123760 E R N A L ) \r ( 1 0 Q ( \ P
0124000 F L O P P Y . G E T F I L E N A
0124020 M E A 0 0 0 1 ) ) \r \ P F L O P
0124040 P Y . C R E A T E . P F I L E L
0124060 I S T D 1 \r ( P 0 P F I L
0124100 E L I S T I 0 N P A G E S
0124120 ) \0 # 001 \0 \0 001 021 020 \0 @ \t \0 \0 X
0124140 d n 262 313 315 \0 H k 315 001 H @ n 001 \0 332
0124160 l 004 331 l 005 333 315 003 H 020 \0 ( 6 \ F
0124200 L O P P Y . B U F F E R ) \r N I
0124220 L \r ( ) \r \ P F L O P P Y . A D
0124240 D . T O . P F I L E L I S T D
0124260 1 \r ( P 2 4 Q \ I N T E R R
0124300 U P T A B L E P 1 2 Q N E
0124320 W N P A G E S P 1 1 Q N E
0124340 W M A X E N T R I E S P 1 0
0124360 Q N P M P A G E P 7 P M
0124400 P A G E P 6 N E X T P
0124420 5 N E W P F I L E L I S T P
0124440 4 N P A G E S P 3 N E
0124460 N T R I E S P 2 P F L E
0124500 P 1 P F I L E L I S T P
0124520 0 P S E C T O R 9 I 0 P
0124540 F A L L O C ) 001 367 025 \0 \0 001 021 360
0124560 016 021 P 023 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311
0124600 \b X ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 002 Y
0124620 ` \0 \0 037 H 006 \0 \0 _ 026 310 023 O 026 310 022
0124640 365 _ 030 277 d O 030 \n \0 \0 277 @ 006 \0 \0 311
0124660 \b 006 \0 \0 310 206 _ 032 277 d O 032 315 002 277 @
0124700 006 \0 \0 311 006 _ 034 277 d O 034 315 003 277 @ 006
0124720 \0 \0 311 \b 006 \0 \0 _ 036 310 202 O 036 310 201 365
0124740 _ 277 d O 315 004 277 Z H 006 \0 \0 l 022
0124760 320 H 006 \0 \0 _ " 310 023 O " 310 022 365 k 330
0125000 \n \0 \0 @ 006 \0 \0 J 024 \f I 310 002 [ d I
0125020 310 003 331 j 360 242 261 001 026 I 310 003 l 005 332 l
0125040 \b 330 n 001 \0 333 \ k 330 \t \0 \0 ] 310 003 _
0125060 022 277 M 310 003 l 005 332 l \b 330 n 001 \0 333 _
0125100 024 277 M I L n 001 \0 332 304 277 M O 022 315 003
0125120 277 M 271 O 024 274 ` \0 \0 006 \0 \0 311 ( 006 \0
0125140 \0 I 024 002 277 I 027 \0 \0 277 L \t \0 \0 b \0
0125160 277 ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 004 h _
0125200 & 277 _ $ 003 265 003 202 261 \0 274 h \t \0 \0 277
0125220 @ 006 \0 \0 311 004 276 @ 006 \0 \0 311 \b _ 016 277
0125240 N 006 \0 \0 311 \b _ 020 277 ` \0 \0 006 \0 \0 311
0125260 ( 006 \0 \0 311 \b 270 021 020 024 @ 006 \0 \0 o \0
0125300 \0 \0 024 \0 277 O 016 006 \0 \0 l 002 315 203 277 O
0125320 016 006 \0 \0 n \b 006 315 206 277 O 020 006 \0 \0 l
0125340 002 315 004 277 O 020 006 \0 \0 n \b 006 315 \a 277 H
0125360 006 \0 \0 @ 006 \0 \0 311 006 315 005 277 H 006 \0 \0
0125400 L 315 \b 277 @ 006 \0 \0 311 006 k 331 O 016 i \v
0125420 \0 \0 277 N 006 \0 \0 311 006 k 331 O 020 i \v \0
0125440 \0 277 i \t \0 \0 277 i \t \0 \0 023 J j I K
0125460 l 005 332 l 004 330 l 005 \r 005 \0 \0 I K k 330
0125500 315 002 h 020 001 _ & 006 \0 \0 311 \0 o \0 \0 \0
0125520 364 233 O & 265 003 202 261 377 5 i 261 377 1 O $
0125540 002 261 377 ! \0 ( 7 1 5 Q \ M O V E
0125560 W O R D S 6 7 4 Q \ P F L O
0125600 P P Y . S A V E . P S E C T O R
0125620 9 6 6 7 Q \ P F L O P P Y .
0125640 S A V E . P F I L E L I S T 6
0125660 6 2 Q \ P F L O P P Y . W R I
0125700 T E P A G E N O 6 4 3 Q \ P
0125720 F L O P P Y . W R I T E P A G E
0125740 N O 4 4 0 Q \ P F L O P P Y
0125760 . D E A L L O C A T E 3 7 7 Q
0126000 \ P F L O P P Y . A L L O C A
0126020 T E 2 7 5 Q \ P F L O P P Y
0126040 . C R E A T E . P F I L E L I S
0126060 T 2 2 4 Q \ P U T S W A P P
0126100 E D F I X P 7 3 Q \ P U T S
0126120 W A P P E D F I X P ) \r ( 7 3 3
0126140 Q P F A L L O C 6 5 0 Q P
0126160 F A L L O C 6 3 1 Q P F A L
0126200 L O C 6 2 1 Q P S E C T O R
0126220 9 6 1 0 Q P F A L L O C 6
0126240 0 4 Q P S E C T O R 9 5 7 2
0126260 Q P M P A G E 5 6 0 Q P M
0126300 P A G E 5 4 5 Q P M P A G E
0126320 5 3 3 Q P M P A G E 5 1 7
0126340 Q P F A L L O C 5 0 5 Q P
0126360 F I N F O 5 0 0 Q F D E V
0126400 4 7 5 Q \ F L O P P Y F D E V
0126420 4 6 5 Q P F A L L O C 4 5
0126440 4 Q P F A L L O C 4 4 5 Q
0126460 P F A L L O C 4 1 5 Q P F I
0126500 N F O 4 1 0 Q F D E V 4 0
0126520 5 Q \ F L O P P Y F D E V 3
0126540 7 2 Q \ P F L O P P Y P F I L
0126560 E L I S T 3 6 2 Q P F I N F
0126600 O 3 5 5 Q F D E V 3 5 2 Q
0126620 \ F L O P P Y F D E V 2 3 0
0126640 Q P F A L L O C 2 0 6 Q P
0126660 S E C T O R 9 1 7 7 Q P S E
0126700 C T O R 9 1 5 0 Q P M P A G
0126720 E 1 4 3 Q P F A L L O C 1
0126740 2 4 Q P F A L L O C 1 0 5 Q
0126760 P M P A G E 1 0 0 Q P F A
0127000 L L O C 5 1 Q P S E C T O R
0127020 9 4 4 Q 004 003 P F L E T Y P E
0127040 # 3 6 Q P F I N F O 3 1 Q
0127060 F D E V 2 6 Q \ F L O P P
0127100 Y F D E V 2 0 Q P F I N F O
0127120 1 3 Q F D E V 1 0 Q \ F
0127140 L O P P Y F D E V ) \r ( 7 4 1
0127160 Q ( P F I L E L I S T ) 5 2
0127200 3 Q ( P F I L E L I S T ) ) \r
0127220 \ P F L O P P Y . D E L E T E .
0127240 F R O M . P F I L E L I S T D
0127260 1 \r ( P 6 I P 3 N E N
0127300 T R I E S P 2 F I L E I D
0127320 P 1 P F L E P 0 P F
0127340 I L E L I S T I 0 P F A L
0127360 L O C ) \0 215 \a \0 \0 001 021 P 004 ` \0
0127400 \0 006 \0 \0 311 ( 006 \0 \0 311 002 X @ 006 \0 \0
0127420 311 \f Y d 006 \0 \0 \ 310 001 L 310 \0 365 Z H
0127440 310 002 [ d k 021 002 006 N M 363 263 R H N l
0127460 005 332 l 004 330 320 313 \0 \t \0 \0 J 331 j 360 262
0127500 8 K k 331 273 H K l 005 332 l 004 330 H N l
0127520 005 332 l 004 330 l 005 \r 005 \0 \0 277 H K l 005
0127540 332 l 004 330 320 H K l 005 332 l \b 330 320 \n \0
0127560 \0 277 H K 315 002 277 N k 324 ^ 260 256 023 @ 006
0127600 \0 \0 h 024 \f h 020 \0 ( 1 6 5 Q \ Z
0127620 E R O W O R D S 1 3 7 Q \ M
0127640 O V E W O R D S 7 7 Q \ F L
0127660 O P P Y . M T L . F I X P ) \r (
0127700 2 0 6 Q P F A L L O C 3 3 Q
0127720 P F L E 2 4 Q P F A L L O
0127740 C 1 5 Q P F I N F O 1 0 Q
0127760 F D E V 5 \ F L O P P Y F
0130000 D E V ) \r ( ) \r \ P F L O P P Y
0130020 . S A V E . P F I L E L I S T
0130040 D 1 \r ( P 2 I P 0 P F
0130060 I L E L I S T I 0 N O E R
0130100 R O R ) \0 Q 003 \0 \0 001 021 0 002 ` \0
0130120 \0 006 \0 \0 311 ( 006 \0 \0 311 002 X d 310 003 l
0130140 005 332 l \b 330 n 001 \0 333 k 331 j 272 271 J I
0130160 363 263 ( ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311 \b
0130200 006 \0 \0 310 005 J 330 H J n 001 \0 332 320 @ \v
0130220 \0 \0 277 J k 324 Z 260 330 h 020 \0 ( 1 0 6
0130240 Q \ P F L O P P Y . W R I T E
0130260 P A G E N O ) \r ( 6 7 Q P S E
0130300 C T O R 9 6 2 Q P F I N F O
0130320 5 5 Q F D E V 5 2 Q \ F
0130340 L O P P Y F D E V 1 5 Q P F
0130360 I N F O 1 0 Q F D E V 5
0130400 \ F L O P P Y F D E V ) \r ( ) \r
0130420 \ P F L O P P Y . S A V E . P S
0130440 E C T O R 9 D 1 \r ( P 1 \
0130460 F L O P P Y . I B M S 1 2 8 . F
0130500 L O P P Y I O C B I 0 N O
0130520 E R R O R ) \0 G 002 \0 \0 001 ` \0 \0
0130540 265 < ` \0 \0 037 021 001 \0 H l 006 \n \0 \0 277
0130560 H 006 \0 \0 k 314 005 277 H 022 j \n \0 \0 021 001
0130600 001 I l \t ` \0 \0 006 \0 \0 311 ( 006 \0 \0 311
0130620 \b @ \f \0 \0 277 I 027 \0 \0 h 020 h 027 \0 \0
0130640 277 260 335 \0 ( 6 7 Q \ F L O P P Y
0130660 . W R I T E S E C T O R 4 0 Q
0130700 \ F L O P P Y . S E T U P . I
0130720 O C B 2 1 Q \ F L O P P Y .
0130740 S E T U P . I O C B ) \r ( 1 0 2
0130760 Q \ \ F L O P P Y . I B M S 1
0131000 2 8 . F L O P P Y I O C B . G L
0131020 O B A L R E S O U R C E 7 4 Q
0131040 \ \ F L O P P Y . I B M S 1 2
0131060 8 . F L O P P Y I O C B . G L O
0131100 B A L R E S O U R C E 6 1 Q
0131120 P F I N F O 5 4 Q F D E V
0131140 5 1 Q \ F L O P P Y F D E V
0131160 2 6 Q F L O P P Y I O C B 7
0131200 004 003 F L O P P Y I O C B T Y P
0131220 E # 2 \ \ F L O P P Y . I B
0131240 M S 1 2 8 . F L O P P Y I O C B
0131260 . G L O B A L R E S O U R C E )
0131300 \r ( ) \r \ P F L O P P Y . W R I
0131320 T E P A G E S D 1 \r ( P 2
0131340 B U F F E R P 1 I I 2
0131360 B U F F E R S I 1 F I R
0131400 S T P A G E # I 0 S T R E
0131420 A M ) \0 ' 003 \0 \0 003 B d 003 243 d 221
0131440 h 032 j 021 022 002 H 003 265 004 h 020 001 272 @ A
0131460 I 330 J \v \0 \0 277 H 002 270 I k 324 271 260 350
0131500 \0 ( 3 3 Q \ P F L O P P Y . W
0131520 R I T E P A G E ) \r N I L \r ( )
0131540 \r \ P F L O P P Y . W R I T E P
0131560 A G E A 0 0 0 1 D 1 \r ( N A M
0131600 E E R R O R S E T P 2 P
0131620 A G E N O P 1 P F A L L O
0131640 C P 0 S T R E A M F 4
0131660 F I L E F 5 F I R S T P
0131700 A G E # F 6 B U F F E R
0131720 F 7 R E S E T Y ) \0 P 004 004
0131740 002 \0 ` \0 \0 h i \v \0 \0 277 021 @ 003 T \t
0131760 \0 \0 X 006 \0 \0 311 \f Y 277 I 006 \0 \0 311 006
0132000 U k 330 330 Z I 006 \0 \0 311 006 I 006 \0 \0 311
0132020 \b 006 \0 \0 [ 310 202 K 310 201 365 k 331 330 361 225
0132040 I \t \0 \0 260 325 J V \n \0 \0 023 h c 016 i
0132060 020 \0 ( 1 1 0 Q \ P F L O P P Y
0132100 . W R I T E P A G E N O 1 0 1
0132120 Q \ P F L O P P Y . E X T E N
0132140 D 1 7 Q \ P F L O P P Y . A
0132160 S S U R E S T R E A M 7 O B
0132200 T A I N . M O N I T O R L O C K
0132220 ) \r ( 6 1 Q P M P A G E 5 4
0132240 Q P F A L L O C 4 6 Q P F
0132260 A L L O C 3 3 Q P F A L L O
0132300 C 2 3 Q S T R E A M 2 \
0132320 F L O P P Y L O C K ) \r ( ) \r \
0132340 P F L O P P Y . W R I T E P A G
0132360 E D 1 \r ( P 2 R E S E T Z
0132400 P 1 R E S E T Y P 0
0132420 L I S P X H I S T I 2 B U
0132440 F F E R I 1 F I R S T P A
0132460 G E # I 0 F I L E F 3
0132500 L I S P X H I S T F 4 R
0132520 E S E T V A R S L S T ) \0 & 003
0132540 002 \0 003 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n
0132560 \0 \0 221 h 202 g \0 \0 Z \n \0 \0 277 J 223 \b
0132600 \0 \0 277 023 \b \0 \0 020 \0 ( 4 3 Q B L
0132620 O C K 3 6 Q E R R O R ! 3
0132640 0 Q R E S E T R E S T O R E
0132660 1 6 Q \ P F L O P P Y . W R I
0132700 T E P A G E A 0 0 0 1 ) \r ( 2 4
0132720 Q E R R O R 1 3 Q I N T E
0132740 R N A L ) \r ( 1 0 Q ( \ P F
0132760 L O P P Y . W R I T E P A G E A
0133000 0 0 0 1 ) ) \r \ P F L O P P Y .
0133020 T R U N C A T E F I L E A 0 0 0
0133040 1 D 1 \r ( N A M E E R R O R
0133060 S E T P 4 P L P A G E P
0133100 3 P F A L L O C P 2 E
0133120 O F F S E T P 1 E P A G E
0133140 P 0 S T R E A M F 1 0
0133160 Q L A S T P A G E F 1 1 Q
0133200 L A S T O F F S E T F 1 2
0133220 Q F I L E F 1 3 Q R E S
0133240 E T Y ) \0 241 \b 004 002 \0 ` \0 \0 h i
0133260 \v \0 \0 277 021 200 \a W 024 \t \0 \0 X 006 \0 \0
0133300 310 \n 271 H 006 \0 \0 310 \v 272 W 020 247 I c 020
0133320 277 J c 022 277 H 006 \0 \0 311 \f [ 006 \0 \0 311
0133340 \n W 020 n 002 \0 332 W 022 330 _ 016 277 ^ 006 \0
0133360 \0 l \a 320 O 016 n 001 377 330 n 002 \0 333 \n \0
0133400 \0 277 N 006 \0 \0 l \r 320 O 016 \n \0 \0 277 N
0133420 006 \0 \0 l \v 320 N 006 \0 \0 ] 310 \b M 310 \a
0133440 365 \n \0 \0 277 W 022 j 360 263 034 W 022 005 003 265
0133460 021 K W 020 l 002 330 \n \0 \0 023 h c 026 i 020
0133500 \t \0 \0 262 356 K W 020 k 260 355 \0 ( 2 2 7
0133520 Q \ F Z E R O P 2 1 6 Q \
0133540 P F L O P P Y . T R U N C A T E
0133560 1 7 0 Q \ P U T S W A P P E
0133600 D F I X P 1 4 2 Q \ P U T S
0133620 W A P P E D F I X P 1 2 5 Q
0133640 \ P U T S W A P P E D F I X P
0133660 2 0 Q \ P F L O P P Y . A S S
0133700 U R E S T R E A M 7 O B T A
0133720 I N . M O N I T O R L O C K ) \r
0133740 ( 1 5 6 Q P L P A G E 1 4 7
0133760 Q P L P A G E 1 3 2 Q P L
0134000 P A G E 1 0 5 Q P L P A G E
0134020 6 3 Q P F A L L O C 5 5 Q
0134040 S T R E A M 3 3 Q S T R E
0134060 A M 2 4 Q S T R E A M 2
0134100 \ F L O P P Y L O C K ) \r ( ) \r
0134120 \ P F L O P P Y . T R U N C A T
0134140 E F I L E D 1 \r ( P 2 R E
0134160 S E T Z P 1 R E S E T Y
0134200 P 0 L I S P X H I S T I
0134220 2 L A S T O F F S E T I 1
0134240 L A S T P A G E I 0 F I
0134260 L E F 3 L I S P X H I S T
0134300 F 4 R E S E T V A R S L S
0134320 T ) \0 " 003 002 \0 003 S 021 ! 002 T o \0
0134340 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n
0134360 \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q
0134400 E R R O R ! 3 0 Q R E S E T
0134420 R E S T O R E 1 6 Q \ P F L
0134440 O P P Y . T R U N C A T E F I L
0134460 E A 0 0 0 1 ) \r ( 2 4 Q E R R
0134500 O R 1 3 Q I N T E R N A L )
0134520 \r ( 1 0 Q ( \ P F L O P P Y
0134540 . T R U N C A T E F I L E A 0 0
0134560 0 1 ) ) \r \ P F L O P P Y . F O
0134600 R M A T D 1 \r ( P 3 0 Q I
0134620 P 2 6 Q \ F L O P P Y . I
0134640 B M D 5 1 2 . F L O P P Y I O C
0134660 B P 2 5 Q \ F L O P P Y .
0134700 I B M D 2 5 6 . F L O P P Y I O
0134720 C B P 2 4 Q \ F L O P P Y
0134740 . I B M S 1 2 8 . F L O P P Y I
0134760 O C B P 2 3 Q V A L U E
0135000 P 6 N A T T E M P T S P
0135020 5 P F L E P 4 P F I L E
0135040 L I S T P 3 P M P A G E C
0135060 P 2 P M P A G E B P 1
0135100 P M P A G E A P 0 P S E
0135120 C T O R 9 I 2 S L O W F L
0135140 G I 1 A U T O C O N F I R
0135160 M F L G I 0 N A M E F
0135200 3 1 Q \ P F L O P P Y F I R S
0135220 T D A T A P A G E F 3 2 Q
0135240 \ P F L O P P Y L A S T D A T A
0135260 P A G E F 3 3 Q \ F L O P
0135300 P Y . C Y L I N D E R S F 3
0135320 4 Q \ F L O P P Y . S E C T O
0135340 R S P E R T R A C K F 3 5 Q
0135360 \ F L O P P Y . T R A C K S P
0135400 E R C Y L I N D E R F 3 6 Q
0135420 \ F L O P P Y . S C R A T C H
0135440 . B U F F E R ) 004 034 031 006 \0 003 021
0135460 360 016 021 @ 022 \b \0 \0 277 o \0 \0 \0 A i \v
0135500 \0 \0 241 h 020 \b \0 \0 277 l 002 \t \0 \0 \ n
0135520 262 313 315 \0 277 L k 315 001 277 L k 315 002 277 L
0135540 l e 315 003 277 ` \0 \0 037 d k \n \0 \0 277 d
0135560 n \b 006 315 002 277 W 2 k 330 _ 016 277 d O 016
0135600 315 003 277 d l 002 315 004 277 ] j L l 004 l 005
0135620 \r 005 \0 \0 277 ` \0 \0 037 d j 315 004 277 d l
0135640 005 320 j \n \0 \0 277 d j 315 \a 277 d l 002 320
0135660 j \n \0 \0 277 d l 002 315 203 277 d n \b 006 315
0135700 206 277 d l 204 320 k \n \0 \0 277 d l 201 320 l
0135720 002 \n \0 \0 277 d k 315 001 277 d n 2 313 315 \0
0135740 277 271 ` \0 \0 037 d l 002 315 004 277 d n \b 006
0135760 315 \a 277 d l 005 320 k \n \0 \0 277 d l 002 320
0136000 l 002 \n \0 \0 277 d j 315 203 277 d j 315 206 277
0136020 d l 204 320 j \n \0 \0 277 W 4 W 2 l 004 330
0136040 331 _ 020 277 d l 201 320 O 020 \n \0 \0 277 d k
0136060 315 001 277 d n 2 313 315 \0 277 272 ` \0 \0 037 d
0136100 j 315 004 277 d l 005 320 j \n \0 \0 277 d j 315
0136120 \a 277 W 4 W 2 l 004 330 331 _ 022 277 d l 002
0136140 320 O 022 \n \0 \0 277 d j 315 203 277 d l 204 320
0136160 j \n \0 \0 277 d j 315 206 277 d l 201 320 j \n
0136200 \0 \0 277 d k 315 001 277 d n 2 313 315 \0 277 273
0136220 ` \0 \0 037 W 2 k 330 _ 024 277 d O 024 315 005
0136240 277 d l 006 320 k \n \0 \0 277 d l 002 315 \b 277
0136260 d l \t 320 j \n \0 \0 277 d l 022 320 l 002 \n
0136300 \0 \0 277 d W 8 315 004 277 d W : 315 003 277 d
0136320 W 6 315 002 277 d k 315 001 277 d n 303 \f 315 \0
0136340 277 270 021 020 023 @ \t \0 \0 _ & 277 H 006 \0 \0
0136360 O & \t \0 \0 _ 026 277 l j O 026 361 222 O 026
0136400 201 l j 315 025 277 l \a 037 H l 026 320 _ 032 277
0136420 H 006 \0 \0 310 025 _ 030 277 d O 030 315 002 277 d
0136440 j 317 \0 C 277 d j 317 \0 020 277 d k 317 \0 \0
0136460 277 d O 032 024 \0 277 k O & k H 006 \0 \0 310
0136500 025 \v \0 \0 \v \0 \0 023 j 276 N k 330 ^ l 005
0136520 361 230 o \0 \0 \0 \t \0 \0 h 020 i \t \0 \0 262
0136540 353 \b \0 \0 262 346 B 244 H 222 261 001 > i \t \0
0136560 \0 242 261 \0 320 i \t \0 \0 242 261 \0 310 ` \0 \0
0136600 265 003 202 261 \0 324 ` \0 \0 037 _ 034 l 006 \n \0
0136620 \0 277 O 034 006 \0 \0 k 314 005 277 O 034 j \n \0
0136640 \0 021 001 024 O ( k d i \f \0 \0 O ( 027 \0
0136660 \0 277 022 242 261 \0 216 ` \0 \0 265 003 202 261 \0 223
0136700 ` \0 \0 037 _ 036 l 006 \n \0 \0 277 O 036 006 \0
0136720 \0 k 314 005 277 O 036 l 005 \n \0 \0 021 001 025 O
0136740 * n 001 001 k i \f \0 \0 O * 027 \0 \0 277 022
0136760 262 R i \t \0 \0 262 L ` \0 \0 265 N ` \0 \0
0137000 037 _ l 006 \n \0 \0 277 O 006 \0 \0 k 314
0137020 005 277 O l 006 \n \0 \0 021 001 026 O , o \0
0137040 \0 \0 W 6 k 331 i \f \0 \0 277 O , o \0 \0
0137060 \0 W 6 k 331 i \f \0 \0 O , 027 \0 \0 277 022
0137100 263 037 i b 004 277 261 377 004 h 027 \0 \0 277 260 313
0137120 h 027 \0 \0 277 260 207 h 027 \0 \0 277 261 377 E `
0137140 \0 \0 265 003 202 261 \0 270 ` \0 \0 037 _ " l 006
0137160 \n \0 \0 277 O " 006 \0 \0 k 314 005 277 O " l
0137200 006 \n \0 \0 021 ! 030 W 4 W 2 _ 0 277 _ .
0137220 277 O 0 d O . 363 242 261 \0 215 277 h O , 027
0137240 \0 \0 277 022 222 261 376 245 W 2 I i \v \0 \0 262
0137260 g W 2 k 330 L i \v \0 \0 262 \ W 2 l 002
0137300 330 L n 001 \0 320 i \v \0 \0 262 L W 2 l 003
0137320 330 J i \v \0 \0 262 @ W 4 K i \v \0 \0 262
0137340 7 ` \0 \0 265 ] ` \0 \0 037 _ $ l 006 \n \0
0137360 \0 277 O $ 006 \0 \0 k 314 005 277 O $ j \n \0
0137400 \0 021 001 024 O ( l \t H i \f \0 \0 O ( 027
0137420 \0 \0 277 022 263 4 i b 004 277 261 376 0 h 027 \0
0137440 \0 277 261 377 b W < i \v \0 \0 253 O 0 265 003
0137460 202 261 377 l i 261 377 h O 0 k 324 _ 0 261 377
0137500 U h 027 \0 \0 277 260 273 i 020 \0 ( 1 7 7 3
0137520 Q \ P F L O P P Y . R E A D P
0137540 A G E N O 1 7 3 5 Q \ F L O
0137560 P P Y . W R I T E S E C T O R
0137600 1 7 2 1 Q \ F L O P P Y . S E
0137620 T U P . I O C B 1 7 0 1 Q \
0137640 F L O P P Y . S E T U P . I O C
0137660 B 1 6 5 7 Q \ P F L O P P Y
0137700 . W R I T E P A G E N O 1 6 4
0137720 6 Q \ P F L O P P Y . W R I T
0137740 E P A G E N O 1 6 3 2 Q \ P
0137760 F L O P P Y . W R I T E P A G E
0140000 N O 1 6 1 2 Q \ P F L O P P
0140020 Y . W R I T E P A G E N O 1 5
0140040 7 7 Q \ P F L O P P Y . W R I
0140060 T E P A G E N O 1 5 2 4 Q \
0140100 F L O P P Y . S E T U P . I O C
0140120 B 1 5 0 3 Q \ F L O P P Y .
0140140 S E T U P . I O C B 1 4 1 1 Q
0140160 \ F L O P P Y . F O R M A T T
0140200 R A C K S 1 3 7 2 Q \ F L O
0140220 P P Y . F O R M A T T R A C K S
0140240 1 3 5 1 Q \ F L O P P Y . S
0140260 E T U P . I O C B 1 3 3 0 Q
0140300 \ F L O P P Y . S E T U P . I O
0140320 C B 1 3 0 6 Q \ F L O P P Y
0140340 . R E C A L I B R A T E 1 2 7
0140360 1 Q \ F L O P P Y . F O R M A
0140400 T T R A C K S 1 2 5 4 Q \ F
0140420 L O P P Y . S E T U P . I O C B
0140440 1 2 3 3 Q \ F L O P P Y . S
0140460 E T U P . I O C B 1 1 7 4 Q
0140500 \ F L O P P Y . F O R M A T T R
0140520 A C K S 1 1 6 1 Q \ F L O P
0140540 P Y . S E T U P . I O C B 1 1
0140560 4 1 Q \ F L O P P Y . S E T U
0140600 P . I O C B 1 1 1 1 Q \ F L
0140620 O P P Y . R E C A L I B R A T E
0140640 1 1 0 1 Q \ F L O P P Y . I
0140660 N I T I A L I Z E 1 0 6 4 Q
0140700 \ F L O P P Y . W R I T E A B L
0140720 E P 1 0 5 7 Q \ F L O P P Y
0140740 . I N I T I A L I Z E 1 0 5 1
0140760 Q \ F L O P P Y . M E S S A G
0141000 E 1 0 2 7 Q R P L S T R I N
0141020 G 1 0 2 4 Q S U B S T R I N
0141040 G 7 0 5 Q N C H A R S 6 7
0141060 1 Q M K S T R I N G 6 2 2 Q
0141100 \ P U T S W A P P E D F I X P
0141120 6 1 0 Q \ P U T S W A P P E
0141140 D F I X P 5 7 1 Q \ P U T S
0141160 W A P P E D F I X P 5 2 2 Q
0141200 \ P U T S W A P P E D F I X P
0141220 5 0 4 Q \ P U T S W A P P E D
0141240 F I X P 4 6 6 Q \ P U T S W
0141260 A P P E D F I X P 4 3 4 Q \
0141300 P U T S W A P P E D F I X P 3
0141320 7 5 Q \ P U T S W A P P E D F
0141340 I X P 3 5 0 Q \ P U T S W A
0141360 P P E D F I X P 3 2 5 Q \ P
0141400 U T S W A P P E D F I X P 3 1
0141420 3 Q \ P U T S W A P P E D F I
0141440 X P 2 4 4 Q \ P U T S W A P
0141460 P E D F I X P 2 3 2 Q \ P U
0141500 T S W A P P E D F I X P 2 0 4
0141520