$ od -c -N 50000 [eris]<LispCore>busmaster>TESTBUS.DCOM!1
0000000 ( F I L E C R E A T E D " 1 8
0000020 - A p r - 8 5 1 9 : 1 9 : 0 5
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 T E S T B U S . ; 7 ) \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 . R E S E T B M
0000220 1 6 L O O P B M 8 L O O P i
0000240 n " I N T E R L I S P - D 1
0000260 6 - A p r - 8 5 . . . " d a
0000300 t e d \r " 1 6 - A p r - 8 5
0000320 1 3 : 0 2 : 1 5 " ) \r ( F I L E
0000340 C R E A T E D " 1 8 - A p r -
0000360 8 5 1 9 : 1 8 : 4 1 " { D S
0000400 K } < L I S P F I L E S > H T H
0000420 O M P S O N > D S L > T E S T B
0000440 U S . ; 7 8 0 9 3 c h a n g
0000460 e s t o : ( V A R S \r T E
0000500 S T B U S C O M S ) ( F N S
0000520 B M 1 6 L O O P B M 8 L O O P
0000540 ) p r e v i o u s d a t e :
0000560 " 1 4 - A p r - 8 5 1 4 : 3
0000600 8 : 4 4 " \r { D S K } < L I S
0000620 P F I L E S > H T H O M P S O N
0000640 > D S L > T E S T B U S . ; 6 )
0000660 \r B U S . R E S E T D 1 \r N I
0000700 L \0 \r \0 \0 \0 \0 l l + y 002 j l
0000720 y 002 020 \0 N I L \r N I L \r ( ) \r
0000740 B M 1 6 L O O P D 1 \r ( L (
0000760 0 D ) ) \0 037 \0 \0 \0 001 l 017 l ;
0001000 y 002 j l 0 y 002 n 201 002 l + y 002 @ l
0001020 y 002 @ l ) x 001 360 020 \0 N I L \r N
0001040 I L \r ( ) \r B M 8 L O O P D 1
0001060 \r ( L ( 0 D ) ) \0 036 \0 \0 \0
0001100 001 l 017 l ; y 002 j l 0 y 002 l 002 l +
0001120 y 002 @ l y 002 @ l ) x 001 360 020 \0 N
0001140 I L \r N I L \r ( ) \r M B B R e a
0001160 d A 0 0 0 1 D 1 \r ( N A M E
0001200 E R R O R S E T F 0 m e s
0001220 s a g e F 1 $ $ T o g W i
0001240 n d o w $ $ F 2 M A C R O
0001260 Y ) \0 # \0 003 002 \0 P \t \0 \0 277 o \0
0001300 \0 \0 \t \0 \0 277 l 020 \t \0 \0 Q i \n \0 \0
0001320 \t \0 \0 \t \0 \0 277 c 004 i 020 \0 ( 3 4 Q
0001340 C L O S E W 3 1 Q G E T P
0001360 R O M P T W I N D O W 2 6 Q
0001400 M A I N W I N D O W 2 1 Q T
0001420 r u e R a d i x R e a d 1 3 Q
0001440 P R I N 1 3 P R I N 1 ) \r
0001460 N I L \r ( 1 0 Q " ( i n
0001500 h e x ) : " ) \r M B B R e a
0001520 d D 1 \r ( P 3 R E S E T S
0001540 T A T E P 2 M A C R O Y
0001560 P 0 O L D V A L U E I 0
0001600 m e s s a g e F 4 R E S
0001620 E T V A R S L S T F 5 $ $
0001640 T o g W i n d o w $ $ ) \0 B 004
0001660 002 \0 001 U i \n \0 \0 \t \0 \0 \t \0 \0 021 1
0001700 003 g \0 \0 H h 032 032 h 032 T 032 c \b Y o
0001720 \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I 002
0001740 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b \0
0001760 \0 020 J 020 \0 ( 7 5 Q E R R O R !
0002000 7 0 Q A P P L Y 4 5 Q M
0002020 B B R e a d A 0 0 0 1 1 2 Q
0002040 T T Y D I S P L A Y S T R E A M
0002060 7 G E T P R O M P T W I N D
0002100 O W 4 M A I N W I N D O W )
0002120 \r ( 6 1 Q T T Y D I S P L A Y
0002140 S T R E A M 5 1 Q E R R O R
0002160 4 2 Q I N T E R N A L 2 0
0002200 Q T T Y D I S P L A Y S T R E
0002220 A M ) \r ( 3 7 Q ( M B B R e
0002240 a d A 0 0 0 1 ) ) \r M a k e B u
0002260 s B o x D 1 \r ( P 5 t m
0002300 P 4 b b w P 3 t w P
0002320 2 m e n u P 1 m w F
0002340 7 M B B M e n u s F 1 0
0002360 Q M B B M e n u I t e m s F
0002400 1 1 Q B u s B o x I c o n )
0002420 \0 321 \a 003 \0 \0 W 016 002 W 016 001 002 \t \0
0002440 \0 W 016 001 001 h ` \0 \0 ` \0 \0 \r 005 \0 \0
0002460 021 R 006 I [ W 016 001 001 \t \0 \0 I g \0 \0
0002500 \n \0 \0 \v \0 \0 277 H 003 265 u ` \0 \0 037 d
0002520 W 020 024 004 277 d g \0 \0 024 026 277 d g \0 \0
0002540 024 277 d g \0 \0 024 034 277 j d n 177 377 d
0002560 h 032 032 032 032 276 d N 024 \n 277 o \0 \0 \0 o
0002600 \0 \0 \0 \n \0 \0 \ I g \0 \0 g \0 \0 \f \0
0002620 \0 g \0 \0 g \0 \0 \f \0 \0 277 I g \0 \0 L
0002640 \v \0 \0 277 i L \n \0 \0 277 L g \0 \0 i \v
0002660 \0 \0 277 I g \0 \0 W 022 \v \0 \0 h 020 001 Z
0002700 002 \t \0 \0 ] J 001 h j d \r 005 \0 \0 K g
0002720 \0 \0 \v \0 \0 277 I J 001 \t \0 \0 M \v \0 \0
0002740 277 H 002 X 261 377 d \0 ( 3 1 0 Q W I
0002760 N D O W P R O P 3 0 4 Q P A
0003000 C K * 2 7 5 Q A T T A C H W
0003020 I N D O W 2 6 6 Q T o g M e
0003040 n u 2 5 4 Q M a k e T o g M
0003060 e n u 2 4 4 Q P U T W I N D
0003100 O W P R O P 2 3 2 Q P U T W
0003120 I N D O W P R O P 2 2 1 Q D
0003140 S P S C R O L L 2 1 3 Q P U
0003160 T W I N D O W P R O P 2 0 2 Q
0003200 A T T A C H M E N U 1 7 1 Q
0003220 A T T A C H W I N D O W 1 5
0003240 6 Q C R E A T E W 5 6 Q W
0003260 I N D O W P R O P 5 3 Q G E
0003300 T W I N D O W U S E R P R O P
0003320 4 4 Q P A C K * 3 0 Q T o
0003340 g M e n u 1 1 Q M a k e T o
0003360 g M e n u ) \r ( 2 7 2 Q R I G
0003400 H T 2 3 7 Q I C O N 2 2 6
0003420 Q N O P A G E H O L D 2 0 7
0003440 Q B B W i n d o w 1 7 7 Q
0003460 T O P 1 7 4 Q L E F T 1 6
0003500 6 Q J U S T I F Y 1 6 3 Q
0003520 B O T T O M 1 1 7 Q D E F A
0003540 U L T M E N U H E L D F N 1 1
0003560 0 Q C L R P R O M P T 1 0 1
0003600 Q D o M M B C m d 6 6 Q 004
0003620 003 M E N U T Y P E # 5 0 Q T
0003640 o g g l e M e n u 2 4 Q L A
0003660 S T M O U S E Y 2 1 Q L A S
0003700 T M O U S E X ) \r ( 1 5 3 Q
0003720 " B u s B o x " 1 4 7 Q (
0003740 0 0 1 4 4 Q 1 4 4 Q ) ) \r
0003760 D o M M B C m d A 0 0 0 1 D 1
0004000 \r ( N A M E E R R O R S E T
0004020 F 0 o w F 1 h a F
0004040 2 l a F 3 M A C R O Y )
0004060 \0 / \0 004 002 \0 P \t \0 \0 277 o \0 \0 \0
0004100 P \n \0 \0 277 Q 341 341 R 330 P \n \0 \0 277 o
0004120 \0 \0 \0 P \n \0 \0 277 Q R \n \0 \0 P \n \0
0004140 \0 c 006 i 020 \0 ( 5 1 Q P R I N 1
0004160 4 5 Q B U S . R E A D H L
0004200 3 7 Q P R I N 1 2 6 Q P R
0004220 I N 1 1 4 Q P R I N 1 3
0004240 T E R P R I ) \r N I L \r ( 3 3
0004260 Q " : " 1 0 Q " M e m
0004300 " ) \r D o M M B C m d A 0 0 0 2
0004320 D 1 \r ( N A M E E R R O R S
0004340 E T F 0 o w F 1 d a
0004360 t u m F 2 M A C R O Y F
0004400 3 h a F 4 l a ) \0 "
0004420 \0 005 002 \0 P \t \0 \0 277 Q P \n \0 \0 277 o
0004440 \0 \0 \0 P \n \0 \0 277 S 341 341 T 330 P \n \0
0004460 \0 c 004 i 020 \0 ( 3 4 Q P R I N 1
0004500 2 2 Q P R I N 1 1 1 Q P
0004520 R I N 1 3 T E R P R I ) \r N
0004540 I L \r ( 1 6 Q " - > M e
0004560 m " ) \r D o M M B C m d A 0 0
0004600 0 3 D 1 \r ( N A M E E R R O
0004620 R S E T F 0 o w F 1
0004640 p a F 2 M A C R O Y ) \0
0004660 * \0 003 002 \0 P \t \0 \0 277 o \0 \0 \0 P \n
0004700 \0 \0 277 Q P \n \0 \0 277 o \0 \0 \0 P \n \0
0004720 \0 277 Q \t \0 \0 P \n \0 \0 c 004 i 020 \0 (
0004740 4 4 Q P R I N 1 4 0 Q B U
0004760 S . I N P U T 3 3 Q P R I N
0005000 1 2 2 Q P R I N 1 1 4 Q
0005020 P R I N 1 3 T E R P R I ) \r
0005040 N I L \r ( 2 7 Q " : " 1
0005060 0 Q " P o r t " ) \r D o M M
0005100 B C m d A 0 0 0 4 D 1 \r ( N A
0005120 M E E R R O R S E T F 0
0005140 o w F 1 d a t u m F 2
0005160 p a F 3 M A C R O Y )
0005200 \0 036 \0 004 002 \0 P \t \0 \0 277 Q P \n \0 \0
0005220 277 o \0 \0 \0 P \n \0 \0 277 R P \n \0 \0 c
0005240 006 i 020 \0 ( 3 0 Q P R I N 1 2
0005260 2 Q P R I N 1 1 1 Q P R I
0005300 N 1 3 T E R P R I ) \r N I L
0005320 \r ( 1 6 Q " - > P o r t
0005340 " ) \r D o M M B C m d A 0 0 0
0005360 5 D 1 \r ( N A M E E R R O R
0005400 S E T F 0 o w F 1 d
0005420 a t u m F 2 M A C R O Y
0005440 F 3 h a F 4 l a ) \0
0005460 " \0 005 002 \0 P \t \0 \0 277 Q P \n \0 \0 277
0005500 o \0 \0 \0 P \n \0 \0 277 S 341 341 T 330 P \n
0005520 \0 \0 c 004 i 020 \0 ( 3 4 Q P R I N
0005540 1 2 2 Q P R I N 1 1 1 Q
0005560 P R I N 1 3 T E R P R I ) \r
0005600 N I L \r ( 1 6 Q " - > M
0005620 e m " ) \r D o M M B C m d A 0
0005640 0 0 6 D 1 \r ( N A M E E R R
0005660 O R S E T F 0 o w F 1
0005700 h a F 2 l a F 3 M
0005720 A C R O Y ) \0 / \0 004 002 \0 P \t \0
0005740 \0 277 o \0 \0 \0 P \n \0 \0 277 Q 341 341 R 330
0005760 P \n \0 \0 277 o \0 \0 \0 P \n \0 \0 277 Q R
0006000 \n \0 \0 P \n \0 \0 c 006 i 020 \0 ( 5 1 Q
0006020 P R I N 1 4 5 Q B U S . R
0006040 E A D H L 3 7 Q P R I N 1
0006060 2 6 Q P R I N 1 1 4 Q P R
0006100 I N 1 3 T E R P R I ) \r N I
0006120 L \r ( 3 3 Q " : " 1 0 Q
0006140 " M e m " ) \r D o M M B C m
0006160 d A 0 0 0 7 D 1 \r ( N A M E
0006200 E R R O R S E T F 0 o w
0006220 F 1 d a t u m F 2 p a
0006240 F 3 M A C R O Y ) \0 036 \0
0006260 004 002 \0 P \t \0 \0 277 Q P \n \0 \0 277 o \0
0006300 \0 \0 P \n \0 \0 277 R P \n \0 \0 c 006 i 020
0006320 \0 ( 3 0 Q P R I N 1 2 2 Q
0006340 P R I N 1 1 1 Q P R I N 1
0006360 3 T E R P R I ) \r N I L \r (
0006400 1 6 Q " - > P o r t " )
0006420 \r D o M M B C m d A 0 0 0 8 D
0006440 1 \r ( N A M E E R R O R S E T
0006460 F 0 o w F 1 p a F
0006500 2 M A C R O Y ) \0 * \0 003 002
0006520 \0 P \t \0 \0 277 o \0 \0 \0 P \n \0 \0 277 Q
0006540 P \n \0 \0 277 o \0 \0 \0 P \n \0 \0 277 Q \t
0006560 \0 \0 P \n \0 \0 c 004 i 020 \0 ( 4 4 Q
0006600 P R I N 1 4 0 Q B U S . I N
0006620 P U T 3 3 Q P R I N 1 2 2
0006640 Q P R I N 1 1 4 Q P R I N
0006660 1 3 T E R P R I ) \r N I L \r
0006700 ( 2 7 Q " : " 1 0 Q "
0006720 P o r t " ) \r D o M M B C m d
0006740 A 0 0 0 9 D 1 \r ( N A M E E
0006760 R R O R S E T F 0 o w F
0007000 1 d a t u m F 2 M A C
0007020 R O Y F 3 h a F 4 l
0007040 a ) \0 " \0 005 002 \0 P \t \0 \0 277 Q P
0007060 \n \0 \0 277 o \0 \0 \0 P \n \0 \0 277 S 341 341
0007100 T 330 P \n \0 \0 c 004 i 020 \0 ( 3 4 Q
0007120 P R I N 1 2 2 Q P R I N 1
0007140 1 1 Q P R I N 1 3 T E R P
0007160 R I ) \r N I L \r ( 1 6 Q "
0007200 - > M e m " ) \r D o M M B C
0007220 m d A 0 0 1 0 D 1 \r ( N A M E
0007240 E R R O R S E T F 0 o w
0007260 F 1 p a F 2 M A C R
0007300 O Y ) \0 * \0 003 002 \0 P \t \0 \0 277 o
0007320 \0 \0 \0 P \n \0 \0 277 Q P \n \0 \0 277 o \0
0007340 \0 \0 P \n \0 \0 277 Q \t \0 \0 P \n \0 \0 c
0007360 004 i 020 \0 ( 4 4 Q P R I N 1 4
0007400 0 Q B U S . I N P U T 3 3 Q
0007420 P R I N 1 2 2 Q P R I N 1
0007440 1 4 Q P R I N 1 3 T E R
0007460 P R I ) \r N I L \r ( 2 7 Q "
0007500 : " 1 0 Q " P o r t " )
0007520 \r D o M M B C m d D 1 \r ( P
0007540 5 7 Q R E S E T S T A T E P
0007560 5 6 Q M A C R O Y P 5 4
0007600 Q O L D V A L U E P 5 3 Q
0007620 R E S E T S T A T E P 5 2
0007640 Q M A C R O Y P 5 0 Q O
0007660 L D V A L U E P 4 7 Q R E
0007700 S E T S T A T E P 4 6 Q M
0007720 A C R O Y P 4 4 Q O L D V
0007740 A L U E P 4 3 Q R E S E T
0007760 S T A T E P 4 2 Q M A C R
0010000 O Y P 4 0 Q O L D V A L U
0010020 E P 3 7 Q R E S E T S T A
0010040 T E P 3 6 Q M A C R O Y
0010060 P 3 4 Q O L D V A L U E P
0010100 3 3 Q R E S E T S T A T E
0010120 P 3 2 Q M A C R O Y P 3
0010140 0 Q O L D V A L U E P 2 7
0010160 Q R E S E T S T A T E P 2
0010200 6 Q M A C R O Y P 2 4 Q
0010220 O L D V A L U E P 2 3 Q R
0010240 E S E T S T A T E P 2 2 Q
0010260 M A C R O Y P 2 0 Q O L D
0010300 V A L U E P 1 7 Q R E S E
0010320 T S T A T E P 1 6 Q M A C
0010340 R O Y P 1 4 Q O L D V A L
0010360 U E P 1 3 Q R E S E T S T
0010400 A T E P 1 2 Q M A C R O Y
0010420 P 1 0 Q O L D V A L U E
0010440 P 7 l o o p P 6 s i l
0010460 e n t P 5 d a t u m P
0010500 4 p a P 3 l a P 2
0010520 h a P 1 o w P 0 m w
0010540 I 2 k e y I 1 m e n
0010560 u I 0 i t e m F 6 0 Q
0010600 R E S E T V A R S L S T ) 004
0010620 021 0 001 \0 003 A \t \0 \0 i \n \0 \0 021 001 \0
0010640 H g \0 \0 \n \0 \0 021 001 001 H g \0 \0 \n \0
0010660 \0 \t \0 \0 021 001 002 H g \0 \0 \n \0 \0 \t \0
0010700 \0 021 001 003 H g \0 \0 \n \0 \0 \t \0 \0 021 001
0010720 004 H g \0 \0 \n \0 \0 \t \0 \0 021 001 005 H g
0010740 \0 \0 \n \0 \0 \t \0 \0 021 001 006 H g \0 \0 \n
0010760 \0 \0 \t \0 \0 021 001 \a @ d g \0 \0 360 262 U
0011000 277 N 227 J K \n \0 \0 261 003 210 l 020 \t \0 \0
0011020 021 1 \v g \0 \0 O 020 h 032 032 h 032 W ` 032
0011040 c ` _ 022 277 o \0 \0 \0 g \0 \0 \n \0 \0 245
0011060 g \0 \0 _ 026 277 O 022 002 c ` 277 g \0 \0 O
0011100 022 001 001 002 \n \0 \0 277 O 026 223 \b \0 \0 277 023
0011120 261 003 A g \0 \0 360 262 S N 263 G l 020 \t \0
0011140 \0 021 1 017 g \0 \0 O 030 h 032 032 h 032 W `
0011160 032 c ` _ 032 277 o \0 \0 \0 g \0 \0 \n \0 \0
0011200 245 g \0 \0 _ 036 277 O 032 002 c ` 277 g \0 \0
0011220 O 032 001 001 002 \n \0 \0 277 O 036 223 \b \0 \0 277
0011240 023 J K M \v \0 \0 261 002 351 @ d g \0 \0 360
0011260 262 T 277 N 226 L \t \0 \0 261 002 327 l 020 \t \0
0011300 \0 021 1 023 g \0 \0 O h 032 032 h 032 W `
0011320 032 c ` _ " 277 o \0 \0 \0 g \0 \0 \n \0 \0
0011340 245 g \0 \0 _ & 277 O " 002 c ` 277 g \0 \0
0011360 O " 001 001 002 \n \0 \0 277 O & 223 \b \0 \0 277
0011400 023 261 002 220 g \0 \0 360 262 R N 263 G l 020 \t
0011420 \0 \0 021 1 027 g \0 \0 O ( h 032 032 h 032 W
0011440 ` 032 c ` _ * 277 o \0 \0 \0 g \0 \0 \n \0
0011460 \0 245 g \0 \0 _ . 277 O * 002 c ` 277 g \0
0011500 \0 O * 001 001 002 \n \0 \0 277 O . 223 \b \0 \0
0011520 277 023 L M \n \0 \0 261 002 9 @ d g \0 \0 360
0011540 242 261 \0 245 277 N 263 G l 020 \t \0 \0 021 1 033
0011560 g \0 \0 O 0 h 032 032 h 032 W ` 032 c ` _
0011600 2 277 o \0 \0 \0 g \0 \0 \n \0 \0 245 g \0 \0
0011620 _ 6 277 O 2 002 c ` 277 g \0 \0 O 2 001 001
0011640 002 \n \0 \0 277 O 6 223 \b \0 \0 277 023 J K M
0011660 \v \0 \0 277 N 227 J K \n \0 \0 261 001 325 l 020
0011700 \t \0 \0 021 1 037 g \0 \0 O 8 h 032 032 h 032
0011720 W ` 032 c ` _ : 277 o \0 \0 \0 g \0 \0 \n
0011740 \0 \0 245 g \0 \0 _ > 277 O : 002 c ` 277 g
0011760 \0 \0 O : 001 001 002 \n \0 \0 277 O > 223 \b \0
0012000 \0 277 023 261 001 216 g \0 \0 360 242 261 \0 242 N 263
0012020 G l 020 \t \0 \0 021 1 # g \0 \0 O @ h 032
0012040 032 h 032 W ` 032 c ` _ B 277 o \0 \0 \0 g
0012060 \0 \0 \n \0 \0 245 g \0 \0 _ F 277 O B 002 c
0012100 ` 277 g \0 \0 O B 001 001 002 \n \0 \0 277 O F
0012120 223 \b \0 \0 277 023 L M \n \0 \0 277 N 226 L \t
0012140 \0 \0 261 001 . l 020 \t \0 \0 021 1 ' g \0 \0
0012160 O H h 032 032 h 032 W ` 032 c ` _ J 277 o
0012200 \0 \0 \0 g \0 \0 \n \0 \0 245 g \0 \0 _ N 277
0012220 O J 002 c ` 277 g \0 \0 O J 001 001 002 \n \0
0012240 \0 277 O N 223 \b \0 \0 277 023 261 \0 347 @ g \0
0012260 \0 360 242 261 \0 332 N 262 < O 016 262 5 J l ;
0012300 y 002 277 K l 0 y 002 277 l 002 l + y 002 277
0012320 M l y 002 277 L l 0 y 002 277 l 004 l +
0012340 y 002 277 j l y 002 277 l ) x 001 277 260 317
0012360 N 263 G l 020 \t \0 \0 021 1 + g \0 \0 O P
0012400 h 032 032 h 032 W ` 032 c ` _ R 277 o \0 \0
0012420 \0 g \0 \0 \n \0 \0 245 g \0 \0 _ V 277 O R
0012440 002 c ` 277 g \0 \0 O R 001 001 002 \n \0 \0 277
0012460 O V 223 \b \0 \0 277 023 J K M \v \0 \0 277 N
0012500 225 L \t \0 \0 260 K l 020 \t \0 \0 021 1 / g
0012520 \0 \0 O X h 032 032 h 032 W ` 032 c ` _ Z
0012540 277 o \0 \0 \0 g \0 \0 \n \0 \0 245 g \0 \0 _
0012560 ^ 277 O Z 002 c ` 277 g \0 \0 O Z 001 001 002
0012600 \n \0 \0 277 O ^ 223 \b \0 \0 277 023 203 \b \0 \0
0012620 277 O 016 264 021 ` \0 \0 310 \0 l 004 345 j 360 242
0012640 261 374 X h 020 \0 ( 1 7 7 2 Q S H O
0012660 U L D N T 1 7 6 4 Q E R R O
0012700 R ! 1 7 5 5 Q A P P L Y 1
0012720 7 2 5 Q D o M M B C m d A 0 0
0012740 1 0 1 6 6 6 Q R A D I X 1
0012760 6 5 7 Q B U S . I N P U T 1
0013000 6 5 0 Q B U S . W R I T E H L
0013020 1 6 4 0 Q E R R O R ! 1 6
0013040 3 1 Q A P P L Y 1 6 0 1 Q
0013060 D o M M B C m d A 0 0 0 9 1 5
0013100 4 2 Q R A D I X 1 4 2 2 Q
0013120 E R R O R ! 1 4 1 3 Q A P P
0013140 L Y 1 3 6 3 Q D o M M B C m
0013160 d A 0 0 0 8 1 3 2 4 Q R A D
0013200 I X 1 3 1 4 Q B U S . I N P
0013220 U T 1 3 0 5 Q B U S . O U T
0013240 P U T 1 2 7 6 Q E R R O R !
0013260 1 2 6 7 Q A P P L Y 1 2 3
0013300 7 Q D o M M B C m d A 0 0 0 7
0013320 1 2 0 0 Q R A D I X 1 1 5
0013340 3 Q E R R O R ! 1 1 4 4 Q
0013360 A P P L Y 1 1 1 4 Q D o M M
0013400 B C m d A 0 0 0 6 1 0 5 5 Q
0013420 R A D I X 1 0 4 5 Q B U S .
0013440 R E A D H L 1 0 3 5 Q B U S
0013460 . W R I T E H L 1 0 2 5 Q E
0013500 R R O R ! 1 0 1 6 Q A P P L
0013520 Y 7 6 6 Q D o M M B C m d A
0013540 0 0 0 5 7 2 7 Q R A D I X
0013560 7 0 1 Q B U S . O U T P U T
0013600 6 7 2 Q E R R O R ! 6 6 3 Q
0013620 A P P L Y 6 3 3 Q D o M M
0013640 B C m d A 0 0 0 4 5 7 4 Q R
0013660 A D I X 5 5 1 Q E R R O R !
0013700 5 4 2 Q A P P L Y 5 1 2 Q
0013720 D o M M B C m d A 0 0 0 3 4
0013740 5 3 Q R A D I X 4 4 3 Q B
0013760 U S . I N P U T 4 2 1 Q B U
0014000 S . W R I T E H L 4 1 1 Q E
0014020 R R O R ! 4 0 2 Q A P P L Y
0014040 3 5 2 Q D o M M B C m d A 0
0014060 0 0 2 3 1 3 Q R A D I X 2
0014100 7 0 Q E R R O R ! 2 6 1 Q
0014120 A P P L Y 2 3 1 Q D o M M B
0014140 C m d A 0 0 0 1 1 7 2 Q R A
0014160 D I X 1 6 2 Q B U S . R E A
0014200 D H L 1 3 7 Q T o g M e n u
0014220 V a l u e 1 3 4 Q G E T W I
0014240 N D O W U S E R P R O P 1 2 2
0014260 Q T o g M e n u V a l u e 1
0014300 1 7 Q G E T W I N D O W U S E
0014320 R P R O P 1 0 5 Q T o g M e
0014340 n u V a l u e 1 0 2 Q G E T
0014360 W I N D O W U S E R P R O P 7
0014400 0 Q T o g M e n u V a l u e
0014420 6 5 Q G E T W I N D O W U S E
0014440 R P R O P 5 3 Q T o g M e n
0014460 u V a l u e 5 0 Q G E T W I
0014500 N D O W U S E R P R O P 3 6 Q
0014520 T o g M e n u V a l u e 3 3
0014540 Q G E T W I N D O W U S E R P
0014560 R O P 2 1 Q G E T W I N D O
0014600 W U S E R P R O P 7 M A I N
0014620 W I N D O W 3 W F R O M M E
0014640 N U ) \r ( 2 0 0 2 Q \ E M . K
0014660 B D A D 3 1 7 4 5 Q R A D I
0014700 X 1 7 3 1 Q E R R O R 1 7
0014720 2 2 Q I N T E R N A L 1 6 7
0014740 4 Q R A D I X 1 6 2 1 Q R
0014760 A D I X 1 6 0 5 Q E R R O R
0015000 1 5 7 6 Q I N T E R N A L
0015020 1 5 5 0 Q R A D I X 1 4 3 3
0015040 Q M W / P R 1 4 0 3 Q R A
0015060 D I X 1 3 6 7 Q E R R O R
0015100 1 3 6 0 Q I N T E R N A L 1
0015120 3 3 2 Q R A D I X 1 2 5 7 Q
0015140 R A D I X 1 2 4 3 Q E R R
0015160 O R 1 2 3 4 Q I N T E R N A
0015200 L 1 2 0 6 Q R A D I X 1 1
0015220 6 3 Q P o r t W / R 1 1 3 4
0015240 Q R A D I X 1 1 2 0 Q E R
0015260 R O R 1 1 1 1 Q I N T E R N
0015300 A L 1 0 6 3 Q R A D I X 1
0015320 0 0 6 Q R A D I X 7 7 2 Q
0015340 E R R O R 7 6 3 Q I N T E R
0015360 N A L 7 3 5 Q R A D I X 7
0015400 1 1 Q M e m W / R 6 5 3 Q
0015420 R A D I X 6 3 7 Q E R R O R
0015440 6 3 0 Q I N T E R N A L 6
0015460 0 2 Q R A D I X 5 6 1 Q P
0015500 o r t W r i t e 5 3 2 Q R A
0015520 D I X 5 1 6 Q E R R O R 5
0015540 0 7 Q I N T E R N A L 4 6 1
0015560 Q R A D I X 4 3 1 Q P o r
0015600 t R e a d 3 7 2 Q R A D I X
0015620 3 5 6 Q E R R O R 3 4 7 Q
0015640 I N T E R N A L 3 2 1 Q R
0015660 A D I X 3 0 0 Q M e m W r i
0015700 t e 2 5 1 Q R A D I X 2 3
0015720 5 Q E R R O R 2 2 6 Q I N
0015740 T E R N A L 2 0 0 Q R A D I
0015760 X 1 4 7 Q M e m R e a d 1
0016000 3 1 Q L o o p 1 1 4 Q Q u
0016020 i e t 7 7 Q D a t u m 6 2
0016040 Q P o r t % A d d r e s s
0016060 4 5 Q L o w % A d d r e s s
0016100 3 0 Q H i g h % A d d r e
0016120 s s 1 6 Q B B W i n d o w )
0016140 \r ( 1 7 1 7 Q ( D o M M B C
0016160 m d A 0 0 1 0 ) 1 5 7 3 Q (
0016200 D o M M B C m d A 0 0 0 9 ) 1
0016220 3 5 5 Q ( D o M M B C m d A 0
0016240 0 0 8 ) 1 2 3 1 Q ( D o M M
0016260 B C m d A 0 0 0 7 ) 1 1 0 6 Q
0016300 ( D o M M B C m d A 0 0 0 6 )
0016320 7 6 0 Q ( D o M M B C m d A
0016340 0 0 0 5 ) 6 2 5 Q ( D o M M
0016360 B C m d A 0 0 0 4 ) 5 0 4 Q
0016400 ( D o M M B C m d A 0 0 0 3 )
0016420 3 4 4 Q ( D o M M B C m d A 0
0016440 0 0 2 ) 2 2 3 Q ( D o M M B
0016460 C m d A 0 0 0 1 ) ) \r ( P R E T
0016500 T Y C O M P R I N T T E S T B
0016520 U S C O M S ) \r ( R P A Q Q T
0016540 E S T B U S C O M S ( ( V A R
0016560 S M B B M e n u I t e m s M
0016600 B B M e n u s ) ( F N S B U
0016620 S . R E S E T B M 1 6 L O O P
0016640 B M 8 L O O P M B B R e a d
0016660 M a k e B u s B o x \r D o M
0016700 M B C m d ) ( M A C R O S \
0016720 D E V I C E . I N P U T \ D E
0016740 V I C E . O U T P U T ) ( F I
0016760 L E S B U S M A S T E R ) (
0017000 B I T M A P S B u s B o x I c
0017020 o n ) ) ) \r ( R P A Q Q M B B
0017040 M e n u I t e m s ( M e m R e
0017060 a d M e m W r i t e P o r t
0017100 R e a d P o r t W r i t e M
0017120 e m W / R P o r t W / R M W
0017140 / P R ) ) \r ( R P A Q Q M B B
0017160 M e n u s ( ( " H i g h A d
0017200 d r e s s " 1 ( F 1 5 )
0017220 ( ( T R S ( T o g M e n u V a
0017240 l u e ) 1 6 ) ( M B B R e a
0017260 d " H i g h A d d r e s s "
0017300 ) N I L \r " W i l l p r o
0017320 m p t a n d r e a d ( i n
0017340 h e x ) " O t h e r ) ) (
0017360 " L o w A d d r e s s " 0
0017400 ( ( T R S ( T o g M e n u V a
0017420 l u e ) 1 6 ) ( M B B R e a
0017440 d \r " L o w A d d r e s s "
0017460 ) N I L " W i l l p r o m
0017500 p t a n d r e a d ( i n
0017520 h e x ) " O t h e r ) ) ( "
0017540 P o r t A d d r e s s " 0
0017560 ( d a t a 5 3 2 ) ( H i A d
0017600 d r 5 3 3 ) ( \r L o A d d r
0017620 5 3 4 ) ( ( T R S ( T o g
0017640 M e n u V a l u e ) 1 6 ) (
0017660 M B B R e a d " P o r t A d
0017700 d r e s s " ) N I L " W i l
0017720 l p r o m p t a n d r e a
0017740 d ( i n h e x ) " \r O t h
0017760 e r ) ) ( D a t u m 0 ( F
0020000 F 2 5 5 ) ( ( T R S ( T o
0020020 g M e n u V a l u e ) 1 6 )
0020040 ( M B B R e a d ( Q U O T E
0020060 D a t u m ) ) N I L \r " W i
0020100 l l p r o m p t a n d r e
0020120 a d ( i n h e x ) " O t h
0020140 e r ) ) ( Q u i e t ( N o
0020160 ( N I L L ) ) ( Y e s T ) )
0020200 ( L o o p ( N o ( N I L L
0020220 ) ) ( Y e s T ) ) ) ) \r ( P
0020240 U T P R O P S \ D E V I C E .
0020260 I N P U T M A C R O ( X (
0020300 L I S T ( Q U O T E ( O P C
0020320 O D E S M I S C 1 1 ) ) (
0020340 C A R X ) ) ) ) \r ( P U T P R
0020360 O P S \ D E V I C E . O U T P
0020400 U T M A C R O ( X ( L I S
0020420 T ( Q U O T E ( O P C O D E
0020440 S M I S C 2 2 ) ) ( C A R
0020460 X ) ( C A D R X ) ) ) ) \r
0020500 ( F I L E S L O A D B U S M A
0020520 S T E R ) \r ( R P A Q B u s B
0020540 o x I c o n ( R E A D B I T M
0020560 A P ) ) \r ( 6 4 6 4 " O O O
0020600 O O O O O O O O O O O O O " "
0020620 O O O O O O O O O O O O O O O O
0020640 " " L B B B B B B B B B B B B
0020660 B @ C " " L B B B B B B N C O
0020700 O O O O H C " " L @ H H H H H
0020720 L K O O O O O H C " \r " L @ H
0020740 L I H H L K O O O O O H C " "
0020760 L B B N C J B N C O O O O O H C
0021000 " " L B B N C J B N C O O O O
0021020 O H C " " L @ H L I H H L K O
0021040 O O O O H C " " L @ H N K H H
0021060 L K O O O O O H C " \r " L B B
0021100 O O J B N C O O O O O H C " "
0021120 L B B G O B B N C O O O O O H C
0021140 " " L @ H K N H H L H H I O H
0021160 H H C " " L @ H I L H H L H H
0021200 I O H H H C " " L B B C N B B
0021220 N B B C O B B @ C " \r " L B B
0021240 C N B B N B B C O J B @ C " "
0021260 L @ H K L H H L H H I O H H H C
0021300 " " L @ H I L H H L H H I O H
0021320 H H C " " L B B C N B B N B B
0021340 C O B B @ C " " L B B C N B B
0021360 N B B C O B B @ C " \r " L @ H
0021400 I L H H L H H I O H H H C " "
0021420 L @ H I L H H L H H I O H H H C
0021440 " " L B B C N B B N B B C O B
0021460 B @ C " " L B B C N B B N B B
0021500 C O B B @ C " " L @ H I L H H
0021520 L H H I O H H H C " \r " L @ H
0021540 I L H H L H H I O H H H C " "
0021560 L B B C N B B N B B C O B B @ C
0021600 " " L B B C N B B N B B C O B
0021620 B @ C " " L @ H I L H H L H H
0021640 I O H H H C " " L @ H I L H H
0021660 L H H I O H H H C " \r " L B B
0021700 C N B B N B B C O B B @ C " "
0021720 L B B C N B B N B B C O B B @ C
0021740 " " L @ H I L H H L H H I O H
0021760 H H C " " L @ H I L H I N H H
0022000 I O H H H C " " L B B C N B C
0022020 O B B C O B B @ C " \r " L B B
0022040 C N B G O J B C O B B @ C " "
0022060 L @ H I L H O O H H I O H H H C
0022100 " " L @ H I L H O O H H I O H
0022120 H H C " " L B B C N B G O J B
0022140 C O B B @ C " " L B B C N B G
0022160 O J B C O B B @ C " \r " L @ H
0022200 I L H O O H H I O H H H C " "
0022220 L @ H K N H O O H H I O H H H C
0022240 " " L B B C O B G O J B C O B
0022260 B @ C " " L B B O O J G O J B
0022300 C O B B @ C " " L @ H O O H O
0022320 O H H I O H H H C " \r " L @ H
0022340 N K H O O H H I O H H H C " "
0022360 L B B N C J G O J B C O B B @ C
0022400 " " L B B N C J G O J B C O B
0022420 B @ C " " L @ H L I H K O H H
0022440 I O H H H C " " L @ H L I H I
0022460 N H H H H H H H C " \r " L @ @
0022500 @ @ @ @ @ @ @ @ @ @ @ @ C " "
0022520 L @ @ @ @ @ @ @ @ @ @ @ @ @ @ C
0022540 " " L @ G @ @ @ @ @ @ G @ @ @
0022560 @ @ C " " L @ D H @ @ @ @ @ D
0022600 H @ @ @ @ C " " L @ D H H H N
0022620 @ @ D H G A A @ C " \r " L @ G
0022640 H H I A @ @ G H H H J @ C " "
0022660 L @ D D H H L @ @ D D H H D @ C
0022700 " " L @ D D H H B @ @ D D H H
0022720 D @ C " " L @ D D I I A @ @ D
0022740 D H H J @ C " " L @ G H F H N
0022760 @ @ G H G A A @ C " \r " L @ @
0023000 @ @ @ @ @ @ @ @ @ @ @ @ C " "
0023020 L @ @ @ @ @ @ @ @ @ @ @ @ @ @ C
0023040 " " L @ @ @ @ @ @ @ @ @ @ @ @
0023060 @ @ C " " O O O O O O O O O O
0023100 O O O O O O " ) \r ( P U T P R O
0023120 P S T E S T B U S C O P Y R
0023140 I G H T ( " H e n r y T h o
0023160 m p s o n " 1 9 8 5 ) ) \r N I
0023200 L \r
0023202