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