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