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