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