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