$ od -c -N 50000 [Cyan]<D0Source>D0MidasSources.Dm!1 0000000 377 \0 \0 d 0 s o u r c e s . c m \0 0000020 373 227 373 - 274 \0 \0 376 001 \0 244 - d 0 s o 0000040 u r c e s . c m d 0 c o m p . 0000060 c m d 0 l o a d . c m d 0 p 0000100 r i n t s o u r c e s . c m d 0000120 0 d u m p s o u r c e s . c m 0000140 ^ \r d 0 . d d 0 r e g m e m . 0000160 d ^ \r d 0 i 0 . b c p l d 0 0000200 i 1 . b c p l d 0 i 2 . b c p 0000220 l ^ \r d 0 a c t i o n s . a s 0000240 m d 0 t a b l e s . a s m d 0000260 0 a s m . a s m ^ \r d 0 r e s 0000300 . b c p l d 0 m e m . b c p l 0000320 d 0 r e g . b c p l d 0 g o 0000340 . b c p l d 0 b r k p . b c p 0000360 l ^ \r d 0 v m . b c p l d 0 0000400 l o a d . b c p l ^ \r d 0 d e 0000420 b u g . b c p l d 0 t 376 \0 201 213 0000440 251 e s t . b c p l d 0 t e s t 0000460 a s m . a s m ^ \r d 0 t y p e 0000500 i n . b c p l d 0 p r i n 0 . 0000520 b c p l d 0 p r i n 0 a s m . 0000540 a s m ^ \r d 0 p r i n 1 . b c 0000560 p l d 0 p r i n 1 a . b c p l 0000600 d 0 p r i n 1 a s m . a s m 0000620 ^ \r d 0 l o a d e r . m c ^ \r 0000640 \n \n 377 \0 \0 d 0 c o m p . c m \0 373 0000660 227 373 - { \0 \0 376 001 \0 L 365 b c p l 0000700 e / F d 0 i 0 . b c p l \r b c 0000720 p l e 1 / F d 0 i 1 . b c p 0000740 l \r b c p l e 2 / F d 0 i 2 0000760 . b c p l \r b c p l e 3 / F 0001000 d 0 r e s . b c p l \r c o p y 0001020 e . b t _ e . b t e 1 . b 0001040 t e 2 . b t e 3 . b t \r a s 0001060 m e 1 . b t / E d 0 a c t i 0001100 o n s . a s m \r a s m e 2 . b 0001120 t / E d 0 t a b l e s . a s m 0001140 \r a s m e 3 . b t / E d 0 a 0001160 s m . a s m \r c o p y e . b t 0001200 _ e . b t e 1 . b t e 2 0001220 . b t e 3 . b t \r b c p l e 0001240 1 / F d 0 m e m . b c p l \r b 0001260 c p l e 2 / F d 0 376 001 \0 245 001 0001300 r e g . b c p l \r b c p l e 3 0001320 / F d 0 g o . b c p l \r c o p 0001340 y e . b t _ e . b t e 1 0001360 . b t e 2 . b t e 3 . b t \r 0001400 b c p l e 1 / F d 0 b r k p 0001420 . b c p l \r b c p l e 2 / F 0001440 d 0 v m . b c p l \r b c p l e 0001460 3 / F d 0 p r i n 0 . b c p l 0001500 \r c o p y e . b t _ e . b 0001520 t e 1 . b t e 2 . b t e 3 0001540 . b t \r a s m e 1 . b t / E 0001560 d 0 p r i n 0 a s m . a s m \r b 0001600 c p l e 2 / F d 0 p r i n 1 0001620 . b c p l \r b c p l e 3 / F 0001640 d 0 p r i n 1 a . b c p l \r c o 0001660 p y e . b t _ e . b t e 0001700 376 001 \0 M : 1 . b t e 2 . b t 0001720 e 3 . b t \r a s m e 1 . b t / 0001740 E d 0 p r i n 1 a s m . a s m 0001760 \r b c p l e 2 / F d 0 t y p 0002000 e i n . b c p l \r b c p l e 3 0002020 / F d 0 l o a d . b c p l \r c 0002040 o p y e . b t _ e . b t 0002060 e 1 . b t e 2 . b t e 3 . b 0002100 t \r b c p l e 1 / F d 0 d e 0002120 b u g . b c p l \r b c p l e 2 0002140 / F d 0 t e s t . b c p l \r a 0002160 s m e 3 . b t / E d 0 t e s 0002200 t a s m . a s m \r c o p y e . 0002220 b t _ e . b t e 1 . b t 0002240 e 2 . b t e 3 . b t \r d e l e 0002260 t e e 1 . b t e 2 . b t e 0002300 3 . b t \r 376 \0 017 u 362 b r a v o / 0002320 n e . b t \r \n \n 377 \0 \0 d 0 l o 0002340 a d . c m \0 373 227 373 - 231 \0 \0 376 001 \0 0002360 \0 264 B L D R / F / I / B 2 0 0 0002400 0 / N 6 3 0 0 / C 1 0 0 0 / 0002420 V 1 5 4 0 / W 2 5 4 0 / O 0002440 M i d a s . R u n / S ^ \r m i 0002460 d a s m a s m m d a t a m 0002500 o v e r l a y m i o c m t x 0002520 t b u f m s y m m d i s p 0002540 m r g n m m e n u m m p r g 0002560 n ^ \r m c m d m g o m p r 0002600 i n s m p a t t e r n g a c 0002620 h a 1 0 b c p l r u n t i m e 0002640 k e y s t r e a m s A k e y 0002660 s t r e a m s B ^ \r d 0 a c t 0002700 i o n s d 0 t a b l e s d 0 0002720 a s m d 0 r e s d 0 r e g 0002740 d 0 m e m d 0 g o d 0 v m 0002760 ^ \r 376 001 \0 321 9 m i n i t 1 / I 0003000 d 0 i 1 ^ \r m i n i t 0 m d 0003020 i o v e r l a y s i n i t d 0003040 0 i 0 l o a d r a m d o r a 0003060 d o m c ^ \r i n i t / B 0 / 0003100 P m i n i t 2 d 0 i 2 ^ \r 0003120 l o a d / B 0 / P m l o a d 0003140 m s y m o v d 0 l o a d ^ 0003160 \r t e s t / B 0 / P m t e s 0003200 t d 0 t e s t d 0 t e s t a 0003220 s m ^ \r d i r e c t o r y / B 0003240 0 / P m d i r s d i r s c 0003260 a n a d i s k s t r e a m s s 0003300 c a n ^ \r c o m m a n d / B 0003320 0 / P m c m d o v m m p r g 0003340 n o v ^ \r d e b u g / B 0 / 0003360 P m d e b u 376 \0 303 201 326 g m d 0003400 e b u g a s m d 0 d e b u g 0003420 ^ \r p r i n 1 / B 0 / P d 0 0003440 p r i n 1 d 0 p r i n 1 a d 0003460 0 p r i n 1 a s m ^ \r b r k p 0003500 / B 0 / P m b r k p d 0 b 0003520 r k p ^ \r t y p e i n / B 0 0003540 / P d 0 t y p e i n ^ \r p r 0003560 i n 0 / B 0 / P d 0 p r i n 0003600 0 d 0 p r i n 0 a s m ^ \r t 0003620 i m e / B 0 / P m d a y t i 0003640 m e T i m e C o n v A T i m 0003660 e C o n v B T i m e I O \r \n 377 0003700 \0 \0 d 0 p r i n t s o u r c e s 0003720 . c m \0 373 224 m 356 222 \0 \0 376 \0 X 345 = 0003740 e m p r e s s @ d 0 s o u r c 0003760 e s . c m @ d 0 d u m p r u n 0004000 . c m d 0 n e w m i d a s . c 0004020 m ^ \r m i d a s . p r o g r a 0004040 m s * . m i d a s m i d a s 0004060 . e r r o r s \r 377 \0 \0 d 0 d u m 0004100 p s o u r c e s . c m \0 373 227 373 . 0004120 267 \0 \0 376 \0 D 315 & f t p I n d i 0004140 g o c o n n e c t D 0 S o u 0004160 r c e d u m p / C D 0 M i d 0004200 a s S o u r c e s . D m @ d 0 0004220 s o u r c e s . c m @ \r 377 \0 \0 d 0004240 0 . d \0 373 227 374 Z 267 \0 \0 376 001 \0 022 a 0004260 / / D 0 . d - - D e f i n 0004300 i t i o n s f o r D 0 - d e 0004320 p e n d e n t p a r t s o f 0004340 M i d a s \r / / \t L a s t e 0004360 d i t e d : 2 0 O c t o b e 0004400 r 1 9 8 1 \r \r s t r u c t u r 0004420 e H W S t a t u s : \r [ \t H a 0004440 l t C o n d i t i o n s \t w o r 0004460 d \r \t C o n n e c t e d M a c h 0004500 i n e \t w o r d \r ] \r \r / / L a 0004520 y o u t o f D V x \r s t r u 0004540 c t u r e s r b u s : \r [ \t \r 0004560 \t a l u r e s u l t \t \t b i t 0004600 4 \r \t b l a n k \t \t b i t 4 \r 0004620 \t s a l u f \t \t b y t e \r \r \t s 0004640 s t k p \t \t b y t e \r \t s t k p 0004660 376 001 \0 322 320 \t \t b y t e \r \r \t m e 0004700 m s y n d r o m e \t w o r d \r \r 0004720 \t c y c l e c o n t r o l \t b y 0004740 t e \r \t p c x r e g \t \t b i t 0004760 4 \r \t p c f r e g \t \t b i t 4 0005000 \r \r \t b l a n k \t \t b i t 4 \r 0005020 \t d b r e g \t \t b i t 6 \r \t s 0005040 b r e g \t \t b i t 6 \r \r \t m n 0005060 b r \t \t w o r d \r \r \t a p c t a 0005100 s k \t \t b i t 4 \r \t a p c \t \t 0005120 b i t 1 2 \r \r \t c t a s k \t \t 0005140 b i t 4 \r \t n c i a \t \t b i t 0005160 1 2 \r \r \t p a g e \t \t b i t 0005200 4 \r \t p a r i t y \t \t b i t 4 0005220 \r \t b o o t r e a s o n \t \t b y 0005240 t e \r ] \r \r s t r u c t u r e 0005260 r e p l m 376 001 \0 274 005 i : \r [ \t w 0005300 0 \t \t w o r d \r \t w 1 \t \t w o r 0005320 d \r \t w 2 \t \t w o r d \r \t [ b 0005340 l a n k \t \t b i t 2 \r \t A 0005360 d d e d \t \t b i t 1 \r \t I 0005400 n U s e \t \t b i t 1 \r \t A 0005420 d d r \t \t b i t 1 2 \t / / m - 0005440 i a d d r \r \t ] \r 0005460 = \t [ w 3 \t \t w o r d \r \t ] \r 0005500 ] \r \r s t r u c t u r e B P ^ 0005520 0 , 3 7 : @ r e p l m i \r \r 0005540 / / L a y o u t o f A A t a 0005560 b a n d V A t a b e n t r 0005600 i e s \r s t r u c t u r e I M 0005620 V : \r [ \t B r k p \t b i t 2 \r 0005640 \t b l a n k \t b i t \r \t U n d e 0005660 f \t b i t \t / / T h 376 001 \0 032 * i 0005700 s l o c a t i o n n o t d 0005720 e f i n e d i n V M \r \t A d 0005740 d r \t b i t 1 2 \t / / A b s o 0005760 l u t e a d d r e s s \r ] \r \r 0006000 m a n i f e s t \r [ \r \t / / b i 0006020 t s a n d a d d r e s s e s 0006040 f o r t h e t e s t e r \r 0006060 \t s t r o b e = # 1 0 0 0 0 0 0006100 \r \t n m e m s = 2 \r \t i s e 0006120 n d = # 1 0 0 0 0 0 \r \t i a 0006140 c k = # 4 0 0 0 0 \r \t b o o 0006160 t b i t = # 2 0 0 0 0 \r \t s 0006200 t o p b i t = # 1 0 0 0 0 \r 0006220 \t u s e n d = # 4 0 0 0 \r \t 0006240 u a c k = # 2 0 0 0 \r ] \r \r 0006260 m a n i f e s t \r [ \t / / d 0 376 0006300 001 \0 Q u r e g i s t e r s k 0006320 n o w n t o M i d a s \r \t R 0006340 X A L U = # 3 7 6 / / T 0006360 h e s e a r e t h e v o l 0006400 a t i l e r e g i s t e r s 0006420 s a v e d b y t h e k e r 0006440 n e l o n a f a u l t . \r 0006460 \t R X A P C = # 3 7 5 \r \t 0006500 R X C T A S K = # 3 7 4 \r \t R 0006520 X P P B = # 3 7 3 \r \t R X 0006540 S T K = # 3 7 2 \r \r \t s t 0006560 a c k 0 = # 3 6 0 / / T h 0006600 e s e a r e u s e d b y 0006620 t h e m i c r o c o d e o v 0006640 e r l a y s . \r \t s t a c k 1 0006660 = # 3 6 1 \r \t s t a c k 2 = 0006700 # 3 6 376 001 \0 V 247 2 \r \t s t a c 0006720 k 3 = # 3 6 3 \r \t s t a c k 0006740 4 = # 3 6 4 \r \t s t a c k 5 0006760 = # 3 6 5 \r ] \r \r m a n i f 0007000 e s t [ \r \r B p I 0 = # 1 0007020 4 7 \t / / f i r s t w o r d 0007040 o f b r e a k p o i n t m - 0007060 i \r B p I 1 = # 1 7 0 0 0 \t 0007100 / / s e c o n d w o r d o f 0007120 b r e a k p o i n t m - i \r 0007140 \r \r / / m a n i f e s t o f 0007160 M I D A S t o D 0 c o m m 0007200 u n i c a t i o n c o d e s \r 0007220 \t E X O V L c o d e \t = 0 b \r 0007240 \t W R T M I c o d e \t = 2 b \r 0007260 \t R E A D R c o d e \t = 4 b \r 0007300 \t W R I T R c o d 376 001 \0 M \0 e \t 0007320 = 6 b \r \t R E A D M s u b c o 0007340 d e \t = 4 b \r \t W R I T E M s 0007360 u b c o d e \t = 5 b \r \t X M A 0007400 P s u b c o d e \t = 6 b \r \r / 0007420 / R u n a n d S t e p c 0007440 o d e s \r \t G o S t e p \t = 1 0007460 / / f o r s t e p \r \t G o R 0007500 u n b p \t = 2 / / f o r r 0007520 u n f r o m b p \r \t G o R u 0007540 n \t = 3 / / f o r r u n 0007560 f r o m n o n - b p \r \r / / 0007600 K e r n e l S t o p c o d e 0007620 s \r \t B P s t o p \t \t = 1 0 0 0007640 / / f o r n o r m a l b p 0007660 s t o p \r \t F A U L T s t o p 0007700 \t = 1 0 1 / / f o r f 376 001 0007720 \0 340 274 a u l t s t o p \r ] \r \r 0007740 / / M i d a s S w a t c a l l 0007760 s h a v e a r g s 2 0 0 0 0010000 u p f o r m a c h i n e - 0010020 d e p e n d e n t c o d e \r / 0010040 / S t r i n g s a r e i n 0010060 M i d a s . E r r o r s \r m a n 0010100 i f e s t [ \r B a d L o a d R 0010120 a m = 2 0 0 0 \r B a d C o n 0010140 s t a n t s = 2 0 0 1 \r M I 0010160 M o v f = 2 0 0 2 \r U n d G 0010200 R e g X = 2 0 0 3 \r U n d P 0010220 R e g X = 2 0 0 4 \r K e r n 0010240 e l B P = 2 0 0 5 \r K e r n 0010260 e l O v f = 2 0 0 6 \r K e r 0010300 n e l R M = 2 0 0 7 \r G o V 0010320 e c E 376 \0 330 m 225 r r = 2 0 0 0010340 8 \r P r C C V M e m X E r r = 0010360 2 0 0 9 \r P r C C V A A E r r 0010400 = 2 0 1 0 \r C a n t U n d o 0010420 B P = 2 0 1 1 \r C a n t G e 0010440 t B P I n s t = 2 0 1 2 \r C 0010460 a n t S e t B P = 2 0 1 3 \r 0010500 B a d P r i n t I M M e m X = 0010520 2 0 1 4 \r O V e c B u g = 0010540 2 0 1 5 \r N o n X V A B l o c k 0010560 = 2 0 1 6 \r N o n X A A B l 0010600 o c k = 2 0 1 7 \r B P T a b 0010620 l e O v f = 2 0 1 8 \r B a d 0010640 E n g N u m = 2 0 1 9 \r ] \r 0010660 377 \0 \0 d 0 r e g m e m . d \0 373 224 0010700 205 035 032 \0 \0 376 001 \0 243 243 A P C T A S 0010720 K x = 0 \r A P C x = A P 0010740 C T A S K x + 1 \r C T A S K x 0010760 = A P C x + 1 \r C I A x = 0011000 C T A S K x + 1 \r C Y C L E C O 0011020 N T R O L x = C I A x + 1 \r 0011040 P A G E x = C Y C L E C O N 0011060 T R O L x + 1 \r P A R I T Y x 0011100 = P A G E x + 1 \r B O O T R E 0011120 A S O N x = P A R I T Y x + 0011140 1 \r P C X R E G x = B O O T 0011160 R E A S O N x + 1 \r P C F R E G 0011200 x = P C X R E G x + 1 \r D B 0011220 R E G x = P C F R E G x + 1 0011240 \r S B R E G x = D B R E G x 0011260 + 1 \r M N B R x = S B R E G 0011300 x + 1 \r A L U R E S 376 001 \0 324 006 U 0011320 L T x = M N B R x + 1 \r S A 0011340 L U F x = A L U R E S U L T 0011360 x + 1 \r S S T K P x = S A L 0011400 U F x + 1 \r S T K P x = S S 0011420 T K P x + 1 \r M E M S Y N D R O 0011440 M E x = S T K P x + 1 \r C A 0011460 L L E R x = M E M S Y N D R 0011500 O M E x + 1 \r A A T O V A x = 0011520 C A L L E R x + 1 \r \r I M x 0011540 = 0 \r I M X x = I M x + 1 0011560 \r R M x = I M X x + 1 \r T x 0011600 = R M x + 1 \r T P C x = 0011620 T x + 1 \r V M x = T P C x + 0011640 1 \r M A P x = V M x + 1 \r B 0011660 P x = M A P x + 1 \r M I M x 0011700 = B P x + 1 \r M D A T A x 376 0011720 001 \0 i / = M I M x + 1 \r M A 0011740 D D R x = M D A T A x + 1 \r 0011760 \r ; / / M i c r o i n s t r u c 0012000 t i o n s i n s p e c i a l 0012020 m i c r o c o d e \r G t F r a 0012040 m e = # 6 1 4 0 0 \t ; / / R 0012060 e p l a c e s t h e G e t F 0012100 r a m e s u b r o u t i n e 0012120 p o i n t e d t o b y 3 7 0012140 0 \r I n i t M C = # 6 3 0 0 0012160 0 \t ; / / S e t s u p s o m 0012200 e s t u f f n e e d e d b 0012220 y n e w i n s t r u c t i o 0012240 n s \r \r B P m i n = # 2 ; 0012260 / / f i r s t o r d i n a r y 0012300 b r e a k p o i n t ( 0 a 0012320 n d 1 376 \0 260 + 255 r e s e r v 0012340 e d f o r s i n g l e s t 0012360 e p ) \r B P l e n = # 4 0 2 0012400 \t \t ; / / L e n g t h o f B 0012420 P , I M , M D A T A , a n 0012440 d M A D D R m e m o r i e s 0012460 \r I M l e n = # 1 0 0 0 0 \r 0012500 M I M l e n = # 1 0 0 0 \r M 0012520 D A T A l e n = # 1 0 \r M D 0012540 A T A w i d = # 4 4 \r M A D 0012560 D R l e n = # 2 0 \r N T a s 0012600 k s = # 2 0 \r 377 \0 \0 d 0 i 0 0012620 . b c p l \0 373 227 374 [ 255 \0 \0 376 001 \0 0012640 L 326 / / D 0 I 0 . b c p l F i 0012660 r s t i n i t f o r D 0 - 0012700 - L o a d R A M a n d s t 0012720 a r t s p e c i a l m i c r 0012740 o c o d e \r / / \t I n i t i a l 0012760 i z a t i o n d o n e h e r 0013000 e i s a l w a y s e x e c 0013020 u t e d . S t o r a g e a 0013040 l l o c a t e d \r / / \t i s n 0013060 o t s a v e d i n M i d a 0013100 s . S t a t e . \r / / \t L a s t 0013120 e d i t e d : 2 0 O c t o 0013140 b e r 1 9 8 1 \r \r g e t " d 0013160 0 . d " \r m a n i f e s t [ 0013200 g e t " d 0 r e g m e m . d " 0013220 ] \r \r \r e x t e r n a l [ \r 0013240 / / 376 001 \0 331 I O S \r \t S e t B 0013260 l o c k \r \r / / M A S M \r \t G 0013300 e t S t o r a g e \r \r / / M I 0013320 D A S \r \t M i d a s S w a t \r \r 0013340 / / M I N I T 1 \r \t G e t Z S 0013360 t o r a g e \r \r / / L O A D R 0013400 A M \r \t L o a d R a m ; / / S 0013420 e t B L V \r \r / / D O R A D O 0013440 M C \r \t R a m I m a g e \r \r / / 0013460 B C P L R U N T I M E \r \t I n 0013500 i t B c p l R u n t i m e \r \r / 0013520 / D 0 A S M \r \t G F r a m e X 0013540 \r \t r e c v b y t e ; r e c v 0013560 w o r d ; s e n d b y t e ; 0013600 s e n d w o r d \r \t d 0 r e c v 0013620 b y t e ; d 0 r e c v w o r d 0013640 ; d 0 s e n 376 001 \0 223 \b d b y t 0013660 e ; d 0 s e n d w o r d \r \r / 0013700 / D 0 G O \r \t S t o p ; d 0 0013720 S t o p \r \r / / D e f i n e d 0013740 h e r e \r \t I n i t H a r d w a 0013760 r e 1 ; M a c h V e r s i o n 0014000 ; O l d G F r a m e ; H W S 0014020 t a t u s ; D e f R a d i x \r 0014040 \t B P T a b l e ; D V x \r ] \r 0014060 \r \r s t a t i c [ \r \t O l d G 0014100 F r a m e ; M a c h V e r s i 0014120 o n ; H W S t a t u s ; D e 0014140 f R a d i x = 8 \r \t B P T a 0014160 b l e ; D V x \r \t ] \r \r / / T 0014200 h i s r o u t i n e w i l l 0014220 d o s o m e t h i n g i f 0014240 s p e c i a l A l t 376 001 \0 257 0014260 270 o m i c r o c o d e i s 0014300 a d d e d f o r \r / / u s e 0014320 w i t h t h e D 0 . \r l e t 0014340 I n i t H a r d w a r e 1 ( ) 0014360 b e \r [ \t M a c h V e r s i o 0014400 n = " , D 0 M i d a s 1 0014420 0 / 2 0 / 8 1 ; 1 4 d - w o r 0014440 d s t a c k " \r / / I n i t i 0014460 a l i z e s p e c i a l A l 0014500 t o m i c r o c o d e . N 0014520 o t e : u s i n g D o r a 0014540 d o A l t o m i c r o c o d 0014560 e \r / / f o r n o w , w h i 0014600 c h i n c l u d e s t h e 0014620 b c p l r u n t i m e m i c 0014640 r o c o d e . \r \t R a m I m a g 0014660 e 376 001 \0 \r 351 ! 0 = # 1 7 7 7 0014700 7 7 \t / / Z e r o e s e n a b 0014720 l e t a s k s i n R a m 0014740 i f s i l e n t b o o t \r / 0014760 / L o a d m i c r o c o d e 0015000 f o r A l t o 1 ' s ( E n g 0015020 N u m = 0 o r 1 ) a n 0015040 d A l t o 2 ' s ( E n g N u 0015060 m = 2 o r 3 ) . \r / / D 0015100 o n ' t l o a d m i c r o c 0015120 o d e f o r D o l p h i n ' 0015140 s ( E n g N u m = 4 ) a n d 0015160 D o r a d o ' s ( E n g N u 0015200 m = 5 ) ; \r / / t h e y a l r 0015220 e a d y h a v e B C P L r 0015240 u n t i m e m i c r o c o d e 0015260 . \r \t O l d 376 001 \0 262 221 G F r a m 0015300 e = r v # 3 7 0 \r \t l e t 0015320 E n g N u m = ( t a b l e 0015340 [ # 6 1 0 1 4 ; # 1 4 0 1 0015360 ] ) ( ) \r \t E n g N u m = 0015400 E n g N u m r s h i f t 1 2 0015420 \r \t t e s t E n g N u m < 0015440 4 \t / / M i d a s r u n n i n 0015460 g o n a n A l t o ? \r \t i 0015500 f s o \r \t [ l e t r e s = 0015520 L o a d R a m ( R a m I m a g 0015540 e , f a l s e ) \t / / l o a d , 0015560 d o n ' t b o o t \r \t i 0015600 f r e s < 0 t h e n M 0015620 i d a s S w a t ( B a d L o a d 0015640 R a m ) \r \t i f r e s > 0015660 0 t h e n M i d 376 001 \0 233 \ 0015700 a s S w a t ( B a d C o n s t a 0015720 n t s ) \r \t / / S e t B L V 0015740 ( # 1 7 7 7 7 6 ) \t / / S e t u 0015760 p f o r s i l e n t b o o 0016000 t a t f i n i s h t i m e 0016020 \r / / I n i t i a l i z e f o 0016040 r n e w m i c r o i n s t r 0016060 u c t i o n s \r \t I n i t B 0016100 c p l R u n t i m e ( ) \r \t 0016120 ( t a b l e [ I n i t M C ; 0016140 # 1 4 0 1 ] ) ( ) \r / / R 0016160 e p l a c e G e t F r a m e 0016200 p r o c e d u r e b y s p e 0016220 c i a l o p c o d e - - I S 0016240 T H I S U S E L E S S ? \r \t 0016260 r v # 3 7 0 = G F r a m 0016300 376 001 \0 375 333 e X \r \t ] \r \t i f n o 0016320 t t e s t E n g N u m e q 0016340 4 \t / / M i d a s r u n n i 0016360 n g o n a D o l p h i n ? 0016400 \r \t i f s o \r \t [ r e 0016420 c v w o r d , r e c v b y t e 0016440 = d 0 r e c v w o r d , d 0 r 0016460 e c v b y t e \r \t s e n 0016500 d w o r d , s e n d b y t e = 0016520 d 0 s e n d w o r d , d 0 s e 0016540 n d b y t e \r \t S t o p 0016560 = d 0 S t o p \r \t ] \r \t 0016600 i f n o t M i d a s S w a 0016620 t ( B a d E n g N u m ) \r \r \t H 0016640 W S t a t u s = G e t Z S t 0016660 o r a g e ( s i z e H W S t a 0016700 t u s / 1 376 \0 265 034 6 ) \r / / F 0016720 o r n o w , - 1 i n d i c 0016740 a t e s t h a t a B o o t 0016760 i s r e q u i r e d \r \t H W 0017000 S t a t u s > > H W S t a t u s 0017020 . C o n n e c t e d M a c h i n 0017040 e = - 1 \r \t D V x = G e 0017060 t S t o r a g e ( 1 6 ) \r \t B P 0017100 T a b l e = G e t S t o r a 0017120 g e ( B P l e n * 4 ) \r \t S e t 0017140 B l o c k ( B P T a b l e , 7 7 0017160 7 7 B , B P l e n * 4 ) \r ] \r 377 0017200 \0 \0 d 0 i 1 . b c p l \0 373 227 032 \0 0017220 031 \0 \0 376 001 \0 ' 320 / / D 0 i 1 . b 0017240 c p l - - D e f i n e s c r e 0017260 e n a r e a s , a l l o c a 0017300 t e s t o r a g e , a n d 0017320 i n i t i a l i z e p r i n t 0017340 \r / / c o n t r o l s t u 0017360 f f . C o d e h e r e i 0017400 s e x e c u t e d o n l y 0017420 o n M i d a s / I a n d t 0017440 h e s t o r a g e \r / / a 0017460 l l o c a t e d i s p r e s 0017500 e r v e d i n M i d a s . S 0017520 t a t e . \r / / \t L a s t e d 0017540 i t e d : 1 M a y 1 9 8 1 0017560 \r \r g e t " m c o m m o n . d 0017600 " \r g e t " d 0 . d " \r m a n 0017620 i f e s t [ 376 001 \0 314 024 g e t 0017640 " d 0 r e g m e m . d " ] \r 0017660 m a n i f e s t [ \r \t V A t a 0017700 b l e n = ( # 4 0 0 0 0 / B 0017720 l o c k S i z e ) + 1 \t / / M a 0017740 x i m u m s i z e f o r 1 0017760 6 K I M X \r \t A A t a b l e n 0020000 = ( # 4 0 0 0 0 / B l o c k 0020020 S i z e ) + 1 \r ] \r \r e x t e r 0020040 n a l [ \r / / M I N I T 0 \r 0020060 \t @ M B l o c k \r \r / / M I N 0020100 I T 1 \r \t S a v e S t a t i c s 0020120 ; N e w M P D i s p B l o c k 0020140 ; G e t Z S t o r a g e \r \r / 0020160 / M I D A S \r \t M i d a s S w 0020200 a t \r \r / / M A S M \r \t G e t 0020220 S t o r a g e \r \r / / D 376 001 \0 0020240 270 375 0 M E M \r \t G e n C o r r P 0020260 a r \r \r / / D 0 V M \r \t V A t 0020300 a b ; A A t a b \r \r / / D e 0020320 f i n e d h e r e \r \t I n i t 0020340 M P I n t e r f a c e ; M I M 0020360 t a b ; B o o t T a b l e ; 0020400 N B o o t I n s t \r \t @ S c r e 0020420 e n H e i g h t ; @ S c r e e 0020440 n W i d t h \r \t d 0 g o ; d 0 0020460 r n v r ; d 0 w n v r ; d 0 0020500 r s r ; d 0 w s r \r \t d 0 r d 0020520 t ; d 0 w r t t ; d 0 r d m 0020540 i ; d 0 r d t p c ; d 0 w r 0020560 t t p c ; d 0 m e m \r ] \r \r s 0020600 t a t i c [ \r \t @ S c r e e n 0020620 H e i g h t = M a x L i n e 0020640 N + 376 001 \0 324 320 1 1 \t / / N u m b 0020660 e r o f s c r e e n l i n 0020700 e s \r \t @ S c r e e n W i d t h 0020720 = 7 6 \t \t / / N u m b e r 0020740 o f c h a r s / l i n e \r \t M 0020760 I M t a b ; B o o t T a b l e 0021000 ; N B o o t I n s t = 0 \r \t d 0021020 0 g o ; d 0 r n v r ; d 0 w 0021040 n v r ; d 0 r s r ; d 0 w s 0021060 r \r \t d 0 r d t ; d 0 w r t t 0021100 ; d 0 r d m i ; d 0 r d t p 0021120 c ; d 0 w r t t p c ; d 0 m 0021140 e m \r ] \r \r \r / / " I n i t M P 0021160 I n t e r f a c e " a l l o c 0021200 a t e s s t o r a g e f o r 0021220 v e c t o r s a n d i n i 0021240 t i a l i z e 376 001 \0 n 6 s s c 0021260 r e e n \r / / a r e a s . A 0021300 r g s t o N e w M P D i s p 0021320 B l o c k a r e l i n e n 0021340 u m b e r , l e f t c h a r 0021360 a c t e r ( 0 t o \r / / S c 0021400 r e e n W i d t h - 1 ) , i d 0021420 e n t i f y i n g c h a r a c 0021440 t e r f o r u s e i n c 0021460 o m m a n d f i l e s , w i 0021500 d t h \r / / i n c h a r a c t 0021520 e r s \r l e t I n i t M P I n 0021540 t e r f a c e ( ) b e \r [ \t f 0021560 o r I = 0 t o 1 9 d 0021600 o \r \t [ N e w M P D i s p B l 0021620 o c k ( I , 0 , $ A , 1 8 ) \r \t 0021640 N e w M P D i s p B 376 001 \0 035 0021660 263 l o c k ( I , 2 0 , $ B , 1 9 0021700 ) \r \t N e w M P D i s p B l 0021720 o c k ( I , 4 1 , $ C , 3 4 ) \r 0021740 \t ] \r / / I n i t i a l i z e 0021760 V M s t u f f - - h e r e s 0022000 o t h a t V M i s c l e 0022020 a r e d o n R u n P r o g \r 0022040 \t V A t a b = G e t Z S t o 0022060 r a g e ( V A t a b l e n ) \r \t 0022100 A A t a b = G e t Z S t o r 0022120 a g e ( A A t a b l e n ) \r \r \t 0022140 M I M t a b = G e t Z S t o 0022160 r a g e ( M I M l e n * 3 ) \r \t 0022200 B o o t T a b l e = M I M t 0022220 a b \r \r / / F o r n o w c o 0022240 p y t h e o v e r l a y s 0022260 i 376 001 \0 w 220 n t o M I M t a b 0022300 ; e v e n t u a l l y r e p 0022320 l a c e t h i s s t u f f \r 0022340 / / b y s o m e s c h e m e 0022360 w h e r e b y t h e o u t 0022400 p u t f i l e s o f M i c 0022420 r o / M i c r o D a r e l o 0022440 a d e d \r / / d i r e c t l y 0022460 a s f o r K E R N E L . \r \r 0022500 \t A d d M i c O v l ( l v d 0 0022520 g o , # 1 , 1 5 , t a b l e [ 0022540 \r \t 4 0 0 0 b ; 1 3 0022560 5 3 5 1 b ; 0 b l s h i 0022600 f t 1 2 ; / / O V E R L 0022620 A Y A R E A \r \t 4 1 5 0 0022640 b ; 3 0 0 4 b ; 1 1 0022660 b l s h i 376 001 \0 213 020 f t 1 2 0022700 ; / / ( + 1 ) \r \t 0022720 6 1 5 0 b ; 6 5 0 0 6 b 0022740 ; 1 1 b l s h i f t 1 2 0022760 ; / / ( + 2 ) \r \t 0023000 2 1 4 7 b ; 2 1 0 1 1 b 0023020 ; 1 5 b l s h i f t 1 2 0023040 ; / / ( + 3 ) \r \t 0023060 6 0 4 7 b ; 2 3 4 0 0 b 0023100 ; 4 b l s h i f t 1 2 0023120 ; / / ( + 4 ) \r \t 0023140 4 1 6 3 b ; 3 0 1 4 b 0023160 ; 1 5 b l s h i f t 1 2 0023200 ; / / B P E N T R Y \r \t 0023220 5 0 b ; 2 4 0 2 0023240 1 b ; 1 b l s h i f t 0023260 1 2 ; / / ( + 376 001 \0 310 262 0023300 1 ) \r \t 5 0 b ; 0023320 2 5 0 2 0 b ; 1 b l s 0023340 h i f t 1 2 ; / / ( + 0023360 2 ) \r \t 2 0 2 4 b ; 0023400 1 0 1 0 3 2 b ; 1 5 b l s 0023420 h i f t 1 2 ; / / B R E 0023440 A K \r \t 2 1 5 0 b ; 0023460 2 4 4 2 4 b ; 1 1 b l s 0023500 h i f t 1 2 ; / / C H K 0023520 F F \r \t 2 0 2 4 b ; 0023540 1 0 3 0 3 3 b ; 1 5 b l s 0023560 h i f t 1 2 ; / / M I D 0023600 A S F A U L T \r \t 4 0023620 5 b ; 1 0 3 0 b ; 0023640 1 b l s h i f t 1 2 ; / / 0023660 U S E R F A U L T S T A R T 0023700 376 001 \0 344 340 \r \t 5 0 b 0023720 ; 2 5 0 4 0 b ; 1 b 0023740 l s h i f t 1 2 ; / / 0023760 ( + 1 ) \r \t 4 0 0 1 b 0024000 ; 1 0 3 3 4 1 b ; 0 b 0024020 l s h i f t 1 2 ; / / 0024040 S E N D M S G \r \t 5 0024060 0 b ; 2 5 0 1 1 b ; 0024100 0 b l s h i f t 1 2 ; / / 0024120 ( + 1 ) \r \t \t ] ) \r \r \t 0024140 A d d M i c O v l ( l v d 0 r 0024160 n v r , # 2 , 8 , t a b l e [ 0024200 \r \t 7 4 1 5 0 b ; 6 0024220 5 0 0 2 b ; 1 5 b l s h i 0024240 f t 1 2 ; / / O V E R L 0024260 A Y A R E A \r \t 5 0 0024300 b ; 1 376 001 \0 347 352 2 5 0 0 5 b 0024320 ; 1 b l s h i f t 1 2 0024340 ; / / ( + 1 ) \r \t 0024360 6 2 1 5 0 b ; 6 5 0 0 6 b 0024400 ; 1 5 b l s h i f t 1 2 0024420 ; / / ( + 2 ) \r \t 0024440 5 0 b ; 1 2 5 0 1 0 b 0024460 ; 5 b l s h i f t 1 2 0024500 ; / / ( + 3 ) \r \t 0024520 6 4 1 5 0 b ; 4 1 0 1 2 b 0024540 ; 1 5 b l s h i f t 1 2 0024560 ; / / ( + 4 ) \r \t 0024600 5 0 b ; 1 2 5 0 1 5 b 0024620 ; 1 1 b l s h i f t 1 2 0024640 ; / / ( + 5 ) \r \t 0024660 6 6 1 5 0 b ; 4 1 0 1 6 b 0024700 ; 1 5 b l s h 376 001 \0 245 6 i 0024720 f t 1 2 ; / / ( + 6 ) 0024740 \r \t 5 0 b ; 1 0024760 2 5 0 1 0 b ; 1 4 b l s 0025000 h i f t 1 2 ; / / ( + 0025020 7 ) \r \t \t ] ) \r \r \t A d d M i 0025040 c O v l ( l v d 0 w n v r , # 0025060 3 , 7 , t a b l e [ \r / / P a 0025100 t c h e d f i r s t m i t 0025120 o n o t w r i t e P C F 0025140 h e r e . \r / / \t 1 5 0025160 0 b ; 3 1 0 0 3 b ; 0025200 1 b l s h i f t 1 2 ; / / 0025220 O V E R L A Y A R E A \r \t 0025240 1 5 0 b ; 2 1 0 0 0025260 2 b ; 1 b l s h i f t 0025300 1 2 ; / / O V E R L A Y 376 0025320 001 \0 322 j A R E A \r \t 1 0025340 6 5 b ; 1 2 7 0 0 5 b ; 0025360 1 b l s h i f t 1 2 ; / 0025400 / ( + 1 ) \r \t 1 0025420 5 0 b ; 1 1 0 0 7 b ; 0025440 1 b l s h i f t 1 2 ; / 0025460 / ( + 2 ) \r \t 1 0025500 5 0 b ; 1 3 0 1 0 b ; 0025520 5 b l s h i f t 1 2 ; / 0025540 / ( + 3 ) \r \t 1 0025560 6 6 b ; 1 3 1 0 1 2 b ; 0025600 5 b l s h i f t 1 2 ; / 0025620 / ( + 4 ) \r \t 1 0025640 5 0 b ; 1 5 0 1 5 b ; 0025660 5 b l s h i f t 1 2 ; / 0025700 / ( + 5 ) \r \t 1 0025720 5 0 b ; 376 001 \0 343 264 2 7 0 1 0025740 0 b ; 1 0 b l s h i f t 0025760 1 2 ; / / ( + 6 ) \r \t \t 0026000 ] ) \r \r \t A d d M i c O v l ( 0026020 l v d 0 r s r , # 4 , 1 3 , t 0026040 a b l e [ \r \t 4 0 0 0 0026060 b ; 1 2 5 3 5 0 b ; 0 0026100 b l s h i f t 1 2 ; / / 0026120 O V E R L A Y A R E A \r \t 0026140 4 0 1 7 b ; 1 0 3 0 0 4 0026160 b ; 5 b l s h i f t 1 0026200 2 ; / / ( + 1 ) \r \t 0026220 4 1 5 0 b ; 3 0 0 7 0026240 b ; 5 b l s h i f t 1 0026260 2 ; / / ( + 2 ) \r \t 0026300 2 0 b ; 1 3 7 0 1 1 0026320 b ; 5 b l 376 001 \0 D N s h 0026340 i f t 1 2 ; / / ( + 3 0026360 ) \r \t 1 1 0 4 b ; 1 0026400 2 1 0 1 3 b ; 5 b l s h 0026420 i f t 1 2 ; / / ( + 4 0026440 ) \r \t 1 1 5 0 b ; 1 0026460 2 5 0 1 5 b ; 5 b l s h 0026500 i f t 1 2 ; / / ( + 5 0026520 ) \r \t 3 7 b ; 1 0026540 3 7 0 1 6 b ; 1 b l s h 0026560 i f t 1 2 ; / / ( + 6 0026600 ) \r \t 1 1 0 4 b ; 1 0026620 3 1 0 2 5 b ; 1 b l s h 0026640 i f t 1 2 ; / / ( + 7 0026660 ) \r \t 3 0 1 5 0 b ; 0026700 2 7 0 2 5 b ; 1 b l s h 0026720 i f t 1 2 ; / / ( 376 001 0026740 \0 351 275 + 1 0 ) \r \t 3 6 1 5 0026760 0 b ; 2 7 0 2 5 b ; 1 0027000 5 b l s h i f t 1 2 ; / / 0027020 ( + 1 1 ) \r \t 4 4 1 0027040 4 7 b ; 2 1 0 2 6 b ; 0027060 1 5 b l s h i f t 1 2 ; / 0027100 / N O T I F Y B O T H W A Y 0027120 S \r \t 3 0 0 5 0 b ; 0027140 2 5 4 0 1 b ; 0 b l s h 0027160 i f t 1 2 ; / / ( + 1 0027200 ) \r \t 6 6 1 5 0 b ; 0027220 4 1 0 1 4 b ; 1 4 b l s h 0027240 i f t 1 2 ; / / ( + 2 0027260 ) \r \t \t ] ) \r \r \t A d d M i c 0027300 O v l ( l v d 0 w s r , # 5 , 0027320 1 6 , t a b l e [ \r \t 0027340 2 376 001 \0 037 352 0 b ; 1 3 7 0027360 2 2 1 b ; 1 0 b l s h i f 0027400 t 1 2 ; / / O V E R L A 0027420 Y A R E A \r \t 3 0 4 b 0027440 ; 1 2 1 0 0 4 b ; 1 1 b 0027460 l s h i f t 1 2 ; / / 0027500 ( + 1 ) \r \t 1 1 5 0 b 0027520 ; 1 2 5 0 0 7 b ; 1 1 b 0027540 l s h i f t 1 2 ; / / 0027560 ( + 2 ) \r \t 1 7 b 0027600 ; 1 0 3 2 2 3 b ; 1 4 b 0027620 l s h i f t 1 2 ; / / 0027640 ( + 3 ) \r \t 5 0 b 0027660 ; 1 0 3 0 1 3 b ; 1 5 b 0027700 l s h i f t 1 2 ; / / 0027720 ( + 4 ) \r \t 2 0 b 0027740 ; 1 3 7 0 1 376 001 \0 206 234 4 b ; 0027760 5 b l s h i f t 1 2 ; 0030000 / / ( + 5 ) \r \t 0030020 1 1 0 4 b ; 1 3 5 0 1 6 b ; 0030040 5 b l s h i f t 1 2 ; 0030060 / / ( + 6 ) \r \t 0030100 3 7 b ; 1 3 7 0 2 5 b ; 0030120 1 b l s h i f t 1 2 ; 0030140 / / ( + 7 ) \r \t 3 0030160 0 0 5 0 b ; 1 2 5 0 3 3 b ; 0030200 1 b l s h i f t 1 2 ; 0030220 / / W R I T E R 0 \r \t 0030240 3 6 0 5 0 b ; 1 2 5 0 3 3 0030260 b ; 1 5 b l s h i f t 1 0030300 2 ; / / ( + 1 ) \r \t 0030320 1 1 0 0 b ; 1 1 1 0 2 6 0030340 b ; 1 b l s h i f 376 001 \0 0030360 211 035 t 1 2 ; / / ( + 2 0030400 ) \r \t 4 4 1 4 7 b ; 0030420 2 1 0 3 1 b ; 1 5 b l s h 0030440 i f t 1 2 ; / / N O T I 0030460 F Y B O T H W A Y S \r \t 3 0030500 0 0 5 0 b ; 2 5 4 0 1 b ; 0030520 0 b l s h i f t 1 2 ; 0030540 / / ( + 1 ) \r \t 4 0030560 4 1 5 0 b ; 6 5 0 2 6 b ; 0030600 1 5 b l s h i f t 1 2 ; 0030620 / / N O T I F Y N E X T C 0030640 O M \r \t 4 2 0 5 0 b ; 0030660 1 2 5 0 3 6 b ; 1 5 b l s 0030700 h i f t 1 2 ; / / E N T 0030720 E R T A S K 0 \r \t 4 0 0 5 0030740 0 b ; 7 0 3 3 b ; 1 0030760 5 b 376 001 \0 222 336 l s h i f t 1 0031000 2 ; / / ( + 1 ) \r \t \t ] 0031020 ) \r \r \t A d d M i c O v l ( l 0031040 v d 0 r d t , # 6 , 1 4 , t a 0031060 b l e [ \r \t 4 0 0 0 b 0031100 ; 1 2 5 3 5 0 b ; 0 b l 0031120 s h i f t 1 2 ; / / O V 0031140 E R L A Y A R E A \r \t 0031160 5 0 b ; 1 2 5 0 0 4 b ; 0031200 5 b l s h i f t 1 2 ; / / 0031220 ( + 1 ) \r \t 3 0 0 2 0031240 0 b ; 7 7 0 0 7 b ; 1 b 0031260 l s h i f t 1 2 ; / / 0031300 ( + 2 ) \r \t 1 1 7 4 b 0031320 ; 1 3 1 0 1 0 b ; 5 b l 0031340 s h i f t 1 2 ; / / ( 0031360 + 3 ) \r \t 376 001 \0 # M 1 1 0031400 0 4 b ; 1 2 3 0 1 2 b ; 5 0031420 b l s h i f t 1 2 ; / / 0031440 ( + 4 ) \r \t 4 0 1 7 0031460 b ; 1 0 3 0 1 5 b ; 5 b 0031500 l s h i f t 1 2 ; / / 0031520 ( + 5 ) \r \t 4 1 5 0 b ; 0031540 3 0 1 6 b ; 5 b l s 0031560 h i f t 1 2 ; / / ( + 0031600 6 ) \r \t 3 7 b ; 1 0031620 3 7 0 2 0 b ; 1 b l s h i 0031640 f t 1 2 ; / / ( + 7 ) 0031660 \r \t 1 1 0 4 b ; 1 3 3 0031700 0 2 7 b ; 1 b l s h i f t 0031720 1 2 ; / / ( + 1 0 ) \r 0031740 \t 4 2 0 5 0 b ; 1 2 5 0 0031760 2 4 b ; 1 5 b l s h 376 001 \0 307 0032000 223 i f t 1 2 ; / / G E T 0032020 T \r \t 4 4 0 5 0 b ; 2 0032040 5 0 2 6 b ; 1 5 b l s h i f 0032060 t 1 2 ; / / ( + 1 ) \r 0032100 \t 4 4 1 4 7 b ; 2 1 0 0032120 3 1 b ; 1 5 b l s h i f t 0032140 1 2 ; / / N O T I F Y B O 0032160 T H W A Y S \r \t 3 0 0 5 0 0032200 b ; 2 5 4 0 1 b ; 0 b 0032220 l s h i f t 1 2 ; / / 0032240 ( + 1 ) \r \t 1 5 0 b ; 0032260 6 5 0 1 5 b ; 4 b l s 0032300 h i f t 1 2 ; / / ( + 0032320 2 ) \r \t \t ] ) \r \r \t A d d M i 0032340 c O v l ( l v d 0 w r t t , # 0032360 7 , 1 4 , t a b l e [ \r \t 0032400 376 001 \0 025 275 4 0 0 0 b ; 1 0032420 2 5 3 5 0 b ; 0 b l s h 0032440 i f t 1 2 ; / / O V E R 0032460 L A Y A R E A \r \t 5 0032500 0 b ; 1 2 5 0 0 4 b ; 0032520 5 b l s h i f t 1 2 ; / / 0032540 ( + 1 ) \r \t 4 0 0 0032560 0 b ; 1 3 5 3 5 1 b ; 0032600 0 b l s h i f t 1 2 ; / / 0032620 ( + 2 ) \r \t 2 1 5 0032640 0 b ; 2 7 0 1 1 b ; 1 0032660 5 b l s h i f t 1 2 ; / / 0032700 ( + 3 ) \r \t 2 0032720 0 b ; 7 7 0 1 3 b ; 0032740 1 b l s h i f t 1 2 ; / / 0032760 ( + 4 ) \r \t 1 1 7 0033000 4 b ; 1 376 001 \0 273 E 3 1 0 1 5 0033020 b ; 5 b l s h i f t 1 0033040 2 ; / / ( + 5 ) \r \t 0033060 1 1 0 4 b ; 1 2 7 0 1 6 0033100 b ; 5 b l s h i f t 1 0033120 2 ; / / ( + 6 ) \r \t 0033140 4 0 1 7 b ; 1 0 3 0 2 0 0033160 b ; 5 b l s h i f t 1 0033200 2 ; / / ( + 7 ) \r \t 0033220 4 1 5 0 b ; 3 0 2 3 0033240 b ; 5 b l s h i f t 1 0033260 2 ; / / ( + 1 0 ) \r \t 0033300 3 7 b ; 1 3 7 0 2 0033320 5 b ; 1 b l s h i f t 0033340 1 2 ; / / ( + 1 1 ) \r \t 0033360 1 1 0 0 b ; 1 1 1 0 0033400 3 1 b ; 1 b l 376 001 \0 366 364 0033420 s h i f t 1 2 ; / / ( 0033440 + 1 2 ) \r \t 6 6 1 5 0 b ; 0033460 4 1 0 3 1 b ; 1 5 b 0033500 l s h i f t 1 2 ; / / P 0033520 U T T \r \t 4 4 1 4 7 b ; 0033540 2 1 0 3 2 b ; 1 5 b l 0033560 s h i f t 1 2 ; / / N O 0033600 T I F Y B O T H W A Y S \r \t 0033620 5 0 b ; 2 5 4 0 1 0033640 b ; 0 b l s h i f t 1 0033660 2 ; / / ( + 1 ) \r \t \t ] 0033700 ) \r \r \t A d d M i c O v l ( l 0033720 v d 0 r d m i , # 1 0 , 1 5 , 0033740 t a b l e [ \r \t 4 0 0 0033760 0 b ; 1 3 5 3 5 1 b ; 0034000 0 b l s h i f t 1 2 ; / / 0034020 376 001 \0 335 D O V E R L A Y A R 0034040 E A \r \t 2 0 5 0 b ; 0034060 1 2 5 0 0 5 b ; 5 b l s 0034100 h i f t 1 2 ; / / ( + 0034120 1 ) \r \t 2 0 b ; 0034140 4 1 2 2 4 b ; 1 b l s 0034160 h i f t 1 2 ; / / ( + 0034200 2 ) \r \t 2 0 5 0 b ; 0034220 1 2 5 3 4 1 b ; 1 4 b l s 0034240 h i f t 1 2 ; / / ( + 0034260 3 ) \r \t 0 b ; 0034300 4 3 2 2 4 b ; 1 b l s 0034320 h i f t 1 2 ; / / ( + 0034340 4 ) \r \t 2 0 5 0 b ; 0034360 1 2 5 3 4 1 b ; 1 4 b l s 0034400 h i f t 1 2 ; / / ( + 0034420 5 ) \r \t 376 001 \0 362 272 0034440 0 b ; 4 7 2 2 5 b ; 0034460 1 b l s h i f t 1 2 ; / / 0034500 ( + 6 ) \r \t 2 0 5 0034520 0 b ; 1 2 5 0 2 0 b ; 1 0034540 5 b l s h i f t 1 2 ; / / 0034560 ( + 7 ) \r \t 4 0 0 0034600 1 b ; 1 0 3 3 4 1 b ; 0034620 0 b l s h i f t 1 2 ; / / 0034640 ( + 1 0 ) \r \t 0034660 5 0 b ; 2 5 0 1 1 b ; 0034700 0 b l s h i f t 1 2 ; / 0034720 / ( + 1 1 ) \r \t 2 0034740 1 4 7 b ; 2 1 0 2 6 b ; 0034760 5 b l s h i f t 1 2 ; 0035000 / / R D C S \r \t 0035020 4 7 b ; 3 5 4 376 001 \0 030 \a 3 0035040 1 b ; 1 b l s h i f t 0035060 1 2 ; / / ( + 1 ) \r \t 0035100 4 0 0 1 b ; 1 1 3 0 3 0035120 3 b ; 1 b l s h i f t 0035140 1 2 ; / / ( + 2 ) \r \t 0035160 4 7 b ; 2 7 0 3 0035200 5 b ; 1 b l s h i f t 0035220 1 2 ; / / ( + 3 ) \r \t 0035240 5 4 1 5 0 b ; 6 5 4 0 0035260 0 b ; 1 4 b l s h i f t 0035300 1 2 ; / / ( + 4 ) \r \t \t 0035320 ] ) \r \r \t A d d M i c O v l ( 0035340 l v d 0 r d t p c , # 1 1 , 1 0035360 4 , t a b l e [ \r \t 4 0035400 0 0 0 b ; 1 2 5 3 5 0 b ; 0035420 0 b l s h i f t 1 2 ; 376 0035440 001 \0 205 032 / / O V E R L A Y 0035460 A R E A \r \t 5 0 b ; 0035500 1 2 5 0 0 4 b ; 5 b 0035520 l s h i f t 1 2 ; / / 0035540 ( + 1 ) \r \t 3 0 0 2 0 b ; 0035560 7 7 0 0 7 b ; 1 b 0035600 l s h i f t 1 2 ; / / 0035620 ( + 2 ) \r \t 1 1 7 4 b ; 0035640 1 3 1 0 1 0 b ; 5 b 0035660 l s h i f t 1 2 ; / / 0035700 ( + 3 ) \r \t 1 1 0 4 b ; 0035720 1 2 3 0 1 2 b ; 5 b 0035740 l s h i f t 1 2 ; / / 0035760 ( + 4 ) \r \t 4 0 1 7 b ; 0036000 1 0 3 0 1 5 b ; 5 b 0036020 l s h i f t 1 2 ; / / 0036040 ( + 5 ) 376 001 \0 G 340 \r \t 4 0036060 1 5 0 b ; 3 0 1 6 b ; 0036100 5 b l s h i f t 1 2 ; 0036120 / / ( + 6 ) \r \t 0036140 3 7 b ; 1 3 7 0 2 0 b ; 0036160 1 b l s h i f t 1 2 ; 0036200 / / ( + 7 ) \r \t 1 0036220 1 0 4 b ; 1 3 3 0 2 7 b ; 0036240 1 b l s h i f t 1 2 ; 0036260 / / ( + 1 0 ) \r \t 3 0036300 0 0 4 7 b ; 2 7 0 2 4 b ; 0036320 1 b l s h i f t 1 2 ; 0036340 / / G E T T P C \r \t 0036360 5 0 1 5 0 b ; 2 7 0 2 6 b 0036400 ; 1 5 b l s h i f t 1 2 0036420 ; / / ( + 1 ) \r \t 0036440 4 4 1 4 7 b ; 376 001 \0 215 y 2 0036460 1 0 3 1 b ; 1 5 b l s h i 0036500 f t 1 2 ; / / N O T I F 0036520 Y B O T H W A Y S \r \t 3 0 0036540 0 5 0 b ; 2 5 4 0 1 b ; 0036560 0 b l s h i f t 1 2 ; 0036600 / / ( + 1 ) \r \t 6 6 0036620 1 5 0 b ; 4 1 0 1 4 b ; 0036640 1 4 b l s h i f t 1 2 ; 0036660 / / ( + 2 ) \r \t \t ] ) \r 0036700 \r \t A d d M i c O v l ( l v d 0036720 0 w r t t p c , # 1 2 , 8 , t a 0036740 b l e [ \r \t 4 0 1 7 b 0036760 ; 1 0 3 0 0 2 b ; 5 b 0037000 l s h i f t 1 2 ; / / 0037020 O V E R L A Y A R E A \r \t 0037040 4 1 5 0 b ; 3 0 0 376 001 0037060 \0 G 262 4 b ; 5 b l s h i 0037100 f t 1 2 ; / / ( + 1 ) 0037120 \r \t 3 7 b ; 1 3 0037140 7 0 0 6 b ; 5 b l s h i 0037160 f t 1 2 ; / / ( + 2 ) 0037200 \r \t 1 1 0 0 b ; 1 1 0037220 1 0 1 1 b ; 5 b l s h i 0037240 f t 1 2 ; / / ( + 3 ) 0037260 \r \t 1 4 7 b ; 2 0037300 1 0 1 3 b ; 1 b l s h i 0037320 f t 1 2 ; / / ( + 4 ) 0037340 \r \t 4 5 b ; 3 0037360 7 4 0 0 b ; 0 b l s h i 0037400 f t 1 2 ; / / ( + 5 ) 0037420 \r \t 4 0 1 4 7 b ; 2 0037440 1 0 1 7 b ; 1 5 b l s h i 0037460 f t 376 001 \0 : 337 1 2 ; / / 0037500 R E T L O C \r \t 5 0 0037520 b ; 2 5 4 0 1 b ; 0 0037540 b l s h i f t 1 2 ; / / 0037560 ( + 1 ) \r \t \t ] ) \r \r \t A 0037600 d d M i c O v l ( l v d 0 m e 0037620 m , # 1 3 , 7 , t a b l e [ \r 0037640 \t 4 0 0 0 b ; 1 2 5 0037660 3 5 0 b ; 0 b l s h i f 0037700 t 1 2 ; / / O V E R L A 0037720 Y A R E A \r \t 2 1 7 4 b 0037740 ; 1 0 0 4 b ; 1 5 b 0037760 l s h i f t 1 2 ; / / 0040000 ( + 1 ) \r \t 5 0 b 0040020 ; 2 5 6 0 1 b ; 1 b 0040040 l s h i f t 1 2 ; / / 0040060 ( + 2 ) \r \t 376 001 \0 371 341 0040100 1 5 0 b ; 1 2 5 0 1 1 0040120 b ; 0 b l s h i f t 1 0040140 2 ; / / I N T L K \r \t 1 0040160 4 2 6 7 4 b ; 1 0 0 6 b 0040200 ; 1 b l s h i f t 1 2 ; 0040220 / / ( + 4 ) \r \t 1 4 0040240 3 2 7 4 b ; 1 0 0 6 b ; 0040260 1 b l s h i f t 1 2 ; 0040300 / / ( + 5 ) \r \t 1 4 3 0040320 6 7 4 b ; 1 0 0 7 b ; 0040340 1 b l s h i f t 1 2 ; / 0040360 / ( + 6 ) \r \t \t ] ) \r \r 0040400 ] \r \r \r a n d A d d M i c O v 0040420 l ( l v S t a t i c , i n d e x 0040440 , l e n , m i s ) b e \r [ \t l 0040460 e t S t a t = G e t 376 001 \0 0040500 + 343 S t o r a g e ( 3 ) \r \t r v 0040520 l v S t a t i c = S t a t 0040540 \r / / B u i l d o v e r l a y 0040560 d e s c r i p t o r \r \t S t a 0040600 t ! 0 = i n d e x \r \t S t a 0040620 t ! 1 = l e n \r \t S t a t ! 0040640 2 = B o o t T a b l e \r / / 0040660 I n s e r t a b s o l u t e 0040700 a d d r e s s a n d f i x u 0040720 p p a r i t y f o r e a c 0040740 h m - i \r \t f o r I = 0 0040760 t o l e n - 1 d o \r \t [ 0041000 l e t D V e c = m i s + ( 0041020 3 * I ) \r \t D V e c ! 2 = 0041040 D V e c ! 2 + # 7 5 0 0 + I \r 0041060 \t G e n C o r r P a r ( D V 0041100 e c 376 \0 } 235 222 ) \r \t ] \r \t M B l 0041120 o c k ( B o o t T a b l e , m i 0041140 s , 3 * l e n ) \r \t B o o t T a 0041160 b l e = B o o t T a b l e + 0041200 3 * l e n \r \t i f B o o t T a 0041220 b l e g e ( M I M t a b + ( 0041240 3 * M I M l e n ) ) t h e n 0041260 M i d a s S w a t ( M I M o v f 0041300 ) \r ] \r 377 \0 \0 d 0 i 2 . b c p l 0041320 \0 373 227 374 253 R \0 \0 376 001 \0 U \f / / D 0041340 0 I 2 . B C P L - - m a c h 0041360 i n e - d e p e n d e n t p a 0041400 r t o f I n i t 2 ( ) \r / / 0041420 \t L a s t e d i t e d : 2 0 0041440 O c t o b e r 1 9 8 1 \r / / 0041460 I m p l e m e n t s f i n a l 0041500 m a c h i n e - d e p e n d e 0041520 n t i n i t w h e n s t a 0041540 r t i n g M i d a s , d o i 0041560 n g \r / / " R u n - P r o g " , 0041600 o r d o i n g " B o o t " 0041620 . A l l i n i t i a l i z 0041640 a t i o n n e e d e d t o 0041660 r e s t o r e \r / / t h e d i 0041700 s p l a y t o i t s i n i 0041720 t i a l a r r a n g e m 376 001 \0 0041740 4 " e n t s h o u l d b e 0041760 c a r r i e d o u t . \r \r g e 0042000 t " m c o m m o n . d " \r g e 0042020 t " d 0 . d " \r m a n i f e s 0042040 t [ g e t " d 0 r e g m e 0042060 m . d " ] \r \r e x t e r n a l 0042100 [ \r / / O S \r \t S e t B l o 0042120 c k ; Z e r o \r \r / / M I N 0042140 I T 0 \r \t @ M B l o c k ; M S 0042160 t a t u s \r \r / / M I N I T 2 0042200 \r \t I n i t i a l i z e d \r \r / 0042220 / M A S M \r \t @ W s s C S S ; 0042240 W s s C S 1 ; R e s e t s C 0042260 S S ; R e s e t s C S 1 ; W 0042300 a i t ; G e t S t o r a g e \r 0042320 \t R e a d P r i n t e r ; W r 0042340 i t 376 001 \0 S 306 e P r i n t e r \r 0042360 \r / / M D A T A \r \t M D A T A 0042400 t a b ; M A D D R t a b ; @ 0042420 B i t s C h e c k e d ; @ H i 0042440 g h A d d r e s s ; @ A d d r 0042460 I n c r e m e n t \r \t M C T i m 0042500 e O u t \r \r / / M M E N U \r \t 0042520 @ W s M a r k A ; A b o r t i 0042540 n g C F i l e \r \r / / M M P R 0042560 G N \r \t U p d a t e M P D V a l 0042600 u e s \r \r / / M C M D \r \t W n 0042620 s C S 1 D ; W n s C S S D ; 0042640 S e t A b o r t P u r e ; C m 0042660 d A b o r t ; @ C m d A b o r 0042700 t A c t \r \r / / M G O \r \t @ C 0042720 a n t C o n t i n u e \r \r / / 0042740 D 0 I 0 \r \t H 376 001 \0 275 7 W S t a 0042760 t u s ; B P T a b l e ; B o 0043000 o t T a b l e ; N B o o t I n 0043020 s t \r \r / / D 0 T A B L E S \r 0043040 \t @ M E M N A M ; @ M E M L E 0043060 N \r \r / / D 0 A S M \r \t @ u t 0043100 i l i n ; @ u t i l o u t ; 0043120 r e c v b y t e \r \r / / D 0 R 0043140 E G \r \t R e a d A l l R e g s \r 0043160 \r / / D 0 M E M \r \t r e a d r 0043200 r ; s o v l c u r r \r \r / / 0043220 D 0 V M \r \t S e t V i r t P ; 0043240 I M s t a b ; R M s t a b \r \r 0043260 / / D e f i n e d h e r e \r 0043300 \t I n i t H a r d w a r e ; D 0043320 e f M e m N a m e \r ] \r \r s t a 0043340 t i c [ \r \t D e f M e 376 001 \0 246 0043360 0 m N a m e \r \t K e r n e l S t 0043400 a r t L o c = # 7 0 0 0 / 0043420 / * * * * * * * * m a y c h a 0043440 n g e i f k e r n e l . m b 0043460 c h a n g e s \r \t B o o t E S 0043500 t r ; B o o t E F l g \r ] \r \f 0043520 \r / / R e s u l t i s 0 o 0043540 r a n a l t e r n a t e c 0043560 o m m a n d - m e n u f o r m 0043600 i n g p r o c e d u r e u s 0043620 e d \r / / t o s e l e c t a 0043640 m o n g s e v e r a l t a r 0043660 g e t m a c h i n e s . \r l e 0043700 t I n i t H a r d w a r e ( ) 0043720 = v a l o f \r [ \r / / C h e 0043740 c k e n g i n e e r i n g n 0043760 u 376 001 \0 \f 7 m b e r t o d e 0044000 t e r m i n e w h e t h e r 0044020 M i d a s i s r u n n i n g 0044040 o n a n \r / / A l t o ( E 0044060 n g N u m = 0 t o 3 ) , 0044100 D o l p h i n ( E n g N u m 0044120 = 4 ) , o r D o r a d o ( 0044140 E n g N u m = 5 ) . \r / / D i f 0044160 f e r e n t p r i n t e r i 0044200 n t e r f a c e i s u s e d 0044220 o n t h e D o l p h i n , 0044240 a n d M i d a s w o n ' t 0044260 r u n \r / / o n a D o r a 0044300 d o . \r \t l e t E n g N u m 0044320 = ( t a b l e [ # 6 1 0 1 4 0044340 ; # 1 4 0 1 ] ) ( ) \r \t i 0044360 f E n g N 376 001 \0 ^ 233 u m e q 0044400 4 d o \r \t [ I n i t 2 B o 0044420 o t = D 0 I n i t 2 B o o t 0044440 \r \t I n i t 2 W a i t A c k 0044460 = D 0 I n i t 2 W a i t A c 0044500 k \r \t S e n d B o o t B y t 0044520 e = D 0 S e n d B o o t B y 0044540 t e \r \t ] \r \t S e t V i r t P ( 0044560 f a l s e ) \r \t D e f M e m N a 0044600 m e = M E M N A M ! V M x \r 0044620 / / C l e a r t h e b r e a 0044640 k p o i n t t a b l e \r \t S e 0044660 t B l o c k ( B P T a b l e , # 0044700 7 7 7 7 , B P l e n * 4 ) \r / / 0044720 Z e r o t h e e r r o r c 0044740 o u n t e r s a n d i n i t 0044760 i a l i z e t e s t 376 001 \0 j 243 0045000 - c o n t r o l s t u f f i 0045020 n f a k e \r / / m e m o r i e 0045040 s . \r \t Z e r o ( M D A T A t a 0045060 b , M D A T A l e n * 3 ) \r \t Z 0045100 e r o ( M A D D R t a b , M A D 0045120 D R l e n * 2 ) \r \t M B l o c k 0045140 ( B i t s C h e c k e d , t a b 0045160 l e [ - 1 ; - 1 ; # 1 7 0045200 0 0 0 0 ] , 3 ) \r \t S e t 0045220 B l o c k ( H i g h A d d r e s 0045240 s , - 1 , 2 ) \r \t A d d r I n c 0045260 r e m e n t ! 1 = 1 \r / / I 0045300 n i t i a l i z e i n v e r t 0045320 e d t a b l e s f o r F a 0045340 s t S e a r c h \r / / ( C a n ' 0045360 t u s e G e t Z S t o r a g 0045400 376 001 \0 F 272 e b e c a s u e i 0045420 t i s s w a p p e d o u t 0045440 ) \r \t l e t I M s t a b l e n 0045460 = M E M L E N ! ( I M X x + 0045500 I M X x + 1 ) r s h i f t ( 0045520 B l o c k S h i f t + 1 ) \r \t I 0045540 M s t a b = G e t S t o r a 0045560 g e ( I M s t a b l e n ) ; Z 0045600 e r o ( I M s t a b , I M s t a 0045620 b l e n ) \r \t l e t R M s t a 0045640 b l e n = ( M E M L E N ! ( 0045660 R M x + R M x + 1 ) + 1 ) r s 0045700 h i f t 1 \r \t R M s t a b = 0045720 G e t S t o r a g e ( R M s t 0045740 a b l e n ) ; Z e r o ( R M s 0045760 t a b , R M s t a b l e n ) \r \r 0046000 \t M S t a 376 001 \0 005 016 t u s > > M 0046020 S t a t u s . M a c h R u n n i 0046040 n g = f a l s e \r / / \t M S 0046060 t a t u s > > M S t a t u s . M 0046100 a c h R u n n i n g = n o t 0046120 C h e c k S t o p p e d ( ) \r 0046140 \t s o v l c u r r = 0 \t / / 0046160 c l e a r l a s t o v e r l 0046200 a y n u m b e r \r \t i f H W 0046220 S t a t u s > > H W S t a t u s 0046240 . C o n n e c t e d M a c h i n 0046260 e e q - 1 d o \r \t [ C a 0046300 n t C o n t i n u e = d i d 0046320 B o o t \r / / I f t h e b o 0046340 o t f a i l s , i n d i c a 0046360 t e t h a t w e a r e c 0046400 o n n e c t e d a 376 001 \0 B ` n 0046420 y w a y \r \t H W S t a t u s 0046440 > > H W S t a t u s . C o n n e 0046460 c t e d M a c h i n e = 0 \r 0046500 \t R e s e t s C S S ( ) ; 0046520 R e s e t s C S 1 ( ) \r \t f 0046540 o r B o o t F a i l C o u n t 0046560 = 0 t o 9 d o \r \t 0046600 [ I n i t 2 B o o t ( ) \r \t 0046620 W a i t ( 2 0 0 0 ) \t / / 0046640 2 0 0 m s e c t o l e t 0046660 i t b o o t \r \t l e t 0046700 B o o t B a d = f a l s e 0046720 \r / / T r a n s f e r m - i 0046740 f r o m M I M t o h a r d 0046760 w a r e \r \t f o r I 0047000 = B o o t T a b l e b y 376 0047020 001 \0 245 < 3 t o B o o t T a b 0047040 l e + ( ( N B o o t I n s t - 1 0047060 ) * 3 ) d o \r \t [ i 0047100 f S e n d B o o t W o r d ( I 0047120 ! 2 & # 7 7 7 7 ) t h e n 0047140 \r \t i f S e n 0047160 d B o o t W o r d ( I ! 0 ) t 0047200 h e n \r \t \t i f S e n d B 0047220 o o t W o r d ( I ! 1 ) t h e 0047240 n \r \t \t i f S e n d B 0047260 o o t B y t e ( I ! 2 r s h i 0047300 f t 1 2 ) t h e n l o o p 0047320 \r \t B o o t B a d 0047340 = t r u e \r \t M C 0047360 T i m e O u t ! 6 = ( I - B 0047400 o o t T a b l e ) / 3 \t / / H o 0047420 w f a 376 001 \0 032 D r i n t o 0047440 b o o t \r \t b r e a 0047460 k \r \t ] \r \t t e 0047500 s t B o o t B a d \r \t 0047520 i f s o \r \t [ B o o t 0047540 E S t r = " C o m m u n i c 0047560 a t i o n e r r o r d u r i 0047600 n g K E R N E L t r a n s m 0047620 i s s i o n " \r \t B 0047640 o o t E F l g = t r u e \r \t 0047660 ] \r \t i f n o t 0047700 \t / / s t a r t k e r n e l \r 0047720 \t [ i f S e n d B o 0047740 o t B y t e ( # 2 0 0 % ( K 0047760 e r n e l S t a r t L o c r s 0050000 h i f t 8 ) ) t h e n \r \t 0050020 i f 376 001 \0 313 251 S 0050040 e n d B o o t B y t e ( K e r n 0050060 e l S t a r t L o c & # 3 7 0050100 7 ) d o \r / / * * W h a t i 0050120 s t h i s w a i t i n g f 0050140 o r ? ? ? \r \t \t [ f o r i 0050160 = 0 t o # 2 0 0 0 0 d o 0050200 \r \t \t [ i f I n i t 2 W 0050220 a i t A c k ( ) e q 0 t h 0050240 e n b r e a k \r \t \t ] \r \t 0050260 \t i f r e c v b y t e ( ) 0050300 e q # 1 0 0 d o \t / / S u 0050320 c c e s s f u l l y b o o t e 0050340 d \r \t \t [ R e a d A l l R 0050360 e g s ( ) \r \t \t i f B 0050400 o o t F a i l C o u n t n e 0050420 0 d o \r \t \t [ W 376 001 0050440 \0 ? @ s s C S S ( " B o o t s 0050460 u c c e e d e d a f t e r " 0050500 ) \r \t \t W n s C S S 0050520 D ( B o o t F a i l C o u n t ) 0050540 ; W s s C S S ( " f a i l u 0050560 r e s " ) \r \t \t ] \r \t \t 0050600 r e s u l t i s 0 \r \t 0050620 \t ] \r \t \t ] \r \t 0050640 B o o t E S t r = " K E R N 0050660 E L d i d n o t s t a r t 0050700 u p " \r \t B o o t 0050720 E F l g = f a l s e \r \t 0050740 ] \r \t ] \r \t S e t A 0050760 b o r t P u r e ( l v B o o t 0051000 A b o r t , n i l ) \r \t r e 0051020 s u l t i s B o o t F a i l M 0051040 e n u 376 001 \0 327 L \t / / B o o t 0051060 f a i l e d r e t u r n \r \t ] 0051100 \r \t U p d a t e M P D V a l u e 0051120 s ( ) ; r e s u l t i s 0 \r 0051140 ] \r \r \r a n d B o o t A b o r 0051160 t ( n i l , n i l , n i l ) b 0051200 e \r [ \t R e a d A l l R e g s ( 0051220 ) \r \t i f M S t a t u s > > M 0051240 S t a t u s . C F i l e S t r e 0051260 a m n e 0 t h e n \r \t \t A 0051300 b o r t i n g C F i l e = 1 0051320 \r \t C m d A b o r t ( ) \r ] \r \r 0051340 \r a n d B o o t F a i l M e n 0051360 u ( S , n i l ) b e \r [ \t W s 0051400 s C S S ( " B o o t f a i l e 0051420 d 1 0 t i m e s : " ) \r \t 0051440 W s s C S S ( B 376 001 \0 t o o o t 0051460 E S t r ) \r \t i f B o o t E F 0051500 l g d o \r \t [ W s s C S 1 ( 0051520 ( ( M C T i m e O u t ! 7 & 0051540 # 1 7 0 0 0 0 ) n e 0 ? \r 0051560 \t " U a c k d i d n ' 0051600 t d r o p a f t e r a c k 0051620 n o w l e d g e " , \r \t 0051640 ( ( M C T i m e O u t ! 7 & 0051660 # 7 4 0 0 ) n e 0 ? \r \t 0051700 " D i d n ' t r e c 0051720 e i v e U a c k " , \r \t 0051740 ( ( M C T i m e O u t ! 7 0051760 & # 3 6 0 ) n e 0 ? \r 0052000 \t \t " U a c k n o t c l e a 0052020 r i n i t i a l l y " , " D i 0052040 r e c t i o n i n c o r 376 001 \0 0052060 = 1 r e c t " ) ) ) ) \r \t W 0052100 s s C S 1 ( " t r a n s m i t 0052120 t i n g m i c r o i n s t r u 0052140 c t i o n " ) \r \t W n s C 0052160 S 1 D ( M C T i m e O u t ! 6 ) 0052200 \r \t ] \r \t W s M a r k A ( C m d 0052220 A b o r t A c t ) \r ] \r \r \r a n 0052240 d I n i t 2 B o o t ( ) b e 0052260 \t / / * * A l t o o n l y \r [ 0052300 \r / / S e t q u i e s c e n t 0052320 s t a t e \r \t @ u t i l o u t 0052340 = n o t # 4 4 0 ; @ u t 0052360 i l o u t = n o t # 4 0 4 0052400 4 0 ; @ u t i l o u t = n 0052420 o t # 4 4 0 \r / / B o o t i 0052440 t \r \t @ u t i l o u t = n o 0052460 t 376 001 \0 237 212 # 4 0 0 ; @ u t 0052500 i l o u t = n o t # 4 0 4 0052520 0 0 ; @ u t i l o u t = n 0052540 o t # 4 0 0 \r / / S e t q u 0052560 i e s c e n t s t a t e \r \t @ 0052600 u t i l o u t = n o t # 4 0052620 4 0 ; @ u t i l o u t = n 0052640 o t # 4 0 4 4 0 ; @ u t i l 0052660 o u t = n o t # 4 4 0 \r ] 0052700 \r \r \r a n d D 0 I n i t 2 B o 0052720 o t ( ) b e \t / / * * D o l p 0052740 h i n o n l y \r [ \t W r i t e 0052760 P r i n t e r ( # 2 0 4 0 0 ) \r 0053000 \t W r i t e P r i n t e r ( # 4 0053020 0 0 ) \r \t W r i t e P r i n t e 0053040 r ( # 2 0 4 0 0 ) \r ] \r \r \r a n 0053060 d I n i t 2 376 001 \0 w 361 W a i t 0053100 A c k ( ) = v a l o f \t / / 0053120 * * A l t o o n l y \r [ \t @ u 0053140 t i l o u t = n o t # 1 4 0053160 0 0 \r \t r e s u l t i s ( @ u 0053200 t i l i n & # 1 0 0 0 0 ) \r 0053220 ] \r \r \r a n d D 0 I n i t 2 W 0053240 a i t A c k ( ) = v a l o f 0053260 \t / / * * D o l p h i n o n l 0053300 y \r [ \t r e s u l t i s ( R e 0053320 a d P r i n t e r ( ) & # 4 0053340 0 0 0 ) \r ] \r \r \r / / S e n d 0053360 o n e b y t e t o D 0 v 0053400 i a p r i n t e r i n t e r 0053420 f a c e . \r / / W e e x p 0053440 e c t t h e d 0 t o h a 0053460 v e u a c k c l e a 376 001 \0 \ 0053500 374 r e d , b u s d i r e c t 0053520 i o n s e t \r / / r e a d n 0053540 i b b l e 1 , k e e p d r 0053560 i v e o f f , u t i l o u t 0053600 i s i n v e r t e d , u t 0053620 i l i n i s n o t \r a n d 0053640 S e n d B o o t B y t e ( b i t 0053660 e ) = v a l o f \t / / * * A 0053700 l t o o n l y \r [ \t @ u t i l 0053720 o u t = n o t # 1 4 0 0 \r 0053740 \t l e t t s t = n i l \r / 0053760 / C h e c k f o r d i r e c 0054000 t i o n i n c o r r e c t ( 0054020 c o u n t i n n i b 3 ) \r \t 0054040 i f ( @ u t i l i n & # 1 0054060 0 0 0 0 ) e q 0 t h e n 0054100 \r 376 001 \0 D 033 \t [ M C T i m e O 0054120 u t ! 7 = M C T i m e O u t 0054140 ! 7 + 1 ; r e s u l t i s 0054160 f a l s e \r \t ] \r / / C h e c 0054200 k f o r U a c k n o t c 0054220 l e a r i n i t i a l l y ( 0054240 c o u n t i n n i b 2 ) \r \t 0054260 i f ( @ u t i l i n & # 4 0054300 0 0 0 0 ) n e 0 t h e n \r 0054320 \t [ M C T i m e O u t ! 7 = 0054340 M C T i m e O u t ! 7 + # 0054360 2 0 ; r e s u l t i s f a l 0054400 s e \r \t ] \r \r / / s e t t h e 0054420 u p p e r b y t e t o q 0054440 u i e s c e n t s t a t e ( 0054460 b o o t b i t h i g h ) , 0054500 d r i v e 376 001 \0 w 353 d a t a \r 0054520 \t @ u t i l o u t = n o t 0054540 # 4 0 ; @ u t i l o u t = 0054560 n o t # 4 0 0 4 0 ; @ u t i 0054600 l o u t = n o t # 4 0 \r \r 0054620 / / l o a d l o w b y t e 0054640 o f t e s t e r o u t p u t 0054660 r e g i s t e r \r \t @ u t i l 0054700 o u t = n o t b i t e ; 0054720 @ u t i l o u t = n o t ( 0054740 b i t e % # 1 0 0 0 0 0 ) \r 0054760 \t @ u t i l o u t = n o t 0055000 b i t e \r \r / / s e n d i a c 0055020 k \r \t @ u t i l o u t = n o 0055040 t # 2 4 0 ; @ u t i l o u t 0055060 = n o t # 4 0 2 4 0 ; @ 0055100 u t i l o u t = n 376 001 \0 d 031 0055120 o t # 2 4 0 \r \r / / t h e d 0055140 0 s h o u l d r e s p o n d 0055160 i n s t a n t l y b y r a 0055200 i s i n g U a c k ( # 2 0 0 0055220 0 ) . T h e \r / / b i t w 0055240 e e x p e c t i s t h e 0055260 s e c o n d b i t o f n i 0055300 b b l e 1 , o n U t i l i 0055320 n [ 0 1 ] \r \r / / s e t t o 0055340 r e a d n i b b l e f r o m 0055360 t e s t e r \r \t @ u t i l o u 0055400 t = n o t # 1 0 0 0 \r / / 0055420 C h e c k f o r U a c k n 0055440 o t c o m i n g u p ( c o 0055460 u n t i n n i b 1 ) \r \t i f 0055500 ( @ u t i l i n & # 4 0 0 0055520 376 001 \0 325 305 0 0 ) e q 0 t h 0055540 e n \r \t [ M C T i m e O u t ! 0055560 7 = M C T i m e O u t ! 7 0055600 + # 4 0 0 ; r e s u l t i s 0055620 f a l s e \r \t ] \r \r / / w e 0055640 d r o p i s e n d , k e e p 0055660 i n g b o o t b i t h i g 0055700 h , t u r n d r i v e o f 0055720 f \r \t @ u t i l o u t = n o 0055740 t # 4 0 ; @ u t i l o u t 0055760 = n o t # 4 0 4 4 0 ; @ u 0056000 t i l o u t = n o t # 4 4 0056020 0 \r \r / / w e e x p e c t t 0056040 h e d 0 t o d r o p u a 0056060 c k i m m e d i a t e l y \r \t 0056100 @ u t i l o u t = n o t # 0056120 1 4 0 0 \r 376 001 \0 226 Z / / C h e c 0056140 k f o r U a c k n o t d 0056160 r o p p i n g i m m e d i a t 0056200 e l y ( c o u n t i n n i 0056220 b 0 ) \r \t i f ( @ u t i l i n 0056240 & # 4 0 0 0 0 ) n e 0 0056260 t h e n \r \t [ M C T i m e O u 0056300 t ! 7 = M C T i m e O u t ! 0056320 7 + # 1 0 0 0 0 ; r e s u 0056340 l t i s f a l s e \r \t ] \r \t r 0056360 e s u l t i s t r u e \r ] \r \r 0056400 \r / / N O T E : T h e o n l 0056420 y d i f f e r e n c e b e t 0056440 w e e n u s e o f t h e 0056460 p r i n t e r i n t e r f a c 0056500 e d u r i n g \r / / b o o t i 0056520 n g a n d d u r 376 001 \0 210 373 i 0056540 n g r e g u l a r o p e r a 0056560 t i o n i s t h a t d u r 0056600 i n g b o o t i n g w p r i 0056620 n t e r i s \r / / a c k n o w 0056640 l e d g e d b y t h e # 1 0056660 0 0 0 0 b i t i n r p r i 0056700 n t e r b e c o m i n g 1 ; 0056720 d u r i n g n o r m a l \r / 0056740 / o p e r a t i o n i t i s 0056760 a c k n o w l e d g e d b y 0057000 t h e # 1 0 0 0 0 0 b i t 0057020 b e c o m i n g 1 . \r a n d 0057040 D 0 S e n d B o o t B y t e ( 0057060 b i t e ) = v a l o f \t / / 0057100 * * M i d a s r u n n i n g 0057120 o n D o l p h i n o n l y 376 0057140 001 \0 320 ^ \r [ \t W r i t e P r i n 0057160 t e r ( # 2 0 4 0 0 ) \t / / # 2 0057200 0 0 0 0 = n o t b o o t i 0057220 n g \r \t \t \t \t / / # 4 0 0 0057240 = d e b u g g e r ' s d i r 0057260 e c t i o n t o d e b u g g 0057300 e r \r \t l e t t s t = n i 0057320 l \t \t / / T i n y d e l a y \r 0057340 / / V e r i f y d e b u g g e 0057360 e ' s d i r e c t i o n t o 0057400 d e b u g g e e ( c o u n t 0057420 e r r o r s i n n i b 3 ) 0057440 \r \t i f ( R e a d P r i n t e 0057460 r ( ) & # 4 0 0 0 ) e q 0057500 0 t h e n \r \t [ M C T i m e 0057520 O u t ! 7 = M C T i m e O u 0057540 t ! 7 376 001 \0 M 034 + 1 ; r e 0057560 s u l t i s f a l s e \r \t ] \r 0057600 / / V e r i f y d e b u g g e 0057620 e ' s w r i t e a c k c l 0057640 e a r i n i t i a l l y ( c 0057660 o u n t e r r o r s i n n 0057700 i b 2 ) \r \t i f ( R e a d P r 0057720 i n t e r ( ) & # 1 0 0 0 0 0057740 ) n e 0 t h e n \r \t [ M 0057760 C T i m e O u t ! 7 = M C T 0060000 i m e O u t ! 7 + # 2 0 ; 0060020 r e s u l t i s f a l s e \r \t 0060040 ] \r / / S e t t h e u p p e 0060060 r b y t e t o q u i e s c 0060100 e n t s t a t e ( b o o t 0060120 b i t h i g h ) , d r i v e 0060140 d a t a \r \t W r 376 001 \0 350 ( i t 0060160 e P r i n t e r ( # 2 0 0 0 0 + 0060200 b i t e ) \r \t W r i t e P r i n 0060220 t e r ( # 1 2 0 0 0 0 + b i t e 0060240 ) \t / / T u r n o n w r i t 0060260 e s t r o b e \r / / T h e D 0060300 0 s h o u l d r e s p o n d 0060320 i n s t a n t l y b y r a 0060340 i s i n g w r i t e a c k 0060360 ( # 1 0 0 0 0 ) . \r / / C h e c 0060400 k f o r w r i t e a c k 0060420 n o t c o m i n g u p ( c 0060440 o u n t e r r o r s i n n 0060460 i b 1 ) \r \t i f ( R e a d P r 0060500 i n t e r ( ) & # 1 0 0 0 0 0060520 ) e q 0 t h e n \r \t [ M 0060540 C T i m e O u t ! 7 = M 376 001 0060560 \0 022 213 C T i m e O u t ! 7 + 0060600 # 4 0 0 ; r e s u l t i s f 0060620 a l s e \r \t ] \r / / T u r n o 0060640 f f w r i t e s t r o b e \r 0060660 \t W r i t e P r i n t e r ( # 2 0060700 0 0 0 0 + b i t e ) \r / / C h e 0060720 c k f o r w r i t e a c k 0060740 n o t d r o p p i n g i m 0060760 m e d i a t e l y ( c o u n t 0061000 i n n i b 0 ) \r \t i f ( R 0061020 e a d P r i n t e r ( ) & # 0061040 1 0 0 0 0 ) n e 0 t h e n 0061060 \r \t [ M C T i m e O u t ! 7 0061100 = M C T i m e O u t ! 7 + 0061120 # 1 0 0 0 0 ; r e s u l t i s 0061140 f a l s e \r \t ] \r / / L e a v 0061160 e d 376 \0 320 w 215 i r e c t i o n 0061200 b i t i n a g o o d s 0061220 t a t e \r \t W r i t e P r i n t 0061240 e r ( # 2 0 4 0 0 ) \r \t r e s u 0061260 l t i s t r u e \r ] \r \r \r a n 0061300 d S e n d B o o t W o r d ( w 0061320 u r d ) = v a l o f \r [ \t i 0061340 f S e n d B o o t B y t e ( w 0061360 u r d r s h i f t 8 ) t h 0061400 e n \r \t i f S e n d B o o 0061420 t B y t e ( w u r d & # 3 7 0061440 7 ) t h e n r e s u l t i s 0061460 t r u e \r \t r e s u l t i s 0061500 f a l s e \r ] \r 377 \0 \0 d 0 a c t 0061520 i o n s . a s m \0 373 225 l 9 / \0 \0 0061540 376 001 \0 211 027 ; D 0 a c t i o n s 0061560 . a s m - - A c t i o n B l o c 0061600 k t a b l e a n d r e l a 0061620 t e d s t a t i c s \r ; \t L a 0061640 s t e d i t e d : 2 J a n 0061660 u a r y 1 9 8 0 \r \r . g e t 0061700 " M M e n u s . d " \r \r ; O S 0061720 \r . b e x t N o o p \r \r ; M 0061740 D I S P \r . b e x t S e t D i 0061760 s p l a y , B l i n k \r \r ; M 0062000 M P R G N \r . b e x t S e t A 0062020 d d r , S e t V a l u e , S t e 0062040 p A d d r , M P D M C h a n g e 0062060 \r \r ; M M P R G N O V \r . b e 0062100 x t S k i p V E q l , S k i p 0062120 V G r , S k i p V L s , S k i p 0062140 V N E q l 376 001 \0 331 340 , S k i p V 0062160 G r E , S k i p V L s E \r . b e 0062200 x t C h a n g e R a d i x , S 0062220 h o w M o d e , F i l l C o l u 0062240 m n , C m d A d d r E q , C m d 0062260 P r e t t y P r i n t \r \r ; M 0062300 C M D \r . b e x t C m d R u n 0062320 P r o g , C m d D o R C , R e a 0062340 d C M e n u , S t a r t C m d O 0062360 v e r l a y \r . b e x t S t a 0062400 r t L a r g e O v e r l a y , E 0062420 n d E r r o r , E x e c u t e C 0062440 F i l e , C m d W r i t e S t a 0062460 t e \r \r ; M C M D O V \r . b e 0062500 x t C m d S k i p C m d , C m 0062520 d S t a r t W C , C m d S t o p 0062540 W C , C m d S h o w 376 001 \0 8 375 C 0062560 m d s , C m d T i m e O u t \r . 0062600 b e x t C m d C o n f i r m , 0062620 C m d R e t u r n , C m d A b o 0062640 r t C F i l e , C m d S h o w E 0062660 r r o r , C m d O p e n O u t p 0062700 u t \r . b e x t C m d C l o s 0062720 e O u t p u t , C m d W r i t e 0062740 M e s s a g e , C m d D u m p D 0062760 i s p l a y \r \r ; M B R K P \r 0063000 . b e x t I n s e r t B r e a 0063020 k , R e m o v e B r e a k \r \r ; 0063040 M G O \r . b e x t S t a r t 0063060 M , S i n g l e S t e p M , C a 0063100 l l W i t h A d d r , S t a r t 0063120 W i t h A d d r ; , S t a r t 0063140 B i g O v l W i t h A d d r \r 376 0063160 001 \0 M 8 . b e x t P r o c e e 0063200 d M \r \r ; M G O O V L \r ; . b 0063220 e x t S t a r t W i t h A r g 0063240 s \r \r ; M R G O \r ; . b e x t 0063260 R e p e a t G o , R e p e a t 0063300 S S \r \r ; M L O A D \r . b e x 0063320 t I n i t L o a d , L o a d M 0063340 B , L o a d S y m s , L o a d D 0063360 a t a , C o m p a r e M B , D u 0063400 m p M B \r \r ; M T E S T \r . b 0063420 e x t D a t a T e s t , C o n 0063440 t i n u e T e s t , F r e e R u 0063460 n T e s t , T e s t A l l , C o 0063500 n t i n u e T A l l , S k i p T 0063520 A l l \r \r ; M F I E L D L P \r 0063540 ; . b e x t F i e l d T e s t 0063560 \r \r ; 376 001 \0 ( 035 M P E S C A N 0063600 \r ; . b e x t P E S c a n \r \r 0063620 ; M D A Y T I M E \r . b e x t 0063640 W r i t e D a y T i m e \r \r ; 0063660 D 0 V M \r . b e x t S e t V 0063700 i r t P \r \r ; D 0 R E S \r . b 0063720 e x t C m d F i n i s h \r \r ; 0063740 D 0 B R K P \r . b e x t C l 0063760 r B p , S h o w B P \r \r ; D e 0064000 f i n e d h e r e \r . b e x t 0064020 A c t i o n B l o c k , A c t 0064040 i o n P t r , L a s t A c t i o 0064060 n \r . b e x t N o o p A c t i 0064100 o n , E s c A c t i o n , C R A 0064120 c t i o n , N e w E s c A c t i 0064140 o n , N e w C R A c t i o n \r . 0064160 b e x t z L o n 376 001 \0 ( 222 g O 0064200 n e \r . b e x t L o n g M i n 0064220 O n e \r \r ; \t F o r M M P R G 0064240 N \r . b e x t B u g A d d r A 0064260 c t , B u g V a l A c t , P l u 0064300 s 1 A c t , M i n u s 1 A c t , 0064320 C o l u m n A c t \r . b e x t 0064340 O c t A c t , H e x A c t , D e 0064360 c A c t , S e a r c h A c t , S 0064400 y m b o l i c A c t , N u m e r 0064420 i c A c t \r \r ; \t F o r M C M 0064440 D \r . b e x t C m d D u m p A 0064460 c t , C m d S t a r t W C A c t 0064500 , C m d S t o p W C A c t , C m 0064520 d S h o w C m d A c t , C m d C 0064540 o n c e a l A c t \r . b e x t 0064560 C m d E r r o r C o n t i n 376 001 0064600 \0 001 T u e A c t , C m d E r r o 0064620 r A b o r t A c t , C m d C F i 0064640 l e A b o r t A c t \r . b e x t 0064660 N H W C F A c t i o n s , H W 0064700 C F A c t i o n s \r . b e x t 0064720 F i r s t C m d A c t i o n \t ; 0064740 P o i n t s a t f i r s t 0064760 c o m m a n d m e n u a c 0065000 t i o n \r . b e x t L a s t C 0065020 m d A c t i o n \t ; P o i n t 0065040 s a t l a s t a c t i o n 0065060 i n m a i n c o m m a n d 0065100 m e n u \r \r ; \t F o r M G O 0065120 \r . b e x t D e t a c h A c t 0065140 , E x i t A c t \r \r ; \t F o r 0065160 M T E S T \r . b e x t C o n 0065200 T A c 376 001 \0 261 002 t , F r e e R u 0065220 n T A c t , C o n T A l l A c t 0065240 , S k i p T A l l A c t \r \r ; \t 0065260 F o r D 0 R E S \r . b e x t 0065300 V i r t A c t , A b s A c t \r \f 0065320 \r . t x t m B \r \r . z r e l \r 0065340 \r L o n g O n e : \t . L o n g O 0065360 n e \r \r . s r e l \r \r A c t i o 0065400 n B l o c k : \t . A c t i o n B 0065420 l o c k \r F i r s t C m d A c t 0065440 i o n : \t . F i r s t C m d A c 0065460 t i o n \r L a s t C m d A c t i 0065500 o n : \t . L a s t C m d A c t i 0065520 o n \r A c t i o n P t r : \t ( . 0065540 L a s t A c t i o n - . A c t i 0065560 o n B l o c k + 5 ) / 5 \r L a s 0065600 t A c t i o n : 376 001 \0 251 212 \t . L 0065620 a s t A c t i o n \r \r B u g A d 0065640 d r A c t : \t . B u g A d d r A 0065660 c t \r B u g V a l A c t : \t . B 0065700 u g V a l A c t \r P l u s 1 A c 0065720 t : \t . P l u s 1 A c t \r M i n 0065740 u s 1 A c t : \t . M i n u s 1 A 0065760 c t \r C o l u m n A c t : \t . C 0066000 o l u m n A c t \r O c t A c t : 0066020 \t \t . O c t A c t \r H e x A c t 0066040 : \t \t . H e x A c t \r D e c A c 0066060 t : \t \t . D e c A c t \r N u m e 0066100 r i c A c t : \t . N u m e r i c 0066120 A c t \r S e a r c h A c t : \t . 0066140 S e a r c h A c t \r S y m b o l 0066160 i c A c t : \t . S y m b o l i c 0066200 A c t \r \r E x i t A c t : 376 001 \0 0066220 351 O \t . E x i t A c t \r C m d D 0066240 u m p A c t : \t . C m d D u m p 0066260 A c t \r C m d S t a r t W C A c 0066300 t : \t . C m d S t a r t W C A c 0066320 t \r C m d S t o p W C A c t : \t 0066340 . C m d S t o p W C A c t \r C m 0066360 d S h o w C m d A c t : \t . C m 0066400 d S h o w C m d A c t \r C m d C 0066420 o n c e a l A c t : \t . C m d C 0066440 o n c e a l A c t \r C m d E r r 0066460 o r C o n t i n u e A c t : \t . 0066500 C m d E r r o r C o n t i n u e 0066520 A c t \r C m d E r r o r A b o r 0066540 t A c t : \t . C m d E r r o r A 0066560 b o r t A c t \r C m d C F i l e 0066600 A b o r t A c t : \t . C m d C F 0066620 i l 376 001 \0 024 257 e A b o r t A c t 0066640 \r D e t a c h A c t : \t . D e t 0066660 a c h A c t \r \r C o n T A c t : 0066700 \t . C o n T A c t \r F r e e R u 0066720 n T A c t : \t . F r e e R u n T 0066740 A c t \r C o n T A l l A c t : \t 0066760 . C o n T A l l A c t \r S k i p 0067000 T A l l A c t : \t . S k i p T A 0067020 l l A c t \r \r V i r t A c t : \t 0067040 . V i r t A c t \r A b s A c t : 0067060 \t \t . A b s A c t \r \r N o o p A 0067100 c t i o n : \t . N o o p A c t i 0067120 o n \r ; T h e s e f o u r 0067140 a r e m o d i f i e d b y 0067160 D o A c t i o n a n d i n 0067200 T e s t a n d T e s t A l l 0067220 \r E s c A c t 376 001 \0 317 353 i o n : 0067240 \t . N o o p A c t i o n \r C R A 0067260 c t i o n : \t . N o o p A c t i 0067300 o n \r N e w E s c A c t i o n : 0067320 \t . N o o p A c t i o n \r N e w 0067340 C R A c t i o n : \t . N o o p A 0067360 c t i o n \r \r N H W C F A c t i 0067400 o n s : \t ( . L a s t H W C F A 0067420 c t i o n - . H W C F A c t i o 0067440 n s ) / 5 \r H W C F A c t i o n 0067460 s : \t . H W C F A c t i o n s \r 0067500 \r A d d r T a b l e 0 : \t . A d 0067520 d r T a b l e 0 \r A d d r T a b 0067540 l e 1 : \t . A d d r T a b l e 1 0067560 \r A d d r T a b l e 2 : \t . A d 0067600 d r T a b l e 2 \r V a l T a b l 0067620 e 0 : \t . V a l T a b l 376 001 \0 J 0067640 262 e 0 \r V a l T a b l e 1 : \t . 0067660 V a l T a b l e 1 \r V a l T a b 0067700 l e 2 : \t . V a l T a b l e 2 \r 0067720 \r L o n g M i n O n e : \t . L o 0067740 n g M i n O n e \r \r \r . n r e l 0067760 \r \r ; T a b l e s u s e d 0070000 b y M P D a c t i o n s i 0070020 n d e x e d b y b u t t o n 0070040 s \r B u g A d d r M e n u : \t S 0070060 t a n d a r d M e n u \t ; n o 0070100 n e \r \t \t S t a n d a r d M e n 0070120 u \t ; 1 = M i d d l e \r \t 0070140 \t A d d r e s s M e n u \t ; 2 0070160 = B o t t o m \r \t \t F i l l 0070200 C M e n u \t ; 3 = M i d d 0070220 l e + B o t t o m \r \t \t S t a n 0070240 d 376 001 \0 325 236 a r d M e n u \t ; 0070260 4 = T o p \r \t \t R a d i x M 0070300 e n u \t ; 5 = T o p + M i 0070320 d d l e \r \t \t S t a n d a r d M 0070340 e n u \t ; 6 = T o p + B o 0070360 t t o m \r \t \t S t a n d a r d M 0070400 e n u \t ; 7 = A l l \r \r B 0070420 u g V a l M e n u : \t S t a n d 0070440 a r d M e n u \r \t \t S t a n d a 0070460 r d M e n u \r \t \t S t a n d a r 0070500 d M e n u \r \t \t D i s p l a y M 0070520 o d e M e n u \r \t \t S t a n d a 0070540 r d M e n u \r \t \t R a d i x M e 0070560 n u \r \t \t S t a n d a r d M e n 0070600 u \r \t \t S t a n d a r d M e n u 0070620 \r \r . A d d r T a b l e 0 : \t B 0070640 u g A d d r 376 001 \0 003 334 M e n u - 0070660 . \r \t \t 0 \r . L o n g O n e : \t 0070700 0 \r \t \t 1 \r \r . A d d r T a b l 0070720 e 1 : \t B u g A d d r M e n u - 0070740 . \r \t \t 1 \r . L o n g M i n O n 0070760 e : \t 1 7 7 7 7 7 \r \t \t 1 7 7 7 0071000 7 7 \r \r . A d d r T a b l e 2 : 0071020 \t B u g A d d r M e n u - . \r \t 0071040 \t 2 \r \r . V a l T a b l e 0 : \t 0071060 B u g V a l M e n u - . \r \t \t 0 0071100 \r \r . V a l T a b l e 1 : \t B u 0071120 g V a l M e n u - . \r \t \t 1 \r \r 0071140 . V a l T a b l e 2 : \t B u g V 0071160 a l M e n u - . \r \t \t 2 \r \f \r ; 0071200 A n e n t r y i n t h e 0071220 A c t i o n B l o c k i s : 0071240 \r ; \t N a m e \r ; \t l 376 001 \0 H 314 0071260 v P r o c \r ; \t l v M P r o c \r 0071300 ; \t A r g \r ; \t F l a g s , , C 0071320 h a r \r ; T h e s e l f - r 0071340 e l a t i v e n a m e p o i 0071360 n t e r s h e r e a r e c 0071400 o n v e r t e d t o a b s o 0071420 l u t e b y M I N I T 0 \r \r 0071440 ; F l a g s b e l o w o n 0071460 l y a p p l y t o i t e m 0071500 s b e t w e e n F i r s t C 0071520 m d A c t i o n a n d L a s 0071540 t C m d A c t i o n \r i f P = 0071560 1 0 0 0 0 0 \t ; I n p r i 0071600 m a r y c o m m a n d m e n 0071620 u w h e n P a s s i v e O n 0071640 l y i s t r u e \r i f A = 0071660 376 001 \0 344 022 4 0 0 0 0 \t ; I 0071700 n p r i m a r y c o m m a n 0071720 d m e n u w h e n P a s s 0071740 i v e O n l y i s f a l s e 0071760 \r \r ; T h e s e f l a g s 0072000 a p p l y t o a l l c o m 0072020 m a n d s \r i f E s c = 0072040 2 0 0 0 0 \t ; R e m e m b e r 0072060 t h i s a c t i o n a n d 0072100 r e p e a t f o r s u b s 0072120 e q u e n t < e s c > \r i f N 0072140 o R e s = 1 0 0 0 0 \t ; D 0072160 o n ' t r e s e t C m d C o 0072200 m m e n t S t r e a m a n d 0072220 C m d C S 1 b e f o r e a c 0072240 t i o n \r i f R e s E s c = 0072260 4 0 0 0 \t 376 001 \0 277 027 ; R e s e 0072300 t < e s c > a c t i o n t 0072320 o N o o p a f t e r t h i 0072340 s c o m m a n d \r i f T O 0072360 = 2 0 0 0 ; R e q u 0072400 i r e s p r e c e d i n g T 0072420 i m e O u t i n c o m m a n 0072440 d f i l e \r \r . A c t i o n B 0072460 l o c k : \r \r . B u g A d d r A 0072500 c t : \r \t B u g A n - . \r \t S e 0072520 t A d d r \r \t M P D M C h a n g 0072540 e \r \t A d d r T a b l e 0 \r \t 0 0072560 \r \r . B u g V a l A c t : \r \t B 0072600 u g V n - . \r \t S e t V a l u e 0072620 \r \t M P D M C h a n g e \r \t V a 0072640 l T a b l e 0 \r \t 0 \r \r ; A c 0072660 t i o n s i n A 376 001 \0 207 \a d 0072700 d r e s s M e n u \r . P l u s 1 0072720 A c t : \r \t P l u s n - . \r \t S 0072740 t e p A d d r \r \t M P D M C h a 0072760 n g e \r \t A d d r T a b l e 0 \r 0073000 \t i f E s c \r \r . M i n u s 1 A 0073020 c t : \r \t M i n n - . \r \t S t e 0073040 p A d d r \r \t M P D M C h a n g 0073060 e \r \t A d d r T a b l e 1 \r \t i 0073100 f E s c \r \r ; A c t i o n s 0073120 i n R a d i x M e n u ( 2 0073140 o f t h e s e 3 ) \r . O c t 0073160 A c t : \r \t O c t - . \r \t C h a 0073200 n g e R a d i x \r \t M P D M C h 0073220 a n g e \r \t V a l T a b l e 0 \r 0073240 \t 0 \r \r . D e c A c t : \r \t D e 0073260 c - . \r \t C h a n g e R a d i 376 0073300 001 \0 375 212 x \r \t M P D M C h a n g 0073320 e \r \t V a l T a b l e 1 \r \t 0 \r 0073340 \r . H e x A c t : \r \t H e x - . 0073360 \r \t C h a n g e R a d i x \r \t M 0073400 P D M C h a n g e \r \t V a l T a 0073420 b l e 2 \r \t 0 \r \r ; A c t i o 0073440 n s i n D i s p l a y M o d 0073460 e m e n u ( 2 o r t h e 0073500 s e 3 ) \r . N u m e r i c A c 0073520 t : \r \t N u m - . \r \t S h o w M 0073540 o d e \r \t M P D M C h a n g e \r 0073560 \t V a l T a b l e 0 \r \t 0 \r \r . 0073600 S e a r c h A c t : \r \t S e a r 0073620 c h - . \r \t S h o w M o d e \r \t 0073640 M P D M C h a n g e \r \t V a l T 0073660 a b l e 1 \r \t 0 \r \r . S y m b o 0073700 l i c A 376 001 \0 254 \0 c t : \r \t S y 0073720 m - . \r \t S h o w M o d e \r \t M 0073740 P D M C h a n g e \r \t V a l T a 0073760 b l e 2 \r \t 0 \r \r . C o l u m n 0074000 A c t : \r \t F i l l C - . \r \t F 0074020 i l l C o l u m n \r \t M P D M C 0074040 h a n g e \r \t A d d r T a b l e 0074060 0 \r \t 0 \r \r ; * * B e g i n 0074100 A c t i o n s a l w a y s a 0074120 p p e a r i n g i n m a i n 0074140 c o m m a n d m e n u * * \r 0074160 . F i r s t C m d A c t i o n : 0074200 \r . E x i t A c t : \r \t E x i t 0074220 n - . \r \t C m d F i n i s h \r \t 0074240 N o o p \r \t 0 \r \t i f P + i f A 0074260 + " Q \r \r . D e t a c h A c t : 0074300 \r \t D t a c h n - 376 001 \0 224 244 . \r 0074320 \t C m d R u n P r o g \r \t N o o 0074340 p \r \t 1 7 7 7 7 7 \r \t i f A + i 0074360 f P + i f R e s E s c \r \r \t R u 0074400 n p - . \r \t C m d R u n P r o g 0074420 \r \t N o o p \r \t 0 \r \t i f P + i 0074440 f A + i f R e s E s c \r \r \t R e 0074460 a d c - . \r \t C m d D o R C \r \t 0074500 N o o p \r \t R e a d C M e n u \r 0074520 \t i f P + i f A + i f R e s E s 0074540 c + i f N o R e s \r \r \t B r e a 0074560 k n - . \r \t C a l l W i t h A d 0074600 d r \r \t N o o p \r \t I n s e r t 0074620 B r e a k \r \t i f A + " B \r \r \t 0074640 K i l l B n - . \r \t C a l l W i 0074660 t h A d d r \r \t N o o p \r \t R e 0074700 m o v e B r e a k \r \t i f A 376 001 0074720 \0 Y 252 + " K \r \r \t C l r B p n - 0074740 . \r \t C l r B p \r \t N o o p \r \t 0074760 0 \r \t i f P + i f A + i f R e s 0075000 E s c \r \r \t C l r A l l B p n - 0075020 . \r \t C l r B p \r \t N o o p \r \t 0075040 1 7 7 7 7 7 \r \t i f P + i f A + 0075060 i f R e s E s c \r \r \t S h o w B 0075100 P n - . \r \t S h o w B P \r \t N o 0075120 o p \r \t 0 \r \t i f P + i f A + i 0075140 f R e s E s c \r \r \t S t a r t n 0075160 - . \r \t S t a r t W i t h A d d 0075200 r \r \t N o o p \r \t S t a r t M \r 0075220 \t i f P + i f A + i f E s c + i 0075240 f T O + " G \r \r \t S S n - . \r \t 0075260 S t a r t W i t h A d d r \r \t N 0075300 o o p \r \t S i n g l e S t e p M 0075320 \r \t i 376 001 \0 ! \b f P + i f A + i 0075340 f E s c + i f T O + " : \t ; " 0075360 : " a n d " ; S " s y n o 0075400 n y m s \r \r \t C o n t n - . \r \t 0075420 P r o c e e d M \r \t N o o p \r \t 0075440 S t a r t M \r \t i f P + i f A + 0075460 i f E s c + i f T O + " C \t ; 0075500 " ; C " a n d " ; P " s y 0075520 n o n y m s \r \r \t L o a d n - . 0075540 \r \t I n i t L o a d \r \t N o o p 0075560 \r \t L o a d M B \r \t i f A + i f 0075600 R e s E s c + " L \r \r \t L o a d 0075620 S n - . \r \t I n i t L o a d \r \t 0075640 N o o p \r \t L o a d S y m s \r \t 0075660 i f P + i f A + i f R e s E s c 0075700 \r \r \t C o m p n - . \r \t I n i t 0075720 L o a d \r \t N o 376 001 \0 K 221 o p \r 0075740 \t C o m p a r e M B \r \t i f A + 0075760 i f R e s E s c \t ; R e m o v 0076000 e d ; C h e r e \r \r ; \t P E 0076020 s c n - . \r ; \t S t a r t C m d 0076040 O v e r l a y \r ; \t N o o p \r ; 0076060 \t P E S c a n \r ; \t i f A + i f 0076100 R e s E s c \r \r \t T A l l n - . 0076120 \r \t S t a r t C m d O v e r l a 0076140 y \r \t N o o p \r \t T e s t A l l 0076160 \r \t i f A + i f R e s E s c \r \r 0076200 . L a s t C m d A c t i o n : \r 0076220 \t T e s t n - . \r \t S t a r t C 0076240 m d O v e r l a y \r \t N o o p \r 0076260 \t D a t a T e s t \r \t i f A + i 0076300 f R e s E s c + i f T O \r \r ; \t 0076320 R e p g n - . \r ; \t S t a 376 001 \0 0076340 263 275 r t W i t h A d d r \r ; \t N 0076360 o o p \r ; \t R e p e a t G o \r ; 0076400 \t i f P + i f A + i f E s c + i 0076420 f T O + " R \r \r ; \t R e p S n - 0076440 . \r ; \t S t a r t W i t h A d d 0076460 r \r ; \t N o o p \r ; \t R e p e a 0076500 t S S \r ; \t i f P + i f A + i f 0076520 E s c + i f T O + " S \r \r ; \t F 0076540 l d n - . \r ; \t S t a r t C m d 0076560 O v e r l a y \r ; \t N o o p \r ; 0076600 \t F i e l d T e s t \r ; \t i f A 0076620 + i f R e s E s c + i f T O \r \r 0076640 ; * * E n d o f A c t i o 0076660 n s a l w a y s i n m a i 0076700 n c o m m a n d m e n u * * 0076720 \r ; * * B e g i n i n v i s 0076740 i b 376 001 \0 G 026 l e , c o n d i 0076760 t i o n a l l y , o r u n u 0077000 s u a l l y d i s p l a y e d 0077020 A c t i o n s * * \r \r . V i r 0077040 t A c t : \r \t V i r t n - . \r \t 0077060 S e t V i r t P \r \t N o o p \r \t 0077100 1 7 7 7 7 7 \r \t i f N o R e s \r 0077120 \r . A b s A c t : \r \t A b s o n 0077140 - . \r \t S e t V i r t P \r \t N o 0077160 o p \r \t 0 \r \t i f N o R e s \r \r 0077200 \t L o a d d t - . \r \t I n i t L 0077220 o a d \r \t N o o p \r \t L o a d D 0077240 a t a \r \t 0 \r \r \t C o n t n - . 0077260 \t \t ; D e f i n e s " ; P " 0077300 a s s y n o n y m f o r 0077320 " ; C " \r \t P r o c e e d M \r \t 0077340 N o o p \r \t S 376 001 \0 345 N t a r t 0077360 M \r \t i f P + i f A + i f E s c 0077400 + i f T O + " P \r \r \t S S n - . 0077420 \t \t ; D e f i n e s " ; S " 0077440 a s s y n o n y m f o r 0077460 " : " \r \t S t a r t W i t h A d 0077500 d r \r \t N o o p \r \t S i n g l e 0077520 S t e p M \r \t i f P + i f A + i 0077540 f E s c + i f T O + " S \r \r \t A 0077560 d d r n - . \r \t C m d A d d r E 0077600 q \r \t N o o p \r \t 0 \r \t " = \r \r 0077620 ; \t C a l l n - . \r ; \t S t a r 0077640 t W i t h A r g s \r ; \t N o o p 0077660 \r ; \t C a l l M \r ; \t i f P + i 0077700 f A + i f E s c + i f T O + " ) 0077720 \r \r \t D i s p O f - . \r \t S e t 0077740 D i s p l a y \r \t N o o 376 001 \0 023 0077760 * p \r \t 1 7 7 7 7 7 \r \t i f N o 0100000 R e s + " O - 1 0 0 \r \r \t D i s 0100020 p O n - . \r \t S e t D i s p l a 0100040 y \r \t N o o p \r \t 0 \r \t i f N o 0100060 R e s + " D - 1 0 0 \r \r \t T i m 0100100 e O n - . \r \t C m d T i m e O u 0100120 t \r \t N o o p \r \t 0 \r \t i f N o 0100140 R e s \r \r \t C o n f n - . \r \t C 0100160 m d C o n f i r m \r \t N o o p \r 0100200 \t 0 \r \t i f N o R e s \r \r \t S k 0100220 i p n - . \r \t C m d S k i p C m 0100240 d \r \t N o o p \r \t 0 \r \t i f N o 0100260 R e s \r \r \t B S k i p n - . \r \t 0100300 C m d S k i p C m d \r \t N o o p 0100320 \r \t 1 7 7 7 7 7 \r \t i f N o R e 0100340 s \r \r \t R e t n - . \r \t C m d R 0100360 e 376 001 \0 033 ( t u r n \r \t N o o p 0100400 \r \t 0 \r \t i f N o R e s \r \r \t S 0100420 h o w n - . \r \t C m d S h o w E 0100440 r r o r \r \t N o o p \r \t 0 \r \t i 0100460 f R e s E s c \r \r \t O p e n n - 0100500 . \r \t C m d O p e n O u t p u t 0100520 \r \t N o o p \r \t 0 \r \t i f R e s 0100540 E s c + i f N o R e s \r \r \t A p 0100560 e n d n - . \r \t C m d O p e n O 0100600 u t p u t \r \t N o o p \r \t - 1 \r 0100620 \t i f R e s E s c + i f N o R e 0100640 s \r \r \t C l o s e n - . \r \t C m 0100660 d C l o s e O u t p u t \r \t N o 0100700 o p \r \t 0 \r \t i f R e s E s c + 0100720 i f N o R e s \r \r \t W r i t e m 0100740 - . \r \t C m d W r i t e M e s s 0100760 a g e \r \t N 376 001 \0 5 276 o o p \r \t 0101000 0 \r \t i f R e s E s c + i f N o 0101020 R e s \r \r \t D m p D s n - . \r \t 0101040 C m d D u m p D i s p l a y \r \t 0101060 N o o p \r \t 0 \r \t i f R e s E s 0101100 c + i f N o R e s \r \r \t P r t P 0101120 r n - . \r \t C m d P r e t t y P 0101140 r i n t \r \t N o o p \r \t 0 \r \t i 0101160 f R e s E s c \r \r . C m d D u m 0101200 p A c t : \r \t D u m p n - . \r \t 0101220 I n i t L o a d \r \t N o o p \r \t 0101240 D u m p M B \r \t i f R e s E s c 0101260 + " D \r \r . C m d S t a r t W C 0101300 A c t : \r \t S w c n - . \r \t C m 0101320 d S t a r t W C \r \t N o o p \r \t 0101340 0 \r \t 0 \r \r . C m d S t o p W C 0101360 A c t : \r \t S p w c n 376 001 \0 204 360 0101400 - . \r \t C m d S t o p W C \r \t N 0101420 o o p \r \t 0 \r \t 0 \r \r . C m d S 0101440 h o w C m d A c t : \r \t S h o c 0101460 n - . \r \t C m d S h o w C m d s 0101500 \r \t N o o p \r \t 1 7 7 7 7 7 \r \t 0101520 0 \r \r . C m d C o n c e a l A c 0101540 t : \r \t C o n c n - . \r \t C m d 0101560 S h o w C m d s \r \t N o o p \r \t 0101600 0 \r \t 0 \r \r . C m d E r r o r C 0101620 o n t i n u e A c t : \r \t C c o 0101640 n n - . \r \t E n d E r r o r \r \t 0101660 N o o p \r \t 1 7 7 7 7 7 \r \t 0 \r 0101700 \r . C m d E r r o r A b o r t A 0101720 c t : \r \t C a b o a - . \r \t E n 0101740 d E r r o r \r \t N o o p \r \t 0 \r 0101760 \t 0 \r \r . C m d C F i l e A b o 0102000 376 001 \0 310 264 r t A c t : \r \t C a b 0102020 C F - . \r \t C m d A b o r t C F 0102040 i l e \r \t N o o p \r \t 1 \r \t i f 0102060 R e s E s c + " Z - 1 0 0 \r \r \t 0102100 S k v e n - . \r \t S k i p V E q 0102120 l \r \t N o o p \r \t 0 \r \t i f N o 0102140 R e s \r \r \t S k v g n - . \r \t S 0102160 k i p V G r \r \t N o o p \r \t 0 \r 0102200 \t i f N o R e s \r \r \t S k v l n 0102220 - . \r \t S k i p V L s \r \t N o o 0102240 p \r \t 0 \r \t i f N o R e s \r \r \t 0102260 S k v g e - . \r \t S k i p V G r 0102300 E \r \t N o o p \r \t 0 \r \t i f N o 0102320 R e s \r \r \t S k v l e - . \r \t S 0102340 k i p V L s E \r \t N o o p \r \t 0 0102360 \r \t i f N o R e s \r \r \t S k v n 0102400 e - . \r \t 376 001 \0 212 211 S k i p V N 0102420 E q l \r \t N o o p \r \t 0 \r \t i f 0102440 N o R e s \r \r \t W r D T n - . \r 0102460 \t W r i t e D a y T i m e \r \t N 0102500 o o p \r \t 0 \r \t i f N o R e s \r 0102520 \r \t W r S t n - . \r \t C m d W r 0102540 i t e S t a t e \r \t N o o p \r \t 0102560 0 \r \t i f R e s E s c \r \r . C o 0102600 n T A l l A c t : \r \t C o n T A 0102620 l l - . \r \t S t a r t C m d O v 0102640 e r l a y \r \t N o o p \r \t C o n 0102660 t i n u e T A l l \r \t 0 \r \r . S 0102700 k i p T A l l A c t : \r \t S k p 0102720 T A l l - . \r \t S t a r t C m d 0102740 O v e r l a y \r \t N o o p \r \t S 0102760 k i p T A l l \r \t 0 \r \r . C o n 0103000 T A c t : \r \t C o n 376 001 \0 312 207 T 0103020 s t - . \r \t S t a r t C m d O v 0103040 e r l a y \r \t N o o p \r \t C o n 0103060 t i n u e T e s t \r \t i f T O \r 0103100 \r . F r e e R u n T A c t : \r \t 0103120 F r T s t - . \r \t S t a r t C m 0103140 d O v e r l a y \r \t N o o p \r \t 0103160 F r e e R u n T e s t \r \t i f T 0103200 O \r \r ; M I N I T 0 c o n v 0103220 e r t s t h e s p e c i a l 0103240 - . t o a b s o l u t e s 0103260 t r i n g p o i n t e r s \r . 0103300 H W C F A c t i o n s : \r \t t p 0103320 c - . \r \t E x e c u t e C F i l 0103340 e \r \t 0 \r \t s p e c i a l - . \r 0103360 \t 0 \r \r . L a s t A c t i o n : 0103400 \r \t t - . \r \t E x e c u t e C 376 0103420 001 \0 177 230 F i l e \r \t 2 \r \t s p e 0103440 c i a l - . \r \t 0 \r . L a s t H 0103460 W C F A c t i o n : \r \r \r . b l 0103500 k ( 5 * M a x A c t i o n s ) 0103520 - ( . L a s t A c t i o n - . A 0103540 c t i o n B l o c k ) \r \r . N o 0103560 o p A c t i o n : \r \t N o p A - 0103600 . \r \t B l i n k \r \t N o o p \r \t 0103620 0 \r \t i f N o R e s \r \r N o p A 0103640 : \t \t . t x t " N o o p " \r \r 0103660 ; M i d a s a c t i o n s 0103700 f o r n a m e - v a l u e m 0103720 e n u s \r B u g A n : \t \t . t x 0103740 t " A d d r " \r B u g V n : \t 0103760 \t . t x t " V a l " \r P l u s 0104000 n : \t \t . t x t " A + 1 " \r M 0104020 i n n : 376 001 \0 ; 376 \t \t . t x t 0104040 " A - 1 " \r O c t : \t \t . t x t 0104060 " O c t " \r D e c : \t \t . t x 0104100 t " D e c " \r H e x : \t \t . t 0104120 x t " H e x " \r N u m : \t \t . 0104140 t x t " N u m " \r S e a r c h 0104160 : \t \t . t x t " S e a r c h " 0104200 \r S y m : \t \t . t x t " S y m 0104220 " \r F i l l C : \t \t . t x t " 0104240 F i l l C " \r \r ; M i d a s 0104260 c o m m a n d - f i l e a c t 0104300 i o n s f o r n a m e - v a 0104320 l u e m e n u s \r S k v e n : 0104340 \t \t . t x t " S k i p E " \r S 0104360 k v g n : \t \t . t x t " S k i 0104400 p G " \r S k v l n : \t \t . t x t 0104420 " S k i p L " \r 376 001 \0 320 376 S k 0104440 v g e : \t \t . t x t " S k i p 0104460 G E " \r S k v l e : \t \t . t x t 0104500 " S k i p L E " \r S k v n e : 0104520 \t \t . t x t " S k i p N E " \r 0104540 \r ; M i d a s a c t i o n s 0104560 f o r c o m m a n d m e n 0104600 u \r E x i t n : \t \t . t x t " 0104620 E x i t " \r R u n p : \t \t . t x 0104640 t " R u n - P r o g " \r R e a 0104660 d c : \t \t . t x t " R e a d - 0104700 C m d s " \r B r e a k n : \t \t . 0104720 t x t " B r e a k " \r K i l l 0104740 B n : \t \t . t x t " U n B r e 0104760 a k " \r S t a r t n : \t \t . t x 0105000 t " G o " \r S S n : \t \t . t x 0105020 t " S S " \r L o a d n : \t 376 001 0105040 \0 P 242 \t . t x t " L o a d " \r 0105060 L o a d S n : \t \t . t x t " L 0105100 d S y m s " \r D u m p n : \t 0105120 . t x t " D u m p " \r C o m p 0105140 n : \t \t . t x t " C o m p a r 0105160 e " \r T A l l n : \t \t . t x t 0105200 " T e s t - A l l " \r T e s t n 0105220 : \t \t . t x t " T e s t " \r ; 0105240 R e p g n : \t \t . t x t " R e 0105260 p - G o " \r ; R e p S n : \t \t . 0105300 t x t " R e p - S S " \r ; F l 0105320 d n : \t \t . t x t " F i e l d 0105340 s " \r D t a c h n : \t \t . t x t 0105360 " B o o t " \t ; D i f f e r 0105400 e n t n a m e f o r D 0 \r 0105420 S w c n : \t \t . t x t " W r i 0105440 t e - 376 001 \0 272 U C m d s " \r 0105460 S p w c n : \t . t x t " S t o 0105500 p - W r i t e - C m d s " \r S h 0105520 o c n : \t \t . t x t " S h o w 0105540 - C m d s " \r C o n c n : \t 0105560 . t x t " C o n c e a l - C m 0105600 d s " \r \r ; K e y b o a r d 0105620 a c t i o n s \r A d d r n : \t \t 0105640 . t x t " A d d r = " \r D i s 0105660 p O f : \t \t . t x t " D i s p 0105700 l a y O f f " \r D i s p O n : \t 0105720 \t . t x t " D i s p l a y O n 0105740 " \r C o n T s t : \t \t . t x t 0105760 " C o n T s t " \r F r T s t : \t 0106000 \t . t x t " F r T s t " \r C o 0106020 n T A l l : \t . t x t " C o n 0106040 T A l l " \r S k 376 001 \0 025 026 p T A 0106060 l l : \t . t x t " S k i p T A 0106100 l l " \r \r ; M i d a s a c t 0106120 i o n s f o r c o m m a n d 0106140 f i l e s o n l y \r L o a d 0106160 d t : \t \t . t x t " L d D a t 0106200 a " \r C c o n n : \t \t . t x t 0106220 " C o n t i n u e " \r C a b o a 0106240 : \t \t . t x t " A b o r t " \r 0106260 C a b C F : \t \t . t x t " A b 0106300 o r t - C F i l e " \r T i m e O 0106320 n : \t \t . t x t " T i m e O u 0106340 t " \r C o n f n : \t \t . t x t 0106360 " C o n f i r m " \r S k i p n : 0106400 \t \t . t x t " S k i p " \r B S 0106420 k i p n : \t \t . t x t " B a c 0106440 k S k i p " \r R e t n : \t 376 001 \0 0106460 } C \t . t x t " R e t u r n " 0106500 \r S h o w n : \t \t . t x t " S 0106520 h o w E r r o r " \r O p e n n : 0106540 \t \t . t x t " O p e n O u t p 0106560 u t " \r A p e n d n : \t \t . t x 0106600 t " A p p e n d O u t p u t " 0106620 \r C l o s e n : \t \t . t x t " 0106640 C l o s e O u t p u t " \r W r i 0106660 t e m : \t \t . t x t " W r i t 0106700 e M e s s a g e " \r D m p D s n 0106720 : \t \t . t x t " D u m p D i s 0106740 p l a y " \r W r D T n : \t \t . t 0106760 x t " W r i t e D T " \r P r t 0107000 P r n : \t \t . t x t " P r e t 0107020 t y P r i n t " \r W r S t n : \t 0107040 \t . t x t " W r i t e S t a t 0107060 e " 376 001 \0 322 207 \r \r ; D 0 M i 0107100 d a s a c t i o n s f o r 0107120 c o m m a n d m e n u \r V i r 0107140 t n : \t \t . t x t " V i r t u 0107160 a l " \r A b s o n : \t . t x 0107200 t " A b s o l u t e " \r C o n 0107220 t n : \t \t . t x t " C o n t i 0107240 n u e " \r ; C a l l n : \t . t 0107260 x t " C a l l " \r C l r B p n 0107300 : \t \t . t x t " C l r A d d e 0107320 d B P s " \r C l r A l l B p n : 0107340 \t . t x t " C l r A l l B P s 0107360 " \r S h o w B P n : \t . t x t 0107400 " S h o w B P s " \r \r t p c : \t 0107420 \t . t x t " T P C " \r t : \t \t 0107440 . t x t " T " \r s p e c i a l 0107460 : \t . t x t 376 \0 020 357 363 " S P E 0107500 C I A L " \r \r . e n d \r 377 \0 \0 d 0107520 0 t a b l e s . a s m \0 373 227 374 ~ 0107540 375 \0 \0 376 001 \0 ) 232 ; D 0 T a b l 0107560 e s . A s m - - M i d a s / 0107600 D 0 m a c h i n e d e s c r 0107620 i p t i o n t a b l e s \r ; \t 0107640 L a s t e d i t e d : 2 0 0107660 O c t o b e r 1 9 8 1 \r \r . g 0107700 e t " d 0 r e g m e m . d " \r 0107720 \r ; M M P R G N \r . b e x t 0107740 R D a t a t o C S S , M D a t a 0107760 t o C S S , B a d A l t I n \r \r 0110000 ; D 0 P R I N 0 \r . b e x t 0110020 P r i n C Y C L E C O N T R O L 0110040 , P r i n P a r i t y , P r i n 0110060 B o o t R e a s o n , P r i n A 0110100 L U R e s u l t \r . b e x t P 0110120 r i n S A L U F , P r i n M N B 0110140 R , P r i n t M 376 001 \0 220 V A D D 0110160 R , P r i n A A T O V A , P r i 0110200 n t M A P , P r i n T a s k \r . 0110220 b e x t P r i n t W r d B y t 0110240 , P r i n I M A d d r \t ; A P 0110260 C , C I A , C A L L E R , 0110300 R E T U R N , T P C \r \r ; D 0110320 0 P R I N 1 \r . b e x t P r i 0110340 n I M \t \t ; I n s t r u c t i 0110360 o n \r \r ; D 0 T Y P E I N \r . 0110400 b e x t I n s t r u c t i o n 0110420 I n , W r d B y t I n \r \r ; D 0110440 e f i n e d h e r e \r . b e x 0110460 t z M E M N A M , M E M F O R 0110500 M S , M E M W I D , M E M L E N 0110520 , M E M C O N , N M E M S \r . b 0110540 e x t A l t M F o r m s 376 001 \0 0110560 346 357 , A l t M I n p u t \r . b e 0110600 x t z R E G N A M , R E G F O 0110620 R M S , R E G W I D , R E G C O 0110640 N , N R E G S \r . b e x t A l 0110660 t R F o r m s , A l t R I n p u 0110700 t \r \r . t x t m B \r \r . s r e 0110720 l \r \r A l t M F o r m s : \t . A 0110740 l t M F o r m s \r A l t R F o r 0110760 m s : \t . A l t R F o r m s \r A 0111000 l t M I n p u t : \t . A l t M I 0111020 n p u t \r A l t R I n p u t : \t 0111040 . A l t R I n p u t \r \r . z r e 0111060 l \r \r ; O r d e r r e g i s 0111100 t e r s a n d m e m o r i e 0111120 s i n t h e f o l l o w i 0111140 n g t a b l e s s o t h a 0111160 t 376 001 \0 377 005 T e s t A l l \r ; 0111200 w i l l t e s t t h e m 0111220 o s t b a s i c o n e s f 0111240 i r s t . \r \r M E M N A M : \t \t 0111260 . M N a m e \r M E M F O R M S : 0111300 \t . M F o r m \r M E M L E N : \t 0111320 \t . M L e n \r M E M W I D : \t \t 0111340 . M W i d \r M E M C O N : \t \t . 0111360 M C o n \r N M E M S : \t \t . M C 0111400 o n - . M W i d \r \r R E G N A M 0111420 : \t \t . R N a m e \r R E G F O R 0111440 M S : \t . R F o r m \r R E G W I 0111460 D : \t \t . R W i d \r R E G C O N 0111500 : \t \t . R C o n \r N R E G S : \t 0111520 \t . R C o n - . R W i d \r \f \r . 0111540 n r e l \r \r ; * N o t e t h 0111560 a t t h e 376 001 \0 P 202 t a b l 0111600 e s m u s t b e i n t h 0111620 e o r d e r g i v e n h e 0111640 r e b e c a u s e o f * \r ; 0111660 * t h e l e n g t h e r r 0111700 o r c h e c k s i n M I N 0111720 I T 0 . * \r . R N a m e : \t A P 0111740 C T A S K n - . \r \t A P C n - . 0111760 \r \t C T A S K n - . \r \t C I A n 0112000 - . \r \t C Y C L E C O N T R O L 0112020 n - . \r \t P A G E n - . \r \t P A 0112040 R I T Y n - . \r \t B O O T R E A 0112060 S O N n - . \r \t P C X R E G n - 0112100 . \r \t P C F R E G n - . \r \t D B 0112120 R E G n - . \r \t S B R E G n - . 0112140 \r \t M N B R n - . \r \t A L U R E 0112160 S U L T n - . \r \t S A L 376 001 \0 \t 0112200 ? U F n - . \r \t S S T K P n - . 0112220 \r \t S T K P n - . \r \t M E M S Y 0112240 N D R O M E n - . \r \t C A L L E 0112260 R n - . \r \t A A T O V A n - . \r 0112300 \r . R F o r m : \t 0 \t \t ; A P 0112320 C T A S K \r \t F o r m I M A d d 0112340 r - . \t ; A P C \r \t 0 \t \t ; 0112360 C T A S K \r \t F o r m I M A d d 0112400 r - . \t ; C I A \r \t 0 \t \t ; 0112420 C Y C L E C O N T R O L \r \t 0 \t 0112440 \t ; P A G E \r \t 0 \t \t ; P A 0112460 R I T Y \r \t 0 \t \t ; B O O T R 0112500 E A S O N \r \t 0 \t \t ; P C X R 0112520 E G \r \t 0 \t \t ; P C F R E G \r 0112540 \t 0 \t \t ; D B R E G \r \t 0 \t \t 0112560 ; S B R E G \r \t 0 \t \t ; M N 0112600 B 376 001 \0 372 9 R \r \t 0 \t \t ; A L 0112620 U R E S U L T \r \t 0 \t \t ; S A 0112640 L U F \r \t 0 \t \t ; S S T K P \r 0112660 \t 0 \t \t ; S T K P \r \t 0 \t \t ; 0112700 M E M S Y N D R O M E \r \t F o 0112720 r m I M A d d r - . \t ; C A L 0112740 L E R \r \t F o r m A A T O V A - 0112760 . \t ; A A T O V A \r \f \r . R W 0113000 i d : \t 4 \t \t ; A P C T A S K 0113020 \r \t 1 4 \t \t ; A P C \r \t 4 \t \t 0113040 ; C T A S K \r \t 1 4 \t \t ; C 0113060 I A \r \t 1 0 \t \t ; C Y C L E C 0113100 O N T R O L \r \t 4 \t \t ; P A G 0113120 E \r \t 4 \t \t ; P A R I T Y \r \t 0113140 1 0 \t \t ; B O O T R E A S O N 0113160 \r \t 4 \t \t ; P C X R E G \r \t 4 0113200 \t \t ; P C 376 001 \0 356 374 F R E G \r 0113220 \t 6 \t \t ; D B R E G \r \t 6 \t \t 0113240 ; S B R E G \r \t 2 0 \t \t ; M 0113260 N B R \r \t 4 \t \t ; A L U R E S 0113300 U L T \r \t 1 0 \t \t ; S A L U F 0113320 \r \t 1 0 \t \t ; S S T K P \r \t 1 0113340 0 \t \t ; S T K P \r \t 2 0 \t \t ; 0113360 M E M S Y N D R O M E \r \t 1 4 0113400 \t \t ; C A L L E R \r \t 2 0 \t \t 0113420 ; A A T O V A \r \r ; * * S e 0113440 e M R T y p e s t r u c t u 0113460 r e i n M C O M M O N . D * 0113500 * \r ; B i t 0 = v a l u 0113520 e c a n b e a c c e s s e 0113540 d w h e n m a c h i n e i 0113560 s r u n n i n g ; r e a d 0113600 i s o k \r ; \t i f 376 001 \0 - 307 0113620 p a s s i v e - r e a d b i t 0113640 i s s e t , w r i t e o 0113660 k i f p a s s i v e - w r i 0113700 t e b i t s e t \r ; B i t 0113720 1 = d e f i n e d ( = 0113740 c a n b e e x a m i n e d 0113760 o n t h e d i s p l a y ) \r 0114000 ; B i t 2 t o 4 = - 0114020 - \r ; B i t 5 = c a n 0114040 b e r e a d p a s s i v e l 0114060 y \r ; B i t 6 = r e a d 0114100 - o n l y \r ; B i t 7 = 0114120 c a n b e w r i t t e n p 0114140 a s s i v e l y \r ; B i t 1 0114160 0 = l o o k f o r S y m 0114200 b o l s w i t h S e a r c h 0114220 376 001 \0 ' 331 B l o c k s ( m e m o 0114240 r i e s o n l y ) \r ; B i t 0114260 s 1 1 - 1 2 = d e f a u l 0114300 t r a d i x ( 0 = o c t a l 0114320 , 1 = d e c i m a l , 2 = h 0114340 e x ) \r ; B i t s 1 3 - 1 4 0114360 = d e f a u l t d i s p l 0114400 a y m o d e ( 0 = n u m e r 0114420 i c , 1 = S e a r c h B l o c 0114440 k s , 2 = s y m b o l i c ) \r 0114460 ; B i t 1 5 = a u t o m 0114500 a t i c p r e t t y p r i n t 0114520 \r ; B i t 1 6 = a l w a 0114540 y s r e a d v a l u e a n 0114560 d u p d a t e d i s p l a y 0114600 i f n e c e s s a r y \r ; 0114620 B i t 1 376 001 \0 263 023 7 = t e 0114640 s t e d i n " T e s t - A l 0114660 l " \r . R C o n : \t 4 0 0 0 0 0114700 \t \t ; A P C T A S K \r \t 4 0 0114720 0 0 0 \t \t ; A P C \r \t 4 0 0 0114740 0 0 \t \t ; C T A S K \r \t 4 0 0114760 0 1 0 \t \t ; C I A \r \t 4 0 0 0115000 0 4 \t \t ; C Y C L E C O N T R 0115020 O L \r \t 4 1 0 0 0 \t \t ; P A 0115040 G E \r \t 4 1 0 0 0 \t \t ; P A 0115060 R I T Y \r \t 4 1 0 0 0 \t \t ; 0115100 B O O T R E A S O N \r \t 4 1 0 0115120 0 0 \t \t ; P C X R E G \r \t 4 0115140 1 0 0 0 \t \t ; P C F R E G \r \t 0115160 4 0 0 0 1 \t \t ; D B R E G \r 0115200 \t 4 0 0 0 1 \t \t ; S B R E G 0115220 \r \t 4 0 0 0 0 \t \t 376 001 \0 245 243 ; 0115240 M N B R \r \t 4 0 0 0 4 \t \t ; 0115260 A L U R E S U L T \r \t 4 0 0 0115300 0 5 \t \t ; S A L U F \r \t 4 1 0115320 0 0 0 \t \t ; S S T K P \r \t 4 0115340 0 0 0 1 \t \t ; S T K P \r \t 4 0115360 1 0 0 0 \t \t ; M E M S Y N D R 0115400 O M E \r \t 4 1 0 1 0 \t \t ; C 0115420 A L L E R \r \t 1 4 2 4 0 4 \t \t ; 0115440 A A T O V A \r \f \r . A l t R F 0115460 o r m s : \r \t P r i n T a s k \t 0115500 \t ; A P C T A S K \r \t P r i n 0115520 I M A d d r \t \t ; A P C \r \t P 0115540 r i n T a s k \t \t ; C T A S K 0115560 \r \t P r i n I M A d d r \t \t ; 0115600 C I A \r \t P r i n C Y C L E C O 0115620 N T R O L \t ; C Y C L E C O 376 0115640 001 \0 - 375 N T R O L \r \t R D a t a 0115660 t o C S S \t \t ; P A G E \r \t P 0115700 r i n P a r i t y \t \t ; P A R 0115720 I T Y \r \t P r i n B o o t R e a 0115740 s o n \t \t ; B O O T R E A S O 0115760 N \r \t R D a t a t o C S S \t \t ; 0116000 P C X R E G \r \t R D a t a t o 0116020 C S S \t \t ; P C F R E G \r \t R 0116040 D a t a t o C S S \t \t ; D B R 0116060 E G \r \t R D a t a t o C S S \t \t 0116100 ; S B R E G \r \t P r i n M N B 0116120 R \t \t ; M N B R \r \t P r i n A 0116140 L U R e s u l t \t \t ; A L U R 0116160 E S U L T \r \t P r i n S A L U F 0116200 \t \t ; S A L U F \r \t R D a t a 0116220 t o C S S \t \t ; S S T K P \r \t 0116240 R D a t 376 001 \0 033 323 a t o C S S \t 0116260 \t ; S T K P \r \t P r i n t W r 0116300 d B y t \t \t ; M E M S Y N D R 0116320 O M E \r \t P r i n I M A d d r \t 0116340 \t ; C A L L E R \r \t P r i n A 0116360 A T O V A \t \t ; A A T O V A \r 0116400 \r . A l t R I n p u t : \r \t B a 0116420 d A l t I n \t \t ; A P C T A S 0116440 K \r \t B a d A l t I n \t \t ; A 0116460 P C \r \t B a d A l t I n \t \t ; 0116500 C T A S K \r \t B a d A l t I n \t 0116520 \t ; C I A \r \t B a d A l t I n 0116540 \t \t ; C Y C L E C O N T R O L 0116560 \r \t B a d A l t I n \t \t ; P A 0116600 G E \r \t B a d A l t I n \t \t ; 0116620 P A R I T Y \r \t B a d A l t I n 0116640 \t \t ; B O O T R 376 001 \0 L 324 E A 0116660 S O N \r \t B a d A l t I n \t \t ; 0116700 P C X R E G \r \t B a d A l t I 0116720 n \t \t ; P C F R E G \r \t B a d 0116740 A l t I n \t \t ; D B R E G \r \t 0116760 B a d A l t I n \t \t ; S B R E 0117000 G \r \t W r d B y t I n \t \t ; M 0117020 N B R \r \t B a d A l t I n \t \t ; 0117040 A L U R E S U L T \r \t B a d A 0117060 l t I n \t \t ; S A L U F \r \t B 0117100 a d A l t I n \t \t ; S S T K P 0117120 \r \t B a d A l t I n \t \t ; S T 0117140 K P \r \t B a d A l t I n \t \t ; 0117160 M E M S Y N D R O M E \r \t B a d 0117200 A l t I n \t \t ; C A L L E R \r 0117220 \t B a d A l t I n \t \t ; A A T 0117240 O V A \r \f \r . M N a m e : \t 376 001 0117260 \0 232 220 I M n - . \r \t I M X n - . 0117300 \r \t R M n - . \r \t T n - . \r \t T 0117320 P C n - . \r \t V M n - . \r \t M A 0117340 P n - . \r \t B P n - . \r \t M I M 0117360 n - . \r \t M D A T A n - . \r \t M 0117400 A D D R n - . \r \r . M F o r m : 0117420 \t F o r m I M v - . \t ; I M \r 0117440 \t F o r m I M a - . \t ; I M X 0117460 \r \t 0 \t \t ; R M \r \t 0 \t \t ; 0117500 T \r \t F o r m I M A d d r - . \t 0117520 ; T P C \r \t 0 \t \t ; V M \r \t 0117540 0 \t \t ; M A P \r \t F o r m B P 0117560 - . \t ; B P \r \t F o r m I M m 0117600 - . \t ; M I M \r \t F o r m I M 0117620 a - . \t ; M D A T A ( m o d 0117640 i f i e d d y n a m i c a l l 0117660 y ) \r 376 001 \0 376 K \t F o r m 3 2 - 0117700 . \t ; M A D D R \r \r ; D o u 0117720 b l e - p r e c i s i o n m e 0117740 m o r y l e n g t h s \r . M L 0117760 e n : \t 0 \t \t ; I M 0120000 \r \t I M l e n \r \t 0 0120020 \t \t ; I M X \r \t 1 0 0 0 0 \r 0120040 \t 0 \t \t ; R M \r \t 0120060 4 0 0 \r \t 0 \t \t ; 0120100 T \r \t 2 0 \r \t 0120120 0 \t \t ; T P C \r \t 2 0120140 0 \r \t 1 0 0 \t \t ; V M \r 0120160 \t 0 \r \t 0 \t 0120200 \t ; M A P \r \t 4 0 0 0 0 \r \t 0120220 0 \t \t ; B P \r \t B 0120240 P l e n \r \t 0 \t \t ; 0120260 M I M \r \t M I M 376 001 \0 3 J l e n 0120300 \r \t 0 \t \t ; M D A T 0120320 A \r \t M D A T A l e n \r \t 0120340 0 \t \t ; M A D D R \r \t M A 0120360 D D R l e n \r \r . M W i d : \t 1 0120400 0 0 \t \t ; I M \r \t 4 4 \t \t ; 0120420 I M X \r \t 2 0 \t \t ; R M \r 0120440 \t 2 0 \t \t ; T \r \t 1 4 \t \t 0120460 ; T P C \r \t 2 0 \t \t ; V M 0120500 \r \t 2 0 \t \t ; M A P \r \t 1 0 0120520 0 \t \t ; B P \r \t 6 0 \t \t ; 0120540 M I M \r \t M D A T A w i d \t ; 0120560 M D A T A ( m o d i f i e d 0120600 d y n a m i c a l l y ) \r \t 4 0120620 0 \t \t ; M A D D R \r \f \r ; B 0120640 i t 0 = v a l u e c a n 0120660 b e a c c e s s e d 376 001 \0 0120700 ) 9 w h e n m a c h i n e i 0120720 s r u n n i n g ; r e a d 0120740 i s o k i f \r ; \t p a s s i 0120760 v e - r e a d i s a l s o 0121000 t r u e , w r i t e o k i 0121020 f p a s s i v e - w r i t e 0121040 i s t r u e . \r ; B i t 1 0121060 = d e f i n e d ( c a n 0121100 b e p u t o n t h e d i 0121120 s p l a y ) \r ; B i t 2 = 0121140 f l u s h s y m b o l s i 0121160 n " L o a d " o r " D u m 0121200 p " ( f o r f a k e m e m 0121220 o r i e s \r ; \t u s e d o n l 0121240 y a s a r t i f a c t s o 0121260 f t h e a s s e m b l y ) \r 0121300 ; 376 001 \0 202 252 B i t 3 = r 0121320 e t a i n s y m b o l e v e 0121340 n i n " L d D a t a " \r ; 0121360 B i t 4 = h a s p a r i 0121400 t y ( a p p e a r s i n P 0121420 E - s c a n m e n u ) \r ; B 0121440 i t 5 = c a n b e r e 0121460 a d p a s s i v e l y \r ; B 0121500 i t 6 = r e a d - o n l y 0121520 \r ; B i t 7 = c a n b 0121540 e w r i t t e n p a s s i v 0121560 e l y \r ; B i t 1 0 = l 0121600 o o k f o r s y m b o l s 0121620 w i t h S e a r c h B l o c k 0121640 s \r ; B i t s 1 1 - 1 2 d 0121660 e f a u l t r a d i x ( 0 = 0121700 o c t a l , 376 001 \0 ` 377 1 = d e 0121720 c i m a l , 2 = h e x ) \r ; 0121740 B i t s 1 3 - 1 4 = d e f 0121760 a u l t d i s p l a y m o d 0122000 e ( 0 = n u m e r i c , 1 = 0122020 S e a r c h B l o c k s , \r ; \t 0122040 2 = s y m b o l i c ) \r ; B i 0122060 t 1 5 = p r e t t y - p r 0122100 i n t v a l u e a f t e r 0122120 A + 1 / A - 1 a n d S e t V 0122140 a l u e a c t i o n s \r ; B 0122160 i t 1 6 = a l w a y s r 0122200 e a d v a l u e a n d u p 0122220 d a t e d i s p l a y \r ; B 0122240 i t 1 7 = t e s t e d b 0122260 y " T e s t - A l l " \r . M C 0122300 o n : \t 4 0 2 0 4 \t ; 376 001 \0 a 0122320 224 I M \r \t 4 4 0 0 5 \t ; I 0122340 M X \r \t 4 4 2 0 1 \t ; R M \r 0122360 \t 4 0 0 0 1 \t ; T \r \t 4 0 0122400 0 0 1 \t ; T P C \r \t 4 0 0 0 0122420 0 \t ; V M \r \t 4 0 0 0 4 \t ; 0122440 M A P \r \t 4 3 0 0 0 \t ; B 0122460 P \r \t 1 4 2 6 0 4 \t ; M I M 0122500 ( s u b s t i t u t e t a r g 0122520 e t f o r I M b e f o r e 0122540 I n i t i a l i z e d ) \r \t 1 0122560 5 2 6 0 4 \t ; M D A T A \r \t 1 0122600 5 2 6 0 4 \t ; M A D D R \r \r . 0122620 A l t M F o r m s : \r \t P r i n 0122640 I M \t \t ; I M \r \t P r i n I M 0122660 \t \t ; I M X \r \t P r i n t W r 0122700 d B y t \t ; R M \r \t P r i n t 0122720 W 376 001 \0 222 P r d B y t \t ; T \r 0122740 \t P r i n I M A d d r \t ; T P 0122760 C \r \t P r i n t W r d B y t \t ; 0123000 V M \r \t P r i n t M A P \t ; 0123020 M A P \r \t M D a t a t o C S S \t 0123040 ; B P \r \t P r i n I M \t \t ; 0123060 M I M \r \t M D a t a t o C S S \t 0123100 ; M D A T A \r \t P r i n t M A 0123120 D D R \t ; M A D D R \r \r . A l 0123140 t M I n p u t : \r \t I n s t r u 0123160 c t i o n I n \t ; I M \r \t I n 0123200 s t r u c t i o n I n \t ; I M 0123220 X \r \t W r d B y t I n \t ; R M 0123240 \r \t W r d B y t I n \t ; T \r \t 0123260 B a d A l t I n \t ; T P C \r \t 0123300 W r d B y t I n \t ; V M \r \t B 0123320 a d A l t I 376 001 \0 004 001 n \t ; M 0123340 A P \r \t B a d A l t I n \t ; B 0123360 P \r \t I n s t r u c t i o n I n 0123400 \t ; M I M \r \t B a d A l t I n 0123420 \t ; M D A T A \r \t B a d A l t 0123440 I n \t ; M A D D R \r \f \r A P C 0123460 T A S K n : \t . t x t " A P C 0123500 T A S K " \r A P C n : \t \t . t x 0123520 t " A P C " \r C T A S K n : \t 0123540 \t . t x t " C T A S K " \r C I 0123560 A n : \t \t . t x t " C I A " \r 0123600 C Y C L E C O N T R O L n : \t . 0123620 t x t " C Y C L E C O N T R O 0123640 L " \r P A G E n : \t \t . t x t 0123660 " P A G E " \r P A R I T Y n : \t 0123700 . t x t " P A R I T Y " \r B O 0123720 O T R E A S O N n : \t 376 001 \0 + _ 0123740 . t x t " B O O T R E A S O N 0123760 " \r P C X R E G n : \t . t x t 0124000 " P C X R E G " \r P C F R E G n 0124020 : \t . t x t " P C F R E G " \r 0124040 D B R E G n : \t \t . t x t " D 0124060 B R E G " \r S B R E G n : \t \t . 0124100 t x t " S B R E G " \r M N B R 0124120 n : \t \t . t x t " M N B R " \r 0124140 A L U R E S U L T n : \t . t x t 0124160 " A L U R E S U L T " \r S A L 0124200 U F n : \t \t . t x t " S A L U 0124220 F " \r S S T K P n : \t \t . t x t 0124240 " S S T K P " \r S T K P n : \t 0124260 \t . t x t " S T K P " \r M E M 0124300 S Y N D R O M E n : \t . t x t 0124320 " M E M S Y N D R O M E " \r C A 0124340 376 001 \0 X B L L E R n : \t . t x t 0124360 " C A L L E R " \r A A T O V A 0124400 n : \t . t x t " A A T O V A " 0124420 \r \r I M n : \t \t . t x t " I M 0124440 " \r I M X n : \t \t . t x t " I 0124460 M X " \r R M n : \t \t . t x t " 0124500 R M " \r T n : \t \t . t x t " T 0124520 " \r T P C n : \t \t . t x t " T 0124540 P C " \r V M n : \t \t . t x t " 0124560 V M " \r M A P n : \t \t . t x t 0124600 " M A P " \r B P n : \t \t . t x t 0124620 " B P " \r M I M n : \t \t . t x 0124640 t " M I M " \r M D A T A n : \t 0124660 \t . t x t " M D A T A " \r M A 0124700 D D R n : \t \t . t x t " M A D 0124720 D R " \r \f \r ; F o r m a t t 0124740 a b l e s 376 001 \0 024 330 a r e : \r 0124760 ; W o r d 0 : N u m b e r 0125000 o f w o r d - p a i r s \r ; 0125020 W o r d s 1 a n d 2 : 0125040 F i r s t b i t a n d n u 0125060 m b e r o f b i t s \r ; W 0125100 o r d s 3 a n d 4 , e t 0125120 c . s a m e a s w o r d s 0125140 1 a n d 2 \r ; T h e b 0125160 i t s s e l e c t e d b y 0125200 a p a i r a r e p r i n t 0125220 e d i n o c t a l f o l l 0125240 o w e d b y a b l a n k \r 0125260 ; t h e n t h e n e x t 0125300 g r o u p , e t c . \r ; G o 0125320 i n g b a c k w a r d f r o 0125340 m t h e p o i n 376 001 \0 351 225 t 0125360 e r : \r ; W o r d - 1 : M 0125400 e m X u s e d i n S e a r 0125420 c h B l o c k s D i s p l a y 0125440 M o d e ( - 1 i f u n m e 0125460 a n i n g f u l ) \r ; W o r d 0125500 - 2 : l v P r o c e d u r 0125520 e f o r s y m b o l i c D 0125540 i s p l a y M o d e ( 0 i f 0125560 u n m e a n i n g f u l ) \r \r 0125600 \t 0 \r \t I M x \r F o r m I M A d 0125620 d r : \r \t 1 \r \t 0 \r \t 1 4 \r \r \t 0125640 0 \r \t I M x \r F o r m A A T O V 0125660 A : \r \t 1 \r \t 0 \r \t 2 0 \r \r \t 0 0125700 \r \t - 1 \r F o r m I M v : \r \t 0125720 4 \r \t 6 4 \r \t 1 4 \r \t 4 0 \r \t 0125740 4 \r \t 0 \r \t 2 0 \r \t 2 0 \r \t 376 0125760 \0 312 ) [ 2 0 \r \r \t 0 \r \t - 1 \r F 0126000 o r m I M a : \r \t 3 \r \t 4 0 \r 0126020 \t 4 \r \t 0 \r \t 2 0 \r \t 2 0 \r 0126040 \t 2 0 \r \r \t 0 \r \t - 1 \r F o r 0126060 m I M m : \r \t 4 \r \t 4 4 \r \t 1 0126100 4 \r \t 4 0 \r \t 4 \r \t 0 \r \t 2 0126120 0 \r \t 2 0 \r \t 2 0 \r \r \t 0 \r \t - 0126140 1 \r F o r m B P : \r \t 5 \r \t 6 0126160 3 \r \t 1 \r \t 6 4 \r \t 1 4 \r \t 4 0126200 0 \r \t 4 \r \t 0 \r \t 2 0 \r \t 2 0126220 0 \r \t 2 0 \r \r \t 0 \r \t - 1 \r F o 0126240 r m 3 2 : \t 2 \r \t 0 \r \t 2 0 \r \t 0126260 2 0 \r \t 2 0 \r \r \r . e n d \r 377 \0 0126300 \0 d 0 a s m . a s m \0 373 227 374 260 h 0126320 \0 \0 376 001 \0 202 325 ; D 0 A s m . A 0126340 s m - - M i d a s / D 0 r 0126360 e s i d e n t i n t e r f a c 0126400 e p r o c e d u r e s \r ; \t L 0126420 a s t e d i t e d : 2 0 O 0126440 c t o b e r 1 9 8 1 \r \r . g e 0126460 t " m a s m c o m m o n . d " 0126500 \r . g e t " d 0 r e g m e m . 0126520 d " \r \r ; O S \r . b e x t Z 0126540 e r o \r \r ; M C M D \r . b e x 0126560 t E r r o r A b o r t \r \r ; 0126600 M D A T A \r . b e x t B a d A 0126620 T e x t , M D A T A t a b , M A 0126640 D D R t a b , M C T i m e O u t 0126660 \r \r ; M A S M \r . b e x t z 0126700 O d d P a r i t y , M S a v e 2 0126720 , M C o u n t 376 001 \0 377 b \r \r ; 0126740 D 0 T A B L E S \r . b e x t z 0126760 N M E M S , M E M L E N \r \r ; 0127000 D 0 I 0 \r . b e x t D V x , M 0127020 I M t a b \r \r ; D e f i n e d 0127040 h e r e \r . b e x t G F r a 0127060 m e X , C e r t i f y A V , C o 0127100 n v e r t A V \r . b e x t r e 0127120 c v b y t e , r e c v w o r d , 0127140 s e n d b y t e , s e n d w o r 0127160 d \r . b e x t R e a d P r i n 0127200 t e r , W r i t e P r i n t e r 0127220 , d 0 r e c v b y t e , d 0 r e 0127240 c v w o r d , d 0 s e n d b y t 0127260 e , d 0 s e n d w o r d \r . b e 0127300 x t s t R e a d O n l y , s t 0127320 P a s s i v e , s t U n 376 001 \0 004 0127340 344 d A d r , s t N o t I M A , s 0127360 t N o t I n V M , s t R u n n i 0127400 n g \r \r . b e x t z M A D D R 0127420 H , M A D D R L , u t i l o u t 0127440 , u t i l i n \r \r . t x t m B 0127460 \r \r . z r e l \r \r M A D D R L : 0127500 \t \t 0 \r M A D D R H : \t \t 0 \r u 0127520 t i l o u t : \t 1 7 7 0 1 6 \r u 0127540 t i l i n : \t \t 1 7 7 0 3 0 \r \r 0127560 . s r e l \r \r G F r a m e X : \t 0127600 . G F r a m e X \r C e r t i f y 0127620 A V : \t . C e r t i f y A V \r C 0127640 o n v e r t A V : \t . C o n v e 0127660 r t A V \r r e c v b y t e : \t . 0127700 r e c v b y t e \r r e c v w o r 0127720 d : \t . r e c v w o r d \r s e n 0127740 d 376 001 \0 4 # b y t e : \t . s e n 0127760 d b y t e \r s e n d w o r d : \t 0130000 . s e n d w o r d \r R e a d P r 0130020 i n t e r : \t . R e a d P r i n 0130040 t e r \r W r i t e P r i n t e r 0130060 : \t . W r i t e P r i n t e r \r 0130100 d 0 r e c v b y t e : \t . d 0 r 0130120 e c v b y t e \r d 0 r e c v w o 0130140 r d : \t . d 0 r e c v w o r d \r 0130160 d 0 s e n d b y t e : \t . d 0 s 0130200 e n d b y t e \r d 0 s e n d w o 0130220 r d : \t . d 0 s e n d w o r d \r 0130240 s t R e a d O n l y : \t . s t R 0130260 e a d O n l y \r s t P a s s i v 0130300 e : \t . s t P a s s i v e \r s t 0130320 U n d A d r : \t . s t U n d A d 0130340 r \r s t N o 376 001 \0 026 o t I M A : 0130360 \t . s t N o t I M A \r s t N o t 0130400 I n V M : \t . s t N o t I n V M 0130420 \r s t R u n n i n g : \t . s t R 0130440 u n n i n g \r \r . n r e l \r \r . 0130460 s t R e a d O n l y : \t . t x t 0130500 " R e a d - o n l y " \r . s t 0130520 P a s s i v e : \t . t x t " I 0130540 l l e g a l t o w r i t e 0130560 w h i l e P a s s i v e " \r . 0130600 s t U n d A d r : \t . t x t " 0130620 U n d e f i n e d a d d r e s 0130640 s " \r . s t N o t I M A : \t . t 0130660 x t " ? ? N o t I M a d d 0130700 r e s s ? ? " \r . s t N o t I n 0130720 V M : \t . t x t " ? ? N o t 0130740 i n V M ? ? " \r . s 376 001 \0 327 025 0130760 t R u n n i n g : \t . t x t " 0131000 I l l e g a l t o w r i t e 0131020 w h i l e r u n n i n g " \r 0131040 \r ; S u b r o u t i n e u s 0131060 i n g n e w G e t F r a m e 0131100 i n s t r u c t i o n - - r e 0131120 p l a c e s G e t F r a m e 0131140 p r o c e d u r e \r . G F r a m 0131160 e X : \r \t G t F r a m e \r \t 7 7 0131200 4 0 0 \t \t ; C a l l S w a t ( 0131220 ) i f s t a c k o v e r f 0131240 l o w \r \f \r ; * * B e g i n n 0131260 i n g o f c o d e f o r 0131300 C e r t i f y A V * * \r ; S p 0131320 e c i a l k l u d g e t o 0131340 d e f a u l t a d d r e s s 0131360 376 001 \0 P 243 e q m e m o r y l 0131400 e n g t h t o a r e a s o 0131420 n a b l e v a l u e . \r ; H 0131440 a v e 1 / L e n g t h a n 0131460 d 0 / A d d r V e c ! 1 \r C 0131500 e r t X : \t s u b # 1 0 s 0131520 z r \r \t j m p C e r t B a d \t 0131540 ; E r r o r i f a d d r e 0131560 s s # m e m o r y l e n g 0131600 t h \r \t j s r C e r t X 1 \r \t 0131620 j m p C e r t B a d \t ; I 0131640 M \r \t j m p C e r t B a d \t 0131660 ; I M X \r \t j m p C e r t 0131700 B a d \t ; R M \r \t j m p C 0131720 n v T a s k \t ; T \r \t j m p 0131740 C n v T a s k \t ; T P C \r \t 0131760 j m p 376 001 \0 w 230 C e r t B a 0132000 d \t ; V M \r \t j m p C e r 0132020 t B a d \t ; M A P \r \t j m p 0132040 C e r t B a d \t ; B P \r \t 0132060 j m p C e r t B a d \t ; M I 0132100 M \r \t j m p C e r t B a d \t 0132120 ; M D A T A \r \t j m p C e 0132140 r t B a d \t ; M A D D R \r C e 0132160 r t X 1 : \t l d a 0 5 2 \r 0132200 \t a d d 0 3 \r \t j m p 0 0132220 3 \r \r ; T 2 0 a n d T P 0132240 C 2 0 = T ( C T A S K ) 0132260 a n d T P C ( C T A S K ) . \r 0132300 C n v T a s k : \r \t l d a 3 0132320 @ l v D V x \r \t l d a 0 7 0132340 3 ; O f f s e t o f C T 0132360 A S K \r \t c y c l e 376 001 \0 340 211 0132400 4 \r \t l d a 1 c a v 1 7 \r \t 0132420 a n d 1 0 \r \t s t a 0 M 0132440 A D D R L \t ; M A D D R L = 0132460 C T A S K \r \t j m p C e r t 0132500 O K \r \r l v D V x : \t D V x \r c 0132520 a v 1 7 : \t 1 7 \r \r ; C e r t 0132540 i f y A V ( A V e c , M e m X ) 0132560 r e t u r n s t r u e i f 0132600 A V e c i s a l e g a l 0132620 a d d r e s s i n M e m X 0132640 , \r ; e l s e f a l s e \r . 0132660 C e r t i f y A V : \r \t s t a 0132700 3 1 2 \r \t j s r @ G e t F 0132720 r a m e \r \t 1 0 \r \t j s r @ 0132740 S t A r g s \r \t l d a 1 5 0132760 2 \t ; M e m X \r \t l d a 3 376 0133000 001 \0 316 \b N M E M S \r \t s u b l 0133020 # 1 3 s z c \t ; s k i p 0133040 i f l e g a l M e m X \r \t 0133060 7 7 4 0 0 \t \t ; e l s e C 0133100 a l l S w a t \r \t l d a 3 4 0133120 2 \t ; A V e c \r \t l d a 0 0133140 1 3 \r \t s t a 0 M A D D 0133160 R L \t ; M A D D R L = A V 0133200 e c ! 1 \r \t l d a 0 0 3 \r 0133220 \t s t a 0 M A D D R H \t ; 0133240 M A D D R H = A V e c ! 0 \r 0133260 \t l d a 3 M E M L E N \r \t a 0133300 d d 1 3 \r \t a d d 1 3 \r 0133320 \t l d a 1 0 3 \t ; M E M 0133340 L E N ! ( M e m X + M e m X ) \r 0133360 \t s u b # 1 0 s z r \t ; 0133400 S k i p 376 001 \0 265 265 i f h i g 0133420 h p a r t s e q u a l \r \t 0133440 j m p C e r t 1 \r \t l d a 1 0133460 1 3 \t ; M E M L E N ! ( M 0133500 e m X + M e m X + 1 ) \r \t l d a 0133520 0 M A D D R L \r C e r t 1 : 0133540 \t a d c z # 0 1 s n c \t ; 0133560 S k i p i f U s c ( A d d 0133600 r , L e n g t h ) < 0 \r \t 0133620 j m p C e r t X \t ; C h e c 0133640 k a d d r e s s e q l e n 0133660 g t h k l u d g e s \r C e r t 0133700 O K : \t m k m i n u s o n e 0 0133720 0 s k p \r C e r t B a d : \r 0133740 \t m k z e r o 0 0 \r \t j s r 0133760 @ R e t u r n \r \f \r ; S u b 0134000 r o u t i n e t 376 001 \0 350 > o 0134020 c h e c k f o r v a l i d 0134040 A V e c p a s s e d t o G 0134060 e t M e m D a t a a n d P u 0134100 t M e m D a t a \r ; C o n v e 0134120 r t A V ( A V e c , M e m X ) 0134140 r e t u r n s M e m X i f 0134160 a d d r e s s i s o k , e 0134200 l s e - 1 \r . C o n v e r t A 0134220 V : \r \t s t a 3 1 2 \t ; 0134240 S a v e r e t u r n \r \t j s r 0134260 @ G e t F r a m e \r \t 1 0 \r 0134300 \t j s r @ S t A r g s \r \t l d 0134320 a 0 4 2 \t ; A V e c \r \t 0134340 l d a 1 5 2 \t ; M e m X 0134360 \r \t j s r . C e r t i f y A V 0134400 \r \t 2 \r \t m o v # 0 0 376 001 0134420 \0 270 \v s n r \r \t j m p C o n 0134440 M 1 \r \t l d a 1 5 2 \t ; 0134460 M e m X \r \t j s r C A V 1 \r \t 0134500 C o n I M - . \r \t C o n I M 0134520 X - . \r \t C o n R M - . \r \t 0134540 C o n T - . \r \t C o n T P C - 0134560 . \r \t C o n V M - . \r \t C o 0134600 n M A P - . \r \t C o n B P - . 0134620 \r \t C o n M I M - . \r \t C o 0134640 n M D A T A - . \r \t C o n M A 0134660 D D R - . \r \r C A V 1 : \t a d d 0134700 1 3 \r \t l d a 1 0 3 \t 0134720 ; S e l f - r e l a t i v e 0134740 p o i n t e r \r \t a d d 1 3 0134760 \r \t l d a 0 M A D D R L \r \t 0135000 m o v 0 1 \r \t j m p 0 3 0135020 \t \t ; 376 001 \0 224 r D i s p a t c 0135040 h t o s e t u p r o u t i 0135060 n e \r \r l v M D A T A t a b : \t 0135100 M D A T A t a b \r l v M A D D R 0135120 t a b : \t M A D D R t a b \r l v 0135140 M I M t a b : \t M I M t a b \r \r 0135160 C o n M I M : \t \t \t ; M I M t 0135200 a b + 3 * a d d r e s s \r \t l d 0135220 a 3 @ l v M I M t a b \r \t j 0135240 m p . + 2 \r C o n M D A T A : 0135260 \t \t ; M D A T A t a b + 3 * a 0135300 d d r e s s \r \t l d a 3 @ l 0135320 v M D A T A t a b \r \t a d d 1 0135340 1 s k p \r C o n M A D D R : 0135360 \t \t ; M A D D R t a b + 2 * a 0135400 d d r e s s \r \t l d a 3 @ l 0135420 v M A D D R t a 376 001 \0 224 4 b \r \t 0135440 a d d 3 0 \r \t a d d 1 0 0135460 \r \t s t a 0 M A D D R L \r C 0135500 o n I M X : \r C o n I M : \r C o 0135520 n R M : \r C o n T : \r C o n T P 0135540 C : \r C o n B P : \r C o n V M : 0135560 \r C o n M A P : \r C o n X i t : 0135600 \t l d a 0 5 2 \r \t j s r 0135620 @ R e t u r n \r \r \r ; U n i m 0135640 p l e m e n t e d \r \t j s r C 0135660 o n U I 1 \r \t . t x t " U n i 0135700 m p l e m e n t e d m e m o r 0135720 y " \r C o n M 1 : \t l d a 3 0135740 @ l v B a d A T e x t \r C o n U 0135760 I 1 : \t m o v 3 0 \r \t j s r 0136000 i i l v E r r o r A b o r t \r 0136020 \t 1 \r \t 7 7 4 0 0 \t \t ; 376 001 \0 0136040 z ) S w a t \r \r l v B a d A T 0136060 e x t : \t B a d A T e x t \r l v 0136100 E r r o r A b o r t : \t E r r o 0136120 r A b o r t \r \f \r . r e c v w o 0136140 r d : \r \t s t a 3 1 2 \r \t 0136160 j s r @ G e t F r a m e \r \t 0136200 1 0 \r \t j s r @ S t A r g s \r 0136220 \t j s r . r e c v b y t e \r \t 0136240 0 \r \t s t a 0 4 2 \r \t j 0136260 s r . r e c v b y t e \r \t 0 0136300 \r \t l d a 1 r w 3 7 7 \r \t a 0136320 n d 1 0 \r \t l d a 3 4 0136340 2 \r \t a n d s 3 1 \r \t a d d 0136360 1 0 \r \t j s r @ R e t u r 0136400 n \r \r r w 3 7 7 : \t 3 7 7 \r \r . 0136420 r e c v b y t e : \r \t i n c 3 0136440 3 376 001 \0 207 f \r \t s t a 3 1 0136460 2 \t ; S a v e r e t u r n 0136500 \r \t l d a 0 c n 1 4 0 0 \t ; 0136520 o u t p u t o f f , s e l 0136540 e c t P O [ 4 : 7 ] \r \t s t a 0136560 0 @ u t i l o u t \r \t l d a 0136600 3 c m 1 0 0 \r \t l d a 1 0136620 c 1 0 0 0 0 \t ; l o o k f o 0136640 r P O [ 0 7 ] \r r c l p 1 : \t 0136660 l d a 0 @ u t i l i n \r \t a 0136700 n d # 0 1 s n r \r \t j m 0136720 p l p 1 e n d \t ; P O [ 0 7 0136740 ] i s l o w - D 0 i s 0136760 s e n d i n g \r \t i n c 3 0137000 3 s z r \r \t j m p r c l p 0137020 1 \r ; D 0 n o t s e n d i 0137040 n g - - n o t 376 001 \0 023 g a n 0137060 e r r o r s i n c e r e c v 0137100 b y t e i s c a l l e d w 0137120 h i l e t h e D 0 \r ; i s 0137140 r u n n i n g , t o s e e 0137160 i f i t s t o p p e d . \r 0137200 \t l d a 0 c 2 5 2 \r \t j m p 0137220 @ 1 2 \r \r l p 1 e n d : \t l 0137240 d a 0 c n 3 4 0 0 \t ; s e 0137260 l e c t P D [ 4 : 7 ] \r \t s t 0137300 a 0 @ u t i l o u t \r \t l d 0137320 a 0 @ u t i l i n \r \t l d a 0137340 3 c 1 7 0 0 0 0 \r \t a n d 0137360 3 0 \r \t c y c l e 4 \r \t l d 0137400 a 1 c n 2 4 0 0 \t ; s e l 0137420 e c t P D [ 0 : 3 ] \r \t s t a 0137440 1 @ u t i l o u t \r 376 001 \0 306 0137460 \t l d a 1 @ u t i l i n \t 0137500 ; r e a d i t \r \t a n d s 0137520 3 1 \r \t a d d 1 0 \r \t s t 0137540 a 0 2 2 \t ; s a v e c 0137560 o m p l e t e b y t e \r \t l d 0137600 a 0 c n 5 4 0 \t ; s e n d 0137620 w r i t e a c k w i t h 0137640 b o o t b i t h i g h \r \t s 0137660 t a 0 @ u t i l o u t \r \t l 0137700 d a 1 c n 4 0 5 4 0 \r \t s t 0137720 a 1 @ u t i l o u t \r \t s t 0137740 a 0 @ u t i l o u t \r \t l d 0137760 a 0 c n 1 5 4 0 \t ; l o o 0140000 k f o r P O [ 4 : 7 ] \r \t s 0140020 t a 0 @ u t i l o u t \r \t l 0140040 d a 3 c m 1 0 0 \r \t l d a 0140060 1 376 001 \0 c d c 1 0 0 0 0 \r r c 0140100 l p 2 : \t l d a 0 @ u t i l 0140120 i n \r \t a n d # 0 1 s z r 0140140 \r \t j m p l p 2 e n d \t ; 0140160 P O [ 7 ] i s h i g h - 0140200 D 0 h a s s t o p p e d s 0140220 e n d i n g \r \t i n c 3 3 0140240 s z r \r \t j m p r c l p 2 \r 0140260 \t l d a 3 @ l v M C T i m e 0140300 O u t \t ; D 0 i s h u n g 0140320 u p s e n d i n g \r \t i s z 0140340 0 3 \t \t ; C o u n t f a 0140360 i l u r e s i n C O M M - E 0140400 R 0 w o r d 0 \r \t j m p 0140420 @ 1 2 \r \t j m p @ 1 2 \r \r 0140440 l p 2 e n d : l d a 0 c n 0140460 4 4 0 \t ; 376 001 \0 M 203 D r o p 0140500 w r i t e a c k - D 0 s 0140520 h o u l d g o a b o u t i 0140540 t s b u s i n e s s \r \t s t a 0140560 0 @ u t i l o u t \r \t l d a 0140600 1 c n 4 0 4 4 0 \r \t s t a 0140620 1 @ u t i l o u t \r \t s t a 0140640 0 @ u t i l o u t \r \t l d a 0140660 0 2 2 \r \t j m p @ 1 2 \r 0140700 \f \r . s e n d w o r d : \r \t s t 0140720 a 3 2 2 \r \t s t a 0 p 0140740 w d \r \t m o v s 0 0 \r \t j s 0140760 r . s e n d b y t e \r \t 1 \r 0141000 \t l d a 0 p w d \r \t l d a 0141020 3 2 2 \r . s e n d b y t e : 0141040 \r \t s t a 3 1 2 \r \t l d a 0141060 1 c n 1 4 4 0 \t ; 376 001 \0 d R 0141100 l o o k f o r P O [ 4 : 7 0141120 ] - o u t p u t o f f \r \t 0141140 s t a 1 @ u t i l o u t \r \t 0141160 l d a 1 c 3 7 7 \r \t a n d 0141200 1 0 \t \t ; m a s k o u t 0141220 h i g h b i t s \r \t c o m 0 0141240 0 \r \t s t a 0 p b y t e \r 0141260 \t l d a 3 c m 1 0 0 \r \t l d 0141300 a 1 c 1 0 0 0 0 \r x l p 0 : 0141320 \t l d a 0 @ u t i l i n \r \t 0141340 a n d # 0 1 s z r \r \t j 0141360 m p d 0 r d y \r \t i n c 3 0141400 3 s z r \r \t j m p x l p 0 0141420 \r \t l d a 3 @ l v M C T i m 0141440 e O u t \t ; D 0 i s h u n 0141460 g u p s e n d i n g \r \t i s 0141500 376 001 \0 306 M z 1 3 \t \t ; C o 0141520