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