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