$ od -c -N 50000 [eris]<Lisp>JCAI>sources>DOVEINPUTOUTPUT.DCOM!2
0000000 ( F I L E C R E A T E D " 1 2
0000020 - A u g - 8 5 0 7 : 3 3 : 5 5
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 I N
0000120 P U T O U T P U T . ; 1 7 ) \r
0000140 " 5 - A u g - 8 5 2 0 : 3 5
0000160 : 1 0 " r e c o m p i l e d
0000200 c h a n g e s : \ D o v e I O
0000220 . M a k e O p i e A d d r e s s
0000240 i n " I N T E R L I S P - D
0000260 5 - A u g - 8 5 . . . "
0000300 d a t e d \r " 5 - A u g - 8
0000320 5 2 0 : 4 8 : 3 4 " ) \r ( F I
0000340 L E C R E A T E D " 1 2 - A u
0000360 g - 8 5 0 7 : 3 3 : 2 3 " {
0000400 E R I S } < L I S P C O R E > S
0000420 O U R C E S > D O V E I N P U T
0000440 O U T P U T . ; 1 7 1 0 5 6 8
0000460 c h a n g e s t o : ( F N
0000500 S \r \ D o v e I O . M a k e O
0000520 p i e A d d r e s s ) ( V A R
0000540 S D O V E I N P U T O U T P U
0000560 T C O M S \ # W D S . O p i e
0000600 A d d r e s s ) p r e v i o u
0000620 s d a t e : \r " 1 2 - A u g
0000640 - 8 5 0 2 : 3 4 : 4 7 " { E
0000660 R I S } < L I S P C O R E > S O
0000700 U R C E S > D O V E I N P U T O
0000720 U T P U T . ; 1 6 ) \r \ D o v e
0000740 I O . E Q O p i e A d d r s D
0000760 1 \r ( L ( 1 A 2 0 A 1 )
0001000 ) \0 022 \0 \0 \0 002 @ 310 \0 A 310 \0 360 264
0001020 \t @ 310 001 A 310 001 360 020 \0 N I L \r N I
0001040 L \r ( ) \r \ D o v e I O . M a k
0001060 e O p i e A d d r e s s D 1 \r
0001100 ( L ( 1 S R C P T R 0 D
0001120 E S T L O C ) ) \0 % \0 \0 \0 002 @
0001140 A 323 9 004 315 \0 @ A 322 317 001 \a A 322 j 360
0001160 250 @ l 340 317 001 207 l 340 020 @ l 341 317 001 207
0001200 l 341 020 \0 N I L \r N I L \r ( ) \r \
0001220 D o v e I O . N i l O p i e A d
0001240 d r e s s D 1 \r ( L ( 0 P
0001260 T R T O A D D R E S S ) ) \0 016
0001300 \0 \0 \0 001 @ 310 \0 j 360 264 \a @ 310 001 j 360
0001320 020 \0 N I L \r N I L \r ( ) \r \ D o
0001340 v e I O . P o i n t e r F r o m
0001360 O p i e A d d r e s s D 1 \r (
0001400 L ( 0 A D D R E S S L O C )
0001420 ) \0 \f \0 \0 \0 001 @ 312 001 \a @ 310 \0 9
0001440 004 321 020 \0 N I L \r N I L \r ( ) \r \
0001460 D o v e . I n i t i a l i z e F
0001500 C B O f f s e t s D 1 \r ( P
0001520 2 I P 1 V a r N a m e s
0001540 P 0 C o u n t I 0 C
0001560 o n f i g u r a t i o n F 3
0001600 D O V E I O R E G I O N O F F
0001620 S E T S ) \0 ' 003 001 \0 001 j 021 ! 002
0001640 @ 260 032 d 001 Z 001 233 J 001 I 032 271 J 001 H
0001660 \n \0 \0 277 H J 002 001 330 270 002 003 265 347 I c
0001700 006 020 \0 ( 2 6 Q S E T ) \r N I L
0001720 \r ( ) \r ( P R E T T Y C O M P R
0001740 I N T D O V E I N P U T O U T
0001760 P U T C O M S ) \r ( R P A Q Q
0002000 D O V E I N P U T O U T P U T C
0002020 O M S ( ( M A C R O S \ D o
0002040 v e . C l e a r Q u e u e B l o
0002060 c k \ D o v e I O . B y t e S
0002100 w a p \ D o v e I O . I O R e
0002120 g i o n O f f s e t \r \ D o v
0002140 e I O . L o c k M e m \ D o v
0002160 e I O . N o t i f y I O P \ D
0002200 o v e F C B A t ) ( F N S \
0002220 D o v e I O . E Q O p i e A d d
0002240 r s \ D o v e I O . M a k e O
0002260 p i e A d d r e s s \r \ D o v
0002300 e I O . N i l O p i e A d d r e
0002320 s s \ D o v e I O . P o i n t
0002340 e r F r o m O p i e A d d r e s
0002360 s ) ( C O N S T A N T S \ D
0002400 o v e I O . A D D \ D o v e I
0002420 O . A N D \ D o v e I O . O R
0002440 \r \ D o v e I O . O V E R W R
0002460 I T E I F N I L \ D o v e I O
0002500 . X C H G \ # W D S . O p i e
0002520 A d d r e s s ) ( D E C L A R
0002540 E : D O N T C O P Y ( C O N
0002560 S T A N T S * \r D O V E I O
0002600 R E G I O N O F F S E T S ) (
0002620 C O N S T A N T S * D O V E
0002640 O P I E A D D R E S S T Y P E S
0002660 ) ( V A R S \ D o v e . F C
0002700 B S i z e s ) ( F N S \r \ D
0002720 o v e . I n i t i a l i z e F C
0002740 B O f f s e t s ) ) ( C O N S
0002760 T A N T S \ D o v e I O . B y
0003000 t e F A L S E \ D o v e I O .
0003020 B y t e T R U E ) ( D E C L A
0003040 R E : D O N T C O P Y ( E X
0003060 P O R T \r ( R E C O R D S D
0003100 o v e . O p i e A d d r e s s )
0003120 ) ) ( D E C L A R E : D O N
0003140 T E V A L @ L O A D D O C O P
0003160 Y ( P ( \ L O C K F N ( F
0003200 U N C T I O N \r \ D o v e I O
0003220 . M a k e O p i e A d d r e s s
0003240 ) ) ) ) ( P R O P A R G N A
0003260 M E S \ D o v e F C B A t ) )
0003300 ) \r ( D E F M A C R O \ D o v
0003320 e . C l e a r Q u e u e B l o c
0003340 k ( B A S E ) ( B Q U O T E
0003360 ( \ C L E A R W O R D S ,
0003400 B A S E \ D o v e E t h e r .
0003420 Q u e u e P t r S i z e ) ) ) \r
0003440 ( P U T P R O P S \ D o v e I
0003460 O . B y t e S w a p D M A C R
0003500 O ( A R G S ( L E T ( ( X
0003520 ( C A R A R G S ) ) ) ( B
0003540 Q U O T E ( ( O P C O D E S
0003560 D O V E M I S C 4 ) , X )
0003600 ) ) ) ) \r ( D E F M A C R O \
0003620 D o v e I O . I O R e g i o n O
0003640 f f s e t ( X ) ( B Q U O T
0003660 E ( I D I F F E R E N C E (
0003700 \ L O L O C , X ) ( \ L O
0003720 L O C \ D o v e I O R e g i o
0003740 n ) ) ) ) \r ( P U T P R O P S
0003760 \ D o v e I O . L o c k M e m
0004000 D M A C R O ( A R G S ( L E
0004020 T ( ( M A S K ( C A R A R
0004040 G S ) ) ( V A L U E ( C A D
0004060 R A R G S ) ) ( A D D R (
0004100 C A D D R A R G S ) ) \r ( O
0004120 P ( C A D D D R A R G S ) )
0004140 ) ( B Q U O T E ( ( O P C O
0004160 D E S D O V E M I S C 5 )
0004200 , O P , A D D R , V A
0004220 L U E , M A S K ) ) ) ) ) \r
0004240 ( P U T P R O P S \ D o v e I
0004260 O . N o t i f y I O P D M A C
0004300 R O ( A R G S ( L E T ( (
0004320 M A S K ( C A R A R G S ) )
0004340 ) ( B Q U O T E ( ( O P C O
0004360 D E S D O V E M I S C 6 )
0004400 , M A S K \r ) ) ) ) ) \r ( D E
0004420 F M A C R O \ D o v e F C B A
0004440 t ( X ) ( B Q U O T E ( \
0004460 A D D B A S E \ D o v e I O R
0004500 e g i o n , X ) ) ) \r ( R P
0004520 A Q Q \ D o v e I O . A D D
0004540 0 ) \r ( R P A Q Q \ D o v e I
0004560 O . A N D 1 ) \r ( R P A Q Q
0004600 \ D o v e I O . O R 2 ) \r ( R
0004620 P A Q Q \ D o v e I O . O V E
0004640 R W R I T E I F N I L 4 ) \r (
0004660 R P A Q Q \ D o v e I O . X C
0004700 H G 3 ) \r ( R P A Q Q \ # W
0004720 D S . O p i e A d d r e s s 2
0004740 ) \r ( C O N S T A N T S \ D o
0004760 v e I O . A D D \ D o v e I O
0005000 . A N D \ D o v e I O . O R
0005020 \ D o v e I O . O V E R W R I T
0005040 E I F N I L \ D o v e I O . X
0005060 C H G \ # W D S . O p i e A d
0005100 d r e s s ) \r ( R P A Q Q \ D
0005120 o v e I O . B y t e F A L S E
0005140 0 ) \r ( R P A Q Q \ D o v e I
0005160 O . B y t e T R U E 2 5 5 ) \r
0005200 ( C O N S T A N T S \ D o v e
0005220 I O . B y t e F A L S E \ D o
0005240 v e I O . B y t e T R U E ) \r (
0005260 \ L O C K F N ( F U N C T I O
0005300 N \ D o v e I O . M a k e O p
0005320 i e A d d r e s s ) ) \r ( P U T
0005340 P R O P S \ D o v e F C B A t
0005360 A R G N A M E S ( O F F S E
0005400 T ) ) \r ( P U T P R O P S D O
0005420 V E I N P U T O U T P U T C O
0005440 P Y R I G H T ( " X e r o x
0005460 C o r p o r a t i o n " 1 9 8
0005500 5 ) ) \r N I L \r
0005510