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