$ od -c -N 50000 [Cyan]<D0Source>KernelSources.Dm!2 0000000 377 \0 \0 d 0 s a v e k e r n e l . 0000020 c m \0 373 227 032 016 0 \0 \0 376 \0 320 313 * f 0000040 t p I v y c o n n e c t D 0000060 0 S o u r c e d u m p / C K 0000100 e r n e l S o u r c e s . D m 0000120 ^ \r d 0 s a v e k e r n e l . c 0000140 m k e r n e l . m c k e r n 0000160 e l o c c u p i e d . m c ^ \r 0000200 d 0 g o . m c d 0 m e m . m c 0000220 d 0 r d m i . m c d 0 r d t 0000240 . m c d 0 r d t p c . m c d 0000260 0 r n v r . m c ^ \r d 0 r s r 0000300 . m c d 0 w n v r . m c d 0 0000320 w r t t . m c d 0 w r t t p c 0000340 . m c d 0 w s r . m c ^ \r 377 0000360 \0 \0 k e r n e l . m c \0 373 227 031 350 0000400 344 \0 \0 376 001 \0 K 267 I N S E R T [ D 0000420 0 L A N G ] ; \r : T I T L E [ K 0000440 e r n e l ] ; \r \r % \r M o d i f 0000460 i e d 1 M a y 1 9 8 0 b 0000500 y E R F . B u m 1 1 b m 0000520 i o n p a g e 1 7 , 2 b 0000540 m i o n p a g e 1 6 , \r 0000560 p l a c e t i m e r t a s k 0000600 c o d e o n 1 6 t o l 0000620 i m i t r e q u i r e d I M 0000640 R e s e r v e , a d d A t 0000660 f o r e x i t \r f r o m r s 0000700 r o v e r l a y , b e a u t 0000720 i f y , r e d u c e o v e r 0000740 l a y I M R e s e r v e . \r M 0000760 o d i f i e d O c t o b e r 0001000 3 , 1 9 7 9 376 001 \0 337 \n b y 0001020 C T . M a d e b i t 3 0001040 t h e ' M i d a s p r e s e 0001060 n t ' b i t i n F F a u l 0001100 t \r M o d i f i e d A u g u s 0001120 t 1 , 1 9 7 9 b y C T . 0001140 p u t o n e - t i m e i 0001160 n i t i a l i z a t i o n o n 0001200 p a g e 1 5 \r M o d i f i e 0001220 d J u l y 2 6 , 1 9 7 9 0001240 b y C T . A d d e d r e 0001260 s e t m e m e r r s a t D o 0001300 O v e r l a y \r M o d i f i e d 0001320 J u n e 2 8 , 1 9 7 9 b 0001340 y C T . \r \r T h i s k e r n 0001360 e l c o n s i s t s o f t 0001400 h r e e p a r t s : \r 1 376 001 \0 0001420 A P ) A s e c t i o n t h 0001440 a t o c c u p i e s p a r t 0001460 o f p a g e s 0 a n d 0001500 1 7 , r u n s a t t a s k 0001520 1 7 , a n d h a n d l e s 0001540 \r a l l c o m m u n i c a t i 0001560 o n w i t h M i d a s w i 0001600 t h t h e e x c e p t i o n 0001620 o f M o u s e h a l t t 0001640 e s t i n g \r ( w h i c h i s 0001660 d o n e b y a t i m e r 0001700 ) . T h i s s e c t i o n 0001720 r e f r e s h e s t h e m 0001740 e m o r y f r e q u e n t l y 0001760 \r w i t h o u t u s i n g a 0002000 t i m e r . \r \r 2 ) A s e 0002020 c t 376 001 \0 6 254 i o n t h a t 0002040 o c c u p i e s p a r t o f 0002060 p a g e 1 6 , r u n s a 0002100 t t a s k 1 6 , a n d h 0002120 a n d l e s \r k e r n e l i n 0002140 i t i a l i z a t i o n , n o 0002160 r m a l m e m o r y r e f r 0002200 e s h a n d M o u s e h a 0002220 l t t e s t i n g w h i l e 0002240 a p r o g r a m i s r u 0002260 n n i n g . \r \r 3 ) A n i n 0002300 i t i a l i z a t i o n s e c 0002320 t i o n o n p a g e 1 5 0002340 t h a t c a n b e w i p e 0002360 d o u t a t w i l l . \r \r 0002400 T h e i d e a i s t h a t 0002420 i f y o u 376 001 \0 e ] h a v 0002440 e a s i m p l e p r o g r 0002460 a m , y o u c a n u s e 0002500 t h e p a g e 1 6 a n d 0002520 1 7 p a r t s o f \r t h i s 0002540 k e r n e l , a n d y o u 0002560 w i l l g e t m i n i m a 0002600 l m e m o r y r e f r e s h 0002620 a n d m o u s e h a l t 0002640 t e s t i n g . \r I f y o u 0002660 n e e d s o m e t h i n g m 0002700 o r e c o m p l e x , y o u 0002720 o v e r w r i t e t h e s 0002740 t u f f o n p a g e 1 6 , 0002760 \r b u t i n t h i s c a s 0003000 e y o u m u s t s u p p l 0003020 y t h e c o d e f 376 001 \0 027 0003040 244 o r m o u s e h a l t t 0003060 e s t i n g . \r % \r S e t T a s 0003100 k [ 1 7 ] ; \r \r R V [ R E F R , 0003120 7 7 ] ; \t * m e m o r y r e f 0003140 r e s h a d d r e s s \r \r * T 0003160 h e f o l l o w i n g r e g 0003200 i s t e r s h o l d t h e 0003220 v o l a t i l e s t a t e o 0003240 f t h e p r o c e s s o r 0003260 o n a f a u l t : \r R V [ 0003300 R X A L U , 7 6 ] ; \t * A L U 0003320 r e s u l t a n d S A L U F 0003340 \r R V [ R X A P C , 7 5 ] ; \t * 0003360 A P C T a s k & A P C \r R V [ R 0003400 X C T A S K , 7 4 ] ; \t * C T A 0003420 S K . N C I A \r R V [ R X P P B 0003440 , 376 001 \0 332 E 7 3 ] ; \t * P a g e 0003460 , P a r i t y , B o o t R e a s 0003500 o n \r R V [ R X S T K , 7 2 ] ; 0003520 \t * S t a c k p o i n t e r \r \r 0003540 R V [ R T M P , 7 1 ] ; \t * t e 0003560 m p o r a r y \r \r * T h e f o 0003600 l l o w i n g r e g i s t e r 0003620 s a r e u s e d f o r D 0003640 0 - M i d a s c o m m u n i c 0003660 a t i o n ( R T M P i s a 0003700 l s o u s e d ) : \r R V [ R W 0003720 S T A T , 7 0 ] ; \t * s t a t u 0003740 s r e g i s t e r \r R V [ R D 0003760 A T A , 6 7 ] ; \t * h o l d s 0004000 d a t a \r \r * F F a u l t d e 0004020 t e r m i n e s h o w f a u 0004040 l t s w i 376 001 \0 326 a l l b e 0004060 t r e a t e d w h e n p r 0004100 o g r a m s a r e r u n n i 0004120 n g . I f i t i s \r * z 0004140 e r o , a l l f a u l t s 0004160 w i l l b e r e p o r t e d 0004200 t o M i d a s . I f F 0004220 F a u l t i s n o n z e r o 0004240 , t h e k e r n e l w i l 0004260 l \r * s e n d c o n t r o l 0004300 t h r o u g h l o c a t i o n 0004320 1 2 0 w h e n a f a u l 0004340 t o c c u r s a n d P A R 0004360 I T Y # 0 ( f a u l t s 0004400 w i t h \r * P A R I T Y = 0 0004420 a r e b r e a k p o i n t s 0004440 ) . \r R V [ F F a u l 376 001 \0 005 306 0004460 t , 6 6 ] ; \r \r * R e g i s t e 0004500 r s b e t w e e n 3 6 0 a 0004520 n d 3 6 5 a r e u s e d 0004540 b y t h e M i d a s o v e 0004560 r l a y s . T h e f o l l 0004600 o w i n g \r * r e g i s t e r 0004620 s , u s e d b y W r i t e 0004640 M I , a r e a l s o i n 0004660 t h i s r a n g e . \r R V [ 0004700 R A D D R , 6 5 ] ; \r R V [ R C 0004720 N T , 6 4 ] ; \r R V [ R W 0 , 6 0004740 3 ] ; \r R V [ R W 1 , 6 2 ] ; \r 0004760 \r \r * C o n s t a n t s f o r 0005000 R e c v a n d S e n d \r M 0005020 C [ R e c v B y t e , 1 2 ] ; \r 0005040 M C [ R e c v W o r d , 1 6 ] ; 0005060 376 001 \0 - # \r M C [ S e n d B y t 0005100 e , 2 1 ] ; \r M C [ S e n d W o 0005120 r d , 2 5 ] ; \r \r I M R e s e r 0005140 v e [ 1 7 , 1 0 1 , 1 1 ] ; \t * 0005160 s p a c e f o r M i d a s 0005200 o v e r l a y s ( 7 5 0 0 - 7 0005220 5 1 7 ) \r I M R e s e r v e [ 1 0005240 7 , 1 1 3 , 5 ] ; \r \r S e t [ C 0005260 M D i s p , 7 4 2 0 ] ; \t * 8 - 0005300 w a y d i s p a t c h o n 0005320 M i d a s c o m m a n d \r S e 0005340 t [ R W D i s p , 7 4 4 0 ] ; \t 0005360 * 4 - w a y d i s p a t c h 0005400 o n s t a t e b i t s o f 0005420 R W S T A T \r \f \r * A f t e r 0005440 l o a d i n g k e r n e l . 0005460 m b , M 376 001 \0 314 233 i d a s s 0005500 t a r t s i t a t 7 0 0 0 0005520 \r S t a r t : \r \t R T M P _ 0005540 6 0 0 0 C , A t [ 7 0 0 0 ] ; 0005560 \r \t R T M P _ ( R T M P ) 0005600 + ( 4 0 0 C ) ; \t * N o t i f 0005620 y T a s k 0 , a d d r e s 0005640 s 6 4 0 0 \r K N o t i f y : \r 0005660 \t A P C T a s k & A P C _ R 0005700 T M P , G o T o [ M i d a s R 0005720 e s t a r t ] ; \r \r \t S e t T a 0005740 s k [ 0 ] ; \r * R d e f i n i 0005760 t i o n s \r R V [ R 0 , 0 ] ; \r 0006000 R V [ R 1 , 1 ] ; \r R V [ R 2 , 0006020 2 ] ; \r R V [ R 3 , 3 ] ; \r R V 0006040 [ R 4 , 4 ] ; \r R V [ R 5 , 5 ] 0006060 ; \r R V [ R 6 , 6 ] 376 001 \0 022 { ; 0006100 \r R V [ R 7 , 7 ] ; \r R V [ R 1 0006120 0 , 1 0 ] ; \r R V [ R 1 1 , 1 1 0006140 ] ; \r R V [ R 1 2 , 1 2 ] ; \r R 0006160 V [ R 1 3 , 1 3 ] ; \r R V [ R 1 0006200 4 , 1 4 ] ; \r R V [ R 1 5 , 1 5 0006220 ] ; \r R V [ R 1 6 , 1 6 ] ; \r R 0006240 V [ R 1 7 , 1 7 ] ; \r \r \r * C l 0006260 e a r R 0 - R 1 7 t o a v 0006300 o i d R p a r i t y e r r 0006320 o r s l a t e r \r \t R 1 _ 0006340 0 C , A t [ 6 4 0 0 ] ; \r \t R 0006360 2 _ 0 C ; \r \t R 3 _ 0 C 0006400 ; \r \t R 4 _ 0 C ; \r \t R 5 0006420 _ 0 C ; \r \t R 6 _ 0 C ; \r 0006440 \t R 7 _ 0 C ; \r \t R 1 0 _ 0006460 0 C ; \r \t R 1 1 _ 0 C ; 376 0006500 001 \0 031 301 \r \t R 1 2 _ 0 C ; \r 0006520 \t R 1 3 _ 0 C ; \r \t R 1 4 0006540 _ 0 C ; \r \t R 1 5 _ 0 C ; 0006560 \r \t R 1 6 _ 0 C ; \r \t R 1 7 0006600 _ 0 C ; \r * C l e a r R 2 0006620 0 - R 3 7 7 u s i n g S t k 0006640 p \r \t R 0 _ 2 0 C ; \r R C l 0006660 e a r : \r \t S t k P _ R 0 ; 0006700 \r \t S t a c k _ 0 C ; \r \t L 0006720 U _ ( R 0 ) x o r ( 3 7 0006740 7 C ) ; \r \t R 0 _ ( R 0 ) 0006760 + 1 , G o T o [ R C l e a r 0007000 , A L U # 0 ] ; \r \t R 0 _ 5 0007020 C ; \t * N o t i f y t a s k 0007040 1 7 , l o c a t i o n 6 4 0 0007060 5 \r \t R 0 _ ( R 0 ) + ( 0007100 1 7 6 4 376 001 \0 367 375 0 0 C ) ; \r \t 0007120 A P C T a s k & A P C _ R 0 0007140 ; \r p 1 5 r e t : \t R e t u r n 0007160 ; \r \r S e t T a s k [ 1 7 ] ; \r 0007200 \r \t R T M P _ 4 0 0 C , A 0007220 t [ 6 4 0 5 ] ; \t * s e t P r 0007240 i n t e r i d l e , d o n ' 0007260 t d r i v e b u s \r \t P r 0007300 i n t e r _ R T M P ; \r \r \t 0007320 R T M P _ 1 0 0 0 0 0 C ; \r 0007340 C l r T i m e r s : \r \t L o a d 0007360 T i m e r [ R T M P ] ; \t * C l 0007400 e a r o u t a l l T i m e 0007420 r s \r \t R e s e t M e m E r r s 0007440 ; \t \t * C l e a r a n y p e 0007460 n d i n g m e m o r y e r r 0007500 o r s \r * N o t e 376 001 \0 225 \r : 0007520 F F a u l t [ 2 ] d i s a b l 0007540 e s H 4 p a r i t y e r r 0007560 o r s i n t h e n o r m a 0007600 l ( n o n - d i a g n o s t i 0007620 c ) f a u l t h a n d l e r 0007640 \r \t F F a u l t _ 3 0 0 0 0 0007660 C ; \t * I n i t i a l i z e s 0007700 o t h a t M i d a s t a k 0007720 e s f a u l t s , i n d i c 0007740 a t e m i d a s i s p r e 0007760 s e n t \r \t R T M P _ ( R T 0010000 M P ) + 1 ; \r \t L U _ ( 0010020 R T M P ) a n d ( 1 7 C ) ; 0010040 \t * t h e r e a r e 1 6 d 0010060 t i m e r s \r \t R E F R _ 0 0010100 C , D b l G o T o [ I n i 376 001 0010120 \0 9 220 t D o n e , C l r T i m e 0010140 r s , A L U = 0 ] ; \r I n i t D 0010160 o n e : \r \t L U _ T i m e r 0010200 ; \t * S e t u p t h e R e 0010220 f r e s h t i m e r \r \t R T M 0010240 P _ 5 0 0 0 0 C ; \r \t R T M 0010260 P _ ( R T M P ) o r ( 2 0010300 7 7 C ) ; \t * s i m p l e t i 0010320 m e r , v a l u e 1 1 d , s l 0010340 o t 1 7 b \r \t L o a d T i m e 0010360 r [ R T M P ] ; \r \r * N o t i f 0010400 y t a s k 1 6 , a d d r e 0010420 s s 7 0 1 0 t o s e t u 0010440 p t i m e r t a s k \r \t R T 0010460 M P _ 1 6 7 0 0 0 C ; \r \t R 0010500 T M P _ ( R T M P ) o r 0010520 ( 1 0 376 001 \0 ; 023 C ) ; \r \t A P C 0010540 T a s k & A P C _ R T M P , 0010560 G o T o [ p 1 5 r e t ] ; \r \r 0010600 * S e t T P C [ 1 6 ] t o 0010620 T i m e r T a s k a n d r e 0010640 t u r n t o t a s k 1 7 , 0010660 a d d r e s s 7 4 0 0 . \r \t 0010700 R T M P _ 1 7 7 4 0 0 C , 0010720 C a l l [ K N o t i f y ] , A 0010740 t [ 7 0 1 0 ] ; \r \r * T h e s 0010760 i m p l e t i m e r t a s k 0011000 a s s u m e s s l o t 1 7 0011020 e x p i r e d , s i n c e 0011040 a l l o t h e r s w e r e 0011060 c l e a r e d . \r * A t ' s a 0011100 r e u s e d o n t h e s e 0011120 s o t h a t 376 001 \0 361 , K e 0011140 r n e l O c c u p i e d d o e 0011160 s n o t h a v e t o r e 0011200 s e r v e t h e \r * i n i t i 0011220 a l i z a t i o n m i t h a 0011240 t a r e o n p a g e 1 6 0011260 b . \r T i m e r T a s k : \r \t R 0011300 e f r e s h [ R E F R ] , A t 0011320 [ 7 0 1 1 ] ; \r \t L U _ T i 0011340 m e r , A t [ 7 0 0 5 ] ; \t \t 0011360 * r e a d t i m e r t o c 0011400 l e a r t h e w a k e u p \r 0011420 * B u i l d s i m p l e t i 0011440 m e r c o n s t a n t , v a 0011460 l u e 1 1 d , s l o t 1 7 0011500 b \r \t R T M P _ 5 0 0 0 0 C 0011520 , A t [ 7 0 0 6 ] ; \r \t 376 001 \0 0011540 357 G R T M P _ ( R T M P ) 0011560 o r ( 2 7 7 C ) , A t [ 7 0 0011600 0 7 ] ; \r \t A d d T o T i m e r 0011620 [ R T M P ] , A t [ 7 0 1 2 ] 0011640 ; \r C h e c k S t o p : \r \t T 0011660 _ 1 0 0 0 0 C , A t [ 7 0 1 0011700 3 ] ; \r \t L U _ ( P r i n t 0011720 e r ) a n d T , A t [ 7 0 0011740 1 4 ] ; \r \t R E F R _ ( R E 0011760 F R ) + ( 2 0 C ) , S k i 0012000 p [ A L U # 0 ] , A t [ 7 0 0 0012020 1 ] ; \r \t R e t u r n , A 0012040 t [ 7 0 0 2 ] ; \r * M i d a s 0012060 r e c o g n i z e s a m o u 0012100 s e h a l t a s a t a s 0012120 k 1 6 b r e a k p o i n t 0012140 t h 376 001 \0 206 027 a t w a s n o 0012160 t s e t b y \r * t h e u s 0012200 e r . I t c o n t i n u e 0012220 s f r o m ( a b s o l u t e 0012240 ) M i d a s S t o p + 1 \r M i 0012260 d a s S t o p : \r \t L U _ T 0012300 , G o T o [ M i d a s S t o p 0012320 ] , S e t F a u l t , A t [ 0012340 7 0 0 3 ] ; \r M i d a s R e s t 0012360 a r t : \r \t R e t u r n , A t 0012400 [ 7 0 0 4 ] ; \r \f \r * P a g e 0012420 Z e r o s t u f f \r \r * E m 0012440 u l a t o r b u f f e r r e 0012460 f i l l c o d e i s o n 0012500 p a g e 0 \r \t L o a d P a g e 0012520 E x t e r n a l [ 0 ] , G o T 0012540 o E x t e r n 376 001 \0 350 265 a l [ 3 0012560 7 7 ] , A t [ 0 ] ; \r \r \t T 0012600 _ A P C T a s k & A P C , A 0012620 t [ 1 ] ; \t * F a u l t e n t 0012640 r y . S a v e A P C f i 0012660 r s t , t h e n t h e o t 0012700 h e r v o l a t i l e r e g 0012720 s . \r \t R X A P C _ T , A 0012740 t [ 1 0 0 ] ; \r * T _ ( C T 0012760 a s k & N C I A ) x n o r ( 0013000 1 7 0 0 0 0 C ) , A t [ 1 0 1 0013020 ] ; i s b e t t e r h e r 0013040 e \r \t T _ C T a s k & N C I 0013060 A , A t [ 1 0 1 ] ; \r \t R X C 0013100 T A S K _ T , A t [ 1 0 2 0013120 ] ; \r \t T _ ( S S t k P & N 0013140 S t k P ) x o r ( 3 376 001 \0 \0 0013160 371 7 7 C ) , A t [ 1 0 3 ] ; \t 0013200 * ( s t k p i s r e a d c 0013220 o m p l e m e n t e d ) \r \t R X 0013240 S T K _ 2 0 C , A t [ 1 0 0013260 4 ] ; \t * S e t S t k P t o 0013300 2 0 i n c a s e s t a c 0013320 k o v f w a s p e n d i n 0013340 g \r \t S t k P _ R X S T K , 0013360 R X S T K _ T , N o R e 0013400 g I L o c k O K , A t [ 1 0 6 0013420 ] ; \r \t T _ ( A L U R e s u 0013440 l t & S A L U F ) x n o r ( 0013460 0 C ) , A t [ 1 0 7 ] ; \t * ( 0013500 b o t h r e a d c o m p l e 0013520 m e n t e d ) \r \t R X A L U _ 0013540 T , A t [ 1 1 0 ] ; \r \t T 0013560 _ 376 001 \0 . 1 P a g e & P a r & 0013600 B o o t , L o a d P a g e [ 0 0013620 ] , A t [ 1 1 1 ] ; * p a g 0013640 e , p a r i t y , b o o t r 0013660 e a s o n \r \t R X P P B _ T 0013700 , R e s e t E r r o r s , A 0013720 t [ 1 1 2 ] ; \r * N o t i f y 0013740 T a s k 1 7 , a d d r e s s 0013760 7 5 0 5 ( b r e a k p o i n 0014000 t c o m m u n i c a t i o n ) 0014020 \r \t R T M P _ 1 7 7 4 0 0 C 0014040 , A t [ 1 1 3 ] ; \r \t R T M P 0014060 _ ( R T M P ) o r ( 1 0 0014100 5 C ) , A t [ 1 1 4 ] ; \r \t A 0014120 P C T a s k & A P C _ R T M 0014140 P , A t [ 1 1 5 ] ; \r \t R e t 0014160 u r n , A 376 001 \0 v 001 t [ 1 1 6 0014200 ] ; \r \r * G o o v e r l a y 0014220 s e n d s c o n t r o l t o 0014240 U s e r F a u l t ( 1 2 0 ) 0014260 i f P A R I T Y # 0 a 0014300 n d F F a u l t < 0 \r U s e r 0014320 F a u l t : \r \t L o a d P a g e 0014340 [ 1 7 ] , A t [ 1 2 0 ] ; \t * 0014360 U s e r m a y o v e r w r i 0014400 t e t h e s e i n s t r u c 0014420 t i o n s i f d e s i r e d 0014440 \r \t G o T o P [ M i d a s F a u 0014460 l t ] , A t [ 1 1 7 ] ; \t \t \t 0014500 \t \r \f \r * T h e f o l l o w i 0014520 n g i s t h e p a g e 1 0014540 7 p o r t i o n o f t h e 0014560 k e r n e l . W 376 001 \0 204 8 0014600 e g e t h e r e \r * a f t e 0014620 r s e t t i n g u p t h e 0014640 t i m e r t a s k . \r \t R D 0014660 A T A _ 4 0 0 0 0 C , A t 0014700 [ 7 4 0 0 ] ; \t * s e n d # 1 0014720 0 0 t o M i d a s \r \t R W S 0014740 T A T _ S e n d B y t e , 0014760 C a l l [ S e n d ] ; \r \r N e x 0015000 t C o m : \r \t R W S T A T _ 0015020 R e c v B y t e , C a l l [ R 0015040 e c v ] , A t [ 7 4 0 4 ] ; \r 0015060 \t D i s p a t c h [ R D A T A , 0015100 1 5 , 3 ] ; \r \t D i s p [ D o O 0015120 v e r l a y ] ; \r \r D o O v e r 0015140 l a y : \r \t R e s e t M e m E r 0015160 r s , G o T o [ O v e r l a y 0015200 376 001 \0 n 366 A r e a ] , A t [ C 0015220 M D i s p , 0 ] ; * M i d a s 0015240 o v e r l a y \r O v e r l a y 0015260 A r e a : \r \t R e t u r n , A 0015300 t [ 7 5 0 0 ] ; \t * p l a c e h 0015320 o l d e r f o r o v e r l a 0015340 y \r M i d a s F a u l t : \r \t R 0015360 e t u r n , A t [ 7 5 1 2 ] ; 0015400 \t * p l a c e h o l d e r f o 0015420 r f a u l t i n M i d a s 0015440 g o o v e r l a y \r \r W r i 0015460 t e M I : \t \r \t R W S T A T _ 0015500 R e c v W o r d , C a l l [ 0015520 R e c v ] , A t [ C M D i s p 0015540 , 2 ] ; \t * W r i t e C o n t 0015560 r o l S t o r e \r \t R A D D R 0015600 _ T ; 376 001 \0 037 261 \t \t \t * C a 0015620 n ' t h a v e C a l l h e 0015640 r e \r \t R W S T A T _ R e c 0015660 v B y t e , C a l l [ R e c v 0015700 ] ; \t * G e t C o u n t ( b 0015720 y t e ) \r \t R C N T _ T ; \r 0015740 W r i t e M I L o o p : \r \t R W 0015760 S T A T _ R e c v W o r d , 0016000 C a l l [ R e c v ] ; \t * G e 0016020 t D a t a 0 ( w o r d ) \r 0016040 \t R W 0 _ T , C a l l [ R 0016060 e c v W ] ; \t * G e t D a t a 0016100 1 ( w o r d ) \r \t R W 1 _ 0016120 T , C a l l [ R e c v B ] ; 0016140 \t * G e t D a t a 2 ( b y 0016160 t e ) \r \t L U _ R W 0 ; \t \t 0016200 * T h a s d a t 376 001 \0 220 302 a 0016220 2 \r \t A P C T a s k & A P C 0016240 _ R A D D R ; \r \t W r i t e C 0016260 S 0 & 2 ; \r \t L U _ R W 1 , 0016300 A t [ C M D i s p , 1 2 ] ; \t 0016320 * f o r c e w r i t e c s t 0016340 o h a v e J A . 7 = 0 \r 0016360 \t A P C T a s k & A P C _ R 0016400 A D D R ; \r \t W r i t e C S 1 ; 0016420 \r \t R C N T _ ( R C N T ) 0016440 - 1 , A t [ C M D i s p , 1 0016460 4 ] ; \t * f o r c e w r i t e 0016500 c s t o h a v e J A . 7 0016520 = 0 \r \t R A D D R _ ( R A 0016540 D D R ) + 1 , G o T o [ W 0016560 r i t e M I L o o p , A L U # 0 0016600 ] ; \r \t G o T o [ N e x t C o 376 0016620 001 \0 A 210 m ] ; \r \r * R e a d a 0016640 s i n g l e R r e g i s t 0016660 e r . M i d a s w i l l 0016700 u s e a n o v e r l a y t 0016720 o r e a d R M 0 a n d 0016740 R M 1 7 , \r * t o a v o i d 0016760 g e n e r a t i n g s t a c 0017000 k o v e r f l o w . \r R e a d 0017020 R : \t R W S T A T _ R e c v 0017040 B y t e , C a l l [ R e c v ] 0017060 , A t [ C M D i s p , 4 ] ; \t 0017100 * G e t A d d r e s s \r \t S t 0017120 k P _ R D A T A ; \r \t T _ 0017140 S t a c k ; \r * d 0 r s r o 0017160 v e r l a y e x i t s h e r 0017200 e \r R e a d R X : \t R D A T A 0017220 _ T , 376 001 \0 251 S A t [ 7 4 0 0017240 6 ] ; \r \t R W S T A T _ S e 0017260 n d W o r d , C a l l [ S e n 0017300 d ] ; \r \t G o T o [ N e x t C o 0017320 m ] ; \r \r * W r i t e a s i 0017340 n g l e R r e g i s t e r . 0017360 M i d a s w i l l u s e 0017400 a n o v e r l a y t o w 0017420 r i t e R M 0 a n d \r * R 0017440 M 1 0 - R M 1 7 t o 0017460 a v o i d g e n e r a t i n g 0017500 s t a c k o v e r f l o w . 0017520 \r W r i t e R : \t R W S T A T 0017540 _ R e c v B y t e , C a l l 0017560 [ R e c v ] , A t [ C M D i s 0017600 p , 6 ] ; \t * G e t A d d r e 0017620 s s \r \t S t k P 376 001 \0 006 342 _ 0017640 R D A T A , C a l l [ R e c v 0017660 W ] ; \t * G e t ( w o r d ) 0017700 d a t a \r \t S t a c k _ T , 0017720 G o T o [ N e x t C o m ] ; \r 0017740 \f \r * S U B R O U T I N E S S 0017760 e n d a n d R e c e i v e 0020000 c o m m u n i c a t e w i t h 0020020 M i d a s . \r \r S e n d : \t T 0020040 _ R S h [ R D A T A , 1 0 ] 0020060 , A t [ 7 4 6 0 ] ; \t * g e t 0020100 m s b y t e ( l o c a t i o 0020120 n 7 4 6 0 i s k n o w n 0020140 t o o v e r l a y s ) \r \t R T 0020160 M P _ T , G o T o [ R P R 0020200 T ] ; \t * w i l l g e t W r 0020220 S t r b o n \r \r R e c v B 376 001 0020240 \0 9 * : \t R W S T A T _ R e 0020260 c v B y t e , S k i p , A t 0020300 [ 7 4 1 0 ] ; \r R e c v W : \t R 0020320 W S T A T _ R e c v W o r d 0020340 , A t [ 7 4 1 1 ] ; \r R e c v 0020360 : \t R D A T A _ Z e r o , 0020400 A t [ 7 4 6 4 ] ; \t * l o c a t 0020420 i o n 7 4 6 4 i s k n o w 0020440 n t o o v e r l a y s \r R W 0020460 : \t R e f r e s h [ R E F R ] ; 0020500 \t * R e f r e s h t h e m e 0020520 m o r y \r \t R T M P _ 3 0 C 0020540 ; \r \t R T M P _ ( R T M P ) 0020560 - 1 , G o T o [ . , R > = 0020600 0 ] ; \r \t R E F R _ ( R E F 0020620 R ) + ( 2 0 C ) ; \r * G e t 0020640 P r 376 001 \0 336 372 i n t e r d a 0020660 t a , i n s i s t i n g t h 0020700 a t i t y i e l d t h e 0020720 s a m e d a t a t h r e e 0020740 t i m e s . \r \t T _ P r i n 0020760 t e r ; \r \t R T M P _ T ; \r 0021000 \t L U _ ( P r i n t e r ) 0021020 - T ; \r \t L U _ ( P r i n 0021040 t e r ) - T , S k i p [ A 0021060 L U = 0 ] ; \r \t G o T o [ R 0021100 W ] ; \r \t T _ L d F [ R T M 0021120 P , 0 , 2 ] , S k i p [ A L U 0021140 = 0 ] ; * G e t s t r o b e 0021160 / a c k b i t s \r \t G o T 0021200 o [ R W ] ; \r \t L U _ ( L d 0021220 F [ R W S T A T , 1 6 , 2 ] ) 0021240 x o r T ; \t * 376 001 \0 \t z C o m 0021260 p a r e t o d e s i r e d 0021300 b i t s \r \t T _ R T M P , 0021320 G o T o [ R W , A L U # 0 ] ; \t 0021340 * i f r e a c h e d , c l e 0021360 a r a l l b i t s \r \t R T M 0021400 P _ 4 0 0 C ; \r \t P r i n t 0021420 e r _ R T M P , R T M P 0021440 _ T , N o R e g I L o c k O 0021460 K ; \t * r e s t o r e R T M P 0021500 \r \t D i s p a t c h [ R W S T A 0021520 T , 1 3 , 2 ] ; \t * d i s p a t 0021540 c h o n s t a t e b i t s 0021560 o f r w s t a t \r \t L U _ 0021600 ( R W S T A T ) a n d ( 4 0021620 C ) , D i s p [ R e a d S t r 0021640 o b e O f f ] ; \t * s e t 376 001 \0 0021660 _ 230 u p b y t e / w o r d \r \r 0021700 R e a d S t r o b e O f f : \t * 0021720 G e t A n o t h e r b y t e 0021740 i f w o r d s e t \r \t U s 0021760 e C T a s k , G o T o [ R e a 0022000 d M o r e , A L U # 0 ] , A t 0022020 [ R W D i s p , 0 ] ; \r \t T _ 0022040 R D A T A , R e t u r n ; \r 0022060 R e a d M o r e : \r \t R W S T A 0022100 T _ R e c v B y t e , G o 0022120 T o [ R W ] ; \t * G o g e t 0022140 a n o t h e r b y t e \r \r R e 0022160 a d S t r o b e O n : \r \t T _ 0022200 R H M a s k [ R T M P ] , A 0022220 t [ R W D i s p , 1 ] ; \t * G e 0022240 t D a t a B y t e \r \t R D A 0022260 T A 376 001 \0 m 275 _ ( L S h [ R 0022300 D A T A , 1 0 ] ) o r T ; \t 0022320 * M e r g e B y t e \r \t R W S 0022340 T A T _ ( R W S T A T ) a 0022360 n d ( 4 C ) ; \t * S t a t e _ 0022400 0 , L o o k f o r R D S t 0022420 r b o f f , r e t a i n b 0022440 y t e / w o r d \r \t R T M P _ 0022460 1 0 0 4 0 0 C ; \t * S e t R 0022500 d A c k \r R P R T : \t P r i n t 0022520 e r _ R T M P , G o T o [ 0022540 R W ] ; \t \r \t \r \r * H e r e o 0022560 n W r i t e A c k O n - 0022600 s t a t e _ 3 \r \t R W S T 0022620 A T _ ( R W S T A T ) x o 0022640 r ( 1 1 C ) , G o T o [ R W 0022660 ] , A t [ R 376 \0 326 ^ 4 W D i s 0022700 p , 2 ] ; \r \t \r * H e r e o n 0022720 W r i t e A c k O f f \r \t 0022740 R D A T A _ L S h [ R D A T 0022760 A , 1 0 ] , G o T o [ S e n d 0023000 M o r e , A L U # 0 ] , A t [ 0023020 R W D i s p , 3 ] ; \r \t L U _ 0023040 Z e r o , G o T o [ R e a d 0023060 S t r o b e O f f ] ; * m u s 0023100 t d o n o n - t a s k i n g 0023120 r e t u r n \r S e n d M o r e 0023140 : \r \t R W S T A T _ S e n d 0023160 B y t e , G o T o [ S e n d ] 0023200 ; \r \r \r : E N D [ K e r n e l ] 0023220 ; \r 377 \0 \0 k e r n e l o c c u p 0023240 i e d . m c \0 373 227 031 363 0 \0 \0 376 001 0023260 \0 346 K : T I T L E [ K e r n e l 0023300 O c c u p i e d ] ; \r \r * E d i 0023320 t e d 1 M a y 1 9 8 1 b 0023340 y F i a l a f o r n e w 0023360 K e r n e l . \r \r * L o c a t i 0023400 o n s r e s e r v e d o n 0023420 p a g e 0 ( T h i s w i l 0023440 l a l l b e o v e r w r i 0023460 t t e n b y c o d e i n 0023500 F A U L T ) \r * * N O T E : M 0023520 i d a s o v e r l a y s s e 0023540 n d c o n t r o l t o U s 0023560 e r F a u l t a t a b s o l 0023600 u t e 1 2 0 , s o t h e \r 0023620 * * c o d e i n F A U L T . 0023640 M C m u s t h a n d l e t 0023660 h a t 376 001 \0 s ^ a n a l o g o 0023700 u s l y t o K e r n e l . \r 0023720 * I M R e s e r v e [ 0 , 0 , 2 0023740 ] ; \r * I M R e s e r v e [ 0 , 0023760 1 0 0 , 5 ] ; \r * I M R e s e r 0024000 v e [ 0 , 1 0 6 , 1 3 ] ; \r \r * 0024020 L o c a t i o n s r e s e r v 0024040 e d o n p a g e 1 5 B ( 0024060 m a y b e o v e r w r i t t 0024100 e n a f t e r K e r n e l 0024120 i s r u n n i n g ) \r * I M R 0024140 e s e r v e [ 1 5 , 0 , 5 0 ] ; 0024160 \r \r * L o c a t i o n s r e s 0024200 e r v e d o n p a g e 1 6 0024220 B ( t i m e r t a s k ) \r * 0024240 T h i s c o d e m a y b e 0024260 o v e r w r i 376 001 \0 246 s t t e 0024300 n a f t e r a u s e r p 0024320 r o g r a m s t a r t s i t 0024340 s o w n t i m e r t a s k 0024360 . \r * I M R e s e r v e [ 1 6 , 0024400 0 , 1 7 ] ; \t * E v e r y t h i 0024420 n g \r I M R e s e r v e [ 1 6 , 0024440 1 , 1 4 ] ; \t * O n l y t h e 0024460 s e a r e n e e d e d a f 0024500 t e r K e r n e l i s r u 0024520 n n i n g \r \r * L o c a t i o n 0024540 s r e s e r v e d o n p a 0024560 g e 1 7 B \r * I M R e s e r v 0024600 e [ 1 7 , 0 , 1 ] ; \t * 7 4 0 0 0024620 n o t n e e d e d a f t e 0024640 r i n i t \r * I M R e s e r v 0024660 e [ 1 7 , 3 , 1 ] ; \t * 7 376 \0 232 0024700 Y s 4 0 3 n o t n e e d e d 0024720 a f t e r i n i t \r I M R e 0024740 s e r v e [ 1 7 , 1 , 2 ] ; \r I 0024760 M R e s e r v e [ 1 7 , 4 , 7 4 0025000 ] ; \r I M R e s e r v e [ 1 7 , 0025020 1 2 0 , 1 ] ; \r I M R e s e r v 0025040 e [ 1 7 , 1 0 0 , 2 0 ] ; \t * s 0025060 p a c e f o r M i d a s o 0025100 v e r l a y s ( 7 5 0 0 - 7 5 0025120 1 7 ) \r \r : E N D ; \r \r 377 \0 \0 d 0025140 0 g o . m c \0 373 224 k 8 316 \0 \0 376 001 0025160 \0 277 307 I N S E R T [ D 0 L A N G 0025200 ] ; \r N O M I D A S I N I T ; \r 0025220 T I T L E [ d 0 g o 3 ] ; \r * l 0025240 a s t e d i t e d b y C T 0025260 J u n e 1 0 , 1 9 7 9 \r S 0025300 E T T A S K [ 1 7 ] ; \r \r R V [ 0025320 R E F R , 7 7 ] ; \t * m e m o r 0025340 y r e f r e s h a d d r e s 0025360 s \r \r * T h e f o l l o w i n 0025400 g r e g i s t e r s h o l d 0025420 t h e v o l a t i l e s t 0025440 a t e o f t h e p r o c e 0025460 s s o r o n a f a u l t : 0025500 \r R V [ R X A L U , 7 6 ] ; \t 0025520 * A L U r e s u l t a n d 0025540 S A L U F \r R V [ R X A P C , 7 0025560 5 ] ; 376 001 \0 \n 225 \t * A P C T a s 0025600 k & A P C \r R V [ R X C T A S K 0025620 , 7 4 ] ; \t * C T A S K . N C I 0025640 A \r R V [ R X P P B , 7 3 ] ; \t 0025660 * P a g e , P a r i t y , B o o 0025700 t R e a s o n \r R V [ R X S T K 0025720 , 7 2 ] ; \t * S t a c k p o i n 0025740 t e r \r \r R V [ R T M P , 7 1 ] 0025760 ; \t * t e m p o r a r y \r \r * T 0026000 h e f o l l o w i n g r e g 0026020 i s t e r s a r e u s e d 0026040 f o r D 0 - M i d a s c o m 0026060 m u n i c a t i o n ( R T M P 0026100 i s a l s o u s e d ) : \r 0026120 R V [ R W S T A T , 7 0 ] ; \t * 0026140 s t a t u s r e g i s t e r \r 0026160 R V [ R D A T A 376 001 \0 022 261 , 6 7 0026200 ] ; \t * h o l d s d a t a \r \r 0026220 * F F a u l t d e t e r m i n 0026240 e s h o w f a u l t s w i 0026260 l l b e t r e a t e d w h 0026300 e n p r o g r a m s a r e 0026320 r u n n i n g . I f i t 0026340 i s \r * z e r o , a l l f a 0026360 u l t s w i l l b e r e p 0026400 o r t e d t o M i d a s . 0026420 I f F F a u l t i s n o 0026440 n z e r o , t h e k e r n e 0026460 l w i l l \r * s e n d c o n 0026500 t r o l t h r o u g h l o c 0026520 a t i o n 1 2 0 w h e n a 0026540 f a u l t o c c u r s a n 0026560 d P A R I T Y # 0 376 001 \0 0026600 5 036 ( f a u l t s w i t h \r * 0026620 P A R I T Y = 0 a r e b 0026640 r e a k p o i n t s ) . \r R V [ 0026660 F F A U L T , 6 6 ] ; \r \r * R e 0026700 g i s t e r s b e t w e e n 0026720 3 6 0 a n d 3 6 7 a r e 0026740 u s e d b y t h e M i d a 0026760 s o v e r l a y s . T h e 0027000 f o l l o w i n g \r * r e g 0027020 i s t e r s , u s e d b y 0027040 W r i t e M I , a r e a l 0027060 s o i n t h i s r a n g e 0027100 . \r R V [ R A D D R , 6 5 ] ; \r 0027120 R V [ R C N T , 6 4 ] ; \r R V [ 0027140 R W 0 , 6 3 ] ; \r R V [ R W 1 , 0027160 6 2 ] ; \r \r \r \r * C o n s t a n 0027200 t s 376 001 \0 Y 315 f o r R e c v 0027220 a n d S e n d \r M C [ R e c 0027240 v B y t e , 1 2 ] ; \r M C [ R e 0027260 c v W o r d , 1 6 ] ; \r M C [ S 0027300 e n d B y t e , 2 1 ] ; \r M C [ 0027320 S e n d W o r d , 2 5 ] ; \r \r * 0027340 T h e f o l l o w i n g a r 0027360 e a t f i x e d l o c a t 0027400 i o n s i n K e r n e l . m 0027420 c : \r U s e r F a u l t : \t R e 0027440 t u r n , A T [ 1 2 0 ] ; \r N 0027460 e x t C o m : \t R e t u r n , 0027500 A T [ 7 4 0 4 ] ; \r S e n d : \t 0027520 R e t u r n , A T [ 7 4 6 0 ] 0027540 ; \r R e c v : \t R e t u r n , 0027560 A T [ 7 4 6 4 ] ; \r \r * d 0 g o 0027600 o v e r l a 376 001 \0 316 360 y \r * M 0027620 i d a s h a s s e t u p 0027640 a l l t h e v o l a t i l e 0027660 r e g i s t e r s . . . \r O v 0027700 e r l a y A r e a : \r \t C A L L 0027720 [ R e c v ] , R W S T A T _ 0027740 R e c v W o r d , A T [ 7 5 0027760 0 0 ] ; * g e t s t a r t i 0030000 n g t a s k a n d a d d r 0030020 e s s \r \t S t k p _ R X S T 0030040 K , A T [ 7 5 0 1 ] ; * R e 0030060 s t o r e t h e s t a c k p 0030100 o i n t e r \r \t T _ R X A L 0030120 U , A T [ 7 5 0 2 ] ; \r \t A P 0030140 C T A S K & A P C _ R D A T 0030160 A , A T [ 7 5 0 3 ] ; \r \t R E 0030200 T U R N , R E S T O R 376 001 \0 025 0030220 341 E , A _ R X A P C , L 0030240 U _ T , A T [ 7 5 0 4 ] ; 0030260 \r \r * G e t h e r e w h e n 0030300 t h e p r o c e s s o r s 0030320 t o p s d u e t o a f a 0030340 u l t ( b r e a k p o i n t 0030360 o r e r r o r ) . \r * F i r 0030400 s t c h e c k i f t h i s 0030420 i s a b r e a k p o i n t 0030440 ( P A R I T Y = 0 ) . \r B 0030460 P E n t r y : \r \t l u _ l d 0030500 f [ R X P P B , 4 , 4 ] , 0030520 A T [ 7 5 0 5 ] ; \r \t d b l g o 0030540 t o [ C h k F F , B r e a k , 0030560 A L U # 0 ] , A T [ 7 5 0 6 ] 0030600 ; \r \t n o p , A T [ 7 5 0 7 ] 0030620 ; 376 001 \0 p 216 \r B r e a k : \r \t R 0030640 D A T A _ 4 0 0 0 0 C , g 0030660 o t o [ S e n d M s g ] , A T 0030700 [ 7 5 1 0 ] ; * w e h a v e 0030720 a b r e a k p o i n t - 0030740 s e n d # 1 0 0 t o M i d 0030760 a s \r C h k F F : \r \t l u _ 0031000 F F A U L T , d b l g o t o [ 0031020 U s e r F a u l t S t a r t , M 0031040 i d a s F a u l t , R < 0 ] , 0031060 A T [ 7 5 1 1 ] ; \r M i d a s F 0031100 a u l t : \r \t R D A T A _ 4 0031120 0 4 0 0 c , g o t o [ S e n d 0031140 M s g ] , A T [ 7 5 1 2 ] ; \r 0031160 U s e r F a u l t S t a r t : \r 0031200 \t L o a d P a g e [ 0 ] , A T 0031220 [ 7 5 1 3 ] 376 \0 r * L ; \r \t g o 0031240 t o p [ U s e r F a u l t ] , 0031260 A T [ 7 5 1 4 ] ; \r S e n d M s 0031300 g : \t R W S T A T _ S e n d 0031320 B y t e , C a l l [ S e n d ] 0031340 , A T [ 7 5 1 5 ] ; \r \t g o t 0031360 o [ N e x t C o m ] , A T [ 7 0031400 5 1 6 ] ; \r \r \t E N D ; \r 377 \0 \0 0031420 d 0 m e m . m c \0 373 224 k 8 206 \0 \0 0031440 376 001 \0 267 \a I N S E R T [ D 0 L A 0031460 N G ] ; \r N O M I D A S I N I T 0031500 ; \r T I T L E [ d 0 m e m ] ; \r 0031520 * l a s t e d i t e d b y 0031540 C T J u n e 1 1 , 1 9 7 9 0031560 \r S E T T A S K [ 1 7 ] ; \r \r R 0031600 V [ R E F R , 7 7 ] ; \t * m e m 0031620 o r y r e f r e s h a d d r 0031640 e s s \r \r * T h e f o l l o w 0031660 i n g r e g i s t e r s h o 0031700 l d t h e v o l a t i l e 0031720 s t a t e o f t h e p r o 0031740 c e s s o r o n a f a u l 0031760 t : \r R V [ R X A L U , 7 6 ] 0032000 ; \t * A L U r e s u l t a n 0032020 d S A L U F \r R V [ R X A P C 0032040 , 7 5 ] ; 376 001 \0 \n 225 \t * A P C T 0032060 a s k & A P C \r R V [ R X C T A 0032100 S K , 7 4 ] ; \t * C T A S K . N 0032120 C I A \r R V [ R X P P B , 7 3 ] 0032140 ; \t * P a g e , P a r i t y , B 0032160 o o t R e a s o n \r R V [ R X S 0032200 T K , 7 2 ] ; \t * S t a c k p o 0032220 i n t e r \r \r R V [ R T M P , 7 0032240 1 ] ; \t * t e m p o r a r y \r \r 0032260 * T h e f o l l o w i n g r 0032300 e g i s t e r s a r e u s e 0032320 d f o r D 0 - M i d a s c 0032340 o m m u n i c a t i o n ( R T 0032360 M P i s a l s o u s e d ) 0032400 : \r R V [ R W S T A T , 7 0 ] ; 0032420 \t * s t a t u s r e g i s t e 0032440 r \r R V [ R D A T A 376 001 \0 022 261 , 0032460 6 7 ] ; \t * h o l d s d a t a 0032500 \r \r * F F a u l t d e t e r m 0032520 i n e s h o w f a u l t s 0032540 w i l l b e t r e a t e d 0032560 w h e n p r o g r a m s a r 0032600 e r u n n i n g . I f i 0032620 t i s \r * z e r o , a l l 0032640 f a u l t s w i l l b e r 0032660 e p o r t e d t o M i d a s 0032700 . I f F F a u l t i s 0032720 n o n z e r o , t h e k e r 0032740 n e l w i l l \r * s e n d c 0032760 o n t r o l t h r o u g h l 0033000 o c a t i o n 1 2 0 w h e n 0033020 a f a u l t o c c u r s 0033040 a n d P A R I T Y # 0 376 0033060 001 \0 1 375 ( f a u l t s w i t h 0033100 \r * P A R I T Y = 0 a r e 0033120 b r e a k p o i n t s ) . \r R 0033140 V [ F F A U L T , 6 6 ] ; \r \r * 0033160 R e g i s t e r s b e t w e e 0033200 n 3 6 0 a n d 3 6 5 a r 0033220 e u s e d b y t h e M i 0033240 d a s o v e r l a y s . T 0033260 h e f o l l o w i n g \r * r 0033300 e g i s t e r s , u s e d b 0033320 y W r i t e M I , a r e 0033340 a l s o i n t h i s r a n 0033360 g e . \r R V [ R A D D R , 6 5 ] 0033400 ; \r R V [ S t a c k 5 , 6 5 ] ; 0033420 \r \r R V [ R C N T , 6 4 ] ; \r R 0033440 V [ S T A C K 4 , 6 4 ] ; \r \r R 0033460 V [ R W 376 001 \0 256 200 0 , 6 3 ] ; \r 0033500 R V [ S T A C K 3 , 6 3 ] ; \r \r 0033520 R V [ R W 1 , 6 2 ] ; \r R V [ S 0033540 T A C K 2 , 6 2 ] ; \r \r R V [ S 0033560 T A C K 1 , 6 1 ] ; \r M C [ p S 0033600 t k 1 , 3 6 1 ] ; * p o i n t 0033620 e r t o s t a c k 1 \r R V [ 0033640 S T A C K 0 , 6 0 ] ; \r \r \r * C 0033660 o n s t a n t s f o r R e c 0033700 v a n d S e n d \r M C [ R e 0033720 c v B y t e , 1 2 ] ; \r M C [ R 0033740 e c v W o r d , 1 6 ] ; \r M C [ 0033760 S e n d B y t e , 2 1 ] ; \r M C 0034000 [ S e n d W o r d , 2 5 ] ; \r \r 0034020 * T h e f o l l o w i n g a 0034040 r e a t f i x e d l o c a 0034060 t i o n s i n 376 001 \0 217 257 K e 0034100 r n e l . m c : \r U s e r F a u 0034120 l t : \t R e t u r n , A T [ 1 0034140 2 0 ] ; \r N e x t C o m : \t R e 0034160 t u r n , A T [ 7 4 0 4 ] ; \r 0034200 S e n d : \t R e t u r n , A T 0034220 [ 7 4 6 0 ] ; \r R e c v : \t R e 0034240 t u r n , A T [ 7 4 6 4 ] ; \r 0034260 \r * d 0 m e m o v e r l a y \r 0034300 * U s e d b y M i d a s t 0034320 o d o m e m o r y r e f e 0034340 r e n c e s . \r \r O v e r l a y 0034360 A r e a : \r \t R W S T A T _ 0034400 R e c v B y t e , c a l l [ R 0034420 e c v ] , a t [ 7 5 0 0 ] ; 0034440 * g e t c o d e ( 4 , 5 , 0034460 o r 6 ) \r \t d i s p a t c 376 001 0034500 \0 S 237 h [ R D A T A , 1 4 , 4 ] 0034520 , a t [ 7 5 0 1 ] ; \r \t d i s 0034540 p [ O v e r l a y A r e a ] , 0034560 a t [ 7 5 0 2 ] ; \r I n t l k : 0034600 \t S t a c k 0 _ S t a c k 0 0034620 , g o t o [ N e x t C o m ] , 0034640 a t [ 7 5 0 3 ] ; \r \t P F e t 0034660 c h 4 [ S t a c k 4 , S t a c k 0034700 0 , 0 ] , g o t o [ I n t l k 0034720 ] , a t [ 7 5 0 4 ] ; \r \t P S 0034740 t o r e 4 [ S t a c k 4 , S t a 0034760 c k 0 , 0 ] , g o t o [ I n t 0035000 l k ] , a t [ 7 5 0 5 ] ; \r \t 0035020 X M a p [ S t a c k 4 , S t a c 0035040 k 0 , 0 ] , g o t o [ I n t l 0035060 k ] , a t [ 7 5 0 6 ] ; \r \r \r 0035100 \t E N 376 \0 003 D > D ; \r 377 \0 \0 d 0 0035120 r d m i . m c \0 373 224 k 8 210 \0 \0 376 0035140 001 \0 376 357 I N S E R T [ D 0 L A N 0035160 G ] ; \r N O M I D A S I N I T ; 0035200 \r T I T L E [ d 0 r d m i ] ; \r 0035220 * l a s t e d i t e d b y 0035240 C T J u n e 1 0 , 1 9 7 9 0035260 \r S E T T A S K [ 1 7 ] ; \r \r R 0035300 V [ R E F R , 7 7 ] ; \t * m e m 0035320 o r y r e f r e s h a d d r 0035340 e s s \r \r * T h e f o l l o w 0035360 i n g r e g i s t e r s h o 0035400 l d t h e v o l a t i l e 0035420 s t a t e o f t h e p r o 0035440 c e s s o r o n a f a u l 0035460 t : \r R V [ R X A L U , 7 6 ] 0035500 ; \t * A L U r e s u l t a n 0035520 d S A L U F \r R V [ R X A P C 0035540 , 7 5 ] 376 001 \0 270 341 ; \t * A P C T 0035560 a s k & A P C \r R V [ R X C T A 0035600 S K , 7 4 ] ; \t * C T A S K . N 0035620 C I A \r R V [ R X P P B , 7 3 ] 0035640 ; \t * P a g e , P a r i t y , B 0035660 o o t R e a s o n \r R V [ R X S 0035700 T K , 7 2 ] ; \t * S t a c k p o 0035720 i n t e r \r \r R V [ R T M P , 7 0035740 1 ] ; \t * t e m p o r a r y \r \r 0035760 * T h e f o l l o w i n g r 0036000 e g i s t e r s a r e u s e 0036020 d f o r D 0 - M i d a s c 0036040 o m m u n i c a t i o n ( R T 0036060 M P i s a l s o u s e d ) 0036100 : \r R V [ R W S T A T , 7 0 ] ; 0036120 \t * s t a t u s r e g i s t e 0036140 r \r R V [ R D A T 376 001 \0 376 346 A , 0036160 6 7 ] ; \t * h o l d s d a t a 0036200 \r \r * F F a u l t d e t e r m 0036220 i n e s h o w f a u l t s 0036240 w i l l b e t r e a t e d 0036260 w h e n p r o g r a m s a r 0036300 e r u n n i n g . I f i 0036320 t i s \r * z e r o , a l l 0036340 f a u l t s w i l l b e r 0036360 e p o r t e d t o M i d a s 0036400 . I f F F a u l t i s 0036420 n o n z e r o , t h e k e r 0036440 n e l w i l l \r * s e n d c 0036460 o n t r o l t h r o u g h l 0036500 o c a t i o n 1 2 0 w h e n 0036520 a f a u l t o c c u r s 0036540 a n d P A R I T Y # 0 376 001 0036560 \0 235 341 ( f a u l t s w i t h 0036600 \r * P A R I T Y = 0 a r e 0036620 b r e a k p o i n t s ) . \r R 0036640 V [ F F A U L T , 6 6 ] ; \r \r * 0036660 R e g i s t e r s b e t w e e 0036700 n 3 6 0 a n d 3 6 7 a r 0036720 e u s e d b y t h e M i 0036740 d a s o v e r l a y s . T 0036760 h e f o l l o w i n g \r * r 0037000 e g i s t e r s , u s e d b 0037020 y W r i t e M I , a r e 0037040 a l s o i n t h i s r a n 0037060 g e . \r R V [ R A D D R , 6 5 ] 0037100 ; \r \r R V [ R C N T , 6 4 ] ; \r 0037120 R V [ S T A C K 4 , 6 4 ] ; \r \r 0037140 R V [ R W 0 , 6 3 ] ; \r R V [ S 0037160 T A C 376 001 \0 ( B K 3 , 6 3 ] ; \r 0037200 \r R V [ R W 1 , 6 2 ] ; \r R V [ 0037220 S T A C K 2 , 6 2 ] ; \r \r R V [ 0037240 S T A C K 1 , 6 1 ] ; \r M C [ p 0037260 S t k 1 , 3 6 1 ] ; * p o i n 0037300 t e r t o s t a c k 1 \r R V 0037320 [ S T A C K 0 , 6 0 ] ; \r \r \r * 0037340 C o n s t a n t s f o r R e 0037360 c v a n d S e n d \r M C [ R 0037400 e c v B y t e , 1 2 ] ; \r M C [ 0037420 R e c v W o r d , 1 6 ] ; \r M C 0037440 [ S e n d B y t e , 2 1 ] ; \r M 0037460 C [ S e n d W o r d , 2 5 ] ; \r 0037500 \r * T h e f o l l o w i n g 0037520 a r e a t f i x e d l o c 0037540 a t i o n s i n K e r n e l 0037560 . m c : \r U s e 376 001 \0 233 223 r F a 0037600 u l t : \t R e t u r n , A T [ 0037620 1 2 0 ] ; \r N e x t C o m : \t R 0037640 e t u r n , A T [ 7 4 0 4 ] ; 0037660 \r S e n d : \t R e t u r n , A 0037700 T [ 7 4 6 0 ] ; \r R e c v : \t R 0037720 e t u r n , A T [ 7 4 6 4 ] ; 0037740 \r \r * d 0 r d m i o v e r l a 0037760 y \r * U s e d b y M i d a s 0040000 t o r e a d a m i c r o 0040020 i n s t r u c t i o n . \r \r O v 0040040 e r l a y A r e a : \r \t R W S T 0040060 A T _ R e c v W o r d , C 0040100 a l l [ R e c v ] , a t [ 7 5 0040120 0 0 ] ; * g e t a d d r e s 0040140 s \r \t R A D D R _ T , a t 0040160 [ 7 5 0 1 ] ; \r \t T _ 376 001 \0 0040200 251 h 0 c , c a l l [ R d C S ] 0040220 , a t [ 7 5 0 2 ] ; * r e a 0040240 d b i t s 0 - 1 5 \r \t R D A 0040260 T A _ T , c a l l [ S e n 0040300 d ] , a t [ 7 5 0 3 ] ; \r \t T 0040320 _ 1 c , c a l l [ R d C S 0040340 ] , a t [ 7 5 0 4 ] ; * r e 0040360 a d b i t s 1 6 - 3 1 \r \t R 0040400 D A T A _ T , c a l l [ S 0040420 e n d ] , a t [ 7 5 0 5 ] ; \r \t 0040440 T _ 3 c , c a l l [ R d C 0040460 S ] , a t [ 7 5 0 6 ] ; * r e 0040500 a d b i t s 3 2 - 3 5 i n 0040520 t o T [ 0 - 3 ] \r \t R D A T A 0040540 _ T , a t [ 7 5 0 7 ] ; \r 0040560 \t R W S T A T _ S e n d B y 0040600 t e 376 \0 371 363 212 , c a l l [ S e 0040620 n d ] , a t [ 7 5 1 0 ] ; \r \t 0040640 g o t o [ N e x t C o m ] , a 0040660 t [ 7 5 1 1 ] ; \r \r R D C s : \t 0040700 A P C & A P C T a s k _ R A 0040720 D D R , a t [ 7 5 1 2 ] ; \r \t 0040740 R e a d C S , a t [ 7 5 1 3 ] 0040760 ; \r \t R W S T A T _ S e n d 0041000 W o r d , a t [ 7 5 1 4 ] ; 0041020 * n o t e - t h i s i n s 0041040 t r u c t i o n m u s t b e 0041060 a t a n e v e n l o c a 0041100 t i o n \r \t u s e c t a s k , 0041120 a t [ 7 5 1 5 ] ; \r \t T _ C 0041140 S D a t a , r e t u r n , a 0041160 t [ 7 5 1 6 ] ; \r \r \t E N D ; \r 0041200 377 \0 \0 d 0 r d t . m c \0 373 227 031 353 0041220 301 \0 \0 376 001 \0 w U I N S E R T [ D 0041240 0 L A N G ] ; \r : T I T L E [ d 0041260 0 r d t ] ; \r * E d i t b y 0041300 E R F 1 M a y 1 9 8 1 \r * 0041320 E d i t b y C T J u n e 0041340 1 0 , 1 9 7 9 \r S E T T A S K 0041360 [ 1 7 ] ; \r \r R V [ R E F R , 7 0041400 7 ] ; \t * m e m o r y r e f r 0041420 e s h a d d r e s s \r \r * T h 0041440 e f o l l o w i n g r e g i 0041460 s t e r s h o l d t h e v 0041500 o l a t i l e s t a t e o f 0041520 t h e p r o c e s s o r o 0041540 n a f a u l t : \r R V [ R 0041560 X A L U , 7 6 ] ; \t * A L U r 0041600 e s u l t a n d S A L U F \r 0041620 R V [ R X A P C 376 001 \0 206 335 , 7 5 0041640 ] ; \t * A P C T a s k & A P C \r 0041660 R V [ R X C T A S K , 7 4 ] ; \t 0041700 * C T A S K . N C I A \r R V [ R 0041720 X P P B , 7 3 ] ; \t * P a g e , 0041740 P a r i t y , B o o t R e a s o 0041760 n \r R V [ R X S T K , 7 2 ] ; \t 0042000 * S t a c k p o i n t e r \r \r R 0042020 V [ R T M P , 7 1 ] ; \t * t e m 0042040 p o r a r y \r \r * T h e f o l 0042060 l o w i n g r e g i s t e r s 0042100 a r e u s e d f o r D 0 0042120 - M i d a s c o m m u n i c a 0042140 t i o n ( R T M P i s a l 0042160 s o u s e d ) : \r R V [ R W S 0042200 T A T , 7 0 ] ; \t * s t a t u s 0042220 r e g i s t e r \r R V [ 376 001 \0 0042240 R + R D A T A , 6 7 ] ; \t * h o 0042260 l d s d a t a \r \r * F F a u l 0042300 t d e t e r m i n e s h o w 0042320 f a u l t s w i l l b e 0042340 t r e a t e d w h e n p r o 0042360 g r a m s a r e r u n n i n 0042400 g . I f i t i s \r * z e 0042420 r o , a l l f a u l t s w 0042440 i l l b e r e p o r t e d 0042460 t o M i d a s . I f F F 0042500 a u l t i s n o n z e r o , 0042520 t h e k e r n e l w i l l 0042540 \r * s e n d c o n t r o l t 0042560 h r o u g h l o c a t i o n 0042600 1 2 0 w h e n a f a u l t 0042620 o c c u r s a n d P A R I 0042640 T Y 376 001 \0 I 235 # 0 ( f a u 0042660 l t s w i t h \r * P A R I T Y 0042700 = 0 a r e b r e a k p o 0042720 i n t s ) . \r R V [ F F A U L T 0042740 , 6 6 ] ; \r \r * R e g i s t e r 0042760 s b e t w e e n 3 6 0 a n 0043000 d 3 6 7 a r e u s e d b 0043020 y t h e M i d a s o v e r 0043040 l a y s . T h e f o l l o 0043060 w i n g \r * r e g i s t e r s 0043100 , u s e d b y W r i t e M 0043120 I , a r e a l s o i n 0043140 t h i s r a n g e . \r R V [ R 0043160 A D D R , 6 5 ] ; \r \r R V [ R C 0043200 N T , 6 4 ] ; \r R V [ S T A C K 0043220 4 , 6 4 ] ; \r \r R V [ R W 0 , 6 0043240 3 ] ; \r R V [ 376 001 \0 < 037 S T A C 0043260 K 3 , 6 3 ] ; \r \r R V [ R W 1 , 0043300 6 2 ] ; \r R V [ S T A C K 2 , 6 0043320 2 ] ; \r \r R V [ S T A C K 1 , 6 0043340 1 ] ; \r M C [ p S t k 1 , 3 6 1 0043360 ] ; * p o i n t e r t o s 0043400 t a c k 1 \r R V [ S T A C K 0 , 0043420 6 0 ] ; \r \r \r * C o n s t a n t 0043440 s f o r R e c v a n d S 0043460 e n d \r M C [ R e c v B y t e , 0043500 1 2 ] ; \r M C [ R e c v W o r d 0043520 , 1 6 ] ; \r M C [ S e n d B y t 0043540 e , 2 1 ] ; \r M C [ S e n d W o 0043560 r d , 2 5 ] ; \r \r * T h e f o 0043600 l l o w i n g a r e a t f 0043620 i x e d l o c a t i o n s i 0043640 n K e r n e l . m c : 376 001 \0 e 0043660 215 \r U s e r F a u l t : \t R e t 0043700 u r n , A t [ 1 2 0 ] ; \r N e 0043720 x t C o m : \t R e t u r n , A 0043740 t [ 7 4 0 4 ] ; \r R e a d R X : 0043760 \t R e t u r n , A t [ 7 4 0 6 0044000 ] ; \r S e n d : \t R e t u r n , 0044020 A t [ 7 4 6 0 ] ; \r R e c v : 0044040 \t R e t u r n , A t [ 7 4 6 4 0044060 ] ; \r \r * d 0 r d t o v e r l 0044100 a y \r * U s e d b y M i d a 0044120 s t o r e a d T f o r 0044140 a n y t a s k . \r \r * N o t i 0044160 f y t a s k n t o d o 0044200 t h e r e a d \r O v e r l a y 0044220 A r e a : \r \t R W S T A T _ 0044240 R e c v B y t e , C a l l [ R 0044260 e 376 001 \0 ? 303 c v ] , A t [ 7 5 0044300 0 0 ] ; \t * g e t t a s k n 0044320 u m b e r \r \t S t a c k 1 _ 0044340 T , A t [ 7 5 0 1 ] ; \r \t T 0044360 _ 7 4 0 0 C , A t [ 7 5 0 2 0044400 ] ; \r \t S t a c k 1 _ ( L S 0044420 h [ S t a c k 1 , 1 4 ] ) + 0044440 T , A t [ 7 5 0 3 ] ; \r * P o 0044460 i n t S t a c k 1 a t t a 0044500 s k n , l o c a t i o n G 0044520 e t T ( 7 5 1 1 ) \r \t S t a c 0044540 k 1 _ ( S t a c k 1 ) + 0044560 ( 1 1 1 C ) , A t [ 7 5 0 4 ] 0044600 ; \r \t R T M P _ p S t k 1 , 0044620 A t [ 7 5 0 5 ] ; \r \t S t k P 0044640 _ R T M P , A t [ 7 5 0 6 ] 0044660 ; \t * P o i 376 001 \0 z 376 n t S t 0044700 k P a t S t a c k 1 \r * P o 0044720 i n t S t a c k 0 a t t a 0044740 s k 1 7 , l o c a t i o n 0044760 7 5 1 5 \r \t S t a c k 0 _ 1 0045000 7 7 4 0 0 C , A t [ 7 5 0 7 ] 0045020 ; \r \t S t a c k 0 _ ( S t a 0045040 c k 0 ) + ( 1 1 5 C ) , G 0045060 o T o [ N o t i f y B o t h W a 0045100 y s ] , A t [ 7 5 1 0 ] ; \r \r 0045120 G e t T : \t S t a c k & + 1 _ 0045140 T , A t [ 7 5 1 1 ] ; \t * S 0045160 t a c k 1 _ T \r \t S t a c k 0045200 & - 1 , A t [ 7 5 1 2 ] ; \t * 0045220 p o i n t t o R e t u r n 0045240 a d d r e s s \r N o t i f y B o 0045260 t h W a y s : \r \t A P 376 \0 216 1 266 0045300 C & A P C T a s k _ S t a c 0045320 k & - 1 , A t [ 7 5 1 3 ] ; \r 0045340 \t R e t u r n , A t [ 7 5 1 4 0045360 ] ; \r * B a c k i n t a s k 0045400 1 7 ; g e t r e c o v e r 0045420 e d T a n d s e n d i t 0045440 . \r \t T _ S t a c k 1 , G 0045460 o T o [ R e a d R X ] , A t [ 0045500 7 5 1 5 ] ; \r \r : E N D ; \r 377 \0 0045520 \0 d 0 r d t p c . m c \0 373 227 031 354 0045540 003 \0 \0 376 001 \0 257 312 I N S E R T [ D 0045560 0 L A N G ] ; \r : T I T L E [ d 0045600 0 r d t p c ] ; \r * E d i t b 0045620 y E R F 1 M a y 1 9 8 1 0045640 \r * E d i t b y C T J u n 0045660 e 1 0 , 1 9 7 9 \r \r S e t T 0045700 a s k [ 1 7 ] ; \r \r R V [ R E F 0045720 R , 7 7 ] ; \t * m e m o r y r 0045740 e f r e s h a d d r e s s \r \r 0045760 * T h e f o l l o w i n g r 0046000 e g i s t e r s h o l d t h 0046020 e v o l a t i l e s t a t e 0046040 o f t h e p r o c e s s o 0046060 r o n a f a u l t : \r R 0046100 V [ R X A L U , 7 6 ] ; \t * A L 0046120 U r e s u l t a n d S A L 0046140 U F \r R V [ R X 376 001 \0 335 W A P C 0046160 , 7 5 ] ; \t * A P C T a s k & A 0046200 P C \r R V [ R X C T A S K , 7 4 0046220 ] ; \t * C T A S K . N C I A \r R 0046240 V [ R X P P B , 7 3 ] ; \t * P a 0046260 g e , P a r i t y , B o o t R e 0046300 a s o n \r R V [ R X S T K , 7 2 0046320 ] ; \t * S t a c k p o i n t e r 0046340 \r \r R V [ R T M P , 7 1 ] ; \t * 0046360 t e m p o r a r y \r \r * T h e 0046400 f o l l o w i n g r e g i s t 0046420 e r s a r e u s e d f o r 0046440 D 0 - M i d a s c o m m u n 0046460 i c a t i o n ( R T M P i s 0046500 a l s o u s e d ) : \r R V [ 0046520 R W S T A T , 7 0 ] ; \t * s t a 0046540 t u s r e g i s t e r \r 376 001 \0 0046560 c ' R V [ R D A T A , 6 7 ] ; \t 0046600 * h o l d s d a t a \r \r * F F 0046620 a u l t d e t e r m i n e s 0046640 h o w f a u l t s w i l l 0046660 b e t r e a t e d w h e n 0046700 p r o g r a m s a r e r u n 0046720 n i n g . I f i t i s \r 0046740 * z e r o , a l l f a u l t 0046760 s w i l l b e r e p o r t 0047000 e d t o M i d a s . I f 0047020 F F a u l t i s n o n z e 0047040 r o , t h e k e r n e l w 0047060 i l l \r * s e n d c o n t r o 0047100 l t h r o u g h l o c a t i 0047120 o n 1 2 0 w h e n a f a 0047140 u l t o c c u r s a n d P 0047160 A R 376 001 \0 272 037 I T Y # 0 ( 0047200 f a u l t s w i t h \r * P A R 0047220 I T Y = 0 a r e b r e a 0047240 k p o i n t s ) . \r R V [ F F A 0047260 U L T , 6 6 ] ; \r \r * R e g i s 0047300 t e r s b e t w e e n 3 6 0 0047320 a n d 3 6 7 a r e u s e 0047340 d b y t h e M i d a s o 0047360 v e r l a y s . T h e f o 0047400 l l o w i n g \r * r e g i s t 0047420 e r s , u s e d b y W r i 0047440 t e M I , a r e a l s o 0047460 i n t h i s r a n g e . \r R 0047500 V [ R A D D R , 6 5 ] ; \r \r R V 0047520 [ R C N T , 6 4 ] ; \r R V [ S T 0047540 A C K 4 , 6 4 ] ; \r \r R V [ R W 0047560 0 , 6 3 ] ; \r 376 001 \0 M \a R V [ S 0047600 T A C K 3 , 6 3 ] ; \r \r R V [ R 0047620 W 1 , 6 2 ] ; \r R V [ S T A C K 0047640 2 , 6 2 ] ; \r \r R V [ S T A C K 0047660 1 , 6 1 ] ; \r M C [ p S t k 1 , 0047700 3 6 1 ] ; * p o i n t e r t 0047720 o s t a c k 1 \r R V [ S T A C 0047740 K 0 , 6 0 ] ; \r \r \r * C o n s t 0047760 a n t s f o r R e c v a n 0050000 d S e n d \r M C [ R e c v B y 0050020 t e , 1 2 ] ; \r M C [ R e c v W 0050040 o r d , 1 6 ] ; \r M C [ S e n d 0050060 B y t e , 2 1 ] ; \r M C [ S e n 0050100 d W o r d , 2 5 ] ; \r \r * T h e 0050120 f o l l o w i n g a r e a 0050140 t f i x e d l o c a t i o n 0050160 s i n K e r n e l . 376 001 \0 z 0050200 247 m c : \r U s e r F a u l t : \t 0050220 R e t u r n , A t [ 1 2 0 ] ; 0050240 \r N e x t C o m : \t R e t u r n 0050260 , A t [ 7 4 0 4 ] ; \r R e a d 0050300 R X : \t R e t u r n , A t [ 7 0050320 4 0 6 ] ; \r S e n d : \t R e t u 0050340 r n , A t [ 7 4 6 0 ] ; \r R e 0050360 c v : \t R e t u r n , A t [ 7 0050400 4 6 4 ] ; \r \r * d 0 r d t p c 0050420 o v e r l a y u s e d b y 0050440 M i d a s t o r e a d T P 0050460 C f o r a n y t a s k . \r 0050500 \r * N o t i f y t a s k n 0050520 t o d o t h e r e a d \r O 0050540 v e r l a y A r e a : \r \t R W S 0050560 T A T _ R e c v B y t e , 0050600 C 376 001 \0 272 254 a l l [ R e c v ] , 0050620 A t [ 7 5 0 0 ] ; * g e t 0050640 t a s k n u m b e r t o r 0050660 e a d \r \t S t a c k 1 _ T , 0050700 A t [ 7 5 0 1 ] ; \r \t T _ 0050720 7 4 0 0 C , A t [ 7 5 0 2 ] ; 0050740 \r \t S t a c k 1 _ ( L S h [ 0050760 S t a c k 1 , 1 4 ] ) + T , 0051000 A t [ 7 5 0 3 ] ; \r * P o i n 0051020 t S t a c k 1 a t t a s k 0051040 n , l o c a t i o n G e t 0051060 T P C ( 7 5 1 1 ) \r \t S t a c 0051100 k 1 _ ( S t a c k 1 ) + 0051120 ( 1 1 1 C ) , A t [ 7 5 0 4 ] 0051140 ; \r \t R T M P _ p S t k 1 , 0051160 A t [ 7 5 0 5 ] ; \r \t S t k P 0051200 _ R T M 376 001 \0 377 x P , A t 0051220 [ 7 5 0 6 ] ; \t \t * P o i n t 0051240 S t k P a t S t a c k 1 \r \t 0051260 S t a c k 0 _ 1 7 7 4 0 0 C 0051300 , A t [ 7 5 0 7 ] ; * s e t 0051320 u p S t a c k 0 t o p o 0051340 i n t t o t a s k 1 7 , 0051360 l o c a t i o n 7 5 1 5 \r \t S 0051400 t a c k 0 _ ( S t a c k 0 ) 0051420 + ( 1 1 5 C ) , G o T o [ 0051440 N o t i f y B o t h W a y s ] , 0051460 A t [ 7 5 1 0 ] ; \r \r G e t T 0051500 P C : \t U s e C T a s k , A t 0051520 [ 7 5 1 1 ] ; \r \t M N B R _ 0051540 A P C T a s k & A P C , A t [ 0051560 7 5 1 2 ] ; \r N o t i f y B o t 0051600 h W a y s : \r \t A P C 376 \0 211 272 v 0051620 T a s k & A P C _ S t a c k 0051640 & - 1 , A t [ 7 5 1 3 ] ; \r \t R 0051660 e t u r n , A t [ 7 5 1 4 ] ; 0051700 \r * B a c k i n t a s k 1 0051720 7 , s e n d r e c o v e r e 0051740 d T P C t o M i d a s \r \t 0051760 T _ M N B R , G o T o [ R 0052000 e a d R X ] , A t [ 7 5 1 5 ] 0052020 ; \r \r : E N D ; \r 377 \0 \0 d 0 r n 0052040 v r . m c \0 373 224 k 8 220 \0 \0 376 001 \0 0052060 021 370 I N S E R T [ D 0 L A N G ] 0052100 ; \r N O M I D A S I N I T ; \r T 0052120 I T L E [ d 0 r n v r ] ; \r * l 0052140 a s t e d i t e d b y C T 0052160 J u n e 1 0 , 1 9 7 9 \r S 0052200 E T T A S K [ 1 7 ] ; \r \r R V [ 0052220 R E F R , 7 7 ] ; \t * m e m o r 0052240 y r e f r e s h a d d r e s 0052260 s \r \r * T h e f o l l o w i n 0052300 g r e g i s t e r s h o l d 0052320 t h e v o l a t i l e s t 0052340 a t e o f t h e p r o c e 0052360 s s o r o n a f a u l t : 0052400 \r R V [ R X A L U , 7 6 ] ; \t 0052420 * A L U r e s u l t a n d 0052440 S A L U F \r R V [ R X A P C , 7 0052460 5 ] 376 001 \0 270 341 ; \t * A P C T a s 0052500 k & A P C \r R V [ R X C T A S K 0052520 , 7 4 ] ; \t * C T A S K . N C I 0052540 A \r R V [ R X P P B , 7 3 ] ; \t 0052560 * P a g e , P a r i t y , B o o 0052600 t R e a s o n \r R V [ R X S T K 0052620 , 7 2 ] ; \t * S t a c k p o i n 0052640 t e r \r \r R V [ R T M P , 7 1 ] 0052660 ; \t * t e m p o r a r y \r \r * T 0052700 h e f o l l o w i n g r e g 0052720 i s t e r s a r e u s e d 0052740 f o r D 0 - M i d a s c o m 0052760 m u n i c a t i o n ( R T M P 0053000 i s a l s o u s e d ) : \r 0053020 R V [ R W S T A T , 7 0 ] ; \t * 0053040 s t a t u s r e g i s t e r \r 0053060 R V [ R D A T 376 001 \0 376 346 A , 6 7 0053100 ] ; \t * h o l d s d a t a \r \r 0053120 * F F a u l t d e t e r m i n 0053140 e s h o w f a u l t s w i 0053160 l l b e t r e a t e d w h 0053200 e n p r o g r a m s a r e 0053220 r u n n i n g . I f i t 0053240 i s \r * z e r o , a l l f a 0053260 u l t s w i l l b e r e p 0053300 o r t e d t o M i d a s . 0053320 I f F F a u l t i s n o 0053340 n z e r o , t h e k e r n e 0053360 l w i l l \r * s e n d c o n 0053400 t r o l t h r o u g h l o c 0053420 a t i o n 1 2 0 w h e n a 0053440 f a u l t o c c u r s a n 0053460 d P A R I T Y # 0 376 001 \0 235 0053500 341 ( f a u l t s w i t h \r * 0053520 P A R I T Y = 0 a r e b 0053540 r e a k p o i n t s ) . \r R V [ 0053560 F F A U L T , 6 6 ] ; \r \r * R e 0053600 g i s t e r s b e t w e e n 0053620 3 6 0 a n d 3 6 7 a r e 0053640 u s e d b y t h e M i d a 0053660 s o v e r l a y s . T h e 0053700 f o l l o w i n g \r * r e g 0053720 i s t e r s , u s e d b y 0053740 W r i t e M I , a r e a l 0053760 s o i n t h i s r a n g e 0054000 . \r R V [ R A D D R , 6 5 ] ; \r 0054020 \r R V [ R C N T , 6 4 ] ; \r R V 0054040 [ S T A C K 4 , 6 4 ] ; \r \r R V 0054060 [ R W 0 , 6 3 ] ; \r R V [ S T A 0054100 C 376 001 \0 362 D K 3 , 6 3 ] ; \r \r R 0054120 V [ R W 1 , 6 2 ] ; \r R V [ S T 0054140 A C K 2 , 6 2 ] ; \r \r R V [ S T 0054160 A C K 1 , 6 1 ] ; \r R V [ S T A 0054200 C K 0 , 6 0 ] ; \r \r \r \r * C o n 0054220 s t a n t s f o r R e c v 0054240 a n d S e n d \r M C [ R e c v 0054260 B y t e , 1 2 ] ; \r M C [ R e c 0054300 v W o r d , 1 6 ] ; \r M C [ S e 0054320 n d B y t e , 2 1 ] ; \r M C [ S 0054340 e n d W o r d , 2 5 ] ; \r \r * T 0054360 h e f o l l o w i n g a r e 0054400 a t f i x e d l o c a t i 0054420 o n s i n K e r n e l . m c 0054440 : \r U s e r F a u l t : \t R e t 0054460 u r n , A T [ 1 2 0 ] ; \r N e 0054500 x t C o m : 376 001 \0 343 { \t R e t u 0054520 r n , A T [ 7 4 0 4 ] ; \r S e 0054540 n d : \t R e t u r n , A T [ 7 0054560 4 6 0 ] ; \r R e c v : \t R e t u 0054600 r n , A T [ 7 4 6 4 ] ; \r \r * 0054620 d 0 r n v r o v e r l a y \r * 0054640 R e a d s t h e r e g i s t 0054660 e r s t h a t a r e n o t 0054700 c h a n g e d b y t h e 0054720 k e r n e l \r O v e r l a y A r 0054740 e a : \r \t T _ M e m S y n d 0054760 r o m e , a t [ 7 5 0 0 ] ; \r 0055000 \t s t a c k 0 _ T , a t [ 0055020 7 5 0 1 ] ; \r \t T _ g e t r 0055040 s p e c [ 1 2 7 ] , a t [ 7 5 0055060 0 2 ] ; * C y c l e C o n t r 0055100 o l ( D B X [ 2 : 5 ] 376 \0 257 $ 215 0055120 , M W X ) , P C X , P C F \r 0055140 \t s t a c k 1 _ T , a t [ 0055160 7 5 0 3 ] ; \r \t T _ g e t r 0055200 s p e c [ 1 3 3 ] , r e g s h 0055220 i f t , a t [ 7 5 0 4 ] ; * 0055240 D B , S B \r \t s t a c k 2 _ 0055260 T , a t [ 7 5 0 5 ] ; \r \t T 0055300 _ M N B R , a t [ 7 5 0 6 ] 0055320 ; \r \t s t a c k 3 _ T , g 0055340 o t o [ N e x t C o m ] , a t 0055360 [ 7 5 0 7 ] ; \t \r \t E N D ; \r 377 0055400 \0 \0 d 0 r s r . m c \0 373 227 031 354 M 0055420 \0 \0 376 001 \0 217 265 I N S E R T [ D 0 0055440 L A N G ] ; \r : T I T L E [ d 0 0055460 r s r ] ; \r * E d i t b y E 0055500 R F 1 M a y 1 9 8 1 \r * E 0055520 d i t b y C T J u n e 1 0055540 0 , 1 9 7 9 \r \r S e t T a s k 0055560 [ 1 7 ] ; \r \r R V [ R E F R , 7 0055600 7 ] ; \t * m e m o r y r e f r 0055620 e s h a d d r e s s \r \r * T h 0055640 e f o l l o w i n g r e g i 0055660 s t e r s h o l d t h e v 0055700 o l a t i l e s t a t e o f 0055720 t h e p r o c e s s o r o 0055740 n a f a u l t : \r R V [ R 0055760 X A L U , 7 6 ] ; \t * A L U r 0056000 e s u l t a n d S A L U F \r 0056020 R V [ R X A P 376 001 \0 356 ] C , 7 5 0056040 ] ; \t * A P C T a s k & A P C \r 0056060 R V [ R X C T A S K , 7 4 ] ; \t 0056100 * C T A S K . N C I A \r R V [ R 0056120 X P P B , 7 3 ] ; \t * P a g e , 0056140 P a r i t y , B o o t R e a s o 0056160 n \r R V [ R X S T K , 7 2 ] ; \t 0056200 * S t a c k p o i n t e r \r \r R 0056220 V [ R T M P , 7 1 ] ; \t * t e m 0056240 p o r a r y \r \r * T h e f o l 0056260 l o w i n g r e g i s t e r s 0056300 a r e u s e d f o r D 0 0056320 - M i d a s c o m m u n i c a 0056340 t i o n ( R T M P i s a l 0056360 s o u s e d ) : \r R V [ R W S 0056400 T A T , 7 0 ] ; \t * s t a t u s 0056420 r e g i s t e r \r R V 376 001 \0 Z 0056440 % [ R D A T A , 6 7 ] ; \t * h o 0056460 l d s d a t a \r \r * F F a u l 0056500 t d e t e r m i n e s h o w 0056520 f a u l t s w i l l b e 0056540 t r e a t e d w h e n p r o 0056560 g r a m s a r e r u n n i n 0056600 g . I f i t i s \r * z e 0056620 r o , a l l f a u l t s w 0056640 i l l b e r e p o r t e d 0056660 t o M i d a s . I f F F 0056700 a u l t i s n o n z e r o , 0056720 t h e k e r n e l w i l l 0056740 \r * s e n d c o n t r o l t 0056760 h r o u g h l o c a t i o n 0057000 1 2 0 w h e n a f a u l t 0057020 o c c u r s a n d P A R I 0057040 T 376 001 \0 303 ! Y # 0 ( f a u 0057060 l t s w i t h \r * P A R I T Y 0057100 = 0 a r e b r e a k p o 0057120 i n t s ) . \r R V [ F F A U L T 0057140 , 6 6 ] ; \r \r * R e g i s t e r 0057160 s b e t w e e n 3 6 0 a n 0057200 d 3 6 7 a r e u s e d b 0057220 y t h e M i d a s o v e r 0057240 l a y s . T h e f o l l o 0057260 w i n g \r * r e g i s t e r s 0057300 , u s e d b y W r i t e M 0057320 I , a r e a l s o i n 0057340 t h i s r a n g e . \r R V [ R 0057360 A D D R , 6 5 ] ; \r \r R V [ R C 0057400 N T , 6 4 ] ; \r R V [ S T A C K 0057420 4 , 6 4 ] ; \r \r R V [ R W 0 , 6 0057440 3 ] ; \r R V 376 001 \0 h 024 [ S T A C 0057460 K 3 , 6 3 ] ; \r \r R V [ R W 1 , 0057500 6 2 ] ; \r R V [ S T A C K 2 , 6 0057520 2 ] ; \r \r R V [ S T A C K 1 , 6 0057540 1 ] ; \r M C [ p S t k 1 , 3 6 1 0057560 ] ; * p o i n t e r t o s 0057600 t a c k 1 \r R V [ S T A C K 0 , 0057620 6 0 ] ; \r \r \r * C o n s t a n t 0057640 s f o r R e c v a n d S 0057660 e n d \r M C [ R e c v B y t e , 0057700 1 2 ] ; \r M C [ R e c v W o r d 0057720 , 1 6 ] ; \r M C [ S e n d B y t 0057740 e , 2 1 ] ; \r M C [ S e n d W o 0057760 r d , 2 5 ] ; \r \r * T h e f o 0060000 l l o w i n g a r e a t f 0060020 i x e d l o c a t i o n s i 0060040 n K e r n e l . m c 376 001 \0 026 312 0060060 : \r U s e r F a u l t : \t R e t 0060100 u r n , A t [ 1 2 0 ] ; \r N e 0060120 x t C o m : \t R e t u r n , A 0060140 t [ 7 4 0 4 ] ; \r R e a d R X : 0060160 \t R e t u r n , A t [ 7 4 0 6 0060200 ] ; \r S e n d : \t R e t u r n , 0060220 A t [ 7 4 6 0 ] ; \r R e c v : 0060240 \t R e t u r n , A t [ 7 4 6 4 0060260 ] ; \r \r * d 0 r s r o v e r l 0060300 a y u s e d b y M i d a s 0060320 t o r e a d R M 0 a n 0060340 d R M 1 7 , w h i c h c 0060360 a n n o t b e r e a d \r * w 0060400 i t h t h e s t a c k p o i 0060420 n t e r , s i n c e s t a c 0060440 k o v e r f l o w w o u l d 0060460 376 001 \0 v % b e c a u s e d . 0060500 \r \r * N o t i f y t a s k 0 0060520 a t 7 5 1 0 + R e a d C 0060540 o d e t o d o t h e r e 0060560 a d \r O v e r l a y A r e a : \r 0060600 \t R W S T A T _ R e c v B y 0060620 t e , C a l l [ R e c v ] , 0060640 A t [ 7 5 0 0 ] ; * g e t c 0060660 o d e ( 0 - 1 0 b ) i n t o 0060700 T \r \t R T M P _ p S t k 1 0060720 , A t [ 7 5 0 1 ] ; \r \t S t k 0060740 P _ R T M P , A t [ 7 5 0 0060760 2 ] ; * s e t s t k p t o 0061000 p o i n t t o S t a c k 1 0061020 \r \t S t a c k 1 _ 7 4 0 0 C 0061040 , A t [ 7 5 0 3 ] ; \r \t S t a 0061060 c k 1 _ 376 001 \0 032 3 ( S t a c 0061100 k 1 ) + ( 1 1 0 C ) , A t 0061120 [ 7 5 0 4 ] ; \r * P o i n t S 0061140 t a c k 1 a t t a s k 0 , 0061160 l o c a t i o n 7 5 1 0 + 0061200 R e a d C o d e \r \t S t a c k 0061220 1 _ ( S t a c k 1 ) + T 0061240 , A t [ 7 5 0 5 ] ; \r * P o i 0061260 n t S t a c k 0 a t t a s 0061300 k 1 7 , l o c a t i o n 7 0061320 5 2 3 \r \t S t a c k 0 _ 1 7 0061340 7 4 0 0 C , A t [ 7 5 0 6 ] ; 0061360 \r \t S t a c k 0 _ ( S t a c 0061400 k 0 ) + ( 1 1 4 C ) , G o 0061420 T o [ N o t i f y B o t h W a y 0061440 s ] , A t [ 7 5 0 7 ] ; \r \t \r 0061460 \t S e t T a s k [ 0 376 \0 376 335 266 ] 0061500 ; \r R V [ R 0 , 0 ] ; \r R V [ R 0061520 1 7 , 1 7 ] ; \r \t M N B R _ 0061540 R 0 , G o T o [ N o t i f y B 0061560 o t h W a y s ] , A t [ 7 5 1 0061600 0 ] ; \r \t M N B R _ R 1 7 , 0061620 G o T o [ N o t i f y B o t h 0061640 W a y s ] , A t [ 7 5 1 1 ] ; 0061660 \r \r S e t T a s k [ 1 7 ] ; \r N 0061700 o t i f y B o t h W a y s : \r \t 0061720 A P C T a s k & A P C _ S t 0061740 a c k & - 1 , A t [ 7 5 1 2 ] 0061760 ; \r \t R e t u r n , A t [ 7 5 0062000 1 3 ] ; \r \t T _ M N B R , 0062020 G o T o [ R e a d R X ] , A t 0062040 [ 7 5 1 4 ] ; * b a c k i n 0062060 t a s k 1 7 \r \r : E N 376 \0 003 0062100 D > D ; \r 377 \0 \0 d 0 w n v r . m 0062120 c \0 373 224 k 8 224 \0 \0 376 001 \0 021 375 I N 0062140 S E R T [ D 0 L A N G ] ; \r N O 0062160 M I D A S I N I T ; \r T I T L E 0062200 [ d 0 w n v r ] ; \r * l a s t 0062220 e d i t e d b y C T J u n 0062240 e 1 0 , 1 9 7 9 \r S E T T A 0062260 S K [ 1 7 ] ; \r \r R V [ R E F R 0062300 , 7 7 ] ; \t * m e m o r y r e 0062320 f r e s h a d d r e s s \r \r * 0062340 T h e f o l l o w i n g r e 0062360 g i s t e r s h o l d t h e 0062400 v o l a t i l e s t a t e 0062420 o f t h e p r o c e s s o r 0062440 o n a f a u l t : \r R V 0062460 [ R X A L U , 7 6 ] ; \t * A L U 0062500 r e s u l t a n d S A L U 0062520 F \r R V [ R X A P C , 7 5 ] 376 001 0062540 \0 270 341 ; \t * A P C T a s k & A P 0062560 C \r R V [ R X C T A S K , 7 4 ] 0062600 ; \t * C T A S K . N C I A \r R V 0062620 [ R X P P B , 7 3 ] ; \t * P a g 0062640 e , P a r i t y , B o o t R e a 0062660 s o n \r R V [ R X S T K , 7 2 ] 0062700 ; \t * S t a c k p o i n t e r \r 0062720 \r R V [ R T M P , 7 1 ] ; \t * t 0062740 e m p o r a r y \r \r * T h e f 0062760 o l l o w i n g r e g i s t e 0063000 r s a r e u s e d f o r 0063020 D 0 - M i d a s c o m m u n i 0063040 c a t i o n ( R T M P i s 0063060 a l s o u s e d ) : \r R V [ R 0063100 W S T A T , 7 0 ] ; \t * s t a t 0063120 u s r e g i s t e r \r R V [ R 0063140 D A T 376 001 \0 376 346 A , 6 7 ] ; \t * 0063160 h o l d s d a t a \r \r * F F a 0063200 u l t d e t e r m i n e s h 0063220 o w f a u l t s w i l l b 0063240 e t r e a t e d w h e n p 0063260 r o g r a m s a r e r u n n 0063300 i n g . I f i t i s \r * 0063320 z e r o , a l l f a u l t s 0063340 w i l l b e r e p o r t e 0063360 d t o M i d a s . I f 0063400 F F a u l t i s n o n z e r 0063420 o , t h e k e r n e l w i 0063440 l l \r * s e n d c o n t r o l 0063460 t h r o u g h l o c a t i o 0063500 n 1 2 0 w h e n a f a u 0063520 l t o c c u r s a n d P A 0063540 R I T Y # 0 376 001 \0 235 341 ( f 0063560 a u l t s w i t h \r * P A R I 0063600 T Y = 0 a r e b r e a k 0063620 p o i n t s ) . \r R V [ F F A U 0063640 L T , 6 6 ] ; \r \r * R e g i s t 0063660 e r s b e t w e e n 3 6 0 0063700 a n d 3 6 7 a r e u s e d 0063720 b y t h e M i d a s o v 0063740 e r l a y s . T h e f o l 0063760 l o w i n g \r * r e g i s t e 0064000 r s , u s e d b y W r i t 0064020 e M I , a r e a l s o i 0064040 n t h i s r a n g e . \r R V 0064060 [ R A D D R , 6 5 ] ; \r \r R V [ 0064100 R C N T , 6 4 ] ; \r R V [ S T A 0064120 C K 4 , 6 4 ] ; \r \r R V [ R W 0 0064140 , 6 3 ] ; \r R V [ S T A C 376 001 \0 0064160 362 D K 3 , 6 3 ] ; \r \r R V [ R W 0064200 1 , 6 2 ] ; \r R V [ S T A C K 2 0064220 , 6 2 ] ; \r \r R V [ S T A C K 1 0064240 , 6 1 ] ; \r R V [ S T A C K 0 , 0064260 6 0 ] ; \r \r \r \r * C o n s t a n 0064300 t s f o r R e c v a n d 0064320 S e n d \r M C [ R e c v B y t e 0064340 , 1 2 ] ; \r M C [ R e c v W o r 0064360 d , 1 6 ] ; \r M C [ S e n d B y 0064400 t e , 2 1 ] ; \r M C [ S e n d W 0064420 o r d , 2 5 ] ; \r \r * T h e f 0064440 o l l o w i n g a r e a t 0064460 f i x e d l o c a t i o n s 0064500 i n K e r n e l . m c : \r U s 0064520 e r F a u l t : \t R e t u r n , 0064540 A T [ 1 2 0 ] ; \r N e x t C o 0064560 m : 376 001 \0 B : \t R e t u r n , 0064600 A T [ 7 4 0 4 ] ; \r S e n d : \t 0064620 R e t u r n , A T [ 7 4 6 0 ] 0064640 ; \r R e c v : \t R e t u r n , 0064660 A T [ 7 4 6 4 ] ; \r \r * d 0 w n 0064700 v r o v e r l a y \r * W r i t 0064720 e s t h e r e g i s t e r s 0064740 t h a t a r e n o t c h 0064760 a n g e d b y t h e k e r 0065000 n e l \r O v e r l a y A r e a : 0065020 \r \t P C F _ s t a c k 0 , 0065040 a t [ 7 5 0 0 ] ; \r \t s t a c k 0065060 0 _ r s h [ s t a c k 0 , 1 0065100 0 ] , a t [ 7 5 0 1 ] ; \r \t C y 0065120 c l e C o n t r o l _ s t a 0065140 c k 0 , a t [ 7 5 0 2 ] ; \r \t 0065160 S B _ s t 376 \0 z = I a c k 1 0065200 , a t [ 7 5 0 3 ] ; \r \t s t a 0065220 c k 1 _ r s h [ s t a c k 1 0065240 , 6 ] , a t [ 7 5 0 4 ] ; \r \t 0065260 D B _ s t a c k 1 , a t [ 0065300 7 5 0 5 ] ; \r \t M N B R _ s 0065320 t a c k 2 , g o t o [ N e x t 0065340 C o m ] , a t [ 7 5 0 6 ] ; \r 0065360 \t E N D ; \r 377 \0 \0 d 0 w r t t . 0065400 m c \0 373 224 k 8 227 \0 \0 376 001 \0 027 373 I 0065420 N S E R T [ D 0 L A N G ] ; \r N 0065440 O M I D A S I N I T ; \r T I T L 0065460 E [ d 0 w r t t ] ; \r * l a s t 0065500 e d i t e d b y C T J u 0065520 n e 1 0 , 1 9 7 9 \r S E T T 0065540 A S K [ 1 7 ] ; \r \r R V [ R E F 0065560 R , 7 7 ] ; \t * m e m o r y r 0065600 e f r e s h a d d r e s s \r \r 0065620 * T h e f o l l o w i n g r 0065640 e g i s t e r s h o l d t h 0065660 e v o l a t i l e s t a t e 0065700 o f t h e p r o c e s s o 0065720 r o n a f a u l t : \r R 0065740 V [ R X A L U , 7 6 ] ; \t * A L 0065760 U r e s u l t a n d S A L 0066000 U F \r R V [ R X A P C , 7 5 ] 376 0066020 001 \0 270 341 ; \t * A P C T a s k & A 0066040 P C \r R V [ R X C T A S K , 7 4 0066060 ] ; \t * C T A S K . N C I A \r R 0066100 V [ R X P P B , 7 3 ] ; \t * P a 0066120 g e , P a r i t y , B o o t R e 0066140 a s o n \r R V [ R X S T K , 7 2 0066160 ] ; \t * S t a c k p o i n t e r 0066200 \r \r R V [ R T M P , 7 1 ] ; \t * 0066220 t e m p o r a r y \r \r * T h e 0066240 f o l l o w i n g r e g i s t 0066260 e r s a r e u s e d f o r 0066300 D 0 - M i d a s c o m m u n 0066320 i c a t i o n ( R T M P i s 0066340 a l s o u s e d ) : \r R V [ 0066360 R W S T A T , 7 0 ] ; \t * s t a 0066400 t u s r e g i s t e r \r R V [ 0066420 R D A T 376 001 \0 376 346 A , 6 7 ] ; \t 0066440 * h o l d s d a t a \r \r * F F 0066460 a u l t d e t e r m i n e s 0066500 h o w f a u l t s w i l l 0066520 b e t r e a t e d w h e n 0066540 p r o g r a m s a r e r u n 0066560 n i n g . I f i t i s \r 0066600 * z e r o , a l l f a u l t 0066620 s w i l l b e r e p o r t 0066640 e d t o M i d a s . I f 0066660 F F a u l t i s n o n z e 0066700 r o , t h e k e r n e l w 0066720 i l l \r * s e n d c o n t r o 0066740 l t h r o u g h l o c a t i 0066760 o n 1 2 0 w h e n a f a 0067000 u l t o c c u r s a n d P 0067020 A R I T Y # 0 376 001 \0 235 341 ( 0067040 f a u l t s w i t h \r * P A R 0067060 I T Y = 0 a r e b r e a 0067100 k p o i n t s ) . \r R V [ F F A 0067120 U L T , 6 6 ] ; \r \r * R e g i s 0067140 t e r s b e t w e e n 3 6 0 0067160 a n d 3 6 7 a r e u s e 0067200 d b y t h e M i d a s o 0067220 v e r l a y s . T h e f o 0067240 l l o w i n g \r * r e g i s t 0067260 e r s , u s e d b y W r i 0067300 t e M I , a r e a l s o 0067320 i n t h i s r a n g e . \r R 0067340 V [ R A D D R , 6 5 ] ; \r \r R V 0067360 [ R C N T , 6 4 ] ; \r R V [ S T 0067400 A C K 4 , 6 4 ] ; \r \r R V [ R W 0067420 0 , 6 3 ] ; \r R V [ S T A C 376 001 0067440 \0 ( B K 3 , 6 3 ] ; \r \r R V [ R 0067460 W 1 , 6 2 ] ; \r R V [ S T A C K 0067500 2 , 6 2 ] ; \r \r R V [ S T A C K 0067520 1 , 6 1 ] ; \r M C [ p S t k 1 , 0067540 3 6 1 ] ; * p o i n t e r t 0067560 o s t a c k 1 \r R V [ S T A C 0067600 K 0 , 6 0 ] ; \r \r \r * C o n s t 0067620 a n t s f o r R e c v a n 0067640 d S e n d \r M C [ R e c v B y 0067660 t e , 1 2 ] ; \r M C [ R e c v W 0067700 o r d , 1 6 ] ; \r M C [ S e n d 0067720 B y t e , 2 1 ] ; \r M C [ S e n 0067740 d W o r d , 2 5 ] ; \r \r * T h e 0067760 f o l l o w i n g a r e a 0070000 t f i x e d l o c a t i o n 0070020 s i n K e r n e l . m c : \r 0070040 U s e 376 001 \0 224 342 r F a u l t : \t 0070060 R e t u r n , A T [ 1 2 0 ] ; 0070100 \r N e x t C o m : \t R e t u r n 0070120 , A T [ 7 4 0 4 ] ; \r S e n d 0070140 : \t R e t u r n , A T [ 7 4 6 0070160 0 ] ; \r R e c v : \t R e t u r n 0070200 , A T [ 7 4 6 4 ] ; \r \r * d 0 0070220 w r t t o v e r l a y \r * U s 0070240 e d b y M i d a s t o w 0070260 r i t e T f o r a n y t 0070300 a s k . \r \r * N o t i f y t a 0070320 s k n t o d o t h e r 0070340 e a d \r O v e r l a y A r e a : 0070360 \r \t R W S T A T _ R e c v B 0070400 y t e , C a l l [ R e c v ] , 0070420 a t [ 7 5 0 0 ] ; * g e t 0070440 t a s k n u m 376 001 \0 033 211 b e r 0070460 t o w r i t e \r \t s t a c k 0070500 1 _ T , a t [ 7 5 0 1 ] ; 0070520 \r \t R W S T A T _ R e c v W 0070540 o r d , c a l l [ R e c v ] , 0070560 a t [ 7 5 0 2 ] ; \r \t M N B R 0070600 _ R D A T A , a t [ 7 5 0 0070620 3 ] ; \r \t T _ 7 4 0 0 c , 0070640 a t [ 7 5 0 4 ] ; \r \t s t a c k 0070660 1 _ ( l s h [ s t a c k 1 , 0070700 1 4 ] ) + ( T ) , a t [ 7 0070720 5 0 5 ] ; \r \t s t a c k 1 _ 0070740 ( s t a c k 1 ) + ( 1 1 3 c 0070760 ) , a t [ 7 5 0 6 ] ; * s t 0071000 a c k 1 p o i n t s t o t 0071020 a s k n , l o c a t i o n 0071040 P u t T ( 7 5 1 3 ) \r \t 376 001 \0 0071060 215 316 R T M P _ p S t k 1 , a 0071100 t [ 7 5 0 7 ] ; \r \t S t k p _ 0071120 R T M P , a t [ 7 5 1 0 ] ; 0071140 * s e t s t k p t o p o 0071160 i n t t o s t a c k 1 \r \t s 0071200 t a c k 0 _ 1 7 7 4 0 0 c , 0071220 a t [ 7 5 1 1 ] ; * s e t 0071240 u p s t a c k 0 t o p o i 0071260 n t t o t a s k 1 7 , l 0071300 o c a t i o n N e x t C o m 0071320 ( 7 4 0 4 ) \r \t s t a c k 0 _ 0071340 ( s t a c k 0 ) + ( 4 c ) 0071360 , g o t o [ N o t i f y B o t 0071400 h W a y s ] , a t [ 7 5 1 2 ] 0071420 ; \r \r P u t T : \t T _ M N B 0071440 R , a t [ 7 5 1 3 ] ; \r N o t 0071460 i f 376 \0 G 206 224 y B o t h W a y s 0071500 : \r \t A P C & A P C T a s k _ 0071520 S t a c k & - 1 , a t [ 7 5 1 0071540 4 ] ; \r \t r e t u r n , A T [ 0071560 7 5 1 5 ] ; \r \r \t E N D ; \r 377 \0 0071600 \0 d 0 w r t t p c . m c \0 373 224 k 0071620 8 231 \0 \0 376 001 \0 F 016 I N S E R T [ 0071640 D 0 L A N G ] ; \r N O M I D A S 0071660 I N I T ; \r T I T L E [ d 0 w r 0071700 t t p c ] ; \r * l a s t e d i 0071720 t e d b y C T J u n e 1 0071740 0 , 1 9 7 9 \r S E T T A S K [ 0071760 1 7 ] ; \r \r R V [ R E F R , 7 7 0072000 ] ; \t * m e m o r y r e f r e 0072020 s h a d d r e s s \r \r * T h e 0072040 f o l l o w i n g r e g i s 0072060 t e r s h o l d t h e v o 0072100 l a t i l e s t a t e o f 0072120 t h e p r o c e s s o r o n 0072140 a f a u l t : \r R V [ R X 0072160 A L U , 7 6 ] ; \t * A L U r e 0072200 s u l t a n d S A L U F \r R 0072220 V [ R X A P C , 7 376 001 \0 254 352 5 ] 0072240 ; \t * A P C T a s k & A P C \r R 0072260 V [ R X C T A S K , 7 4 ] ; \t * 0072300 C T A S K . N C I A \r R V [ R X 0072320 P P B , 7 3 ] ; \t * P a g e , P 0072340 a r i t y , B o o t R e a s o n 0072360 \r R V [ R X S T K , 7 2 ] ; \t * 0072400 S t a c k p o i n t e r \r \r R V 0072420 [ R T M P , 7 1 ] ; \t * t e m p 0072440 o r a r y \r \r * T h e f o l l 0072460 o w i n g r e g i s t e r s 0072500 a r e u s e d f o r D 0 - 0072520 M i d a s c o m m u n i c a t 0072540 i o n ( R T M P i s a l s 0072560 o u s e d ) : \r R V [ R W S T 0072600 A T , 7 0 ] ; \t * s t a t u s 0072620 r e g i s t e r \r R V [ R D 376 001 0072640 \0 \n A T A , 6 7 ] ; \t * h o l 0072660 d s d a t a \r \r * F F a u l t 0072700 d e t e r m i n e s h o w 0072720 f a u l t s w i l l b e t 0072740 r e a t e d w h e n p r o g 0072760 r a m s a r e r u n n i n g 0073000 . I f i t i s \r * z e r 0073020 o , a l l f a u l t s w i 0073040 l l b e r e p o r t e d t 0073060 o M i d a s . I f F F a 0073100 u l t i s n o n z e r o , 0073120 t h e k e r n e l w i l l \r 0073140 * s e n d c o n t r o l t h 0073160 r o u g h l o c a t i o n 1 0073200 2 0 w h e n a f a u l t 0073220 o c c u r s a n d P A R I T 0073240 Y # 376 001 \0 | 316 0 ( f a u l 0073260 t s w i t h \r * P A R I T Y 0073300 = 0 a r e b r e a k p o i 0073320 n t s ) . \r R V [ F F A U L T , 0073340 6 6 ] ; \r \r * R e g i s t e r s 0073360 b e t w e e n 3 6 0 a n d 0073400 3 6 7 a r e u s e d b y 0073420 t h e M i d a s o v e r l 0073440 a y s . T h e f o l l o w 0073460 i n g \r * r e g i s t e r s , 0073500 u s e d b y W r i t e M I 0073520 , a r e a l s o i n t 0073540 h i s r a n g e . \r R V [ R A 0073560 D D R , 6 5 ] ; \r \r R V [ R C N 0073600 T , 6 4 ] ; \r R V [ S T A C K 4 0073620 , 6 4 ] ; \r \r R V [ R W 0 , 6 3 0073640 ] ; \r R V [ S T 376 001 \0 366 A C K 0073660 3 , 6 3 ] ; \r \r R V [ R W 1 , 6 0073700 2 ] ; \r R V [ S T A C K 2 , 6 2 0073720 ] ; \r \r R V [ S T A C K 1 , 6 1 0073740 ] ; \r M C [ p S t k 1 , 3 6 1 ] 0073760 ; * p o i n t e r t o s t 0074000 a c k 1 \r R V [ S T A C K 0 , 6 0074020 0 ] ; \r \r \r * C o n s t a n t s 0074040 f o r R e c v a n d S e 0074060 n d \r M C [ R e c v B y t e , 1 0074100 2 ] ; \r M C [ R e c v W o r d , 0074120 1 6 ] ; \r M C [ S e n d B y t e 0074140 , 2 1 ] ; \r M C [ S e n d W o r 0074160 d , 2 5 ] ; \r \r * T h e f o l 0074200 l o w i n g a r e a t f i 0074220 x e d l o c a t i o n s i n 0074240 K e r n e l . m c : \r U 376 001 \0 0074260 240 s s e r F a u l t : \t R e t u 0074300 r n , A T [ 1 2 0 ] ; \r N e x 0074320 t C o m : \t R e t u r n , A T 0074340 [ 7 4 0 4 ] ; \r S e n d : \t R e 0074360 t u r n , A T [ 7 4 6 0 ] ; \r 0074400 R e c v : \t R e t u r n , A T 0074420 [ 7 4 6 4 ] ; \r \r * d 0 w r t t 0074440 p c o v e r l a y \r * U s e d 0074460 b y M i d a s t o w r i 0074500 t e T P C f o r a n y t 0074520 a s k . \r \r * I n o r d e r 0074540 t o w r i t e X i n t o 0074560 T P C [ T ] , w e m u s t 0074600 e x e c u t e a c a l l i 0074620 n s t r u c t i o n a t l o 0074640 c a t i o n X - 1 ( w i t h 0074660 \r * 376 001 \0 u t p r o p e r l y 0074700 s u p p r e s s e d c a r r i 0074720 e s ) , w h i l e e x e c u 0074740 t i n g i n t a s k T . \r 0074760 * M i d a s h e l p s b y 0075000 p u t t i n g t h e i n s t 0075020 r u c t i o n i n t h e r 0075040 i g h t p l a c e , a n d 0075060 l o a d i n g S t a c k 0 w 0075100 i t h \r * a p o i n t e r 0075120 t o i t . W e n o t i f 0075140 y t o t h e i n s t r u c 0075160 t i o n , w h i c h d o e s 0075200 a c a l l p b a c k t o 0075220 p a g e 1 7 . \r * w e t h 0075240 e n n o t i f y t a s k 1 0075260 7 a t N e 376 001 \0 222 332 x t C o 0075300 m . \r \r * T h e s e i n s t r 0075320 u c t i o n s a r e h e r e 0075340 t o b e u s e d a s a 0075360 t a b l e i n d 0 m r w : 0075400 \r \t L o a d P a g e [ 1 7 ] , 0075420 a t [ 1 0 0 ] ; \r \t C a l l P [ 0075440 R e t L o c ] , a t [ 1 0 1 ] 0075460 ; * t h i s i s t h e 0075500 i n s t r u c t i o n M i d a 0075520 s p l a n t s . . \r \t g o t o 0075540 [ . ] , a t [ 1 0 2 ] ; \r \r \r 0075560 O v e r l a y A r e a : \r \t R T 0075600 M P _ p S t k 1 , a t [ 7 0075620 5 0 0 ] ; \r \t S t k p _ R T 0075640 M P , a t [ 7 5 0 1 ] ; \r \t S 0075660 t a c k 1 _ 1 7 7 4 376 001 \0 376 0075700 p 0 0 c , a t [ 7 5 0 2 ] ; \r 0075720 \t S t a c k 1 _ ( S t a c k 0075740 1 ) + ( 4 c ) , a t [ 7 5 0075760 0 3 ] ; * S t a c k 1 p o i 0076000 n t s t o t a s k 1 7 , 0076020 l o c a t i o n N e x t C o m 0076040 ( 7 4 0 4 ) \r \t A P C & A P C 0076060 T a s k _ S t a c k 0 , a 0076100 t [ 7 5 0 4 ] ; \r \t r e t u r n 0076120 , F F 1 @ [ 5 ] , F F 2 @ [ 0076140 1 7 ] , a t [ 7 5 0 5 ] ; * 0076160 t h i s i s a l o a d p a 0076200 g e [ 1 7 ] , b u t w e m 0076220 u s t t r i c k M i c r o D 0076240 \r \r * T h e m a g i c i n s 0076260 t r u c t i o n s e t u p 0076300 b 376 \0 210 217 S y M i d a s d o 0076320 e s : \r * \t c a l l p [ R e t L 0076340 o c ] ; \r \r R e t L o c : \t A P 0076360 C & A P C T a s k _ S t a c 0076400 k , a t [ 7 5 0 6 ] ; * N o 0076420 t i f y t o t a s k 1 7 , 0076440 l o c a t i o n N e x t C o 0076460 m \r \t r e t u r n , a t [ 7 5 0076500 0 7 ] ; \r \r \r \t E N D ; \r 377 \0 0076520 \0 d 0 w s r . m c \0 373 227 031 354 264 \0 0076540 \0 376 001 \0 217 272 I N S E R T [ D 0 L 0076560 A N G ] ; \r : T I T L E [ d 0 w 0076600 s r ] ; \r * E d i t b y E R 0076620 F 1 M a y 1 9 8 1 \r * E d 0076640 i t b y C T J u n e 1 0 0076660 , 1 9 7 9 \r \r S e t T a s k [ 0076700 1 7 ] ; \r \r R V [ R E F R , 7 7 0076720 ] ; \t * m e m o r y r e f r e 0076740 s h a d d r e s s \r \r * T h e 0076760 f o l l o w i n g r e g i s 0077000 t e r s h o l d t h e v o 0077020 l a t i l e s t a t e o f 0077040 t h e p r o c e s s o r o n 0077060 a f a u l t : \r R V [ R X 0077100 A L U , 7 6 ] ; \t * A L U r e 0077120 s u l t a n d S A L U F \r R 0077140 V [ R X A P 376 001 \0 356 ] C , 7 5 ] 0077160 ; \t * A P C T a s k & A P C \r R 0077200 V [ R X C T A S K , 7 4 ] ; \t * 0077220 C T A S K . N C I A \r R V [ R X 0077240 P P B , 7 3 ] ; \t * P a g e , P 0077260 a r i t y , B o o t R e a s o n 0077300 \r R V [ R X S T K , 7 2 ] ; \t * 0077320 S t a c k p o i n t e r \r \r R V 0077340 [ R T M P , 7 1 ] ; \t * t e m p 0077360 o r a r y \r \r * T h e f o l l 0077400 o w i n g r e g i s t e r s 0077420 a r e u s e d f o r D 0 - 0077440 M i d a s c o m m u n i c a t 0077460 i o n ( R T M P i s a l s 0077500 o u s e d ) : \r R V [ R W S T 0077520 A T , 7 0 ] ; \t * s t a t u s 0077540 r e g i s t e r \r R V 376 001 \0 Z % 0077560 [ R D A T A , 6 7 ] ; \t * h o l 0077600 d s d a t a \r \r * F F a u l t 0077620 d e t e r m i n e s h o w 0077640 f a u l t s w i l l b e t 0077660 r e a t e d w h e n p r o g 0077700 r a m s a r e r u n n i n g 0077720 . I f i t i s \r * z e r 0077740 o , a l l f a u l t s w i 0077760 l l b e r e p o r t e d t 0100000 o M i d a s . I f F F a 0100020 u l t i s n o n z e r o , 0100040 t h e k e r n e l w i l l \r 0100060 * s e n d c o n t r o l t h 0100100 r o u g h l o c a t i o n 1 0100120 2 0 w h e n a f a u l t 0100140 o c c u r s a n d P A R I T 0100160 376 001 \0 003 201 Y # 0 ( f a u l 0100200 t s w i t h \r * P A R I T Y 0100220 = 0 a r e b r e a k p o i 0100240 n t s ) . \r R V [ F F A U L T , 0100260 6 6 ] ; \r \r * R e g i s t e r s 0100300 b e t w e e n 3 6 0 a n d 0100320 3 6 7 a r e u s e d b y 0100340 t h e M i d a s o v e r l 0100360 a y s . T h e f o l l o w 0100400 i n g \r * r e g i s t e r s , 0100420 u s e d b y W r i t e M I 0100440 , a r e a l s o i n t 0100460 h i s r a n g e . \r R V [ R A 0100500 D D R , 6 5 ] ; \r \r R V [ R C N 0100520 T , 6 4 ] ; \r R V [ s t a c k 4 0100540 , 6 4 ] ; \r \r R V [ R W 0 , 6 3 0100560 ] ; \r R V 376 001 \0 211 t [ s t a c k 0100600 3 , 6 3 ] ; \r \r R V [ R W 1 , 6 0100620 2 ] ; \r R V [ s t a c k 2 , 6 2 0100640 ] ; \r \r R V [ s t a c k 1 , 6 1 0100660 ] ; \r M C [ p S t k 1 , 3 6 1 ] 0100700 ; * p o i n t e r t o s t 0100720 a c k 1 \r R V [ s t a c k 0 , 6 0100740 0 ] ; \r \r \r * C o n s t a n t s 0100760 f o r R e c v a n d S e 0101000 n d \r M C [ R e c v B y t e , 1 0101020 2 ] ; \r M C [ R e c v W o r d , 0101040 1 6 ] ; \r M C [ S e n d B y t e 0101060 , 2 1 ] ; \r M C [ S e n d W o r 0101100 d , 2 5 ] ; \r \r * T h e f o l 0101120 l o w i n g a r e a t f i 0101140 x e d l o c a t i o n s i n 0101160 K e r n e l . m c 376 001 \0 " 371 : 0101200 \r U s e r F a u l t : \t R e t u 0101220 r n , A t [ 1 2 0 ] ; \r N e x 0101240 t C o m : \t R e t u r n , A t 0101260 [ 7 4 0 4 ] ; \r R e a d R X : \t 0101300 R e t u r n , A t [ 7 4 0 6 ] 0101320 ; \r S e n d : \t R e t u r n , 0101340 A t [ 7 4 6 0 ] ; \r R e c v : \t 0101360 R e t u r n , A t [ 7 4 6 4 ] 0101400 ; \r R e c v B : \t R e t u r n , 0101420 A t [ 7 4 1 0 ] ; \r R e c v W 0101440 : \t R e t u r n , A t [ 7 4 1 0101460 1 ] ; \r \r * d 0 w s r o v e r 0101500 l a y u s e d b y M i d a 0101520 s t o w r i t e R M 0 0101540 a n d R M 1 7 , w h i c h 0101560 c a n n o t b e \r * w r i 376 0101600 001 \0 L 032 t t e n w i t h t h 0101620 e s t a c k p o i n t e r , 0101640 s i n c e s t a c k o v e r 0101660 f l o w w o u l d b e c a 0101700 u s e d . \r \r O v e r l a y A r 0101720 e a : \t * g e t c o d e ( 0 0101740 - 1 0 b ) i n t o T \r \t S t 0101760 a c k 2 _ 7 4 0 0 C , C a 0102000 l l [ R e c v B ] , A t [ 7 5 0102020 0 0 ] ; \r * P o i n t S t a c 0102040 k 2 a t t a s k 0 , l o 0102060 c a t i o n 7 5 1 0 + c o 0102100 d e \r \t S t a c k 2 _ ( S t 0102120 a c k 2 ) o r ( 1 1 0 C ) , 0102140 A t [ 7 5 0 1 ] ; \r \t S t a c 0102160 k 2 _ ( S t a c k 2 ) + 0102200 T , A 376 001 \0 244 260 t [ 7 5 0 2 ] 0102220 ; \r \t S t a c k 3 _ p S t k 0102240 1 , C a l l [ R e c v W ] , 0102260 A t [ 7 5 0 3 ] ; * g e t d 0102300 a t a \r * S t k P _ p S t k 0102320 1 , S t a c k 3 _ v a l u 0102340 e b e i n g w r i t t e n \r 0102360 \t S t k P _ S t a c k 3 , 0102400 S t a c k 3 _ T , N o R e 0102420 g I L o c k O K , A t [ 7 5 0 0102440 4 ] ; \r \t S t a c k 1 _ 7 4 0102460 0 0 C , A t [ 7 5 0 5 ] ; \r * 0102500 P o i n t S t a c k 1 a t 0102520 t a s k 0 , l o c a t i o n 0102540 E n t e r T a s k 0 \r \t S t a 0102560 c k 1 _ ( S t a c k 1 ) + 0102600 ( 1 1 6 C ) , 376 001 \0 233 375 A t 0102620 [ 7 5 0 6 ] ; \r * P o i n t S 0102640 t a c k 0 a t t a s k 1 0102660 7 , l o c a t i o n N e x t 0102700 C o m ( 7 4 0 4 ) \r \t S t a c 0102720 k 0 _ 1 7 7 4 0 0 C , A t 0102740 [ 7 5 0 7 ] ; \r \t S t a c k 0 0102760 _ ( S t a c k 0 ) + ( 4 C 0103000 ) , A t [ 7 5 1 2 ] ; \r N o t 0103020 i f y B o t h W a y s : \r \t A P 0103040 C T a s k & A P C _ S t a c 0103060 k & - 1 , A t [ 7 5 1 3 ] ; 0103100 * g e t h e r e t h r e e 0103120 t i m e s . . . \r \t R e t u r n 0103140 , A t [ 7 5 1 4 ] ; \r \t \r S e 0103160 t T a s k [ 0 ] ; \r \r N o t i f 0103200 y N e x t C o m : \t * R e s 376 001 0103220 \0 353 | t o r e o r i g i n a l 0103240 T [ 0 ] , p o i n t t o 0103260 r e t u r n a d d r e s s \r \t 0103300 T _ S t a c k & - 1 , G o 0103320 T o [ N o t i f y B o t h W a y 0103340 s ] , A t [ 7 5 1 5 ] ; \r E n 0103360 t e r T a s k 0 : \r \t S t a c k 0103400 & + 1 _ T , A t [ 7 5 1 6 0103420 ] ; \t \t * S a v e T [ 0 ] i 0103440 n S t a c k 1 \r * P o i n t 0103460 t o v a l u e i n S t a c 0103500 k 3 , t h e n T _ v a l 0103520 u e , p o i n t t o w r i 0103540 t e l o c a t i o n i n S 0103560 t a c k 2 \r \t S t a c k & + 2 , 0103600 G o T o [ N o t i f y N e x t 0103620 C o m 376 \0 206 304 020 ] , A t [ 7 5 0103640 1 7 ] ; \r \r R V [ R 0 , 0 ] ; \r 0103660 R V [ R 1 7 , 1 7 ] ; \r \r W r i 0103700 t e R 0 : \r \t R 0 _ T , G 0103720 o T o [ N o t i f y N e x t C o 0103740 m ] , A t [ 7 5 1 0 ] ; \r \t R 0103760 1 7 _ T , G o T o [ N o t 0104000 i f y N e x t C o m ] , A t [ 0104020 7 5 1 1 ] ; \r \r : E N D ; \r 374 0104037