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