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