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