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