$ od -c -N 50000 [phylum]<LISP>KOTO>Library>BUSEXTENDER.DCOM!1 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