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