$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>DOVEDISK.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - O c t - 8 5 2 1 : 2 9 : 5 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > D O V E D I
0000120 S K . ; 3 8 ) \r " 1 0 - O c t
0000140 - 8 5 1 9 : 2 6 : 0 1 " b c
0000160 o m p l ' d i n " I N T E R
0000200 L I S P - D 1 0 - O c t - 8 5
0000220 . . . " d a t e d " 1 0 -
0000240 O c t - 8 5 1 9 : 5 8 : 3 4 "
0000260 ) \r ( F I L E C R E A T E D "
0000300 1 6 - S e p - 8 5 1 7 : 3 8 :
0000320 5 1 " { E R I S } < L I S P C
0000340 O R E > S O U R C E S > D O V E
0000360 D I S K . ; 3 8 2 8 3 0 0 c
0000400 h a n g e s t o : ( V A R S
0000420 \r D O V E D I S K D E C L S
0000440 D O V E D I S K C O M S ) ( F
0000460 N S \ D O V E . A C T O N V M
0000500 E M P A G E \ D o v e D i s k
0000520 . E x e c u t e I O C B \ D o
0000540 v e D i s k . H a n d l e M a j
0000560 o r E r r o r \r \ D o v e D i
0000600 s k . I n i t \ D o v e D i s
0000620 k . I n i t I O C B \ D o v e
0000640 D i s k . I n i t i a t e \ D
0000660 o v e D i s k . W a i t F o r H
0000700 a n d l e r S t o p p e d \ D
0000720 I S K D O V E I N I T ) ( \r R
0000740 E C O R D S D o v e . D i s k
0000760 F C B ) p r e v i o u s d a
0001000 t e : " 5 - S e p - 8 5 1
0001020 7 : 1 5 : 3 4 " { E R I S } <
0001040 L I S P C O R E > S O U R C E S
0001060 > D O V E D I S K . ; 3 5 ) \r \
0001100 D I S K D O V E I N I T D 1 \r
0001120 N I L \0 ! \0 \0 \0 \0 o \0 \0 \0 206 d
0001140 001 \t \0 \0 277 002 003 265 370 o \0 \0 \0 206 d 001
0001160 \t \0 \0 277 002 003 265 370 h 020 \0 ( 3 0 Q
0001200 \ L O C K F N 1 1 Q \ L O C
0001220 K V A R ) \r N I L \r ( 2 2 Q
0001240 ( \ D O V E . A C T O N V M E M
0001260 F I L E \ D O V E . A C T O N
0001300 V M E M P A G E \ D O V E . X
0001320 F E R D I S K \ D o v e D i s
0001340 k . C o p y B y t e S w a p p e
0001360 d L a b e l \ D o v e D i s k
0001400 . E x e c u t e I O C B \ D o
0001420 v e D i s k . H a n d l e M a j
0001440 o r E r r o r \ D o v e D i s
0001460 k . I n i t \ D o v e D i s k
0001500 . I n i t I O C B \ D o v e D
0001520 i s k . I n i t i a t e \ D o
0001540 v e D i s k . T r y R e c a l i
0001560 b r a t e \ D o v e D i s k .
0001600 W a i t F o r H a n d l e r S t
0001620 o p p e d ) 3 ( \ D o v e D
0001640 i s k . F C B P o i n t e r \
0001660 D I S K T Y P E \ C O N T R O
0001700 L L E R T Y P E \ D L D I S K
0001720 S H A P E . S E C T O R S P E R
0001740 C Y L I N D E R \ D L D I S K
0001760 S H A P E . S E C T O R S P E R
0002000 H E A D \ D L D I S K S H A P
0002020 E . H E A D S P E R D R I V E
0002040 \ I O C B S C R A T C H L A B E
0002060 L ) ) \r \ D O V E . A C T O N V
0002100 M E M F I L E D 1 \r ( I 3
0002120 W R I T E F L A G I 2 N P
0002140 A G E S I 1 B U F F E R
0002160 I 0 F I L E P A G E ) \0 )
0002200 002 \0 \0 004 B 021 021 001 H j 361 262 037 @ k 331
0002220 A C \v \0 \0 277 A n 001 \0 320 b 002 277 @ k
0002240 324 b \0 271 H k 331 X 260 341 I 020 \0 ( 2 0
0002260 Q \ D O V E . A C T O N V M E
0002300 M P A G E ) \r N I L \r ( ) \r \ D
0002320 O V E . A C T O N V M E M P A G
0002340 E D 1 \r ( P 2 I P 1
0002360 F A U L T L A B E L P 0 L
0002400 I N K B A S E I 2 W R I T
0002420 E F L A G I 1 B U F F E R
0002440 I 0 F I L E P A G E ) \0
0002460 214 003 \0 \0 003 ` \0 \0 l 177 320 ` \0 \0 l n
0002500 320 l % 021 003 002 I @ k 330 315 005 277 I j 315
0002520 \b 277 I j 315 \t 277 H 310 003 @ 361 246 H 310 003
0002540 j 360 262 I @ H 310 003 k 331 360 262 027 I H 310
0002560 004 315 \b 277 I H 312 005 \a 341 H 312 005 207 344 315
0002600 \t 277 H 310 001 H 312 002 \a @ H 310 \0 331 H 312
0002620 002 207 330 A B I \r 006 \0 \0 g \0 \0 360 221 h
0002640 020 l ] o \0 \0 \0 \n \0 \0 277 H l 003 320 270
0002660 J d j 360 225 277 \b \0 \0 h 020 k 331 Z 260 230
0002700 \0 ( 2 0 3 Q R A I D 1 6 4 Q
0002720 \ M P . E R R O R 1 4 4 Q
0002740 \ D O V E . X F E R D I S K ) \r
0002760 ( 1 4 7 Q O K 1 0 Q \ I O
0003000 C B P A G E 2 \ I O C B P A
0003020 G E ) \r ( 1 6 1 Q " H A R D
0003040 D I S K E R R O R I N S
0003060 W A P P E R " ) \r \ D O V E . X
0003100 F E R D I S K D 1 \r ( I 7
0003120 N O R A I D F L G I 6 R U
0003140 N L E N G T H I 5 L A B E
0003160 L I 4 M O D E I 3 B
0003200 U F F E R I 2 S E C I
0003220 1 H D I 0 C Y L ) 001 >
0003240 \0 \0 \0 \b A B ` \0 \0 333 330 b 002 B ` \0
0003260 \0 334 b 004 @ A ` \0 \0 333 330 b \0 A ` \0
0003300 \0 334 b 002 ` \0 \0 l - \n \0 \0 ` \0 \0 @
0003320 315 \0 277 ` \0 \0 A 317 001 \a 277 ` \0 \0 B 317
0003340 001 207 277 ` \0 \0 E 265 006 d l _ 320 316 002 277
0003360 ` \0 \0 C 316 004 277 ` \0 \0 l 003 317 006 ! 277
0003400 D d g \0 \0 360 262 025 277 ` \0 \0 k 317 006 A
0003420 277 ` \0 \0 k 317 006 a 261 \0 202 g \0 \0 360 262
0003440 024 ` \0 \0 l 003 317 006 A 277 ` \0 \0 k 317 006
0003460 a 260 i D d g \0 \0 360 262 026 277 ` \0 \0 l
0003500 003 317 006 A 277 ` \0 \0 l 002 317 006 a 260 M g
0003520 \0 \0 360 262 025 ` \0 \0 l 002 317 006 A 277 ` \0
0003540 \0 l 002 317 006 a 260 4 D d i 360 262 026 277 `
0003560 \0 \0 l 002 317 006 A 277 ` \0 \0 l 002 317 006 a
0003600 260 032 257 ` \0 \0 k 317 006 A 277 ` \0 \0 k 317
0003620 006 a 206 o \0 \0 \0 \t \0 \0 277 ` \0 \0 j 317
0003640 006 \0 277 ` \0 \0 l \n 317 006 207 277 ` \0 \0 F
0003660 005 001 265 003 k 315 \a ` \0 \0 \t \0 \0 d j 360
0003700 223 g \0 \0 020 l # 360 223 g \0 \0 020 D g \0
0003720 \0 360 245 D g \0 \0 360 223 g \0 \0 020 g \0 \0
0003740 020 \0 ( 4 3 0 Q \ D o v e D i s
0003760 k . E x e c u t e I O C B 3 6
0004000 5 Q R A I D 4 7 Q \ C L E
0004020 A R W O R D S ) \r ( 4 7 3 Q W
0004040 R I T E E R R O R 4 6 7 Q R
0004060 E A D E R R O R 4 6 2 Q V V
0004100 R 4 5 4 Q V R R 4 4 7 Q
0004120 V E R I F Y E R R O R 4 3 7 Q
0004140 O K 4 2 5 Q \ I O C B P A
0004160 G E 4 1 2 Q \ I O C B P A G
0004200 E 4 0 1 Q \ I O C B P A G E
0004220 3 7 1 Q \ I O C B P A G E
0004240 3 5 1 Q \ I O C B P A G E 3
0004260 4 1 Q \ I O C B P A G E 3 2
0004300 6 Q \ I O C B P A G E 3 1 5
0004320 Q \ I O C B P A G E 2 7 4 Q
0004340 \ I O C B P A G E 2 6 3 Q
0004360 \ I O C B P A G E 2 5 5 Q V
0004400 W W 2 4 3 Q \ I O C B P A G
0004420 E 2 3 2 Q \ I O C B P A G E
0004440 2 2 3 Q V V W 2 1 0 Q \
0004460 I O C B P A G E 1 7 7 Q \ I
0004500 O C B P A G E 1 7 1 Q V V R
0004520 1 5 7 Q \ I O C B P A G E
0004540 1 4 7 Q \ I O C B P A G E 1
0004560 4 0 Q V R R 1 2 5 Q \ I O
0004600 C B P A G E 1 1 6 Q \ I O C
0004620 B P A G E 1 0 1 Q \ I O C B
0004640 P A G E 7 1 Q \ I O C B P A
0004660 G E 6 1 Q \ I O C B P A G E
0004700 5 2 Q \ I O C B P A G E 4
0004720 2 Q \ I O C B P A G E 3 4 Q
0004740 \ D L D I S K S H A P E . H E
0004760 A D S P E R D R I V E 2 4 Q
0005000 \ D L D I S K S H A P E . H E A
0005020 D S P E R D R I V E 1 4 Q \
0005040 D L D I S K S H A P E . S E C T
0005060 O R S P E R H E A D 4 \ D L
0005100 D I S K S H A P E . S E C T O R
0005120 S P E R H E A D ) \r ( 3 6 2 Q
0005140 " I n v a l i d M O D E " )
0005160 \r \ D o v e D i s k . C o p y B
0005200 y t e S w a p p e d L a b e l
0005220 D 1 \r ( L ( 1 T O P T R 0
0005240 F R O M P T R ) ) \0 002 \0 \0
0005260 002 l \t j 021 002 001 I H 363 221 h 020 A I 320
0005300 @ I 320 310 \0 9 004 315 \0 277 I k 324 Y 260 352
0005320 \0 N I L \r N I L \r ( ) \r \ D o v
0005340 e D i s k . E x e c u t e I O C
0005360 B D 1 \r ( P 3 T r i e d R
0005400 e c a l i b r a t e P 2 D
0005420 O B P t r P 1 F C B P t r
0005440 P 0 T r i e s L e f t I
0005460 0 I O C B ) \0 a 004 \0 \0 001 l
0005500 020 021 1 003 ` \0 \0 271 @ l . 320 Z 277 H k
0005520 331 X j 360 225 J 310 \r 9 004 020 @ \t \0 \0 277
0005540 @ 312 006 A k 360 232 J l 027 320 @ 311 002 \n \0
0005560 \0 277 @ 312 ( \a j 360 221 j 020 I 310 037 j 360
0005600 245 @ \t \0 \0 260 310 @ l 377 317 ' \a 277 H d
0005620 l \b 360 262 274 277 @ \t \0 \0 277 i [ 260 260 \0
0005640 ( 1 3 2 Q \ D o v e D i s k .
0005660 T r y R e c a l i b r a t e 1
0005700 0 5 Q \ D o v e D i s k . H a
0005720 n d l e M a j o r E r r o r 6
0005740 1 Q \ D o v e D i s k . C o p
0005760 y B y t e S w a p p e d L a b e
0006000 l 3 7 Q \ D o v e D i s k .
0006020 I n i t i a t e ) \r ( 7 \ D o
0006040 v e D i s k . F C B P o i n t e
0006060 r ) \r ( ) \r \ D o v e D i s k .
0006100 H a n d l e M a j o r E r r o r
0006120 D 1 \r ( I 0 I O C B ) \0
0006140 Y \0 \0 \0 001 \b \0 \0 @ l 377 317 ' \a 277 @
0006160 j 317 ' 207 277 @ j 317 * 207 277 @ j 317 * \a
0006200 277 @ j 317 ( 207 277 @ j 317 + 207 ` \0 \0 j
0006220 315 037 ` \0 \0 310 025 9 006 \b \0 \0 @ l 377 317
0006240 ' \a @ j 317 ' 207 @ j 317 * 207 @ j 317 *
0006260 \a @ j 317 ( 207 @ j 317 + 207 j 020 \0 ( 6
0006300 6 Q \ D o v e D i s k . W a i
0006320 t F o r H a n d l e r S t o p p
0006340 e d 2 \ D o v e D i s k . W
0006360 a i t F o r H a n d l e r S t o
0006400 p p e d ) \r ( 5 7 Q \ D o v e
0006420 D i s k . F C B P o i n t e r
0006440 5 1 Q \ D o v e D i s k . F C
0006460 B P o i n t e r ) \r ( ) \r \ D o
0006500 v e D i s k . I n i t D 1 \r N
0006520 I L \0 Q 001 \0 \0 \0 g \0 \0 027 \0 \0 g
0006540 \0 \0 027 \0 \0 ` \0 \0 l ( 320 021 001 \0 H 312
0006560 026 207 027 \0 \0 277 H 312 026 \a 027 \0 \0 277 H 312
0006600 026 207 H 312 026 \a 332 027 \0 \0 023 ` \0 \0 n 001
0006620 \0 \n \0 \0 ` \0 \0 l 177 320 ` \0 \0 n ? \0
0006640 320 l 200 304 \b \0 \0 h 020 \0 ( 1 1 5 Q
0006660 \ D L . I N I T . D O B . C H A
0006700 I N 7 2 Q \ C L E A R W O R
0006720 D S ) \r ( 1 0 3 Q \ D o v e I
0006740 O R e g i o n 7 5 Q \ I O C
0006760 B P A G E 6 4 Q \ I O C B P
0007000 A G E 6 0 Q \ D L D I S K S
0007020 H A P E . S E C T O R S P E R C
0007040 Y L I N D E R 4 3 Q \ D L D
0007060 I S K S H A P E . S E C T O R S
0007100 P E R H E A D 3 3 Q \ D L D
0007120 I S K S H A P E . H E A D S P E
0007140 R D R I V E 1 6 Q \ D o v e
0007160 D i s k . F C B P o i n t e r
0007200 1 3 Q \ D I S K T Y P E 1 0
0007220 Q \ S E A G A T E 5 \ C O
0007240 N T R O L L E R T Y P E 2 \
0007260 S T 5 0 6 ) \r ( ) \r \ D o v e D
0007300 i s k . I n i t I O C B D 1 \r
0007320 ( P 2 D i s k O p P 1
0007340 D C B B a s e P 0 D O B B
0007360 a s e I 1 J u s t R e c a
0007400 l i b r a t e ? I 0 I O C
0007420 B P t r ) 002 ( 003 \0 \0 002 @ l . 320
0007440 ` \0 \0 l ( 320 021 022 002 @ 311 002 H l 027 320
0007460 \n \0 \0 @ l # 320 @ 311 004 \n \0 \0 @ k 317
0007500 % 220 277 k j 360 h 360 @ j 317 % 240 277 @ j
0007520 317 % 320 277 @ j 317 % 360 277 @ j 317 % 340 277
0007540 @ d 312 006 \0 j 360 241 k 200 j 317 % 200 277 @
0007560 j 317 + 207 277 @ j 317 ( \a 277 @ j 317 ( 207
0007600 277 @ j 317 * 207 277 @ j 317 * \a 277 @ j 317
0007620 ' 207 277 @ l 377 317 ' \a 277 @ d 310 \a 9 004
0007640 315 & H j 317 003 207 277 H j 317 004 207 277 H j
0007660 317 006 207 277 H j 317 \t 207 277 H j 317 017 207 277
0007700 H j 317 025 207 277 H n 316 X 315 024 277 H @ 310
0007720 \a n 377 377 346 k 330 9 004 315 002 277 H l 377 317
0007740 \t \a 277 H j 317 006 \a 277 H j 315 \0 277 H j
0007760 315 001 277 H k 317 017 \a 277 H n 377 377 9 004 315
0010000 016 277 H @ 310 \0 9 004 315 020 277 H @ 312 001 \a
0010020 317 021 207 277 H @ 312 001 207 317 021 \a 277 H j 9
0010040 004 315 \v 277 H j 9 004 315 \n 277 H j 9 004 315
0010060 \f 277 H j 9 004 315 \r 277 H I 310 030 315 \a 277
0010100 H I 310 031 315 \b 277 H I 312 026 \a 317 003 \a 277
0010120 H I 312 026 207 317 004 \a 277 H I 310 027 315 005 A
0010140 230 H j 317 025 \a 277 j 260 g @ 312 006 ! l 003
0010160 360 264 ^ @ 312 006 A d k 360 262 030 277 @ 312 006
0010200 a d j 360 224 277 l 005 260 G k 360 264 C l 006
0010220 260 ? d l 002 360 235 277 @ 312 006 a l 002 360 264
0010240 0 l 004 260 , l 003 360 264 ' @ 312 006 a d j
0010260 360 224 277 l 002 260 032 d k 360 223 277 l 002 217 d
0010300 l 002 360 223 277 l 003 206 l 003 360 264 004 l \a Z
0010320 241 i 020 H J 317 025 \a @ l 377 317 ' \a J d
0010340 l 002 360 262 023 277 @ k 317 % \0 277 @ k 317 %
0010360 p 277 @ j 260 J l 006 360 237 @ k 317 % \0 277
0010400 @ k 317 % p 277 @ j 260 6 J d l 003 360 262
0010420 023 277 @ k 317 % \0 277 @ j 317 % p 277 @ k
0010440 260 036 l 004 360 236 @ k 317 % \0 277 @ j 317 %
0010460 p 277 @ k 210 @ k 317 % \0 277 @ l 003 317 +
0010500 \a h 020 \0 ( 4 0 Q \ D o v e I O
0010520 . M a k e O p i e A d d r e s s
0010540 2 6 Q \ D o v e D i s k . C
0010560 o p y B y t e S w a p p e d L a
0010600 b e l ) \r ( 6 \ D o v e D i s
0010620 k . F C B P o i n t e r ) \r ( )
0010640 \r \ D o v e D i s k . I n i t i
0010660 a t e D 1 \r ( P 3 C o m p
0010700 l e t i o n P 2 I n v a l
0010720 i d O p P 1 S h o r t I O
0010740 C B P t r P 0 D C B B a s
0010760 e I 1 J u s t R e c a l i
0011000 b r a t e ? I 0 I O C B P
0011020 t r ) \0 240 005 \0 \0 002 ` \0 \0 l ( 320
0011040 @ 323 021 2 004 H A 221 k 200 j \ 317 024 \0 277
0011060 L j 360 h 360 @ l 016 320 \t \0 \0 @ k 315 021
0011100 277 @ l 377 317 ' \a @ A \n \0 \0 Z d 262 025
0011120 @ l 377 317 ( \a 277 g \0 \0 273 @ l 377 317 *
0011140 \a K 020 @ j 315 \r H I 315 \0 277 H I 315 002
0011160 @ j 315 , ` \0 \0 310 026 I 9 004 ` \0 \0 l
0011200 ) 320 323 ` \0 \0 323 331 l 004 9 005 @ j 317 *
0011220 \a ` \0 \0 n 377 377 315 035 ` \0 \0 310 025 9 006
0011240 @ 312 * \a l 377 360 262 371 H j 317 024 \0 277 j
0011260 d 360 h 360 @ 312 ( \a 020 \0 ( 6 1 Q \
0011300 D o v e D i s k . I n i t I O C
0011320 B 4 1 Q \ D o v e I O . M a
0011340 k e O p i e A d d r e s s ) \r (
0011360 2 0 1 Q \ D o v e D i s k . F
0011400 C B P o i n t e r 1 7 1 Q \
0011420 D o v e D i s k . F C B P o i n
0011440 t e r 1 5 3 Q \ D o v e I O
0011460 R e g i o n 1 4 4 Q \ D o v
0011500 e D i s k . F C B P o i n t e r
0011520 1 3 4 Q \ D o v e D i s k .
0011540 F C B P o i n t e r 7 7 Q I
0011560 N V A L I D O P E R A T I O N
0011600 2 \ D o v e D i s k . F C B P
0011620 o i n t e r ) \r ( ) \r \ D o v e
0011640 D i s k . T r y R e c a l i b r
0011660 a t e D 1 \r ( P 1 O L D C
0011700 M D P 0 D O B B a s e I
0011720 0 I O C B ) \0 031 002 \0 \0 001 @
0011740 l . 320 021 021 001 H 312 025 \a Y @ i \n \0 \0
0011760 H I 317 025 \a h 020 \0 ( 2 0 Q \ D o
0012000 v e D i s k . I n i t i a t e )
0012020 \r N I L \r ( ) \r \ D o v e D i s
0012040 k . W a i t F o r H a n d l e r
0012060 S t o p p e d D 1 \r N I L \0
0012100 037 001 \0 \0 \0 021 020 \0 k X n u 0 363 256 `
0012120 \0 \0 310 031 j 360 241 h 020 H k 324 260 355 \b \0
0012140 \0 h 020 \0 ( 3 3 Q R A I D ) \r (
0012160 1 4 Q \ D o v e D i s k . F C
0012200 B P o i n t e r ) \r ( ) \r ( P R
0012220 E T T Y C O M P R I N T D O V
0012240 E D I S K C O M S ) \r ( R P A Q
0012260 Q D O V E D I S K C O M S (
0012300 ( F N S \ D I S K D O V E I N
0012320 I T \ D O V E . A C T O N V M
0012340 E M F I L E \ D O V E . A C T
0012360 O N V M E M P A G E \ D O V E
0012400 . X F E R D I S K \r \ D o v e
0012420 D i s k . C o p y B y t e S w a
0012440 p p e d L a b e l \ D o v e D
0012460 i s k . E x e c u t e I O C B
0012500 \ D o v e D i s k . H a n d l e
0012520 M a j o r E r r o r \ D o v e
0012540 D i s k . I n i t \r \ D o v e
0012560 D i s k . I n i t I O C B \ D
0012600 o v e D i s k . I n i t i a t e
0012620 \ D o v e D i s k . T r y R e
0012640 c a l i b r a t e \ D o v e D
0012660 i s k . W a i t F o r H a n d l
0012700 e r S t o p p e d ) ( \r D E C
0012720 L A R E : E V A L @ C O M P I
0012740 L E D O N T C O P Y ( F I L
0012760 E S ( S O U R C E ) D O V E
0013000 D E C L S ) ( C O M S * D
0013020 O V E D I S K D E C L S ) ) (
0013040 D E C L A R E : \r D O N T E V
0013060 A L @ L O A D D O C O P Y (
0013100 P ( \ D I S K D O V E I N I T
0013120 ) ) ) ) ) \r ( \ D I S K D O V E
0013140 I N I T ) \r ( P U T P R O P S
0013160 D O V E D I S K C O P Y R I G
0013200 H T ( " X e r o x C o r p o
0013220 r a t i o n " 1 9 8 5 ) ) \r N
0013240 I L \r
0013243