$ od -c -N 50000 [eris]<LispCore>busmaster>BUSUTIL.DCOM!1
0000000 ( F I L E C R E A T E D " 1 8
0000020 - A p r - 8 5 1 5 : 3 0 : 2 0
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > H T H O M P S O N > D S L >
0000120 B U S U T I L . ; 5 ) \r " 1 9
0000140 - M a r - 8 5 1 4 : 3 4 : 1 7
0000160 " r e c o m p i l e d e x p
0000200 r s : B U S D M A . F A S T U
0000220 P D A T E A D D R B U S D M A
0000240 . S L O W U P D A T E A D D R
0000260 B U S D M A . U P D A T E A D D
0000300 R \r i n " I N T E R L I S P
0000320 - D 1 6 - A p r - 8 5 . . .
0000340 " d a t e d " 1 6 - A p r -
0000360 8 5 1 3 : 0 2 : 1 5 " ) \r ( F
0000400 I L E C R E A T E D " 1 8 - A
0000420 p r - 8 5 1 5 : 2 9 : 4 6 "
0000440 { D S K } < L I S P F I L E S >
0000460 H T H O M P S O N > D S L > B U
0000500 S U T I L . ; 5 1 0 5 8 5 c
0000520 h a n g e s t o : ( F N S
0000540 \r B U S D M A . F A S T U P D A
0000560 T E A D D R B U S D M A . S L
0000600 O W U P D A T E A D D R B U S
0000620 D M A . U P D A T E A D D R )
0000640 ( V A R S B U S U T I L C O M
0000660 S ) ( M A C R O S \r B U S D
0000700 M A . F A S T U P D A T E A D D
0000720 R B U S D M A . U P D A T E A
0000740 D D R ) p r e v i o u s d a
0000760 t e : " 1 4 - A p r - 8 5 1
0001000 6 : 5 3 : 5 2 " \r { D S K } <
0001020 L I S P F I L E S > H T H O M P
0001040 S O N > D S L > B U S U T I L .
0001060 ; 3 ) \r B U S . R E A D W O R D
0001100 D 1 \r ( P 1 s e c o n d
0001120 P 0 f i r s t I 2 m o
0001140 d e I 1 l o W o r d A d d
0001160 r I 0 h i A d d r ) \0 3
0001200 002 \0 \0 003 @ A 340 \n \0 \0 @ A 340 k 324 \n
0001220 \0 \0 021 002 001 B 227 B d g \0 \0 360 225 277 H
0001240 341 I 324 020 g \0 \0 360 224 I 341 H 324 020 o \0
0001260 \0 \0 \t \0 \0 020 \0 ( 6 0 Q S H O U
0001300 L D N T 1 5 Q B U S . R E A
0001320 D H L 5 B U S . R E A D H L
0001340 ) \r ( 4 2 Q S W A P 2 7 Q
0001360 S T R A I G H T ) \r ( 5 5 Q
0001400 " b a d m o d e " ) \r B U S .
0001420 W R I T E W O R D D 1 \r ( P
0001440 1 h i P 0 l o I 3
0001460 m o d e I 2 w o r d I
0001500 1 l o W o r d A d d r I 0
0001520 h i A d d r ) \0 E 002 \0 \0 004 B
0001540 l 377 345 B 343 021 002 001 C 230 C d g \0 \0 360
0001560 262 024 277 @ A 340 I \v \0 \0 @ A 340 k 324 H
0001600 \v \0 \0 020 g \0 \0 360 262 023 @ A 340 H \v \0
0001620 \0 @ A 340 k 324 I \v \0 \0 020 o \0 \0 \0 \t
0001640 \0 \0 020 \0 ( 1 0 2 Q S H O U L D
0001660 N T 7 2 Q B U S . W R I T E
0001700 H L 6 1 Q B U S . W R I T E
0001720 H L 4 3 Q B U S . W R I T E
0001740 H L 3 2 Q B U S . W R I T E
0001760 H L ) \r ( 4 7 Q S W A P 1 7
0002000 Q S T R A I G H T ) \r ( 7 7
0002020 Q " b a d m o d e " ) \r B U
0002040 S D M A . F A S T U P D A T E A
0002060 D D R D 1 \r ( P 0 d m a C
0002100 h a n n e l I 2 w r a p p
0002120 e d N a m e I 1 c u r r e
0002140 n t A d d r e s s N a m e I
0002160 0 d m a C h a n n e l N a m e
0002200 ) 001 s 004 \0 \0 003 @ \t \0 \0 021 1 003 l
0002220 \f l 0 \n \0 \0 277 l \b l + \n \0 \0 277 j
0002240 l \n \0 \0 A H 340 l 0 \n \0 \0 277 l 004
0002260 l + \n \0 \0 277 j l \n \0 \0 277 l ) \t
0002300 \0 \0 342 H 340 l 0 \n \0 \0 277 l 004 l + \n
0002320 \0 \0 277 j l \n \0 \0 277 l ) \t \0 \0 340
0002340 340 340 340 340 340 340 344 \n \0 \0 B \t \0 \0 262 <
0002360 l \b l 0 \n \0 \0 277 l 004 l + \n \0 \0 277
0002400 j l \n \0 \0 277 l ) \t \0 \0 k H \n \0
0002420 \0 345 Y j 360 263 023 I 005 003 224 I \t \0 \0 247
0002440 o \0 \0 \0 \t \0 \0 020 i 020 B l \b l 0 \n
0002460 \0 \0 277 l 004 l + \n \0 \0 277 j l \n \0
0002500 \0 277 l ) \t \0 \0 k H \n \0 \0 345 Z j 360
0002520 265 \v J 005 003 264 006 J \t \0 \0 h 360 \n \0 \0
0002540 264 311 l \f l 0 \n \0 \0 277 l \b l + \n \0
0002560 \0 277 j l \n \0 \0 A H 340 l 0 \n \0 \0
0002600 277 l 004 l + \n \0 \0 277 j l \n \0 \0 277
0002620 l ) \t \0 \0 342 H 340 l 0 \n \0 \0 277 l 004
0002640 l + \n \0 \0 277 j l \n \0 \0 277 l ) \t
0002660 \0 \0 340 340 340 340 340 340 340 344 \n \0 \0 l \b l
0002700 0 \n \0 \0 277 l 004 l + \n \0 \0 277 j l
0002720 \n \0 \0 277 l ) \t \0 \0 k H \n \0 \0 345 [
0002740 j 360 222 261 377 E K 005 003 227 K \t \0 \0 222 261
0002760 377 9 o \0 \0 \0 \t \0 \0 020 \0 ( 5 6 0 Q
0003000 H E L P 5 4 5 Q \ F Z E R
0003020 O P 5 2 5 Q L L S H 5 2 0
0003040 Q \ D E V I C E . I N P U T
0003060 5 1 2 Q \ D E V I C E . O U T
0003100 P U T 5 0 3 Q \ D E V I C E
0003120 . O U T P U T 4 7 3 Q \ D E
0003140 V I C E . O U T P U T 4 6 4 Q
0003160 S E T 4 5 1 Q \ D E V I C
0003200 E . I N P U T 4 4 3 Q \ D E
0003220 V I C E . O U T P U T 4 3 4 Q
0003240 \ D E V I C E . O U T P U T
0003260 4 2 4 Q \ D E V I C E . O U T
0003300 P U T 4 1 4 Q \ D E V I C E
0003320 . I N P U T 4 0 6 Q \ D E V
0003340 I C E . O U T P U T 3 7 7 Q
0003360 \ D E V I C E . O U T P U T 3
0003400 6 7 Q \ D E V I C E . O U T P
0003420 U T 3 5 7 Q \ D E V I C E .
0003440 O U T P U T 3 5 0 Q \ D E V
0003460 I C E . O U T P U T 3 4 0 Q
0003500 \ D E V I C E . O U T P U T 3
0003520 2 7 Q S E T 3 2 2 Q \ F Z
0003540 E R O P 3 0 3 Q L L S H 2
0003560 7 6 Q \ D E V I C E . I N P U
0003600 T 2 7 0 Q \ D E V I C E . O
0003620 U T P U T 2 6 1 Q \ D E V I
0003640 C E . O U T P U T 2 5 1 Q \
0003660 D E V I C E . O U T P U T 2 3
0003700 6 Q H E L P 2 2 6 Q \ F Z
0003720 E R O P 2 1 0 Q L L S H 2
0003740 0 3 Q \ D E V I C E . I N P U
0003760 T 1 7 5 Q \ D E V I C E . O
0004000 U T P U T 1 6 6 Q \ D E V I
0004020 C E . O U T P U T 1 5 6 Q \
0004040 D E V I C E . O U T P U T 1 4
0004060 5 Q E V A L 1 4 1 Q S E T
0004100 1 2 6 Q \ D E V I C E . I N
0004120 P U T 1 2 0 Q \ D E V I C E
0004140 . O U T P U T 1 1 1 Q \ D E
0004160 V I C E . O U T P U T 1 0 1 Q
0004200 \ D E V I C E . O U T P U T
0004220 7 1 Q \ D E V I C E . I N P U
0004240 T 6 3 Q \ D E V I C E . O U
0004260 T P U T 5 4 Q \ D E V I C E
0004300 . O U T P U T 4 4 Q \ D E V
0004320 I C E . O U T P U T 3 4 Q \
0004340 D E V I C E . O U T P U T 2 5
0004360 Q \ D E V I C E . O U T P U T
0004400 1 5 Q \ D E V I C E . O U T
0004420 P U T 3 E V A L ) \r N I L \r
0004440 ( 5 5 5 Q " d o u b l e w
0004460 r a p 2 " 2 3 3 Q " d o u
0004500 b l e w r a p 1 " ) \r B U S
0004520 D M A . S L O W U P D A T E A D
0004540 D R D 1 \r ( P 0 c h a n n
0004560 e l I 2 w r a p p e d N a
0004600 m e I 1 c u r r e n t A d
0004620 d r N a m e I 0 d m a C h
0004640 a n n e l N a m e ) \0 8 001 \0 \0
0004660 003 @ \t \0 \0 021 001 \0 H \t \0 \0 A H \t \0
0004700 \0 \n \0 \0 B \t \0 \0 237 H i \n \0 \0 227 o
0004720 \0 \0 \0 \t \0 \0 212 i 210 B H i \n \0 \0 \n
0004740 \0 \0 H \t \0 \0 277 020 \0 ( 6 4 Q B U
0004760 S D M A . U N M A S K 6 0 Q
0005000 S E T 5 5 Q B U S D M A . R
0005020 E A D T C B I T 4 4 Q H E L
0005040 P 3 4 Q B U S D M A . R E A
0005060 D T C B I T 2 6 Q E V A L
0005100 2 2 Q S E T 1 7 Q B U S D
0005120 M A . R E A D A D D R E S S 1
0005140 2 Q B U S D M A . M A S K 3
0005160 E V A L ) \r N I L \r ( 4 1 Q
0005200 " d o u b l e w r a p 1 "
0005220 ) \r B U S D M A . U P D A T E A
0005240 D D R D 1 \r ( I 3 f a s t
0005260 F l g I 2 & w r a p p e d
0005300 I 1 & c u r r e n t A d d
0005320 r e s s I 0 & d m a C h a
0005340 n n e l ) \0 026 001 \0 001 004 C 223 g \0
0005360 \0 202 g \0 \0 021 001 \0 @ A B l 003 H 017 016
0005400 020 \0 N I L \r ( 1 0 Q B U S D M
0005420 A . S L O W U P D A T E A D D R
0005440 4 B U S D M A . F A S T U P
0005460 D A T E A D D R ) \r ( ) \r F e t
0005500 c h A r r a y D 1 \r ( I 5
0005520 p c B a s e I 4 a r r a y
0005540 I n d e x I 3 m o d e I
0005560 2 c o u n t I 1 p c W
0005600 o r d O f f s e t I 0 a r
0005620 r a y ) \0 R \0 \0 \0 006 C 230 C d g
0005640 \0 \0 360 262 037 277 D 233 @ \t \0 \0 D @ \t \0
0005660 \0 331 320 203 @ \t \0 \0 E 265 003 k A 340 B 0
0005700 005 020 g \0 \0 360 262 036 D 233 @ \t \0 \0 D @
0005720 \t \0 \0 331 320 203 @ \t \0 \0 E 265 003 k A 340
0005740 B 0 006 020 o \0 \0 \0 \t \0 \0 020 \0 ( 1 1
0005760 7 Q S H O U L D N T 7 6 Q
0006000 A R R A Y B A S E 6 7 Q A R
0006020 R A Y O R I G 6 2 Q A R R A
0006040 Y B A S E 3 4 Q A R R A Y B
0006060 A S E 2 5 Q A R R A Y O R I
0006100 G 2 0 Q A R R A Y B A S E )
0006120 \r ( 5 1 Q S W A P 6 S T R
0006140 A I G H T ) \r ( 1 1 4 Q " b
0006160 a d m o d e " ) \r S t o r e A
0006200 r r a y D 1 \r ( I 5 p c B
0006220 a s e I 4 a r r a y I n d
0006240 e x I 3 m o d e I 2
0006260 c o u n t I 1 p c W o r d
0006300 O f f s e t I 0 a r r a y
0006320 ) \0 R \0 \0 \0 006 C 230 C d g \0 \0 360
0006340 262 037 277 D 233 @ \t \0 \0 D @ \t \0 \0 331 320
0006360 203 @ \t \0 \0 E 265 003 k A 340 B 0 001 020 g
0006400 \0 \0 360 262 036 D 233 @ \t \0 \0 D @ \t \0 \0
0006420 331 320 203 @ \t \0 \0 E 265 003 k A 340 B 0 002
0006440 020 o \0 \0 \0 \t \0 \0 020 \0 ( 1 1 7 Q
0006460 S H O U L D N T 7 6 Q A R R
0006500 A Y B A S E 6 7 Q A R R A Y
0006520 O R I G 6 2 Q A R R A Y B A
0006540 S E 3 4 Q A R R A Y B A S E
0006560 2 5 Q A R R A Y O R I G 2
0006600 0 Q A R R A Y B A S E ) \r ( 5
0006620 1 Q S W A P 6 S T R A I G
0006640 H T ) \r ( 1 1 4 Q " b a d
0006660 m o d e " ) \r T e s t A r r a y
0006700 D 1 \r ( I 5 p c B a s e
0006720 I 4 a r r a y I n d e x I
0006740 3 m o d e I 2 c o u n
0006760 t I 1 p c W o r d O f f s
0007000 e t I 0 a r r a y ) \0 R
0007020 \0 \0 \0 006 C 230 C d g \0 \0 360 262 037 277 D
0007040 233 @ \t \0 \0 D @ \t \0 \0 331 320 203 @ \t \0
0007060 \0 E 265 003 k A 340 B 0 025 020 g \0 \0 360 262
0007100 036 D 233 @ \t \0 \0 D @ \t \0 \0 331 320 203 @
0007120 \t \0 \0 E 265 003 k A 340 B 0 026 020 o \0 \0
0007140 \0 \t \0 \0 020 \0 ( 1 1 7 Q S H O U
0007160 L D N T 7 6 Q A R R A Y B A
0007200 S E 6 7 Q A R R A Y O R I G
0007220 6 2 Q A R R A Y B A S E 3
0007240 4 Q A R R A Y B A S E 2 5 Q
0007260 A R R A Y O R I G 2 0 Q A
0007300 R R A Y B A S E ) \r ( 5 1 Q S
0007320 W A P 6 S T R A I G H T ) \r
0007340 ( 1 1 4 Q " b a d m o d e
0007360 " ) \r ( P R E T T Y C O M P R I
0007400 N T B U S U T I L C O M S ) \r
0007420 ( R P A Q Q B U S U T I L C O
0007440 M S ( ( F N S B U S . R E A
0007460 D W O R D B U S . W R I T E W
0007500 O R D B U S D M A . F A S T U
0007520 P D A T E A D D R B U S D M A
0007540 . S L O W U P D A T E A D D R
0007560 \r B U S D M A . U P D A T E A D
0007600 D R F e t c h A r r a y S t
0007620 o r e A r r a y T e s t A r r
0007640 a y ) ( P R O P D O P V A L
0007660 \ B U S B L T C H E C K \ B
0007700 U S B L T C H E C K B Y T E S
0007720 \r \ B U S B L T C H E C K S W A
0007740 P B Y T E S ) ( M A C R O S
0007760 B U S D M A . F A S T U P D A T
0010000 E A D D R B U S D M A . U P D
0010020 A T E A D D R ) ( D E C L A R
0010040 E : D O N T E V A L @ L O A D
0010060 \r D O E V A L @ C O M P I L E
0010100 D O N T C O P Y C O M P I L
0010120 E R V A R S ( A D D V A R S
0010140 ( N L A M A ) ( N L A M L B
0010160 U S D M A . U P D A T E A D D R
0010200 ) ( L A M A ) ) ) ) ) \r ( P U
0010220 T P R O P S \ B U S B L T C H
0010240 E C K D O P V A L ( 4 B U
0010260 S B L T 2 0 ) ) \r ( P U T P R
0010300 O P S \ B U S B L T C H E C K
0010320 B Y T E S D O P V A L ( 4
0010340 B U S B L T 2 1 ) ) \r ( P U T
0010360 P R O P S \ B U S B L T C H E
0010400 C K S W A P B Y T E S D O P V
0010420 A L ( 4 B U S B L T 2 2 )
0010440 ) \r ( P U T P R O P S B U S D
0010460 M A . F A S T U P D A T E A D D
0010500 R M A C R O ( ( d m a C h a
0010520 n n e l c u r r e n t A d d r
0010540 e s s w r a p p e d f a s t
0010560 F l g ) ( P R O G N ( * h
0010600 t : \r " 1 8 - A p r - 8 5 1
0010620 4 : 4 6 " ) ( * * O p e n
0010640 c o d e d a l l t h e w
0010660 a y - s e e f n d e f n
0010700 f o r d e s c r i p t i o n
0010720 ) ( P R O G N ( B X . O U T
0010740 P U T 1 2 7 ) \r ( B X . O
0010760 U T P U T 8 4 ) ( B X . O
0011000 U T P U T 0 5 ) ) ( S E T
0011020 Q c u r r e n t A d d r e s s
0011040 ( L O G O R ( L R S H ( P
0011060 R O G N ( B X . O U T P U T
0011100 ( C O N S T A N T ( L L S H
0011120 \r d m a C h a n n e l 1 ) )
0011140 7 ) ( B X . O U T P U T 4
0011160 4 ) ( B X . O U T P U T 0
0011200 5 ) ( B X . I N P U T 5 ) )
0011220 1 ) ( L L S H ( P R O G N
0011240 ( B X . O U T P U T ( C O N
0011260 S T A N T ( \r L L S H d m a
0011300 C h a n n e l 1 ) ) 7 ) (
0011320 B X . O U T P U T 4 4 ) (
0011340 B X . O U T P U T 0 5 ) (
0011360 B X . I N P U T 5 ) ) 7 ) )
0011400 ) ( * * C h e c k t h e
0011420 T C b i t f o r \r t h i
0011440 s c h a n n e l - o p e n
0011460 c o d e d f o r s p e e d
0011500 ) ( i f w r a p p e d t h
0011520 e n ( i f ( N O T ( Z E R
0011540 O P ( L O G A N D ( P R O G
0011560 N ( B X . O U T P U T 8 7
0011600 ) ( \r B X . O U T P U T 4
0011620 4 ) ( B X . O U T P U T 0
0011640 5 ) ( B X . I N P U T 5 ) )
0011660 ( C O N S T A N T ( L L S H
0011700 1 d m a C h a n n e l ) ) )
0011720 ) ) t h e n ( H E L P \r "
0011740 d o u b l e w r a p 1 " )
0011760 e l s e T ) e l s e ( i f
0012000 w r a p p e d _ ( N O T (
0012020 Z E R O P ( L O G A N D ( P
0012040 R O G N ( B X . O U T P U T
0012060 8 7 ) ( B X . O U T P U T
0012100 4 4 ) \r ( B X . O U T P U T
0012120 0 5 ) ( B X . I N P U T
0012140 5 ) ) ( C O N S T A N T ( L
0012160 L S H 1 d m a C h a n n e l
0012200 ) ) ) ) ) t h e n ( * *
0012220 r e a d a d d r e s s a g a
0012240 i n t o b e \r s u r e t
0012260 o g e t p a s t t h e e
0012300 n d ) ( P R O G N ( B X . O
0012320 U T P U T 1 2 7 ) ( B X .
0012340 O U T P U T 8 4 ) ( B X .
0012360 O U T P U T 0 5 ) ) ( S E
0012400 T Q \r c u r r e n t A d d r e
0012420 s s ( L O G O R ( L R S H
0012440 ( P R O G N ( B X . O U T P U
0012460 T ( C O N S T A N T ( L L S
0012500 H d m a C h a n n e l 1 ) )
0012520 7 ) ( B X . O U T P U T 4
0012540 4 ) ( \r B X . O U T P U T
0012560 0 5 ) ( B X . I N P U T 5
0012600 ) ) 1 ) ( L L S H ( P R O
0012620 G N ( B X . O U T P U T ( C
0012640 O N S T A N T ( L L S H d m
0012660 a C h a n n e l 1 ) ) 7 )
0012700 ( B X . O U T P U T 4 \r 4 )
0012720 ( B X . O U T P U T 0 5 )
0012740 ( B X . I N P U T 5 ) ) 7
0012760 ) ) ) ( * * i f w e % '
0013000 v e w r a p p e d a g a i n
0013020 a l r e a d y , t h a t m
0013040 e a n s w e w e r e n o t
0013060 \r p a y i n g a t t e n t i
0013100 o n f o r a l o n g t i
0013120 m e b e f o r e t h e c u
0013140 r r e n t r o u n d , a n d
0013160 t h i n g s a r e i n b
0013200 a d s h a p e ) ( i f ( N
0013220 O T ( \r Z E R O P ( L O G A
0013240 N D ( P R O G N ( B X . O U
0013260 T P U T 8 7 ) ( B X . O U
0013300 T P U T 4 4 ) ( B X . O U
0013320 T P U T 0 5 ) ( B X . I N
0013340 P U T 5 ) ) ( C O N S T A N
0013360 T ( L L S H 1 \r d m a C h
0013400 a n n e l ) ) ) ) ) t h e n
0013420 ( H E L P " d o u b l e w r
0013440 a p 2 " ) e l s e T ) ) )
0013460 ) ) ) \r ( P U T P R O P S B U
0013500 S D M A . U P D A T E A D D R
0013520 M A C R O ( X ( P R O G N
0013540 ( * h t : " 1 8 - A p r - 8
0013560 5 1 4 : 4 6 " ) ( C O N S
0013600 ( i f ( C A D D D R X ) t
0013620 h e n ( Q U O T E \r B U S D
0013640 M A . F A S T U P D A T E A D D
0013660 R ) e l s e ( Q U O T E B
0013700 U S D M A . S L O W U P D A T E
0013720 A D D R ) ) X ) ) ) ) \r ( P U
0013740 T P R O P S B U S U T I L C
0013760 O P Y R I G H T ( " H e n r y
0014000 T h o m p s o n " 1 9 8 5 )
0014020 ) \r N I L \r
0014026