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