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