$ od -c -N 50000 [eris]<Lisp>Harmony>Library>BUSEXTENDER.DCOM!1
0000000 ( F I L E C R E A T E D " 1 1
0000020 - O c t - 8 4 1 0 : 4 0 : 1 2
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P > H A
0000100 R M O N Y > L I B R A R Y > B U
0000120 S E X T E N D E R . ; 1 ) \r "
0000140 3 - O c t - 8 4 1 7 : 1 8 :
0000160 0 4 " b c o m p l ' d i n
0000200 " I N T E R L I S P - D 3 -
0000220 O c t - 8 4 . . . " d a t e
0000240 d " 3 - O c t - 8 4 1 7 :
0000260 4 5 : 4 5 " ) \r ( F I L E C R E
0000300 A T E D " 1 6 - S e p - 8 4
0000320 2 1 : 3 2 : 2 4 " { E R I S }
0000340 < H E R R I N G > B U S E X T E
0000360 N D E R . ; 8 3 3 0 9 c h a
0000400 n g e s t o : ( V A R S B
0000420 U S E X T E N D E R C O M S \r )
0000440 p r e v i o u s d a t e :
0000460 " 1 4 - S e p - 8 4 1 7 : 3 9
0000500 : 1 2 " { E R I S } < H E R R
0000520 I N G > B U S E X T E N D E R .
0000540 ; 7 ) \r B X . I N P U T D 1 \r
0000560 ( I 0 A D D R ) \0 027 \0 \0 \0
0000600 001 @ l 036 345 340 340 340 @ k 345 j 360 222 l \n
0000620 201 l \t 330 x 001 020 \0 N I L \r N I L \r
0000640 ( ) \r B X . O U T P U T D 1 \r
0000660 ( I 1 A D D R I 0 D A
0000700 T U M ) \0 027 \0 \0 \0 002 @ A l 036 345
0000720 340 340 340 A k 345 j 360 222 l \v 200 j 330 y 002
0000740 020 \0 N I L \r N I L \r ( ) \r B X .
0000760 R E A D S T A T U S D 1 \r N I
0001000 L \0 022 \0 \0 \0 \0 j l 016 y 002 l \a x
0001020 001 342 342 342 342 l 017 345 020 \0 N I L \r N I
0001040 L \r ( ) \r ( P R E T T Y C O M P
0001060 R I N T B U S E X T E N D E R
0001100 C O M S ) \r ( R P A Q Q B U S
0001120 E X T E N D E R C O M S ( ( F
0001140 N S B X . I N P U T B X . O
0001160 U T P U T B X . R E A D S T A
0001200 T U S ) ( M A C R O S B X .
0001220 I N P U T B X . O U T P U T )
0001240 ) ) \r ( P U T P R O P S B X .
0001260 I N P U T D M A C R O ( A R
0001300 G L I S T ( P R O G ( A D D
0001320 R A R G L I S T O F A D D R V
0001340 A L A D D R V A L ) ( * *
0001360 T h e p o i n t o f t h
0001400 i s m a c r o \r i s t h a
0001420 t a l m o s t a l l o f
0001440 t h e c o d e o f t h e
0001460 f u n c t i o n c a n b e
0001500 c o m p u t e d a t c o m p
0001520 i l e t i m e i f t h e
0001540 a r g u m e n t i s \r k n o
0001560 w n a t c o m p i l e t i
0001600 m e - - T h e f u n c t i
0001620 o n i s - - ( \ D E V I C
0001640 E . I N P U T ( I P L U S (
0001660 L L S H ( L O G A N D A D D
0001700 R 3 0 ) 3 ) ( i f ( Z E
0001720 R O P \r ( L O G A N D A D D
0001740 R 1 ) ) t h e n 1 0 e l
0001760 s e 9 ) ) ) ) ( S E T Q A
0002000 D D R A R G ( C A R A R G L
0002020 I S T ) ) ( R E T U R N ( i
0002040 f ( A N D ( S E T Q L I S
0002060 T O F A D D R V A L \r ( C O N
0002100 S T A N T E X P R E S S I O N P
0002120 A D D R A R G ) ) ( S M A L
0002140 L P ( S E T Q A D D R V A L
0002160 ( C A R L I S T O F A D D R
0002200 V A L ) ) ) ) t h e n ( B Q
0002220 U O T E ( \r \ D E V I C E . I
0002240 N P U T , ( I P L U S ( L
0002260 L S H ( L O G A N D A D D R
0002300 A R G 3 0 ) 3 ) ( i f (
0002320 Z E R O P ( L O G A N D A D
0002340 D R A R G 1 ) ) t h e n 1
0002360 0 e l s e 9 ) ) ) ) \r e l
0002400 s e ( B Q U O T E ( \ D E V
0002420 I C E . I N P U T ( I P L U S
0002440 ( L L S H ( L O G A N D ,
0002460 A D D R A R G 3 0 ) 3 )
0002500 ( i f ( Z E R O P ( L O G A
0002520 N D , A D D R A R G 1 ) )
0002540 \r t h e n 1 0 e l s e 9
0002560 ) ) ) ) ) ) ) ) ) \r ( P U T P R
0002600 O P S B X . O U T P U T D M
0002620 A C R O ( A R G L I S T ( P
0002640 R O G ( D A T U M A R G A D
0002660 D R A R G L I S T O F A D D R
0002700 V A L A D D R V A L ) ( *
0002720 * T h e p o i n t o f \r
0002740 t h i s m a c r o i s t h
0002760 a t a l m o s t a l l o f
0003000 t h e c o d e o f t h e
0003020 f u n c t i o n c a n b e
0003040 c o m p u t e d a t c o m
0003060 p i l e t i m e i f t h e
0003100 \r a r g u m e n t i s k n
0003120 o w n a t c o m p i l e t
0003140 i m e - - T h e f u n c t
0003160 i o n i s - - ( \ D E V I
0003200 C E . O U T P U T D A T U M
0003220 ( I P L U S ( L L S H ( L O
0003240 G A N D \r A D D R 3 0 ) 3
0003260 ) ( i f ( Z E R O P ( L O
0003300 G A N D A D D R 1 ) ) t h
0003320 e n 1 1 e l s e 0 ) ) ) )
0003340 ( S E T Q D A T U M A R G
0003360 ( C A R A R G L I S T ) ) (
0003400 S E T Q A D D R A R G \r ( C
0003420 A D R A R G L I S T ) ) ( R
0003440 E T U R N ( i f ( A N D (
0003460 S E T Q L I S T O F A D D R V
0003500 A L ( C O N S T A N T E X P R
0003520 E S S I O N P A D D R A R G )
0003540 ) ( S M A L L P ( S E T Q
0003560 \r A D D R V A L ( C A R L I
0003600 S T O F A D D R V A L ) ) ) )
0003620 t h e n ( B Q U O T E ( \ D
0003640 E V I C E . O U T P U T , D
0003660 A T U M A R G , ( I P L U S
0003700 ( L L S H ( L O G A N D A
0003720 D D R A R G \r 3 0 ) 3 ) (
0003740 i f ( Z E R O P ( L O G A N
0003760 D A D D R A R G 1 ) ) t h
0004000 e n 1 1 e l s e 0 ) ) ) )
0004020 e l s e ( B Q U O T E ( \
0004040 D E V I C E . O U T P U T ,
0004060 D A T U M A R G ( \r I P L U S
0004100 ( L L S H ( L O G A N D ,
0004120 A D D R A R G 3 0 ) 3 )
0004140 ( i f ( Z E R O P ( L O G A
0004160 N D , A D D R A R G 1 ) )
0004200 t h e n 1 1 e l s e 0 )
0004220 ) ) ) ) ) ) ) ) \r ( P U T P R O
0004240 P S B U S E X T E N D E R C
0004260 O P Y R I G H T ( " X e r o x
0004300 C o r p o r a t i o n " 1 9
0004320 8 4 ) ) \r N I L \r
0004331