$ od -c -N 50000 [eris]<LispCore>busmaster>koto>test>BUSEXTENDER.DCOM!1
0000000 ( F I L E C R E A T E D " 2 8
0000020 - S e p - 8 5 1 5 : 2 2 : 0 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 > B U S M A S T E R > K O T O
0000120 > T E S T > B U S E X T E N D E
0000140 R . ; 1 ) \r " 2 3 - S e p - 8
0000160 5 1 5 : 3 5 : 0 9 " t c o m
0000200 p l ' d i n " I N T E R L I
0000220 S P - D 2 3 - S e p - 8 5 .
0000240 . . " d a t e d " 2 3 - S e
0000260 p - 8 5 1 5 : 4 1 : 0 2 " ) \r
0000300 ( F I L E C R E A T E D " 1 9
0000320 - A u g - 8 5 1 1 : 1 4 : 0 6
0000340 " { D S K } < D S K > H T H O
0000360 M P S O N > D S L > B U S E X T
0000400 E N D E R . ; 3 5 8 5 1 c h
0000420 a n g e s t o : ( V A R S
0000440 \r B U S E X T E N D E R C O M S
0000460 ) p r e v i o u s d a t e :
0000500 " 1 5 - A u g - 8 5 1 1 : 1
0000520 9 : 1 8 " { D S K } < D S K >
0000540 H T H O M P S O N > D S L > B U
0000560 S E X T E N D E R . ; 2 ) \r B X
0000600 . I N P U T D 1 \r ( L ( 0
0000620 A D D R ) ) \0 027 \0 \0 \0 001 @ l 036
0000640 345 340 340 340 @ k 345 j 360 222 l \n 201 l \t 330
0000660 x 001 020 \0 N I L \r N I L \r ( ) \r B
0000700 X . O U T P U T D 1 \r ( L (
0000720 1 A D D R 0 D A T U M ) )
0000740 \0 027 \0 \0 \0 002 @ A l 036 345 340 340 340 A
0000760 k 345 j 360 222 l \v 200 j 330 y 002 020 \0 N I
0001000 L \r N I L \r ( ) \r B X . R E A D
0001020 S T A T U S D 1 \r N I L \0 024
0001040 \0 \0 \0 \0 j l 016 \n \0 \0 l \a \t \0 \0 342
0001060 342 342 342 l 017 345 020 \0 ( 1 2 Q \ D E
0001100 V I C E . I N P U T 5 \ D E
0001120 V I C E . O U T P U T ) \r N I L
0001140 \r ( ) \r \ M I S C 1 . U F N D
0001160 1 \r ( I 1 A L P H A I 0
0001200 A R G ) \0 026 \0 \0 \0 002 A k 360 227
0001220 o \0 \0 \0 \t \0 \0 020 o \0 \0 \0 A \n \0 \0
0001240 020 \0 ( 2 3 Q R A I D 1 2 Q
0001260 E R R O R ) \r N I L \r ( 1 7 Q
0001300 " U n i m p l e m e n t e d
0001320 M I S C 1 o p " 7 " A t t
0001340 e m p t t o a c c e s s b
0001360 u s e x t e n d e r o p t i
0001400 o n o n a m a c h i n e
0001420 w h i c h d o e s n o t s
0001440 u p p o r t i t " ) \r \ M I S
0001460 C 2 . U F N D 1 \r ( I 2 A
0001500 L P H A I 1 A R G 1 I
0001520 0 A R G 0 ) \0 027 \0 \0 \0 003 B l
0001540 002 360 227 o \0 \0 \0 \t \0 \0 020 o \0 \0 \0 B
0001560 \n \0 \0 020 \0 ( 2 4 Q R A I D 1
0001600 3 Q E R R O R ) \r N I L \r (
0001620 2 0 Q " U n i m p l e m e n t
0001640 e d M I S C 2 o p " 1 0 Q
0001660 " A t t e m p t t o a c c
0001700 e s s b u s e x t e n d e r
0001720 o p t i o n o n a m a c
0001740 h i n e w h i c h d o e s
0001760 n o t s u p p o r t i t " )
0002000 \r ( P R E T T Y C O M P R I N T
0002020 B U S E X T E N D E R C O M S
0002040 ) \r ( R P A Q Q B U S E X T E
0002060 N D E R C O M S ( ( E ( R E
0002100 S E T S A V E C L I S P I F Y
0002120 P R E T T Y F L G N I L ) )
0002140 ( F N S B X . I N P U T B X
0002160 . O U T P U T B X . R E A D S
0002200 T A T U S ) ( \r * s o t h
0002220 a t t h e m a c r o s w i
0002240 l l l o a d c o m p f r o m
0002260 t h e c o m p i l e d f i
0002300 l e ) ( D E C L A R E : D O
0002320 C O P Y ( D E C L A R E : E
0002340 V A L @ L O A D \r E V A L @ C
0002360 O M P I L E ( M A C R O S B
0002400 X . I N P U T B X . O U T P U
0002420 T ) ) ) ( * t o g e n e r
0002440 a t e e r r o r s o n n o
0002460 n - 1 1 0 9 s ) ( F N S \ M
0002500 I S C 1 . U F N \r \ M I S C 2
0002520 . U F N ) ) ) \r ( D E C L A R E
0002540 : E V A L @ L O A D E V A L
0002560 @ C O M P I L E ( D E C L A R
0002600 E : E V A L @ C O M P I L E
0002620 ( P U T P R O P S B X . I N P
0002640 U T D M A C R O ( A R G L I
0002660 S T ( P R O G ( \r A D D R A
0002700 R G L I S T O F A D D R V A L
0002720 A D D R V A L ) ( * * T
0002740 h e p o i n t o f t h i s
0002760 m a c r o i s t h a t a
0003000 l m o s t a l l o f t h e
0003020 c o d e o f t h e \r f u
0003040 n c t i o n c a n b e c o
0003060 m p u t e d a t c o m p i l
0003100 e t i m e i f t h e a r
0003120 g u m e n t i s k n o w n
0003140 a t c o m p i l e t i m e
0003160 - - T h e f u n c t i o n
0003200 i s \r - - ( \ D E V I C E .
0003220 I N P U T ( I P L U S ( L L
0003240 S H ( L O G A N D A D D R
0003260 3 0 ) 3 ) ( i f ( Z E R O
0003300 P ( L O G A N D A D D R 1
0003320 ) ) t h e n 1 0 e l s e
0003340 9 ) ) ) ) ( * * \r h t p
0003360 u t t h e e x p a n s i o n
0003400 s f o r \ D E V I C E . I N
0003420 P U T i n b y h a n d i
0003440 n s t e a d o f d e f i n i
0003460 n g a m a c r o o n t h
0003500 e g r o u n d s t h a t \r
0003520 t h i s w a y i f t h e
0003540 o p c o d e e v e r c h a n
0003560 g e s o n l y B U S M A S T
0003600 E R / E X T E N D E R u s e r
0003620 s a r e s c r e w e d , n
0003640 o t r a n d o m f o l k w
0003660 h o \r h a p p e n t o h a
0003700 v e c o m p i l e d s o m e
0003720 t h i n g w h i c h i n c l
0003740 u d e s a \ D E V I C E . I
0003760 N P U T ) ( S E T Q A D D R
0004000 A R G ( C A R A R G L I S T
0004020 ) ) ( R E T U R N \r ( C O N
0004040 D ( ( A N D ( S E T Q L I
0004060 S T O F A D D R V A L ( C O N
0004100 S T A N T E X P R E S S I O N P
0004120 A D D R A R G ) ) ( S M A L
0004140 L P ( S E T Q A D D R V A L
0004160 ( C A R \r L I S T O F A D D
0004200 R V A L ) ) ) ) ( B Q U O T E
0004220 ( ( O P C O D E S M I S C 1
0004240 1 ) , ( I P L U S ( L L
0004260 S H ( L O G A N D A D D R A
0004300 R G 3 0 ) 3 ) ( C O N D
0004320 ( ( Z E R O P ( \r L O G A N D
0004340 A D D R A R G 1 ) ) 1 0 )
0004360 ( T 9 ) ) ) ) ) ) ( T (
0004400 B Q U O T E ( ( O P C O D E S
0004420 M I S C 1 1 ) ( I P L U S
0004440 ( L L S H ( L O G A N D ,
0004460 A D D R A R G 3 0 ) 3 )
0004500 \r ( C O N D ( ( Z E R O P (
0004520 L O G A N D , A D D R A R G
0004540 1 ) ) 1 0 ) ( T 9 ) ) )
0004560 ) ) ) ) ) ) ) ) ( P U T P R O
0004600 P S B X . O U T P U T D M A
0004620 C R O ( A R G L I S T ( P R
0004640 O G ( \r D A T U M A R G A D
0004660 D R A R G L I S T O F A D D R
0004700 V A L A D D R V A L ) ( *
0004720 * T h e p o i n t o f t
0004740 h i s m a c r o i s t h a
0004760 t a l m o s t a l l o f
0005000 t h e c o d e o f \r t h e
0005020 f u n c t i o n c a n b e
0005040 c o m p u t e d a t c o m
0005060 p i l e t i m e i f t h e
0005100 a r g u m e n t i s k n o
0005120 w n a t c o m p i l e t i
0005140 m e - - T h e f u n c t i
0005160 o n \r i s - - ( \ D E V I
0005200 C E . O U T P U T D A T U M
0005220 ( I P L U S ( L L S H ( L O
0005240 G A N D A D D R 3 0 ) 3 )
0005260 ( i f ( Z E R O P ( L O G
0005300 A N D A D D R 1 ) ) t h e
0005320 n 1 1 e l s e \r 0 ) ) ) )
0005340 ( * * h t p u t t h e
0005360 e x p a n s i o n s f o r
0005400 \ D E V I C E . O U T P U T i
0005420 n b y h a n d i n s t e a
0005440 d o f d e f i n i n g a
0005460 m a c r o o n t h e \r g r
0005500 o u n d s t h a t t h i s
0005520 w a y i f t h e o p c o d
0005540 e e v e r c h a n g e s o
0005560 n l y B U S M A S T E R / E X
0005600 T E N D E R u s e r s a r e
0005620 s c r e w e d , n o t r a
0005640 n d o m \r f o l k w h o h
0005660 a p p e n t o h a v e c o
0005700 m p i l e d s o m e t h i n g
0005720 w h i c h i n c l u d e s
0005740 a \ D E V I C E . O U T P U T
0005760 ) ( S E T Q D A T U M A R G
0006000 ( C A R \r A R G L I S T ) )
0006020 ( S E T Q A D D R A R G (
0006040 C A D R A R G L I S T ) ) (
0006060 R E T U R N ( C O N D ( ( A
0006100 N D ( S E T Q L I S T O F A
0006120 D D R V A L ( C O N S T A N T
0006140 E X P R E S S I O N P \r A D D
0006160 R A R G ) ) ( S M A L L P (
0006200 S E T Q A D D R V A L ( C A
0006220 R L I S T O F A D D R V A L )
0006240 ) ) ) ( B Q U O T E ( ( O P
0006260 C O D E S M I S C 2 2 ) ,
0006300 D A T U M A R G , ( I P L
0006320 U S \r ( L L S H ( L O G A N
0006340 D A D D R A R G 3 0 ) 3 )
0006360 ( C O N D ( ( Z E R O P (
0006400 L O G A N D A D D R A R G 1
0006420 ) ) 1 1 ) ( T 0 ) ) ) ) )
0006440 ) ( T ( B Q U O T E ( ( O
0006460 P C O D E S \r M I S C 2 2 )
0006500 , D A T U M A R G ( I P L
0006520 U S ( L L S H ( L O G A N D
0006540 , A D D R A R G 3 0 ) 3
0006560 ) ( C O N D ( ( Z E R O P
0006600 ( L O G A N D , A D D R A R
0006620 G 1 ) ) 1 1 ) ( T 0 \r )
0006640 ) ) ) ) ) ) ) ) ) ) ) ) \r ( P U
0006660 T P R O P S B U S E X T E N D
0006700 E R C O P Y R I G H T ( " X
0006720 e r o x C o r p o r a t i o n
0006740 " 1 9 8 4 1 9 8 5 ) ) \r N I
0006760 L \r
0006762