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