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