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