$ od -c -N 50000 [eris]<LispCore>INTERNAL>library>VPCDISK.DCOM!2
0000000 ( F I L E C R E A T E D " 1 9
0000020 - D e c - 8 6 1 6 : 5 0 : 4 2
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 > I N T E R N A L > L I B R A
0000120 R Y > V P C D I S K . ; 1 ) \r
0000140 " 3 0 - N o v - 8 6 1 7 : 1 9
0000160 : 5 4 " t c o m p l ' d i n
0000200 " X e r o x L i s p 3 0 -
0000220 N o v - 8 6 . . . " d a t e
0000240 d " 3 0 - N o v - 8 6 1 7 :
0000260 5 0 : 2 9 " ) \r ( F I L E C R E
0000300 A T E D " 3 - O c t - 8 6
0000320 1 3 : 1 8 : 1 6 " { D S K } <
0000340 L I S P F I L E S > V P C D I S
0000360 K . ; 1 0 1 5 2 3 8 5 c h a
0000400 n g e s t o : ( F N S \ V
0000420 P C F . F I L E M A T C H \r \
0000440 V P C F . O P E N . B A C K I N
0000460 G . S T R E A M V P C D I S K
0000500 . I N S T A L L P C F L O P P
0000520 Y . I N S T A L L \ P C F L O
0000540 P P Y . C L O S E F I L E \ V
0000560 P C F . C L O S E F I L E \r \
0000600 V P C F . D E L E T E O F D )
0000620 p r e v i o u s d a t e : "
0000640 2 - O c t - 8 6 1 7 : 2 3 :
0000660 0 4 " { D S K } < L I S P F I
0000700 L E S > V P C D I S K . ; 7 ) \r
0000720 P R I N D I R S T R D 1 \r ( I
0000740 2 S T R E A M I 1 X
0000760 I 0 N A M E ) \0 4 002 \0 \0 003
0001000 @ \t \0 \0 A 363 232 @ k A \v \0 \0 B \n \0
0001020 \0 020 @ B \n \0 \0 A @ \t \0 \0 325 021 021 001
0001040 H j 361 234 B l \n \0 \0 271 H k 331 X 260
0001060 362 I 020 \0 ( 4 1 B O U T 2 7
0001100 N C H A R S 2 2 P R I N 3
0001120 1 6 P R I N 3 1 2 S U B S
0001140 T R I N G 3 N C H A R S ) \r
0001160 N I L \r ( ) \r S T R 2 I N T D
0001200 1 \r ( I 1 P O S I 0 S
0001220 T R ) \0 ) 002 \0 \0 002 @ A d \v \0 \0
0001240 \t \0 \0 @ A k 330 A k 330 \v \0 \0 \t \0 \0
0001260 021 002 001 H d g \0 \0 360 221 277 j l \n 332 I
0001300 330 020 \0 ( 2 1 G N C 1 8 S U
0001320 B S T R I N G 8 G N C 5
0001340 S U B S T R I N G ) \r ( 2 9 %
0001360 ) \r ( ) \r \ V P C F . O P E N
0001400 P D 1 \r ( I 2 D E V I C E
0001420 I 1 A C C E S S I 0
0001440 F I L E N A M E F 3 O P E
0001460 N F I L E L S T F 4 o f )
0001500 \0 % 003 002 \0 003 021 0 002 S \t \0 \0 T B
0001520 \v \0 \0 260 023 d 001 002 001 270 I 265 \a H h 032
0001540 Z 201 H & 271 002 003 265 356 J 020 \0 ( 1 1
0001560 f e t c h 6 F D E V ) \r N I
0001600 L \r ( ) \r ( P R E T T Y C O M P
0001620 R I N T V P C D I S K C O M S
0001640 ) \r ( R P A Q Q V P C D I S K
0001660 C O M S ( ( * * I m p l e
0001700 m e n t s a L I S P f i l
0001720 e s y s t e m , s o l i s
0001740 p c a n u s e f i l e s
0001760 o n v i r t u a l I B M - P
0002000 C f o r m a t \r f l o p p y
0002020 a n d h a r d d i s k s .
0002040 ) ( D E C L A R E : D O N T
0002060 C O P Y ( R E C O R D S V P
0002100 C D I S K V P C F D I R E N T
0002120 R Y V P C F F I L E V P C D
0002140 I R \r V P C G E N E R A T E D
0002160 F I L E I N F O ) ( C O N S T
0002200 A N T S ( V P C F . B Y T E S
0002220 . P E R . S E C T O R 5 1 2 )
0002240 ( V P C F . D I R . E N T R Y
0002260 . L E N 3 2 ) ( \r V P C F .
0002300 S E C T O R S . P E R . C Y L I
0002320 N D E R 6 8 ) ) ( * * D
0002340 i r e c t o r y f i l e a t
0002360 t r i b u t e - b y t e b i t
0002400 m e a n i n g s ) ( C O N S
0002420 T A N T S ( \r A T T R . R E A
0002440 D O N L Y 1 ) ( A T T R . H
0002460 I D D E N 2 ) ( A T T R . S
0002500 Y S F I L E 4 ) ( A T T R .
0002520 V O L L A B E L 8 ) ( A T T
0002540 R . D I R 1 6 ) ( A T T R .
0002560 A R C H I V E 3 2 ) ) ( \r *
0002600 * M e d i a - t y p e b y
0002620 t e m e a n i n g s ( f i r
0002640 s t b y t e o f t h e F
0002660 A T ) ) ( C O N S T A N T S
0002700 ( D I S K . 8 S E C 2 S I D E
0002720 2 5 5 ) ( D I S K . 8 S E C 1
0002740 S I D E \r 2 5 4 ) ( D I S K
0002760 . 9 S E C 2 S I D E 2 5 3 )
0003000 ( D I S K . 9 S E C 1 S I D E
0003020 2 5 2 ) ( D I S K . 1 5 S E C
0003040 2 S I D E 2 4 9 ) ( D I S K
0003060 . F D I S K 2 4 8 ) ( V P C
0003100 F . E O F 4 0 8 8 ) \r ( *
0003120 1 2 - b i t E O F v a l u e
0003140 ) ) ( M A C R O S \ S W I N
0003160 \ D S W I N \ S W O U T \
0003200 D S W O U T ) ) ( I N I T R E
0003220 C O R D S V P C D I S K V P
0003240 C F D I R E N T R Y V P C F F
0003260 I L E \r ) ( C O M S ( F N S
0003300 P R I N D I R S T R S T R 2
0003320 I N T \ V P C F . O P E N P
0003340 \ V P C F . R E A D P A G E S )
0003360 ) ( C O M S ( * D E V I C
0003400 E a n d F L O P P Y \r i n
0003420 i t i a l i z a t i o n a n d
0003440 c o p y i n g ) ( F N S V
0003460 P C D I S K . F L O P P Y . T O
0003500 . F I L E V P C D I S K . F I
0003520 L E . T O . F L O P P Y V P C
0003540 D I S K . I N S T A L L \r V P
0003560 C D I S K . C R E A T E . D E V
0003600 I C E \ V P C D I S K . C R E
0003620 A T E . F L O P P Y V P C D I
0003640 S K . D E L E T E . D E V I C E
0003660 V P C D I S K . F R E E P A G
0003700 E S \r V P C D I S K . G E T P
0003720 A R T I T I O N # V P C D I S
0003740 K . C H A N G E . P A R T I T I
0003760 O N . T Y P E \ V P C F . I N
0004000 I T I A L I Z E . D I S K ) )
0004020 ( C O M S ( * L I S P t o
0004040 r e a l P C \r F L O P P Y
0004060 f u n c t i o n s ) ( F N S
0004100 P C F L O P P Y . I N S T A L
0004120 L \ P C F L O P P Y . O P E N
0004140 . F O R . A P P E N D \ P C F
0004160 L O P P Y . O P E N . F O R . B
0004200 O T H \r \ P C F L O P P Y . O
0004220 P E N . F O R . I N P U T \ P
0004240 C F L O P P Y . O P E N . F O R
0004260 . O U T P U T \ P C F L O P P
0004300 Y . O P E N F I L E \ P C F L
0004320 O P P Y . C L O S E F I L E \r
0004340 \ P C F L O P P Y . R E A D P A
0004360 G E S \ P C F L O P P Y . W R
0004400 I T E P A G E S ) ) ( C O M S
0004420 ( * D i r e c t o r y M a
0004440 n i p u l a t i o n ) ( F N S
0004460 \ V P C F . F I N D . D I R .
0004500 E N T R Y \r \ V P C F . D I R
0004520 . L O O K U P \ V P C F . S E
0004540 A R C H . D I R \ V P C F . R
0004560 E A D . D I R . E N T R Y \ V
0004600 P C F . F I N D . F R E E . D I
0004620 R . E N T R Y \ V P C F . W R
0004640 I T E . D I R . E N T R Y \r \
0004660 V P C F . R E A D . F I L E . D
0004700 A T E \ V P C F . W R I T E .
0004720 F I L E . D A T E \ V P C F .
0004740 R O O T D I R E C T O R Y \ V
0004760 P C F . N E X T . D I R . C L U
0005000 S T E R \r \ V P C F . C L U S
0005020 T E R . T O . F I L E P O S \
0005040 V P C F . M A P D I R \ V P C
0005060 F . R E A D . F A T . C H A I N
0005100 ) ( F N S \ V P C F . G E N
0005120 E R A T E F I L E S \ V P C F
0005140 . F I L E M A T C H \r \ V P C
0005160 F . F I L E M A T C H 1 \ V P
0005200 C F . N E X T F I L E F N \ V
0005220 P C F . F I L E I N F O F N )
0005240 ( F N S \ V P C F . G E T F I
0005260 L E I N F O \ V P C F . S E T
0005300 F I L E I N F O \r \ V P C F .
0005320 O P E N . B A C K I N G . S T R
0005340 E A M \ V P C F . C L O S E .
0005360 B A C K I N G . S T R E A M ) )
0005400 ( C O M S ( * F I L E P T
0005420 R M a n i p u l a t i o n )
0005440 ( F N S \ V P C F . E O F P
0005460 \r \ V P C F . S E T F I L E P T
0005500 R \ V P C F . G E T F I L E P
0005520 T R \ V P C F . B A C K F I L
0005540 E P T R \ V P C F . S E T E O
0005560 F P T R \ V P C F . G E T E O
0005600 F P T R \ V P C F . U P D A T
0005620 E O F ) ) ( \r F N S \ V P C
0005640 F . O P E N F I L E \ V P C F
0005660 . O P E N . F O R . I N P U T
0005700 \ V P C F . O P E N . F O R . O
0005720 U T P U T \ V P C F . O P E N
0005740 . F O R . B O T H \r \ V P C F
0005760 . O P E N . F O R . A P P E N D
0006000 \ V P C F . R E O P E N F I L
0006020 E \ V P C F . C L O S E F I L
0006040 E \ V P C F . D E L E T E F I
0006060 L E \ V P C F . S E A R C H O
0006100 F D S \r \ V P C F . D E L E T
0006120 E O F D \ V P C F . A D D O F
0006140 D ) ( F N S \ V P C F . P A
0006160 R S E N A M E \ V P C F . G E
0006200 T F I L E N A M E \ V P C F .
0006220 G E T . D I S K \r \ V P C F .
0006240 G E T N E X T B U F F E R \ V
0006260 P C F . R E A D . C L U S T E R
0006300 \ V P C F . W R I T E . C L U
0006320 S T E R \ V P C F . G E T . N
0006340 E X T . C L U S T E R \r \ V P
0006360 C F . A L L O C A T E . C L U S
0006400 T E R S \ V P C F . A L L O C
0006420 A T E . C L U S T E R \ V P C
0006440 F . D E A L L O C A T E . C L U
0006460 S T E R S \ V P C F . M A R K
0006500 . T H E . F A T \r \ V P C F .
0006520 P R I N T . F A T S \ V P C F
0006540 . G E T . C L U S T E R . C H A
0006560 I N \ V P C F . D I R T E S T
0006600 ) ( V A R S ( \ V P C F . O
0006620 P E N F I L E S N I L ) \r \
0006640 P C F L O P P Y . T R A C K S P
0006660 E R C Y L I N D E R . S A V E
0006700 \ P C F L O P P Y . S E C T O R
0006720 S P E R T R A C K . S A V E )
0006740 ( I N I T V A R S ( P C . T E
0006760 X T F I L E . E X T E N S I O N
0007000 S N I L \r ) ) ( P ( V P C
0007020 D I S K . I N S T A L L ) ) (
0007040 P ( P C F L O P P Y . I N S T
0007060 A L L ) ) ) ) \r ( / D E C L A R
0007100 E D A T A T Y P E ( Q U O T E
0007120 V P C D I S K ) ( Q U O T E
0007140 ( P O I N T E R F L A G B
0007160 Y T E B Y T E F I X P F I
0007200 X P B Y T E F I X P F I X
0007220 P F I X P F I X P \r F I X
0007240 P F I X P B Y T E F I X P
0007260 F I X P F I X P F I X P
0007300 F I X P F I X P F I X P P
0007320 O I N T E R P O I N T E R P
*
0007360 O I N T E R ) ) ( Q U O T E
0007400 ( ( \r V P C D I S K 0 P O I
0007420 N T E R ) ( V P C D I S K 0
0007440 ( F L A G B I T S . 0 ) )
0007460 ( V P C D I S K 2 ( B I T
0007500 S . 7 ) ) ( V P C D I S K
0007520 2 ( B I T S . 1 3 5 ) )
0007540 ( V P C D I S K \r 3 F I X
0007560 P ) ( V P C D I S K 5 F I
0007600 X P ) ( V P C D I S K 7 (
0007620 B I T S . 7 ) ) ( V P C D
0007640 I S K 8 F I X P ) ( V P C
0007660 D I S K 1 0 F I X P ) ( V
0007700 P C D I S K 1 2 F I X P )
0007720 \r ( V P C D I S K 1 4 F I X
0007740 P ) ( V P C D I S K 1 6 F
0007760 I X P ) ( V P C D I S K 1 8
0010000 F I X P ) ( V P C D I S K
0010020 7 ( B I T S . 1 3 5 ) )
0010040 ( V P C D I S K 2 0 F I X P
0010060 ) ( \r V P C D I S K 2 2 F
0010100 I X P ) ( V P C D I S K 2 4
0010120 F I X P ) ( V P C D I S K
0010140 2 6 F I X P ) ( V P C D I S
0010160 K 2 8 F I X P ) ( V P C D
0010200 I S K 3 0 F I X P ) ( V P
0010220 C D I S K 3 2 \r F I X P )
0010240 ( V P C D I S K 3 4 P O I N
0010260 T E R ) ( V P C D I S K 3 6
0010300 P O I N T E R ) ( V P C D I
0010320 S K 3 8 P O I N T E R ) (
0010340 V P C D I S K 4 0 P O I N T
0010360 E R ) ( V P C D I S K 4 2
0010400 \r P O I N T E R ) ) ) ( Q U O
0010420 T E 4 4 ) ) \r ( / D E C L A R
0010440 E D A T A T Y P E ( Q U O T E
0010460 V P C F D I R E N T R Y ) (
0010500 Q U O T E ( P O I N T E R P
0010520 O I N T E R B Y T E F I X P
0010540 W O R D F I X P P O I N T
0010560 E R ) ) ( Q U O T E ( ( \r V
0010600 P C F D I R E N T R Y 0 P O
0010620 I N T E R ) ( V P C F D I R E
0010640 N T R Y 2 P O I N T E R )
0010660 ( V P C F D I R E N T R Y 2
0010700 ( B I T S . 7 ) ) ( V P C
0010720 F D I R E N T R Y 4 F I X P
0010740 ) ( \r V P C F D I R E N T R Y
0010760 6 ( B I T S . 1 5 ) )
0011000 ( V P C F D I R E N T R Y 7
0011020 F I X P ) ( V P C F D I R E N
0011040 T R Y 1 0 P O I N T E R ) )
0011060 ) ( Q U O T E 1 2 ) ) \r ( /
0011100 D E C L A R E D A T A T Y P E
0011120 ( Q U O T E V P C F F I L E )
0011140 ( Q U O T E ( P O I N T E R
0011160 P O I N T E R W O R D W O
0011200 R D F I X P P O I N T E R
0011220 P O I N T E R ) ) ( Q U O T E
0011240 ( ( \r V P C F F I L E 0 P
0011260 O I N T E R ) ( V P C F F I L
0011300 E 2 P O I N T E R ) ( V P
0011320 C F F I L E 4 ( B I T S .
0011340 1 5 ) ) ( V P C F F I L E
0011360 5 ( B I T S . 1 5 ) ) (
0011400 V P C F F I L E 6 \r F I X P
0011420 ) ( V P C F F I L E 8 P O
0011440 I N T E R ) ( V P C F F I L E
0011460 1 0 P O I N T E R ) ) ) (
0011500 Q U O T E 1 2 ) ) \r ( R P A Q
0011520 Q \ V P C F . O P E N F I L E
0011540 S N I L ) \r ( R P A Q Q \ P
0011560 C F L O P P Y . T R A C K S P E
0011600 R C Y L I N D E R . S A V E 2
0011620 ) \r ( R P A Q Q \ P C F L O P
0011640 P Y . S E C T O R S P E R T R A
0011660 C K . S A V E 9 ) \r ( R P A Q
0011700 ? P C . T E X T F I L E . E X
0011720 T E N S I O N S N I L ) \r ( V
0011740 P C D I S K . I N S T A L L ) \r
0011760 ( P C F L O P P Y . I N S T A L
0012000 L ) \r ( P U T P R O P S V P C
0012020 D I S K C O P Y R I G H T (
0012040 " X e r o x C o r p o r a t i
0012060 o n " 1 9 8 6 1 9 0 0 ) ) \r
0012100 N I L \r
0012104