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