�  OSbits module B/osb22
;�  Floating Point Arithmetic - Addition and Subtraction
�  Version 1.5 30.5.87
( 
2*KEY1MO.3|M|NL.|M
< 
F� code% &300
P 
Z1� '"Floating Point Addition and Subtraction"'
d"� "Enter the first number "fp1
n#� "Enter the second number "fp2
x�
� 
�� pass%=0 � 2 � 2
�P%=code%
� 
�[OPT pass%
� 
�/\  Transfer numbers from input_1 and 2 into
�\  workspace for addition
� 
�JSR transfer_in
� 
�6JSR fp_add                   \ Addition subroutine
� 

(\  Transfer result into 'result_add'

 


LDX #5

" 

,.transfer_out_loop

6 

@LDA fpws_1-1, X

JSTA result_add-1, X

TDEX

^BNE transfer_out_loop 

h 

r/\  Transfer numbers from input_1 and 2 into

| \  workspace for subtraction

� 

�JSR transfer_in

� 

�9JSR fp_sub                   \ Subtraction subroutine

� 

�(\  Transfer result into 'result_sub'

� 

�
LDX #5

� 

�.transfer_out_loop2

� 

�LDA fpws_1-1, X

�STA result_sub-1, X
DEX
BNE transfer_out_loop2
 
&RTS
0 
:C\  Reservation of workspace.  Note bytes for sign of fp numbers
D4\  and for overflow (oflow) during calculations.
N 
X .input_1      OPT �EQUF(fp1)
b .input_2      OPT �EQUF(fp2)
l.fpws_1_sign  OPT �EQUB(0)
v.fpws_1_oflow OPT �EQUB(0)
� .fpws_1       OPT �EQUM(5,0)
�.fpws_2_sign  OPT �EQUB(0)
�.fpws_2_oflow OPT �EQUB(0)
� .fpws_2       OPT �EQUM(5,0)
� .result_add   OPT �EQUM(5,0)
� .result_sub   OPT �EQUM(5,0)
� 
�.fp_add
�  
�5\  Adds together the numbers in fpws_1 and fpws_1
�$\  and puts the result in fpws_1
� 
�-\  First allow for zeros in the workspace
  
LDA fpws_2+1
J�A fpws_2                  \ Zero if exponent & top mantissa byte zero
 ABEQ exit_addition           \ If 2nd no is 0  result = 1st no
* 
4LDA fpws_1+1
>J�A fpws_1                  \ Zero if exponent & top mantissa byte zero
HIBNE dont_transfer           \ If only 1st no is zero answer is 2nd no
R 
\
LDX #5
f 
pG.zero_compensation_loop      \ transfer second no and exit addition
z 
�LDA fpws_2-1, X
�STA fpws_1-1, X
�DEX
�BNE zero_compensation_loop
�JMP exit_addition
� 
�.dont_transfer
� 
�?JSR move_sign_bit           \ Move sign and restore top bit
� 
�<JSR equate_exponents        \ Denormalise smaller number
� 
�CJSR neg_convert             \ Convert neg nos to 2's complement
 
JSR add_mantissae
 
$DJSR neg_convert_back        \ Convert 2's complement back to neg
. 
8I\  Trap a zero result or renormalising routine will loop indefinately
B 
LLDA fpws_1_oflow
V�A fpws_1+1
`�A fpws_1+2
j�A fpws_1+3
tI�A fpws_1+4                \ �ing bytes together gives 0 if all are 0
~ 
�CBEQ zero_result             \ Put zero into workspace then exit
� 
�JSR renormalise
� 
�;JSR replace_sign_bit        \ Replace top bit with sign
� 
�.exit_addition
� 
�RTS
� 
�.zero_result
� 

LDA #0

ASTA fpws_1                  \ Clear exponent of a zero number
 
RTS
( 
2.fp_sub
<  
F1\  Subtracts the number in fpws_2 from fpws_1
P$\  and puts the result in fpws_1
Z 
d-\  First allow for zeros in the workspace
n  
xLDA fpws_2+1
�J�A fpws_2                  \ Zero if exponent & top mantissa byte zero
�ABEQ exit_subtraction        \ If 2nd no is 0  result = 1st no
� 
�LDA fpws_1+1
�J�A fpws_1                  \ Zero if exponent & top mantissa byte zero
�JBNE dont_transfer_sub       \ If only 1st no is zero answer is -2nd no
� 
�
LDX #5
� 
�J.zero_compensation_loop2     \ transfer second no and exit subtraction
� 
�LDA fpws_2-1, X
�STA fpws_1-1, X
DEX
BNE zero_compensation_loop2
LDA fpws_1+1
"
� #&80
,ISTA fpws_1+1                 \ Change sign of second number -> result
6JMP exit_subtraction
@ 
J.dont_transfer_sub
T 
^?JSR move_sign_bit           \ Move sign and restore top bit
h 
r<JSR equate_exponents        \ Denormalise smaller number
| 
�CJSR neg_convert             \ Convert neg nos to 2's complement
� 
�JSR subtract_mantissae
� 
�DJSR neg_convert_back        \ Convert 2's complement back to neg
� 
�I\  Trap a zero result or renormalising routine will loop indefinately
� 
�LDA fpws_1_oflow
��A fpws_1+1
��A fpws_1+2
��A fpws_1+3
�I�A fpws_1+4                \ �ing bytes together gives 0 if all are 0
 
CBEQ zero_result             \ Put zero into workspace then exit
 
&JSR renormalise
0 
:;JSR replace_sign_bit        \ Replace top bit with sign
D 
N.exit_subtraction
X 
bRTS
l 
v.transfer_in
� 
�7\  This subroutine takes the numbers in input_1 and
�1\  input_2 and puts them in fpws_1 and fpws_2
� 
�
LDX #5
� 
�.transfer_in_loop
� 
�LDA input_1-1, X
�STA fpws_1-1, X
�LDA input_2-1, X
�STA fpws_2-1, X
�DEX
BNE transfer_in_loop 
 

LDA #0
 STA fpws_1_oflow
*STA fpws_2_oflow
4 
>RTS
H 
R.move_sign_bit
\ 
fH\  This routine transfers the sign bit from the top of the mantissae
p@\  and puts it into a sign byte - �ing to leave top bit only
z5\  and then restores the top bit of the mantissae
�  
�LDA fpws_1+1
�
� #&80
�FSTA fpws_1_sign             \ fpws_1_sign is -ve if number was -ve
�LDA #&80
��A fpws_1+1
�DSTA fpws_1+1                \ Restores the top bit of the number
� 
�LDA fpws_2+1
�
� #&80
�FSTA fpws_2_sign             \ fpws_2_sign is -ve if number was -ve
�LDA #&80
��A fpws_2+1
	DSTA fpws_2+1                \ Restores the top bit of the number
	 
	RTS
	$ 
	..equate_exponents
	8 
	BE\  This routine modifies the smaller number so that the exponents
	L\  are the same
	V 
	`SEC
	jLDA fpws_1
	t@SBC fpws_2                  \ Find which exponent is greater
	~BEQ exponents_equal
	�BPL ws1_is_greater
	� 
	�.ws2_is_greater
	� 
	�>INC fpws_1                  \ Increase the lesser exponent
	�DLSR fpws_1+1                \ Shift mantissa right to compensate
	�ROR fpws_1+2
	�ROR fpws_1+3
	�ROR fpws_1+4
	� 
	�LDA fpws_2
	�CMP fpws_1
ABNE ws2_is_greater          \ Finish when exponents are equal

RTS
 
.ws1_is_greater
( 
2:INC fpws_2                  \ Increase lesser exponent
<DLSR fpws_2+1                \ Shift mantissa right to compensate
FROR fpws_2+2
PROR fpws_2+3
ZROR fpws_2+4
d 
nLDA fpws_1
xCMP fpws_2
�@BNE ws1_is_greater         \ Finish when exponents are equal
� 
�.exponents_equal
� 
�RTS
� 
�.neg_convert
� 
�E\  Because the fp format is not 2's complement we have to convert
�F\  negative numbers to 2's complement before calculating with them
�$\  for addition and subtraction.
� 
�LDA fpws_2_sign
BPL fp2_pos
 
4SEC                         \ Subtract from zero
"
LDA #0
,SBC fpws_2+4
6STA fpws_2+4
@
LDA #0
JSBC fpws_2+3
TSTA fpws_2+3
^
LDA #0
hSBC fpws_2+2
rSTA fpws_2+2
|
LDA #0
�SBC fpws_2+1
�STA fpws_2+1
�
LDA #0
�FSBC fpws_2_oflow            \ Don't forget to include the overflow
�STA fpws_2_oflow
� 
�.fp2_pos
� 
�LDA fpws_1_sign
�BPL fp1_pos
� 
�.convert_sign_fpws1
� 
4SEC                         \ Subtract from zero

LDA #0
SBC fpws_1+4
&STA fpws_1+4
0
LDA #0
:SBC fpws_1+3
DSTA fpws_1+3
N
LDA #0
XSBC fpws_1+2
bSTA fpws_1+2
l
LDA #0
vSBC fpws_1+1
�STA fpws_1+1
�
LDA #0
�*SBC fpws_1_oflow            \ Overflow
�STA fpws_1_oflow
� 
�
. fp1_pos
� 
�RTS
� 
�.add_mantissae
� 
�5\  This routine adds the mantissae with overflows
� 

CLC

FLDA fpws_1+4                \ Standard add but with bytes reversed

ADC fpws_2+4

 STA fpws_1+4

*LDA fpws_1+3

4ADC fpws_2+3

>STA fpws_1+3

HLDA fpws_1+2

RADC fpws_2+2

\STA fpws_1+2

fLDA fpws_1+1

pADC fpws_2+1

zSTA fpws_1+1

�LDA fpws_1_oflow

�ADC fpws_2_oflow

�STA fpws_1_oflow

� 

�RTS

� 

�.subtract_mantissae

� 

�:\  This routine subtracts the mantissae with overflows

� 

�SEC

�KLDA fpws_1+4                \ Standard subtract but with bytes reversed

�SBC fpws_2+4
STA fpws_1+4
LDA fpws_1+3
SBC fpws_2+3
$STA fpws_1+3
.LDA fpws_1+2
8SBC fpws_2+2
BSTA fpws_1+2
LLDA fpws_1+1
VSBC fpws_2+1
`STA fpws_1+1
jLDA fpws_1_oflow
tSBC fpws_2_oflow
~STA fpws_1_oflow
� 
�RTS
� 
�.neg_convert_back
� 
�E\  This routine converts any 2's complement result into fp format
� 
�LDA fpws_1_oflow
�BPL res_pos
� 
�JSR convert_sign_fpws1
�LDA #&80
STA fpws_1_sign

RTS
 
.res_pos
( 
2
LDA #0
<STA fpws_1_sign
F 
PRTS
Z 
d.renormalise
n 
xC\ This routine modifies the mantissa and exponent of the result
�,\ To produce a normalised format number.
� 
�LDA fpws_1_oflow
�KBNE shift_right             \ If overflow is >0 we shift mantissa right
� 
�FLDA fpws_1+1                \ Top byte of mantissa is shifted left
�ABMI normalised              \ until top bit is set (i.e. -ve)
� 
�.shift_left_loop
� 
�7DEC fpws_1                  \ Decrease the exponent
�CASL fpws_1+4                \ Shift mantissa left to compensate
�ROL fpws_1+3
ROL fpws_1+2
ROL fpws_1+1
 
"BPL shift_left_loop
, 
65RTS                         \ Number renormalised
@ 
J.shift_right
T 
^7INC fpws_1                  \ Increase the exponent
hABEQ too_big                 \ If exp is zero we have overflow
rLSR fpws_1_oflow
|DROR fpws_1+1                \ Shift mantissa right to compensate
�ROR fpws_1+2
�ROR fpws_1+3
�ROR fpws_1+4
� 
�LDA fpws_1_oflow
�BNE shift_right
� 
�.normalised
� 
�RTS
� 
�.replace_sign_bit
� 
CLC
LDA fpws_1+1

� #&7F
&ADC fpws_1_sign
0BSTA fpws_1+1                \ If +ve clear top bit of mantissa
: 
DRTS
N 
X.too_big
b 
l-\  This is an error condition - number 20
v 
�BRK
�OPT  �EQUB(20)
�5OPT  �EQUS("Result of multiplication is too big")
�OPT  �EQUB(0)
� 
�]
��
� 
�� code%
� 
��"Results:"'
�,� "Addition (code) is  ";�fp(result_add)
�$� "Addition (BASIC) is ";fp1+fp2
 
/� "Subtraction (code) is  ";�fp(result_sub)
'� "Subtraction (BASIC) is ";fp1-fp2
  
*�
4 
>**** EQUate a Byte ****
H� �EQUB(N%)
R?P%=N% � 256
\� (pass% � 3) = 3 � � ~?P%
fP%=P%+1
p
=pass%
z 
�**** EQUate a String ****
�� �EQUS(N$)
�� N%
�� 40
�� N%=1 � �(N$)
�K%=�(�N$,N%,1))
�P%?(N%-1)=K%
�%� (pass% � 3) = 3 � � ~P%?(N%-1);
��
�� (pass% � 3) = 3 � �
�P%=P%+�(N$)
�� 0
�
=pass%
 
(**** EQUate a section of Memory ****
� �EQUM(number%,byte%)
$� N%
.� 40
8� N%=0 � number%-1
BP%?N%=byte%
L!� (pass% � 3) = 3 � � ~P%?N%;
V�
`� (pass% � 3) = 3 � �
jP%=P%+number%
t� 0
~
=pass%
� 
�,**** EQUate a floating point number ****
�We use the variable `
�+to gain access to BASIC's fp conversion
�*routines. No other variables beginning
�with ` can be defined.
�� �EQUF(`)
�� M%, N%
�� 40
�M% = 3+(!&4C0 � &FFFF)
�� N%=0 � 4
�P%?N%=M%?N%
!� (pass% � 3) = 3 � � ~P%?N%;

�
� (pass% � 3) = 3 � �
P%=P%+5
(� 0
2
=pass%
< 
F**** Reverse FP ****
PPuts fp number from memory
Zinto variable ` (POUND)
d� �fp(mem%)
n� M%, N%
x`=0
�M% = 3+(!&4C0 � &FFFF)
�� N%=0 � 4
�M%?N%=mem%?N%
��
�=`
�

00000000  0d 00 0a 1c f4 20 20 4f  53 62 69 74 73 20 6d 6f  |.....  OSbits mo|
00000010  64 75 6c 65 20 42 2f 6f  73 62 32 32 0d 00 14 3b  |dule B/osb22...;|
00000020  f4 20 20 46 6c 6f 61 74  69 6e 67 20 50 6f 69 6e  |.  Floating Poin|
00000030  74 20 41 72 69 74 68 6d  65 74 69 63 20 2d 20 41  |t Arithmetic - A|
00000040  64 64 69 74 69 6f 6e 20  61 6e 64 20 53 75 62 74  |ddition and Subt|
00000050  72 61 63 74 69 6f 6e 0d  00 1e 1a f4 20 20 56 65  |raction.....  Ve|
00000060  72 73 69 6f 6e 20 31 2e  35 20 33 30 2e 35 2e 38  |rsion 1.5 30.5.8|
00000070  37 0d 00 28 05 20 0d 00  32 15 2a 4b 45 59 31 4d  |7..(. ..2.*KEY1M|
00000080  4f 2e 33 7c 4d 7c 4e 4c  2e 7c 4d 0d 00 3c 05 20  |O.3|M|NL.|M..<. |
00000090  0d 00 46 10 de 20 63 6f  64 65 25 20 26 33 30 30  |..F.. code% &300|
000000a0  0d 00 50 05 20 0d 00 5a  31 f1 20 27 22 46 6c 6f  |..P. ..Z1. '"Flo|
000000b0  61 74 69 6e 67 20 50 6f  69 6e 74 20 41 64 64 69  |ating Point Addi|
000000c0  74 69 6f 6e 20 61 6e 64  20 53 75 62 74 72 61 63  |tion and Subtrac|
000000d0  74 69 6f 6e 22 27 0d 00  64 22 e8 20 22 45 6e 74  |tion"'..d". "Ent|
000000e0  65 72 20 74 68 65 20 66  69 72 73 74 20 6e 75 6d  |er the first num|
000000f0  62 65 72 20 22 66 70 31  0d 00 6e 23 e8 20 22 45  |ber "fp1..n#. "E|
00000100  6e 74 65 72 20 74 68 65  20 73 65 63 6f 6e 64 20  |nter the second |
00000110  6e 75 6d 62 65 72 20 22  66 70 32 0d 00 78 05 f1  |number "fp2..x..|
00000120  0d 00 82 05 20 0d 00 8c  15 e3 20 70 61 73 73 25  |.... ..... pass%|
00000130  3d 30 20 b8 20 32 20 88  20 32 0d 00 96 0c 50 25  |=0 . 2 . 2....P%|
00000140  3d 63 6f 64 65 25 0d 00  a0 05 20 0d 00 aa 0e 5b  |=code%.... ....[|
00000150  4f 50 54 20 70 61 73 73  25 0d 00 b4 05 20 0d 00  |OPT pass%.... ..|
00000160  be 2f 5c 20 20 54 72 61  6e 73 66 65 72 20 6e 75  |./\  Transfer nu|
00000170  6d 62 65 72 73 20 66 72  6f 6d 20 69 6e 70 75 74  |mbers from input|
00000180  5f 31 20 61 6e 64 20 32  20 69 6e 74 6f 0d 00 c8  |_1 and 2 into...|
00000190  1d 5c 20 20 77 6f 72 6b  73 70 61 63 65 20 66 6f  |.\  workspace fo|
000001a0  72 20 61 64 64 69 74 69  6f 6e 0d 00 d2 05 20 0d  |r addition.... .|
000001b0  00 dc 13 4a 53 52 20 74  72 61 6e 73 66 65 72 5f  |...JSR transfer_|
000001c0  69 6e 0d 00 e6 05 20 0d  00 f0 36 4a 53 52 20 66  |in.... ...6JSR f|
000001d0  70 5f 61 64 64 20 20 20  20 20 20 20 20 20 20 20  |p_add           |
000001e0  20 20 20 20 20 20 20 20  5c 20 41 64 64 69 74 69  |        \ Additi|
000001f0  6f 6e 20 73 75 62 72 6f  75 74 69 6e 65 0d 00 fa  |on subroutine...|
00000200  05 20 0d 01 04 28 5c 20  20 54 72 61 6e 73 66 65  |. ...(\  Transfe|
00000210  72 20 72 65 73 75 6c 74  20 69 6e 74 6f 20 27 72  |r result into 'r|
00000220  65 73 75 6c 74 5f 61 64  64 27 0d 01 0e 05 20 0d  |esult_add'.... .|
00000230  01 18 0a 4c 44 58 20 23  35 0d 01 22 05 20 0d 01  |...LDX #5..". ..|
00000240  2c 16 2e 74 72 61 6e 73  66 65 72 5f 6f 75 74 5f  |,..transfer_out_|
00000250  6c 6f 6f 70 0d 01 36 05  20 0d 01 40 13 4c 44 41  |loop..6. ..@.LDA|
00000260  20 66 70 77 73 5f 31 2d  31 2c 20 58 0d 01 4a 17  | fpws_1-1, X..J.|
00000270  53 54 41 20 72 65 73 75  6c 74 5f 61 64 64 2d 31  |STA result_add-1|
00000280  2c 20 58 0d 01 54 07 44  45 58 0d 01 5e 1a 42 4e  |, X..T.DEX..^.BN|
00000290  45 20 74 72 61 6e 73 66  65 72 5f 6f 75 74 5f 6c  |E transfer_out_l|
000002a0  6f 6f 70 20 0d 01 68 05  20 0d 01 72 2f 5c 20 20  |oop ..h. ..r/\  |
000002b0  54 72 61 6e 73 66 65 72  20 6e 75 6d 62 65 72 73  |Transfer numbers|
000002c0  20 66 72 6f 6d 20 69 6e  70 75 74 5f 31 20 61 6e  | from input_1 an|
000002d0  64 20 32 20 69 6e 74 6f  0d 01 7c 20 5c 20 20 77  |d 2 into..| \  w|
000002e0  6f 72 6b 73 70 61 63 65  20 66 6f 72 20 73 75 62  |orkspace for sub|
000002f0  74 72 61 63 74 69 6f 6e  0d 01 86 05 20 0d 01 90  |traction.... ...|
00000300  13 4a 53 52 20 74 72 61  6e 73 66 65 72 5f 69 6e  |.JSR transfer_in|
00000310  0d 01 9a 05 20 0d 01 a4  39 4a 53 52 20 66 70 5f  |.... ...9JSR fp_|
00000320  73 75 62 20 20 20 20 20  20 20 20 20 20 20 20 20  |sub             |
00000330  20 20 20 20 20 20 5c 20  53 75 62 74 72 61 63 74  |      \ Subtract|
00000340  69 6f 6e 20 73 75 62 72  6f 75 74 69 6e 65 0d 01  |ion subroutine..|
00000350  ae 05 20 0d 01 b8 28 5c  20 20 54 72 61 6e 73 66  |.. ...(\  Transf|
00000360  65 72 20 72 65 73 75 6c  74 20 69 6e 74 6f 20 27  |er result into '|
00000370  72 65 73 75 6c 74 5f 73  75 62 27 0d 01 c2 05 20  |result_sub'.... |
00000380  0d 01 cc 0a 4c 44 58 20  23 35 0d 01 d6 05 20 0d  |....LDX #5.... .|
00000390  01 e0 17 2e 74 72 61 6e  73 66 65 72 5f 6f 75 74  |....transfer_out|
000003a0  5f 6c 6f 6f 70 32 0d 01  ea 05 20 0d 01 f4 13 4c  |_loop2.... ....L|
000003b0  44 41 20 66 70 77 73 5f  31 2d 31 2c 20 58 0d 01  |DA fpws_1-1, X..|
000003c0  fe 17 53 54 41 20 72 65  73 75 6c 74 5f 73 75 62  |..STA result_sub|
000003d0  2d 31 2c 20 58 0d 02 08  07 44 45 58 0d 02 12 1a  |-1, X....DEX....|
000003e0  42 4e 45 20 74 72 61 6e  73 66 65 72 5f 6f 75 74  |BNE transfer_out|
000003f0  5f 6c 6f 6f 70 32 0d 02  1c 05 20 0d 02 26 07 52  |_loop2.... ..&.R|
00000400  54 53 0d 02 30 05 20 0d  02 3a 43 5c 20 20 52 65  |TS..0. ..:C\  Re|
00000410  73 65 72 76 61 74 69 6f  6e 20 6f 66 20 77 6f 72  |servation of wor|
00000420  6b 73 70 61 63 65 2e 20  20 4e 6f 74 65 20 62 79  |kspace.  Note by|
00000430  74 65 73 20 66 6f 72 20  73 69 67 6e 20 6f 66 20  |tes for sign of |
00000440  66 70 20 6e 75 6d 62 65  72 73 0d 02 44 34 5c 20  |fp numbers..D4\ |
00000450  20 61 6e 64 20 66 6f 72  20 6f 76 65 72 66 6c 6f  | and for overflo|
00000460  77 20 28 6f 66 6c 6f 77  29 20 64 75 72 69 6e 67  |w (oflow) during|
00000470  20 63 61 6c 63 75 6c 61  74 69 6f 6e 73 2e 0d 02  | calculations...|
00000480  4e 05 20 0d 02 58 20 2e  69 6e 70 75 74 5f 31 20  |N. ..X .input_1 |
00000490  20 20 20 20 20 4f 50 54  20 a4 45 51 55 46 28 66  |     OPT .EQUF(f|
000004a0  70 31 29 0d 02 62 20 2e  69 6e 70 75 74 5f 32 20  |p1)..b .input_2 |
000004b0  20 20 20 20 20 4f 50 54  20 a4 45 51 55 46 28 66  |     OPT .EQUF(f|
000004c0  70 32 29 0d 02 6c 1e 2e  66 70 77 73 5f 31 5f 73  |p2)..l..fpws_1_s|
000004d0  69 67 6e 20 20 4f 50 54  20 a4 45 51 55 42 28 30  |ign  OPT .EQUB(0|
000004e0  29 0d 02 76 1e 2e 66 70  77 73 5f 31 5f 6f 66 6c  |)..v..fpws_1_ofl|
000004f0  6f 77 20 4f 50 54 20 a4  45 51 55 42 28 30 29 0d  |ow OPT .EQUB(0).|
00000500  02 80 20 2e 66 70 77 73  5f 31 20 20 20 20 20 20  |.. .fpws_1      |
00000510  20 4f 50 54 20 a4 45 51  55 4d 28 35 2c 30 29 0d  | OPT .EQUM(5,0).|
00000520  02 8a 1e 2e 66 70 77 73  5f 32 5f 73 69 67 6e 20  |....fpws_2_sign |
00000530  20 4f 50 54 20 a4 45 51  55 42 28 30 29 0d 02 94  | OPT .EQUB(0)...|
00000540  1e 2e 66 70 77 73 5f 32  5f 6f 66 6c 6f 77 20 4f  |..fpws_2_oflow O|
00000550  50 54 20 a4 45 51 55 42  28 30 29 0d 02 9e 20 2e  |PT .EQUB(0)... .|
00000560  66 70 77 73 5f 32 20 20  20 20 20 20 20 4f 50 54  |fpws_2       OPT|
00000570  20 a4 45 51 55 4d 28 35  2c 30 29 0d 02 a8 20 2e  | .EQUM(5,0)... .|
00000580  72 65 73 75 6c 74 5f 61  64 64 20 20 20 4f 50 54  |result_add   OPT|
00000590  20 a4 45 51 55 4d 28 35  2c 30 29 0d 02 b2 20 2e  | .EQUM(5,0)... .|
000005a0  72 65 73 75 6c 74 5f 73  75 62 20 20 20 4f 50 54  |result_sub   OPT|
000005b0  20 a4 45 51 55 4d 28 35  2c 30 29 0d 02 bc 05 20  | .EQUM(5,0).... |
000005c0  0d 02 c6 0b 2e 66 70 5f  61 64 64 0d 02 d0 06 20  |.....fp_add.... |
000005d0  20 0d 02 da 35 5c 20 20  41 64 64 73 20 74 6f 67  | ...5\  Adds tog|
000005e0  65 74 68 65 72 20 74 68  65 20 6e 75 6d 62 65 72  |ether the number|
000005f0  73 20 69 6e 20 66 70 77  73 5f 31 20 61 6e 64 20  |s in fpws_1 and |
00000600  66 70 77 73 5f 31 0d 02  e4 24 5c 20 20 61 6e 64  |fpws_1...$\  and|
00000610  20 70 75 74 73 20 74 68  65 20 72 65 73 75 6c 74  | puts the result|
00000620  20 69 6e 20 66 70 77 73  5f 31 0d 02 ee 05 20 0d  | in fpws_1.... .|
00000630  02 f8 2d 5c 20 20 46 69  72 73 74 20 61 6c 6c 6f  |..-\  First allo|
00000640  77 20 66 6f 72 20 7a 65  72 6f 73 20 69 6e 20 74  |w for zeros in t|
00000650  68 65 20 77 6f 72 6b 73  70 61 63 65 0d 03 02 06  |he workspace....|
00000660  20 20 0d 03 0c 10 4c 44  41 20 66 70 77 73 5f 32  |  ....LDA fpws_2|
00000670  2b 31 0d 03 16 4a 84 41  20 66 70 77 73 5f 32 20  |+1...J.A fpws_2 |
00000680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000690  20 5c 20 5a 65 72 6f 20  69 66 20 65 78 70 6f 6e  | \ Zero if expon|
000006a0  65 6e 74 20 26 20 74 6f  70 20 6d 61 6e 74 69 73  |ent & top mantis|
000006b0  73 61 20 62 79 74 65 20  7a 65 72 6f 0d 03 20 41  |sa byte zero.. A|
000006c0  42 45 51 20 65 78 69 74  5f 61 64 64 69 74 69 6f  |BEQ exit_additio|
000006d0  6e 20 20 20 20 20 20 20  20 20 20 20 5c 20 49 66  |n           \ If|
000006e0  20 32 6e 64 20 6e 6f 20  69 73 20 30 20 20 72 65  | 2nd no is 0  re|
000006f0  73 75 6c 74 20 3d 20 31  73 74 20 6e 6f 0d 03 2a  |sult = 1st no..*|
00000700  05 20 0d 03 34 10 4c 44  41 20 66 70 77 73 5f 31  |. ..4.LDA fpws_1|
00000710  2b 31 0d 03 3e 4a 84 41  20 66 70 77 73 5f 31 20  |+1..>J.A fpws_1 |
00000720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000730  20 5c 20 5a 65 72 6f 20  69 66 20 65 78 70 6f 6e  | \ Zero if expon|
00000740  65 6e 74 20 26 20 74 6f  70 20 6d 61 6e 74 69 73  |ent & top mantis|
00000750  73 61 20 62 79 74 65 20  7a 65 72 6f 0d 03 48 49  |sa byte zero..HI|
00000760  42 4e 45 20 64 6f 6e 74  5f 74 72 61 6e 73 66 65  |BNE dont_transfe|
00000770  72 20 20 20 20 20 20 20  20 20 20 20 5c 20 49 66  |r           \ If|
00000780  20 6f 6e 6c 79 20 31 73  74 20 6e 6f 20 69 73 20  | only 1st no is |
00000790  7a 65 72 6f 20 61 6e 73  77 65 72 20 69 73 20 32  |zero answer is 2|
000007a0  6e 64 20 6e 6f 0d 03 52  05 20 0d 03 5c 0a 4c 44  |nd no..R. ..\.LD|
000007b0  58 20 23 35 0d 03 66 05  20 0d 03 70 47 2e 7a 65  |X #5..f. ..pG.ze|
000007c0  72 6f 5f 63 6f 6d 70 65  6e 73 61 74 69 6f 6e 5f  |ro_compensation_|
000007d0  6c 6f 6f 70 20 20 20 20  20 20 5c 20 74 72 61 6e  |loop      \ tran|
000007e0  73 66 65 72 20 73 65 63  6f 6e 64 20 6e 6f 20 61  |sfer second no a|
000007f0  6e 64 20 65 78 69 74 20  61 64 64 69 74 69 6f 6e  |nd exit addition|
00000800  0d 03 7a 05 20 0d 03 84  13 4c 44 41 20 66 70 77  |..z. ....LDA fpw|
00000810  73 5f 32 2d 31 2c 20 58  0d 03 8e 13 53 54 41 20  |s_2-1, X....STA |
00000820  66 70 77 73 5f 31 2d 31  2c 20 58 0d 03 98 07 44  |fpws_1-1, X....D|
00000830  45 58 0d 03 a2 1e 42 4e  45 20 7a 65 72 6f 5f 63  |EX....BNE zero_c|
00000840  6f 6d 70 65 6e 73 61 74  69 6f 6e 5f 6c 6f 6f 70  |ompensation_loop|
00000850  0d 03 ac 15 4a 4d 50 20  65 78 69 74 5f 61 64 64  |....JMP exit_add|
00000860  69 74 69 6f 6e 0d 03 b6  05 20 0d 03 c0 12 2e 64  |ition.... .....d|
00000870  6f 6e 74 5f 74 72 61 6e  73 66 65 72 0d 03 ca 05  |ont_transfer....|
00000880  20 0d 03 d4 3f 4a 53 52  20 6d 6f 76 65 5f 73 69  | ...?JSR move_si|
00000890  67 6e 5f 62 69 74 20 20  20 20 20 20 20 20 20 20  |gn_bit          |
000008a0  20 5c 20 4d 6f 76 65 20  73 69 67 6e 20 61 6e 64  | \ Move sign and|
000008b0  20 72 65 73 74 6f 72 65  20 74 6f 70 20 62 69 74  | restore top bit|
000008c0  0d 03 de 05 20 0d 03 e8  3c 4a 53 52 20 65 71 75  |.... ...<JSR equ|
000008d0  61 74 65 5f 65 78 70 6f  6e 65 6e 74 73 20 20 20  |ate_exponents   |
000008e0  20 20 20 20 20 5c 20 44  65 6e 6f 72 6d 61 6c 69  |     \ Denormali|
000008f0  73 65 20 73 6d 61 6c 6c  65 72 20 6e 75 6d 62 65  |se smaller numbe|
00000900  72 0d 03 f2 05 20 0d 03  fc 43 4a 53 52 20 6e 65  |r.... ...CJSR ne|
00000910  67 5f 63 6f 6e 76 65 72  74 20 20 20 20 20 20 20  |g_convert       |
00000920  20 20 20 20 20 20 5c 20  43 6f 6e 76 65 72 74 20  |      \ Convert |
00000930  6e 65 67 20 6e 6f 73 20  74 6f 20 32 27 73 20 63  |neg nos to 2's c|
00000940  6f 6d 70 6c 65 6d 65 6e  74 0d 04 06 05 20 0d 04  |omplement.... ..|
00000950  10 15 4a 53 52 20 61 64  64 5f 6d 61 6e 74 69 73  |..JSR add_mantis|
00000960  73 61 65 0d 04 1a 05 20  0d 04 24 44 4a 53 52 20  |sae.... ..$DJSR |
00000970  6e 65 67 5f 63 6f 6e 76  65 72 74 5f 62 61 63 6b  |neg_convert_back|
00000980  20 20 20 20 20 20 20 20  5c 20 43 6f 6e 76 65 72  |        \ Conver|
00000990  74 20 32 27 73 20 63 6f  6d 70 6c 65 6d 65 6e 74  |t 2's complement|
000009a0  20 62 61 63 6b 20 74 6f  20 6e 65 67 0d 04 2e 05  | back to neg....|
000009b0  20 0d 04 38 49 5c 20 20  54 72 61 70 20 61 20 7a  | ..8I\  Trap a z|
000009c0  65 72 6f 20 72 65 73 75  6c 74 20 6f 72 20 72 65  |ero result or re|
000009d0  6e 6f 72 6d 61 6c 69 73  69 6e 67 20 72 6f 75 74  |normalising rout|
000009e0  69 6e 65 20 77 69 6c 6c  20 6c 6f 6f 70 20 69 6e  |ine will loop in|
000009f0  64 65 66 69 6e 61 74 65  6c 79 0d 04 42 05 20 0d  |definately..B. .|
00000a00  04 4c 14 4c 44 41 20 66  70 77 73 5f 31 5f 6f 66  |.L.LDA fpws_1_of|
00000a10  6c 6f 77 0d 04 56 0f 84  41 20 66 70 77 73 5f 31  |low..V..A fpws_1|
00000a20  2b 31 0d 04 60 0f 84 41  20 66 70 77 73 5f 31 2b  |+1..`..A fpws_1+|
00000a30  32 0d 04 6a 0f 84 41 20  66 70 77 73 5f 31 2b 33  |2..j..A fpws_1+3|
00000a40  0d 04 74 49 84 41 20 66  70 77 73 5f 31 2b 34 20  |..tI.A fpws_1+4 |
00000a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000a60  20 84 69 6e 67 20 62 79  74 65 73 20 74 6f 67 65  | .ing bytes toge|
00000a70  74 68 65 72 20 67 69 76  65 73 20 30 20 69 66 20  |ther gives 0 if |
00000a80  61 6c 6c 20 61 72 65 20  30 0d 04 7e 05 20 0d 04  |all are 0..~. ..|
00000a90  88 43 42 45 51 20 7a 65  72 6f 5f 72 65 73 75 6c  |.CBEQ zero_resul|
00000aa0  74 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |t             \ |
00000ab0  50 75 74 20 7a 65 72 6f  20 69 6e 74 6f 20 77 6f  |Put zero into wo|
00000ac0  72 6b 73 70 61 63 65 20  74 68 65 6e 20 65 78 69  |rkspace then exi|
00000ad0  74 0d 04 92 05 20 0d 04  9c 13 4a 53 52 20 72 65  |t.... ....JSR re|
00000ae0  6e 6f 72 6d 61 6c 69 73  65 0d 04 a6 05 20 0d 04  |normalise.... ..|
00000af0  b0 3b 4a 53 52 20 72 65  70 6c 61 63 65 5f 73 69  |.;JSR replace_si|
00000b00  67 6e 5f 62 69 74 20 20  20 20 20 20 20 20 5c 20  |gn_bit        \ |
00000b10  52 65 70 6c 61 63 65 20  74 6f 70 20 62 69 74 20  |Replace top bit |
00000b20  77 69 74 68 20 73 69 67  6e 0d 04 ba 05 20 0d 04  |with sign.... ..|
00000b30  c4 12 2e 65 78 69 74 5f  61 64 64 69 74 69 6f 6e  |...exit_addition|
00000b40  0d 04 ce 05 20 0d 04 d8  07 52 54 53 0d 04 e2 05  |.... ....RTS....|
00000b50  20 0d 04 ec 10 2e 7a 65  72 6f 5f 72 65 73 75 6c  | .....zero_resul|
00000b60  74 0d 04 f6 05 20 0d 05  00 0a 4c 44 41 20 23 30  |t.... ....LDA #0|
00000b70  0d 05 0a 41 53 54 41 20  66 70 77 73 5f 31 20 20  |...ASTA fpws_1  |
00000b80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b90  5c 20 43 6c 65 61 72 20  65 78 70 6f 6e 65 6e 74  |\ Clear exponent|
00000ba0  20 6f 66 20 61 20 7a 65  72 6f 20 6e 75 6d 62 65  | of a zero numbe|
00000bb0  72 0d 05 14 05 20 0d 05  1e 07 52 54 53 0d 05 28  |r.... ....RTS..(|
00000bc0  05 20 0d 05 32 0b 2e 66  70 5f 73 75 62 0d 05 3c  |. ..2..fp_sub..<|
00000bd0  06 20 20 0d 05 46 31 5c  20 20 53 75 62 74 72 61  |.  ..F1\  Subtra|
00000be0  63 74 73 20 74 68 65 20  6e 75 6d 62 65 72 20 69  |cts the number i|
00000bf0  6e 20 66 70 77 73 5f 32  20 66 72 6f 6d 20 66 70  |n fpws_2 from fp|
00000c00  77 73 5f 31 0d 05 50 24  5c 20 20 61 6e 64 20 70  |ws_1..P$\  and p|
00000c10  75 74 73 20 74 68 65 20  72 65 73 75 6c 74 20 69  |uts the result i|
00000c20  6e 20 66 70 77 73 5f 31  0d 05 5a 05 20 0d 05 64  |n fpws_1..Z. ..d|
00000c30  2d 5c 20 20 46 69 72 73  74 20 61 6c 6c 6f 77 20  |-\  First allow |
00000c40  66 6f 72 20 7a 65 72 6f  73 20 69 6e 20 74 68 65  |for zeros in the|
00000c50  20 77 6f 72 6b 73 70 61  63 65 0d 05 6e 06 20 20  | workspace..n.  |
00000c60  0d 05 78 10 4c 44 41 20  66 70 77 73 5f 32 2b 31  |..x.LDA fpws_2+1|
00000c70  0d 05 82 4a 84 41 20 66  70 77 73 5f 32 20 20 20  |...J.A fpws_2   |
00000c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000c90  20 5a 65 72 6f 20 69 66  20 65 78 70 6f 6e 65 6e  | Zero if exponen|
00000ca0  74 20 26 20 74 6f 70 20  6d 61 6e 74 69 73 73 61  |t & top mantissa|
00000cb0  20 62 79 74 65 20 7a 65  72 6f 0d 05 8c 41 42 45  | byte zero...ABE|
00000cc0  51 20 65 78 69 74 5f 73  75 62 74 72 61 63 74 69  |Q exit_subtracti|
00000cd0  6f 6e 20 20 20 20 20 20  20 20 5c 20 49 66 20 32  |on        \ If 2|
00000ce0  6e 64 20 6e 6f 20 69 73  20 30 20 20 72 65 73 75  |nd no is 0  resu|
00000cf0  6c 74 20 3d 20 31 73 74  20 6e 6f 0d 05 96 05 20  |lt = 1st no.... |
00000d00  0d 05 a0 10 4c 44 41 20  66 70 77 73 5f 31 2b 31  |....LDA fpws_1+1|
00000d10  0d 05 aa 4a 84 41 20 66  70 77 73 5f 31 20 20 20  |...J.A fpws_1   |
00000d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000d30  20 5a 65 72 6f 20 69 66  20 65 78 70 6f 6e 65 6e  | Zero if exponen|
00000d40  74 20 26 20 74 6f 70 20  6d 61 6e 74 69 73 73 61  |t & top mantissa|
00000d50  20 62 79 74 65 20 7a 65  72 6f 0d 05 b4 4a 42 4e  | byte zero...JBN|
00000d60  45 20 64 6f 6e 74 5f 74  72 61 6e 73 66 65 72 5f  |E dont_transfer_|
00000d70  73 75 62 20 20 20 20 20  20 20 5c 20 49 66 20 6f  |sub       \ If o|
00000d80  6e 6c 79 20 31 73 74 20  6e 6f 20 69 73 20 7a 65  |nly 1st no is ze|
00000d90  72 6f 20 61 6e 73 77 65  72 20 69 73 20 2d 32 6e  |ro answer is -2n|
00000da0  64 20 6e 6f 0d 05 be 05  20 0d 05 c8 0a 4c 44 58  |d no.... ....LDX|
00000db0  20 23 35 0d 05 d2 05 20  0d 05 dc 4a 2e 7a 65 72  | #5.... ...J.zer|
00000dc0  6f 5f 63 6f 6d 70 65 6e  73 61 74 69 6f 6e 5f 6c  |o_compensation_l|
00000dd0  6f 6f 70 32 20 20 20 20  20 5c 20 74 72 61 6e 73  |oop2     \ trans|
00000de0  66 65 72 20 73 65 63 6f  6e 64 20 6e 6f 20 61 6e  |fer second no an|
00000df0  64 20 65 78 69 74 20 73  75 62 74 72 61 63 74 69  |d exit subtracti|
00000e00  6f 6e 0d 05 e6 05 20 0d  05 f0 13 4c 44 41 20 66  |on.... ....LDA f|
00000e10  70 77 73 5f 32 2d 31 2c  20 58 0d 05 fa 13 53 54  |pws_2-1, X....ST|
00000e20  41 20 66 70 77 73 5f 31  2d 31 2c 20 58 0d 06 04  |A fpws_1-1, X...|
00000e30  07 44 45 58 0d 06 0e 1f  42 4e 45 20 7a 65 72 6f  |.DEX....BNE zero|
00000e40  5f 63 6f 6d 70 65 6e 73  61 74 69 6f 6e 5f 6c 6f  |_compensation_lo|
00000e50  6f 70 32 0d 06 18 10 4c  44 41 20 66 70 77 73 5f  |op2....LDA fpws_|
00000e60  31 2b 31 0d 06 22 0a 82  20 23 26 38 30 0d 06 2c  |1+1..".. #&80..,|
00000e70  49 53 54 41 20 66 70 77  73 5f 31 2b 31 20 20 20  |ISTA fpws_1+1   |
00000e80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00000e90  43 68 61 6e 67 65 20 73  69 67 6e 20 6f 66 20 73  |Change sign of s|
00000ea0  65 63 6f 6e 64 20 6e 75  6d 62 65 72 20 2d 3e 20  |econd number -> |
00000eb0  72 65 73 75 6c 74 0d 06  36 18 4a 4d 50 20 65 78  |result..6.JMP ex|
00000ec0  69 74 5f 73 75 62 74 72  61 63 74 69 6f 6e 0d 06  |it_subtraction..|
00000ed0  40 05 20 0d 06 4a 16 2e  64 6f 6e 74 5f 74 72 61  |@. ..J..dont_tra|
00000ee0  6e 73 66 65 72 5f 73 75  62 0d 06 54 05 20 0d 06  |nsfer_sub..T. ..|
00000ef0  5e 3f 4a 53 52 20 6d 6f  76 65 5f 73 69 67 6e 5f  |^?JSR move_sign_|
00000f00  62 69 74 20 20 20 20 20  20 20 20 20 20 20 5c 20  |bit           \ |
00000f10  4d 6f 76 65 20 73 69 67  6e 20 61 6e 64 20 72 65  |Move sign and re|
00000f20  73 74 6f 72 65 20 74 6f  70 20 62 69 74 0d 06 68  |store top bit..h|
00000f30  05 20 0d 06 72 3c 4a 53  52 20 65 71 75 61 74 65  |. ..r<JSR equate|
00000f40  5f 65 78 70 6f 6e 65 6e  74 73 20 20 20 20 20 20  |_exponents      |
00000f50  20 20 5c 20 44 65 6e 6f  72 6d 61 6c 69 73 65 20  |  \ Denormalise |
00000f60  73 6d 61 6c 6c 65 72 20  6e 75 6d 62 65 72 0d 06  |smaller number..|
00000f70  7c 05 20 0d 06 86 43 4a  53 52 20 6e 65 67 5f 63  ||. ...CJSR neg_c|
00000f80  6f 6e 76 65 72 74 20 20  20 20 20 20 20 20 20 20  |onvert          |
00000f90  20 20 20 5c 20 43 6f 6e  76 65 72 74 20 6e 65 67  |   \ Convert neg|
00000fa0  20 6e 6f 73 20 74 6f 20  32 27 73 20 63 6f 6d 70  | nos to 2's comp|
00000fb0  6c 65 6d 65 6e 74 0d 06  90 05 20 0d 06 9a 1a 4a  |lement.... ....J|
00000fc0  53 52 20 73 75 62 74 72  61 63 74 5f 6d 61 6e 74  |SR subtract_mant|
00000fd0  69 73 73 61 65 0d 06 a4  05 20 0d 06 ae 44 4a 53  |issae.... ...DJS|
00000fe0  52 20 6e 65 67 5f 63 6f  6e 76 65 72 74 5f 62 61  |R neg_convert_ba|
00000ff0  63 6b 20 20 20 20 20 20  20 20 5c 20 43 6f 6e 76  |ck        \ Conv|
00001000  65 72 74 20 32 27 73 20  63 6f 6d 70 6c 65 6d 65  |ert 2's compleme|
00001010  6e 74 20 62 61 63 6b 20  74 6f 20 6e 65 67 0d 06  |nt back to neg..|
00001020  b8 05 20 0d 06 c2 49 5c  20 20 54 72 61 70 20 61  |.. ...I\  Trap a|
00001030  20 7a 65 72 6f 20 72 65  73 75 6c 74 20 6f 72 20  | zero result or |
00001040  72 65 6e 6f 72 6d 61 6c  69 73 69 6e 67 20 72 6f  |renormalising ro|
00001050  75 74 69 6e 65 20 77 69  6c 6c 20 6c 6f 6f 70 20  |utine will loop |
00001060  69 6e 64 65 66 69 6e 61  74 65 6c 79 0d 06 cc 05  |indefinately....|
00001070  20 0d 06 d6 14 4c 44 41  20 66 70 77 73 5f 31 5f  | ....LDA fpws_1_|
00001080  6f 66 6c 6f 77 0d 06 e0  0f 84 41 20 66 70 77 73  |oflow.....A fpws|
00001090  5f 31 2b 31 0d 06 ea 0f  84 41 20 66 70 77 73 5f  |_1+1.....A fpws_|
000010a0  31 2b 32 0d 06 f4 0f 84  41 20 66 70 77 73 5f 31  |1+2.....A fpws_1|
000010b0  2b 33 0d 06 fe 49 84 41  20 66 70 77 73 5f 31 2b  |+3...I.A fpws_1+|
000010c0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
000010d0  20 5c 20 84 69 6e 67 20  62 79 74 65 73 20 74 6f  | \ .ing bytes to|
000010e0  67 65 74 68 65 72 20 67  69 76 65 73 20 30 20 69  |gether gives 0 i|
000010f0  66 20 61 6c 6c 20 61 72  65 20 30 0d 07 08 05 20  |f all are 0.... |
00001100  0d 07 12 43 42 45 51 20  7a 65 72 6f 5f 72 65 73  |...CBEQ zero_res|
00001110  75 6c 74 20 20 20 20 20  20 20 20 20 20 20 20 20  |ult             |
00001120  5c 20 50 75 74 20 7a 65  72 6f 20 69 6e 74 6f 20  |\ Put zero into |
00001130  77 6f 72 6b 73 70 61 63  65 20 74 68 65 6e 20 65  |workspace then e|
00001140  78 69 74 0d 07 1c 05 20  0d 07 26 13 4a 53 52 20  |xit.... ..&.JSR |
00001150  72 65 6e 6f 72 6d 61 6c  69 73 65 0d 07 30 05 20  |renormalise..0. |
00001160  0d 07 3a 3b 4a 53 52 20  72 65 70 6c 61 63 65 5f  |..:;JSR replace_|
00001170  73 69 67 6e 5f 62 69 74  20 20 20 20 20 20 20 20  |sign_bit        |
00001180  5c 20 52 65 70 6c 61 63  65 20 74 6f 70 20 62 69  |\ Replace top bi|
00001190  74 20 77 69 74 68 20 73  69 67 6e 0d 07 44 05 20  |t with sign..D. |
000011a0  0d 07 4e 15 2e 65 78 69  74 5f 73 75 62 74 72 61  |..N..exit_subtra|
000011b0  63 74 69 6f 6e 0d 07 58  05 20 0d 07 62 07 52 54  |ction..X. ..b.RT|
000011c0  53 0d 07 6c 05 20 0d 07  76 10 2e 74 72 61 6e 73  |S..l. ..v..trans|
000011d0  66 65 72 5f 69 6e 0d 07  80 05 20 0d 07 8a 37 5c  |fer_in.... ...7\|
000011e0  20 20 54 68 69 73 20 73  75 62 72 6f 75 74 69 6e  |  This subroutin|
000011f0  65 20 74 61 6b 65 73 20  74 68 65 20 6e 75 6d 62  |e takes the numb|
00001200  65 72 73 20 69 6e 20 69  6e 70 75 74 5f 31 20 61  |ers in input_1 a|
00001210  6e 64 0d 07 94 31 5c 20  20 69 6e 70 75 74 5f 32  |nd...1\  input_2|
00001220  20 61 6e 64 20 70 75 74  73 20 74 68 65 6d 20 69  | and puts them i|
00001230  6e 20 66 70 77 73 5f 31  20 61 6e 64 20 66 70 77  |n fpws_1 and fpw|
00001240  73 5f 32 0d 07 9e 05 20  0d 07 a8 0a 4c 44 58 20  |s_2.... ....LDX |
00001250  23 35 0d 07 b2 05 20 0d  07 bc 15 2e 74 72 61 6e  |#5.... .....tran|
00001260  73 66 65 72 5f 69 6e 5f  6c 6f 6f 70 0d 07 c6 05  |sfer_in_loop....|
00001270  20 0d 07 d0 14 4c 44 41  20 69 6e 70 75 74 5f 31  | ....LDA input_1|
00001280  2d 31 2c 20 58 0d 07 da  13 53 54 41 20 66 70 77  |-1, X....STA fpw|
00001290  73 5f 31 2d 31 2c 20 58  0d 07 e4 14 4c 44 41 20  |s_1-1, X....LDA |
000012a0  69 6e 70 75 74 5f 32 2d  31 2c 20 58 0d 07 ee 13  |input_2-1, X....|
000012b0  53 54 41 20 66 70 77 73  5f 32 2d 31 2c 20 58 0d  |STA fpws_2-1, X.|
000012c0  07 f8 07 44 45 58 0d 08  02 19 42 4e 45 20 74 72  |...DEX....BNE tr|
000012d0  61 6e 73 66 65 72 5f 69  6e 5f 6c 6f 6f 70 20 0d  |ansfer_in_loop .|
000012e0  08 0c 05 20 0d 08 16 0a  4c 44 41 20 23 30 0d 08  |... ....LDA #0..|
000012f0  20 14 53 54 41 20 66 70  77 73 5f 31 5f 6f 66 6c  | .STA fpws_1_ofl|
00001300  6f 77 0d 08 2a 14 53 54  41 20 66 70 77 73 5f 32  |ow..*.STA fpws_2|
00001310  5f 6f 66 6c 6f 77 0d 08  34 05 20 0d 08 3e 07 52  |_oflow..4. ..>.R|
00001320  54 53 0d 08 48 05 20 0d  08 52 12 2e 6d 6f 76 65  |TS..H. ..R..move|
00001330  5f 73 69 67 6e 5f 62 69  74 0d 08 5c 05 20 0d 08  |_sign_bit..\. ..|
00001340  66 48 5c 20 20 54 68 69  73 20 72 6f 75 74 69 6e  |fH\  This routin|
00001350  65 20 74 72 61 6e 73 66  65 72 73 20 74 68 65 20  |e transfers the |
00001360  73 69 67 6e 20 62 69 74  20 66 72 6f 6d 20 74 68  |sign bit from th|
00001370  65 20 74 6f 70 20 6f 66  20 74 68 65 20 6d 61 6e  |e top of the man|
00001380  74 69 73 73 61 65 0d 08  70 40 5c 20 20 61 6e 64  |tissae..p@\  and|
00001390  20 70 75 74 73 20 69 74  20 69 6e 74 6f 20 61 20  | puts it into a |
000013a0  73 69 67 6e 20 62 79 74  65 20 2d 20 80 69 6e 67  |sign byte - .ing|
000013b0  20 74 6f 20 6c 65 61 76  65 20 74 6f 70 20 62 69  | to leave top bi|
000013c0  74 20 6f 6e 6c 79 0d 08  7a 35 5c 20 20 61 6e 64  |t only..z5\  and|
000013d0  20 74 68 65 6e 20 72 65  73 74 6f 72 65 73 20 74  | then restores t|
000013e0  68 65 20 74 6f 70 20 62  69 74 20 6f 66 20 74 68  |he top bit of th|
000013f0  65 20 6d 61 6e 74 69 73  73 61 65 0d 08 84 06 20  |e mantissae.... |
00001400  20 0d 08 8e 10 4c 44 41  20 66 70 77 73 5f 31 2b  | ....LDA fpws_1+|
00001410  31 0d 08 98 0a 80 20 23  26 38 30 0d 08 a2 46 53  |1..... #&80...FS|
00001420  54 41 20 66 70 77 73 5f  31 5f 73 69 67 6e 20 20  |TA fpws_1_sign  |
00001430  20 20 20 20 20 20 20 20  20 20 20 5c 20 66 70 77  |           \ fpw|
00001440  73 5f 31 5f 73 69 67 6e  20 69 73 20 2d 76 65 20  |s_1_sign is -ve |
00001450  69 66 20 6e 75 6d 62 65  72 20 77 61 73 20 2d 76  |if number was -v|
00001460  65 0d 08 ac 0c 4c 44 41  20 23 26 38 30 0d 08 b6  |e....LDA #&80...|
00001470  0f 84 41 20 66 70 77 73  5f 31 2b 31 0d 08 c0 44  |..A fpws_1+1...D|
00001480  53 54 41 20 66 70 77 73  5f 31 2b 31 20 20 20 20  |STA fpws_1+1    |
00001490  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 52 65  |            \ Re|
000014a0  73 74 6f 72 65 73 20 74  68 65 20 74 6f 70 20 62  |stores the top b|
000014b0  69 74 20 6f 66 20 74 68  65 20 6e 75 6d 62 65 72  |it of the number|
000014c0  0d 08 ca 05 20 0d 08 d4  10 4c 44 41 20 66 70 77  |.... ....LDA fpw|
000014d0  73 5f 32 2b 31 0d 08 de  0a 80 20 23 26 38 30 0d  |s_2+1..... #&80.|
000014e0  08 e8 46 53 54 41 20 66  70 77 73 5f 32 5f 73 69  |..FSTA fpws_2_si|
000014f0  67 6e 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |gn             \|
00001500  20 66 70 77 73 5f 32 5f  73 69 67 6e 20 69 73 20  | fpws_2_sign is |
00001510  2d 76 65 20 69 66 20 6e  75 6d 62 65 72 20 77 61  |-ve if number wa|
00001520  73 20 2d 76 65 0d 08 f2  0c 4c 44 41 20 23 26 38  |s -ve....LDA #&8|
00001530  30 0d 08 fc 0f 84 41 20  66 70 77 73 5f 32 2b 31  |0.....A fpws_2+1|
00001540  0d 09 06 44 53 54 41 20  66 70 77 73 5f 32 2b 31  |...DSTA fpws_2+1|
00001550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001560  5c 20 52 65 73 74 6f 72  65 73 20 74 68 65 20 74  |\ Restores the t|
00001570  6f 70 20 62 69 74 20 6f  66 20 74 68 65 20 6e 75  |op bit of the nu|
00001580  6d 62 65 72 0d 09 10 05  20 0d 09 1a 07 52 54 53  |mber.... ....RTS|
00001590  0d 09 24 05 20 0d 09 2e  15 2e 65 71 75 61 74 65  |..$. .....equate|
000015a0  5f 65 78 70 6f 6e 65 6e  74 73 0d 09 38 05 20 0d  |_exponents..8. .|
000015b0  09 42 45 5c 20 20 54 68  69 73 20 72 6f 75 74 69  |.BE\  This routi|
000015c0  6e 65 20 6d 6f 64 69 66  69 65 73 20 74 68 65 20  |ne modifies the |
000015d0  73 6d 61 6c 6c 65 72 20  6e 75 6d 62 65 72 20 73  |smaller number s|
000015e0  6f 20 74 68 61 74 20 74  68 65 20 65 78 70 6f 6e  |o that the expon|
000015f0  65 6e 74 73 0d 09 4c 13  5c 20 20 61 72 65 20 74  |ents..L.\  are t|
00001600  68 65 20 73 61 6d 65 0d  09 56 05 20 0d 09 60 07  |he same..V. ..`.|
00001610  53 45 43 0d 09 6a 0e 4c  44 41 20 66 70 77 73 5f  |SEC..j.LDA fpws_|
00001620  31 0d 09 74 40 53 42 43  20 66 70 77 73 5f 32 20  |1..t@SBC fpws_2 |
00001630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001640  20 5c 20 46 69 6e 64 20  77 68 69 63 68 20 65 78  | \ Find which ex|
00001650  70 6f 6e 65 6e 74 20 69  73 20 67 72 65 61 74 65  |ponent is greate|
00001660  72 0d 09 7e 17 42 45 51  20 65 78 70 6f 6e 65 6e  |r..~.BEQ exponen|
00001670  74 73 5f 65 71 75 61 6c  0d 09 88 16 42 50 4c 20  |ts_equal....BPL |
00001680  77 73 31 5f 69 73 5f 67  72 65 61 74 65 72 0d 09  |ws1_is_greater..|
00001690  92 05 20 0d 09 9c 13 2e  77 73 32 5f 69 73 5f 67  |.. .....ws2_is_g|
000016a0  72 65 61 74 65 72 0d 09  a6 05 20 0d 09 b0 3e 49  |reater.... ...>I|
000016b0  4e 43 20 66 70 77 73 5f  31 20 20 20 20 20 20 20  |NC fpws_1       |
000016c0  20 20 20 20 20 20 20 20  20 20 20 5c 20 49 6e 63  |           \ Inc|
000016d0  72 65 61 73 65 20 74 68  65 20 6c 65 73 73 65 72  |rease the lesser|
000016e0  20 65 78 70 6f 6e 65 6e  74 0d 09 ba 44 4c 53 52  | exponent...DLSR|
000016f0  20 66 70 77 73 5f 31 2b  31 20 20 20 20 20 20 20  | fpws_1+1       |
00001700  20 20 20 20 20 20 20 20  20 5c 20 53 68 69 66 74  |         \ Shift|
00001710  20 6d 61 6e 74 69 73 73  61 20 72 69 67 68 74 20  | mantissa right |
00001720  74 6f 20 63 6f 6d 70 65  6e 73 61 74 65 0d 09 c4  |to compensate...|
00001730  10 52 4f 52 20 66 70 77  73 5f 31 2b 32 0d 09 ce  |.ROR fpws_1+2...|
00001740  10 52 4f 52 20 66 70 77  73 5f 31 2b 33 0d 09 d8  |.ROR fpws_1+3...|
00001750  10 52 4f 52 20 66 70 77  73 5f 31 2b 34 0d 09 e2  |.ROR fpws_1+4...|
00001760  05 20 0d 09 ec 0e 4c 44  41 20 66 70 77 73 5f 32  |. ....LDA fpws_2|
00001770  0d 09 f6 0e 43 4d 50 20  66 70 77 73 5f 31 0d 0a  |....CMP fpws_1..|
00001780  00 41 42 4e 45 20 77 73  32 5f 69 73 5f 67 72 65  |.ABNE ws2_is_gre|
00001790  61 74 65 72 20 20 20 20  20 20 20 20 20 20 5c 20  |ater          \ |
000017a0  46 69 6e 69 73 68 20 77  68 65 6e 20 65 78 70 6f  |Finish when expo|
000017b0  6e 65 6e 74 73 20 61 72  65 20 65 71 75 61 6c 0d  |nents are equal.|
000017c0  0a 0a 07 52 54 53 0d 0a  14 05 20 0d 0a 1e 13 2e  |...RTS.... .....|
000017d0  77 73 31 5f 69 73 5f 67  72 65 61 74 65 72 0d 0a  |ws1_is_greater..|
000017e0  28 05 20 0d 0a 32 3a 49  4e 43 20 66 70 77 73 5f  |(. ..2:INC fpws_|
000017f0  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00001800  20 20 20 5c 20 49 6e 63  72 65 61 73 65 20 6c 65  |   \ Increase le|
00001810  73 73 65 72 20 65 78 70  6f 6e 65 6e 74 0d 0a 3c  |sser exponent..<|
00001820  44 4c 53 52 20 66 70 77  73 5f 32 2b 31 20 20 20  |DLSR fpws_2+1   |
00001830  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 53  |             \ S|
00001840  68 69 66 74 20 6d 61 6e  74 69 73 73 61 20 72 69  |hift mantissa ri|
00001850  67 68 74 20 74 6f 20 63  6f 6d 70 65 6e 73 61 74  |ght to compensat|
00001860  65 0d 0a 46 10 52 4f 52  20 66 70 77 73 5f 32 2b  |e..F.ROR fpws_2+|
00001870  32 0d 0a 50 10 52 4f 52  20 66 70 77 73 5f 32 2b  |2..P.ROR fpws_2+|
00001880  33 0d 0a 5a 10 52 4f 52  20 66 70 77 73 5f 32 2b  |3..Z.ROR fpws_2+|
00001890  34 0d 0a 64 05 20 0d 0a  6e 0e 4c 44 41 20 66 70  |4..d. ..n.LDA fp|
000018a0  77 73 5f 31 0d 0a 78 0e  43 4d 50 20 66 70 77 73  |ws_1..x.CMP fpws|
000018b0  5f 32 0d 0a 82 40 42 4e  45 20 77 73 31 5f 69 73  |_2...@BNE ws1_is|
000018c0  5f 67 72 65 61 74 65 72  20 20 20 20 20 20 20 20  |_greater        |
000018d0  20 5c 20 46 69 6e 69 73  68 20 77 68 65 6e 20 65  | \ Finish when e|
000018e0  78 70 6f 6e 65 6e 74 73  20 61 72 65 20 65 71 75  |xponents are equ|
000018f0  61 6c 0d 0a 8c 05 20 0d  0a 96 14 2e 65 78 70 6f  |al.... .....expo|
00001900  6e 65 6e 74 73 5f 65 71  75 61 6c 0d 0a a0 05 20  |nents_equal.... |
00001910  0d 0a aa 07 52 54 53 0d  0a b4 05 20 0d 0a be 10  |....RTS.... ....|
00001920  2e 6e 65 67 5f 63 6f 6e  76 65 72 74 0d 0a c8 05  |.neg_convert....|
00001930  20 0d 0a d2 45 5c 20 20  42 65 63 61 75 73 65 20  | ...E\  Because |
00001940  74 68 65 20 66 70 20 66  6f 72 6d 61 74 20 69 73  |the fp format is|
00001950  20 6e 6f 74 20 32 27 73  20 63 6f 6d 70 6c 65 6d  | not 2's complem|
00001960  65 6e 74 20 77 65 20 68  61 76 65 20 74 6f 20 63  |ent we have to c|
00001970  6f 6e 76 65 72 74 0d 0a  dc 46 5c 20 20 6e 65 67  |onvert...F\  neg|
00001980  61 74 69 76 65 20 6e 75  6d 62 65 72 73 20 74 6f  |ative numbers to|
00001990  20 32 27 73 20 63 6f 6d  70 6c 65 6d 65 6e 74 20  | 2's complement |
000019a0  62 65 66 6f 72 65 20 63  61 6c 63 75 6c 61 74 69  |before calculati|
000019b0  6e 67 20 77 69 74 68 20  74 68 65 6d 0d 0a e6 24  |ng with them...$|
000019c0  5c 20 20 66 6f 72 20 61  64 64 69 74 69 6f 6e 20  |\  for addition |
000019d0  61 6e 64 20 73 75 62 74  72 61 63 74 69 6f 6e 2e  |and subtraction.|
000019e0  0d 0a f0 05 20 0d 0a fa  13 4c 44 41 20 66 70 77  |.... ....LDA fpw|
000019f0  73 5f 32 5f 73 69 67 6e  0d 0b 04 0f 42 50 4c 20  |s_2_sign....BPL |
00001a00  66 70 32 5f 70 6f 73 0d  0b 0e 05 20 0d 0b 18 34  |fp2_pos.... ...4|
00001a10  53 45 43 20 20 20 20 20  20 20 20 20 20 20 20 20  |SEC             |
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 53 75  |            \ Su|
00001a30  62 74 72 61 63 74 20 66  72 6f 6d 20 7a 65 72 6f  |btract from zero|
00001a40  0d 0b 22 0a 4c 44 41 20  23 30 0d 0b 2c 10 53 42  |..".LDA #0..,.SB|
00001a50  43 20 66 70 77 73 5f 32  2b 34 0d 0b 36 10 53 54  |C fpws_2+4..6.ST|
00001a60  41 20 66 70 77 73 5f 32  2b 34 0d 0b 40 0a 4c 44  |A fpws_2+4..@.LD|
00001a70  41 20 23 30 0d 0b 4a 10  53 42 43 20 66 70 77 73  |A #0..J.SBC fpws|
00001a80  5f 32 2b 33 0d 0b 54 10  53 54 41 20 66 70 77 73  |_2+3..T.STA fpws|
00001a90  5f 32 2b 33 0d 0b 5e 0a  4c 44 41 20 23 30 0d 0b  |_2+3..^.LDA #0..|
00001aa0  68 10 53 42 43 20 66 70  77 73 5f 32 2b 32 0d 0b  |h.SBC fpws_2+2..|
00001ab0  72 10 53 54 41 20 66 70  77 73 5f 32 2b 32 0d 0b  |r.STA fpws_2+2..|
00001ac0  7c 0a 4c 44 41 20 23 30  0d 0b 86 10 53 42 43 20  ||.LDA #0....SBC |
00001ad0  66 70 77 73 5f 32 2b 31  0d 0b 90 10 53 54 41 20  |fpws_2+1....STA |
00001ae0  66 70 77 73 5f 32 2b 31  0d 0b 9a 0a 4c 44 41 20  |fpws_2+1....LDA |
00001af0  23 30 0d 0b a4 46 53 42  43 20 66 70 77 73 5f 32  |#0...FSBC fpws_2|
00001b00  5f 6f 66 6c 6f 77 20 20  20 20 20 20 20 20 20 20  |_oflow          |
00001b10  20 20 5c 20 44 6f 6e 27  74 20 66 6f 72 67 65 74  |  \ Don't forget|
00001b20  20 74 6f 20 69 6e 63 6c  75 64 65 20 74 68 65 20  | to include the |
00001b30  6f 76 65 72 66 6c 6f 77  0d 0b ae 14 53 54 41 20  |overflow....STA |
00001b40  66 70 77 73 5f 32 5f 6f  66 6c 6f 77 0d 0b b8 05  |fpws_2_oflow....|
00001b50  20 0d 0b c2 0c 2e 66 70  32 5f 70 6f 73 0d 0b cc  | .....fp2_pos...|
00001b60  05 20 0d 0b d6 13 4c 44  41 20 66 70 77 73 5f 31  |. ....LDA fpws_1|
00001b70  5f 73 69 67 6e 0d 0b e0  0f 42 50 4c 20 66 70 31  |_sign....BPL fp1|
00001b80  5f 70 6f 73 0d 0b ea 05  20 0d 0b f4 17 2e 63 6f  |_pos.... .....co|
00001b90  6e 76 65 72 74 5f 73 69  67 6e 5f 66 70 77 73 31  |nvert_sign_fpws1|
00001ba0  0d 0b fe 05 20 0d 0c 08  34 53 45 43 20 20 20 20  |.... ...4SEC    |
00001bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001bc0  20 20 20 20 20 5c 20 53  75 62 74 72 61 63 74 20  |     \ Subtract |
00001bd0  66 72 6f 6d 20 7a 65 72  6f 0d 0c 12 0a 4c 44 41  |from zero....LDA|
00001be0  20 23 30 0d 0c 1c 10 53  42 43 20 66 70 77 73 5f  | #0....SBC fpws_|
00001bf0  31 2b 34 0d 0c 26 10 53  54 41 20 66 70 77 73 5f  |1+4..&.STA fpws_|
00001c00  31 2b 34 0d 0c 30 0a 4c  44 41 20 23 30 0d 0c 3a  |1+4..0.LDA #0..:|
00001c10  10 53 42 43 20 66 70 77  73 5f 31 2b 33 0d 0c 44  |.SBC fpws_1+3..D|
00001c20  10 53 54 41 20 66 70 77  73 5f 31 2b 33 0d 0c 4e  |.STA fpws_1+3..N|
00001c30  0a 4c 44 41 20 23 30 0d  0c 58 10 53 42 43 20 66  |.LDA #0..X.SBC f|
00001c40  70 77 73 5f 31 2b 32 0d  0c 62 10 53 54 41 20 66  |pws_1+2..b.STA f|
00001c50  70 77 73 5f 31 2b 32 0d  0c 6c 0a 4c 44 41 20 23  |pws_1+2..l.LDA #|
00001c60  30 0d 0c 76 10 53 42 43  20 66 70 77 73 5f 31 2b  |0..v.SBC fpws_1+|
00001c70  31 0d 0c 80 10 53 54 41  20 66 70 77 73 5f 31 2b  |1....STA fpws_1+|
00001c80  31 0d 0c 8a 0a 4c 44 41  20 23 30 0d 0c 94 2a 53  |1....LDA #0...*S|
00001c90  42 43 20 66 70 77 73 5f  31 5f 6f 66 6c 6f 77 20  |BC fpws_1_oflow |
00001ca0  20 20 20 20 20 20 20 20  20 20 20 5c 20 4f 76 65  |           \ Ove|
00001cb0  72 66 6c 6f 77 0d 0c 9e  14 53 54 41 20 66 70 77  |rflow....STA fpw|
00001cc0  73 5f 31 5f 6f 66 6c 6f  77 0d 0c a8 05 20 0d 0c  |s_1_oflow.... ..|
00001cd0  b2 0d 2e 20 66 70 31 5f  70 6f 73 0d 0c bc 05 20  |... fp1_pos.... |
00001ce0  0d 0c c6 07 52 54 53 0d  0c d0 05 20 0d 0c da 12  |....RTS.... ....|
00001cf0  2e 61 64 64 5f 6d 61 6e  74 69 73 73 61 65 0d 0c  |.add_mantissae..|
00001d00  e4 05 20 0d 0c ee 35 5c  20 20 54 68 69 73 20 72  |.. ...5\  This r|
00001d10  6f 75 74 69 6e 65 20 61  64 64 73 20 74 68 65 20  |outine adds the |
00001d20  6d 61 6e 74 69 73 73 61  65 20 77 69 74 68 20 6f  |mantissae with o|
00001d30  76 65 72 66 6c 6f 77 73  0d 0c f8 05 20 0d 0d 02  |verflows.... ...|
00001d40  07 43 4c 43 0d 0d 0c 46  4c 44 41 20 66 70 77 73  |.CLC...FLDA fpws|
00001d50  5f 31 2b 34 20 20 20 20  20 20 20 20 20 20 20 20  |_1+4            |
00001d60  20 20 20 20 5c 20 53 74  61 6e 64 61 72 64 20 61  |    \ Standard a|
00001d70  64 64 20 62 75 74 20 77  69 74 68 20 62 79 74 65  |dd but with byte|
00001d80  73 20 72 65 76 65 72 73  65 64 0d 0d 16 10 41 44  |s reversed....AD|
00001d90  43 20 66 70 77 73 5f 32  2b 34 0d 0d 20 10 53 54  |C fpws_2+4.. .ST|
00001da0  41 20 66 70 77 73 5f 31  2b 34 0d 0d 2a 10 4c 44  |A fpws_1+4..*.LD|
00001db0  41 20 66 70 77 73 5f 31  2b 33 0d 0d 34 10 41 44  |A fpws_1+3..4.AD|
00001dc0  43 20 66 70 77 73 5f 32  2b 33 0d 0d 3e 10 53 54  |C fpws_2+3..>.ST|
00001dd0  41 20 66 70 77 73 5f 31  2b 33 0d 0d 48 10 4c 44  |A fpws_1+3..H.LD|
00001de0  41 20 66 70 77 73 5f 31  2b 32 0d 0d 52 10 41 44  |A fpws_1+2..R.AD|
00001df0  43 20 66 70 77 73 5f 32  2b 32 0d 0d 5c 10 53 54  |C fpws_2+2..\.ST|
00001e00  41 20 66 70 77 73 5f 31  2b 32 0d 0d 66 10 4c 44  |A fpws_1+2..f.LD|
00001e10  41 20 66 70 77 73 5f 31  2b 31 0d 0d 70 10 41 44  |A fpws_1+1..p.AD|
00001e20  43 20 66 70 77 73 5f 32  2b 31 0d 0d 7a 10 53 54  |C fpws_2+1..z.ST|
00001e30  41 20 66 70 77 73 5f 31  2b 31 0d 0d 84 14 4c 44  |A fpws_1+1....LD|
00001e40  41 20 66 70 77 73 5f 31  5f 6f 66 6c 6f 77 0d 0d  |A fpws_1_oflow..|
00001e50  8e 14 41 44 43 20 66 70  77 73 5f 32 5f 6f 66 6c  |..ADC fpws_2_ofl|
00001e60  6f 77 0d 0d 98 14 53 54  41 20 66 70 77 73 5f 31  |ow....STA fpws_1|
00001e70  5f 6f 66 6c 6f 77 0d 0d  a2 05 20 0d 0d ac 07 52  |_oflow.... ....R|
00001e80  54 53 0d 0d b6 05 20 0d  0d c0 17 2e 73 75 62 74  |TS.... .....subt|
00001e90  72 61 63 74 5f 6d 61 6e  74 69 73 73 61 65 0d 0d  |ract_mantissae..|
00001ea0  ca 05 20 0d 0d d4 3a 5c  20 20 54 68 69 73 20 72  |.. ...:\  This r|
00001eb0  6f 75 74 69 6e 65 20 73  75 62 74 72 61 63 74 73  |outine subtracts|
00001ec0  20 74 68 65 20 6d 61 6e  74 69 73 73 61 65 20 77  | the mantissae w|
00001ed0  69 74 68 20 6f 76 65 72  66 6c 6f 77 73 0d 0d de  |ith overflows...|
00001ee0  05 20 0d 0d e8 07 53 45  43 0d 0d f2 4b 4c 44 41  |. ....SEC...KLDA|
00001ef0  20 66 70 77 73 5f 31 2b  34 20 20 20 20 20 20 20  | fpws_1+4       |
00001f00  20 20 20 20 20 20 20 20  20 5c 20 53 74 61 6e 64  |         \ Stand|
00001f10  61 72 64 20 73 75 62 74  72 61 63 74 20 62 75 74  |ard subtract but|
00001f20  20 77 69 74 68 20 62 79  74 65 73 20 72 65 76 65  | with bytes reve|
00001f30  72 73 65 64 0d 0d fc 10  53 42 43 20 66 70 77 73  |rsed....SBC fpws|
00001f40  5f 32 2b 34 0d 0e 06 10  53 54 41 20 66 70 77 73  |_2+4....STA fpws|
00001f50  5f 31 2b 34 0d 0e 10 10  4c 44 41 20 66 70 77 73  |_1+4....LDA fpws|
00001f60  5f 31 2b 33 0d 0e 1a 10  53 42 43 20 66 70 77 73  |_1+3....SBC fpws|
00001f70  5f 32 2b 33 0d 0e 24 10  53 54 41 20 66 70 77 73  |_2+3..$.STA fpws|
00001f80  5f 31 2b 33 0d 0e 2e 10  4c 44 41 20 66 70 77 73  |_1+3....LDA fpws|
00001f90  5f 31 2b 32 0d 0e 38 10  53 42 43 20 66 70 77 73  |_1+2..8.SBC fpws|
00001fa0  5f 32 2b 32 0d 0e 42 10  53 54 41 20 66 70 77 73  |_2+2..B.STA fpws|
00001fb0  5f 31 2b 32 0d 0e 4c 10  4c 44 41 20 66 70 77 73  |_1+2..L.LDA fpws|
00001fc0  5f 31 2b 31 0d 0e 56 10  53 42 43 20 66 70 77 73  |_1+1..V.SBC fpws|
00001fd0  5f 32 2b 31 0d 0e 60 10  53 54 41 20 66 70 77 73  |_2+1..`.STA fpws|
00001fe0  5f 31 2b 31 0d 0e 6a 14  4c 44 41 20 66 70 77 73  |_1+1..j.LDA fpws|
00001ff0  5f 31 5f 6f 66 6c 6f 77  0d 0e 74 14 53 42 43 20  |_1_oflow..t.SBC |
00002000  66 70 77 73 5f 32 5f 6f  66 6c 6f 77 0d 0e 7e 14  |fpws_2_oflow..~.|
00002010  53 54 41 20 66 70 77 73  5f 31 5f 6f 66 6c 6f 77  |STA fpws_1_oflow|
00002020  0d 0e 88 05 20 0d 0e 92  07 52 54 53 0d 0e 9c 05  |.... ....RTS....|
00002030  20 0d 0e a6 15 2e 6e 65  67 5f 63 6f 6e 76 65 72  | .....neg_conver|
00002040  74 5f 62 61 63 6b 0d 0e  b0 05 20 0d 0e ba 45 5c  |t_back.... ...E\|
00002050  20 20 54 68 69 73 20 72  6f 75 74 69 6e 65 20 63  |  This routine c|
00002060  6f 6e 76 65 72 74 73 20  61 6e 79 20 32 27 73 20  |onverts any 2's |
00002070  63 6f 6d 70 6c 65 6d 65  6e 74 20 72 65 73 75 6c  |complement resul|
00002080  74 20 69 6e 74 6f 20 66  70 20 66 6f 72 6d 61 74  |t into fp format|
00002090  0d 0e c4 05 20 0d 0e ce  14 4c 44 41 20 66 70 77  |.... ....LDA fpw|
000020a0  73 5f 31 5f 6f 66 6c 6f  77 0d 0e d8 0f 42 50 4c  |s_1_oflow....BPL|
000020b0  20 72 65 73 5f 70 6f 73  0d 0e e2 05 20 0d 0e ec  | res_pos.... ...|
000020c0  1a 4a 53 52 20 63 6f 6e  76 65 72 74 5f 73 69 67  |.JSR convert_sig|
000020d0  6e 5f 66 70 77 73 31 0d  0e f6 0c 4c 44 41 20 23  |n_fpws1....LDA #|
000020e0  26 38 30 0d 0f 00 13 53  54 41 20 66 70 77 73 5f  |&80....STA fpws_|
000020f0  31 5f 73 69 67 6e 0d 0f  0a 07 52 54 53 0d 0f 14  |1_sign....RTS...|
00002100  05 20 0d 0f 1e 0c 2e 72  65 73 5f 70 6f 73 0d 0f  |. .....res_pos..|
00002110  28 05 20 0d 0f 32 0a 4c  44 41 20 23 30 0d 0f 3c  |(. ..2.LDA #0..<|
00002120  13 53 54 41 20 66 70 77  73 5f 31 5f 73 69 67 6e  |.STA fpws_1_sign|
00002130  0d 0f 46 05 20 0d 0f 50  07 52 54 53 0d 0f 5a 05  |..F. ..P.RTS..Z.|
00002140  20 0d 0f 64 10 2e 72 65  6e 6f 72 6d 61 6c 69 73  | ..d..renormalis|
00002150  65 0d 0f 6e 05 20 0d 0f  78 43 5c 20 54 68 69 73  |e..n. ..xC\ This|
00002160  20 72 6f 75 74 69 6e 65  20 6d 6f 64 69 66 69 65  | routine modifie|
00002170  73 20 74 68 65 20 6d 61  6e 74 69 73 73 61 20 61  |s the mantissa a|
00002180  6e 64 20 65 78 70 6f 6e  65 6e 74 20 6f 66 20 74  |nd exponent of t|
00002190  68 65 20 72 65 73 75 6c  74 0d 0f 82 2c 5c 20 54  |he result...,\ T|
000021a0  6f 20 70 72 6f 64 75 63  65 20 61 20 6e 6f 72 6d  |o produce a norm|
000021b0  61 6c 69 73 65 64 20 66  6f 72 6d 61 74 20 6e 75  |alised format nu|
000021c0  6d 62 65 72 2e 0d 0f 8c  05 20 0d 0f 96 14 4c 44  |mber..... ....LD|
000021d0  41 20 66 70 77 73 5f 31  5f 6f 66 6c 6f 77 0d 0f  |A fpws_1_oflow..|
000021e0  a0 4b 42 4e 45 20 73 68  69 66 74 5f 72 69 67 68  |.KBNE shift_righ|
000021f0  74 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |t             \ |
00002200  49 66 20 6f 76 65 72 66  6c 6f 77 20 69 73 20 3e  |If overflow is >|
00002210  30 20 77 65 20 73 68 69  66 74 20 6d 61 6e 74 69  |0 we shift manti|
00002220  73 73 61 20 72 69 67 68  74 0d 0f aa 05 20 0d 0f  |ssa right.... ..|
00002230  b4 46 4c 44 41 20 66 70  77 73 5f 31 2b 31 20 20  |.FLDA fpws_1+1  |
00002240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00002250  54 6f 70 20 62 79 74 65  20 6f 66 20 6d 61 6e 74  |Top byte of mant|
00002260  69 73 73 61 20 69 73 20  73 68 69 66 74 65 64 20  |issa is shifted |
00002270  6c 65 66 74 0d 0f be 41  42 4d 49 20 6e 6f 72 6d  |left...ABMI norm|
00002280  61 6c 69 73 65 64 20 20  20 20 20 20 20 20 20 20  |alised          |
00002290  20 20 20 20 5c 20 75 6e  74 69 6c 20 74 6f 70 20  |    \ until top |
000022a0  62 69 74 20 69 73 20 73  65 74 20 28 69 2e 65 2e  |bit is set (i.e.|
000022b0  20 2d 76 65 29 0d 0f c8  05 20 0d 0f d2 14 2e 73  | -ve).... .....s|
000022c0  68 69 66 74 5f 6c 65 66  74 5f 6c 6f 6f 70 0d 0f  |hift_left_loop..|
000022d0  dc 05 20 0d 0f e6 37 44  45 43 20 66 70 77 73 5f  |.. ...7DEC fpws_|
000022e0  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
000022f0  20 20 20 5c 20 44 65 63  72 65 61 73 65 20 74 68  |   \ Decrease th|
00002300  65 20 65 78 70 6f 6e 65  6e 74 0d 0f f0 43 41 53  |e exponent...CAS|
00002310  4c 20 66 70 77 73 5f 31  2b 34 20 20 20 20 20 20  |L fpws_1+4      |
00002320  20 20 20 20 20 20 20 20  20 20 5c 20 53 68 69 66  |          \ Shif|
00002330  74 20 6d 61 6e 74 69 73  73 61 20 6c 65 66 74 20  |t mantissa left |
00002340  74 6f 20 63 6f 6d 70 65  6e 73 61 74 65 0d 0f fa  |to compensate...|
00002350  10 52 4f 4c 20 66 70 77  73 5f 31 2b 33 0d 10 04  |.ROL fpws_1+3...|
00002360  10 52 4f 4c 20 66 70 77  73 5f 31 2b 32 0d 10 0e  |.ROL fpws_1+2...|
00002370  10 52 4f 4c 20 66 70 77  73 5f 31 2b 31 0d 10 18  |.ROL fpws_1+1...|
00002380  05 20 0d 10 22 17 42 50  4c 20 73 68 69 66 74 5f  |. ..".BPL shift_|
00002390  6c 65 66 74 5f 6c 6f 6f  70 0d 10 2c 05 20 0d 10  |left_loop..,. ..|
000023a0  36 35 52 54 53 20 20 20  20 20 20 20 20 20 20 20  |65RTS           |
000023b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
000023c0  4e 75 6d 62 65 72 20 72  65 6e 6f 72 6d 61 6c 69  |Number renormali|
000023d0  73 65 64 0d 10 40 05 20  0d 10 4a 10 2e 73 68 69  |sed..@. ..J..shi|
000023e0  66 74 5f 72 69 67 68 74  0d 10 54 05 20 0d 10 5e  |ft_right..T. ..^|
000023f0  37 49 4e 43 20 66 70 77  73 5f 31 20 20 20 20 20  |7INC fpws_1     |
00002400  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 49  |             \ I|
00002410  6e 63 72 65 61 73 65 20  74 68 65 20 65 78 70 6f  |ncrease the expo|
00002420  6e 65 6e 74 0d 10 68 41  42 45 51 20 74 6f 6f 5f  |nent..hABEQ too_|
00002430  62 69 67 20 20 20 20 20  20 20 20 20 20 20 20 20  |big             |
00002440  20 20 20 20 5c 20 49 66  20 65 78 70 20 69 73 20  |    \ If exp is |
00002450  7a 65 72 6f 20 77 65 20  68 61 76 65 20 6f 76 65  |zero we have ove|
00002460  72 66 6c 6f 77 0d 10 72  14 4c 53 52 20 66 70 77  |rflow..r.LSR fpw|
00002470  73 5f 31 5f 6f 66 6c 6f  77 0d 10 7c 44 52 4f 52  |s_1_oflow..|DROR|
00002480  20 66 70 77 73 5f 31 2b  31 20 20 20 20 20 20 20  | fpws_1+1       |
00002490  20 20 20 20 20 20 20 20  20 5c 20 53 68 69 66 74  |         \ Shift|
000024a0  20 6d 61 6e 74 69 73 73  61 20 72 69 67 68 74 20  | mantissa right |
000024b0  74 6f 20 63 6f 6d 70 65  6e 73 61 74 65 0d 10 86  |to compensate...|
000024c0  10 52 4f 52 20 66 70 77  73 5f 31 2b 32 0d 10 90  |.ROR fpws_1+2...|
000024d0  10 52 4f 52 20 66 70 77  73 5f 31 2b 33 0d 10 9a  |.ROR fpws_1+3...|
000024e0  10 52 4f 52 20 66 70 77  73 5f 31 2b 34 0d 10 a4  |.ROR fpws_1+4...|
000024f0  05 20 0d 10 ae 14 4c 44  41 20 66 70 77 73 5f 31  |. ....LDA fpws_1|
00002500  5f 6f 66 6c 6f 77 0d 10  b8 13 42 4e 45 20 73 68  |_oflow....BNE sh|
00002510  69 66 74 5f 72 69 67 68  74 0d 10 c2 05 20 0d 10  |ift_right.... ..|
00002520  cc 0f 2e 6e 6f 72 6d 61  6c 69 73 65 64 0d 10 d6  |...normalised...|
00002530  05 20 0d 10 e0 07 52 54  53 0d 10 ea 05 20 0d 10  |. ....RTS.... ..|
00002540  f4 15 2e 72 65 70 6c 61  63 65 5f 73 69 67 6e 5f  |...replace_sign_|
00002550  62 69 74 0d 10 fe 05 20  0d 11 08 07 43 4c 43 0d  |bit.... ....CLC.|
00002560  11 12 10 4c 44 41 20 66  70 77 73 5f 31 2b 31 0d  |...LDA fpws_1+1.|
00002570  11 1c 0a 80 20 23 26 37  46 0d 11 26 13 41 44 43  |.... #&7F..&.ADC|
00002580  20 66 70 77 73 5f 31 5f  73 69 67 6e 0d 11 30 42  | fpws_1_sign..0B|
00002590  53 54 41 20 66 70 77 73  5f 31 2b 31 20 20 20 20  |STA fpws_1+1    |
000025a0  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 49 66  |            \ If|
000025b0  20 2b 76 65 20 63 6c 65  61 72 20 74 6f 70 20 62  | +ve clear top b|
000025c0  69 74 20 6f 66 20 6d 61  6e 74 69 73 73 61 0d 11  |it of mantissa..|
000025d0  3a 05 20 0d 11 44 07 52  54 53 0d 11 4e 05 20 0d  |:. ..D.RTS..N. .|
000025e0  11 58 0c 2e 74 6f 6f 5f  62 69 67 0d 11 62 05 20  |.X..too_big..b. |
000025f0  0d 11 6c 2d 5c 20 20 54  68 69 73 20 69 73 20 61  |..l-\  This is a|
00002600  6e 20 65 72 72 6f 72 20  63 6f 6e 64 69 74 69 6f  |n error conditio|
00002610  6e 20 2d 20 6e 75 6d 62  65 72 20 32 30 0d 11 76  |n - number 20..v|
00002620  05 20 0d 11 80 07 42 52  4b 0d 11 8a 12 4f 50 54  |. ....BRK....OPT|
00002630  20 20 a4 45 51 55 42 28  32 30 29 0d 11 94 35 4f  |  .EQUB(20)...5O|
00002640  50 54 20 20 a4 45 51 55  53 28 22 52 65 73 75 6c  |PT  .EQUS("Resul|
00002650  74 20 6f 66 20 6d 75 6c  74 69 70 6c 69 63 61 74  |t of multiplicat|
00002660  69 6f 6e 20 69 73 20 74  6f 6f 20 62 69 67 22 29  |ion is too big")|
00002670  0d 11 9e 11 4f 50 54 20  20 a4 45 51 55 42 28 30  |....OPT  .EQUB(0|
00002680  29 0d 11 a8 05 20 0d 11  b2 05 5d 0d 11 bc 05 ed  |).... ....].....|
00002690  0d 11 c6 05 20 0d 11 d0  0b d6 20 63 6f 64 65 25  |.... ..... code%|
000026a0  0d 11 da 05 20 0d 11 e4  10 f1 22 52 65 73 75 6c  |.... ....."Resul|
000026b0  74 73 3a 22 27 0d 11 ee  2c f1 20 22 41 64 64 69  |ts:"'...,. "Addi|
000026c0  74 69 6f 6e 20 28 63 6f  64 65 29 20 69 73 20 20  |tion (code) is  |
000026d0  22 3b a4 66 70 28 72 65  73 75 6c 74 5f 61 64 64  |";.fp(result_add|
000026e0  29 0d 11 f8 24 f1 20 22  41 64 64 69 74 69 6f 6e  |)...$. "Addition|
000026f0  20 28 42 41 53 49 43 29  20 69 73 20 22 3b 66 70  | (BASIC) is ";fp|
00002700  31 2b 66 70 32 0d 12 02  05 20 0d 12 0c 2f f1 20  |1+fp2.... .../. |
00002710  22 53 75 62 74 72 61 63  74 69 6f 6e 20 28 63 6f  |"Subtraction (co|
00002720  64 65 29 20 69 73 20 20  22 3b a4 66 70 28 72 65  |de) is  ";.fp(re|
00002730  73 75 6c 74 5f 73 75 62  29 0d 12 16 27 f1 20 22  |sult_sub)...'. "|
00002740  53 75 62 74 72 61 63 74  69 6f 6e 20 28 42 41 53  |Subtraction (BAS|
00002750  49 43 29 20 69 73 20 22  3b 66 70 31 2d 66 70 32  |IC) is ";fp1-fp2|
00002760  0d 12 20 05 20 0d 12 2a  05 e0 0d 12 34 05 20 0d  |.. . ..*....4. .|
00002770  12 3e 1b 2a 2a 2a 2a 20  45 51 55 61 74 65 20 61  |.>.**** EQUate a|
00002780  20 42 79 74 65 20 2a 2a  2a 2a 0d 12 48 0f dd 20  | Byte ****..H.. |
00002790  a4 45 51 55 42 28 4e 25  29 0d 12 52 10 3f 50 25  |.EQUB(N%)..R.?P%|
000027a0  3d 4e 25 20 83 20 32 35  36 0d 12 5c 1e e7 20 28  |=N% . 256..\.. (|
000027b0  70 61 73 73 25 20 80 20  33 29 20 3d 20 33 20 8c  |pass% . 3) = 3 .|
000027c0  20 f1 20 7e 3f 50 25 0d  12 66 0b 50 25 3d 50 25  | . ~?P%..f.P%=P%|
000027d0  2b 31 0d 12 70 0a 3d 70  61 73 73 25 0d 12 7a 05  |+1..p.=pass%..z.|
000027e0  20 0d 12 84 1d 2a 2a 2a  2a 20 45 51 55 61 74 65  | ....**** EQUate|
000027f0  20 61 20 53 74 72 69 6e  67 20 2a 2a 2a 2a 0d 12  | a String ****..|
00002800  8e 0f dd 20 a4 45 51 55  53 28 4e 24 29 0d 12 98  |... .EQUS(N$)...|
00002810  08 ea 20 4e 25 0d 12 a2  08 fe 20 34 30 0d 12 ac  |.. N%..... 40...|
00002820  12 e3 20 4e 25 3d 31 20  b8 20 a9 28 4e 24 29 0d  |.. N%=1 . .(N$).|
00002830  12 b6 13 4b 25 3d 97 28  c1 4e 24 2c 4e 25 2c 31  |...K%=.(.N$,N%,1|
00002840  29 29 0d 12 c0 10 50 25  3f 28 4e 25 2d 31 29 3d  |))....P%?(N%-1)=|
00002850  4b 25 0d 12 ca 25 e7 20  28 70 61 73 73 25 20 80  |K%...%. (pass% .|
00002860  20 33 29 20 3d 20 33 20  8c 20 f1 20 7e 50 25 3f  | 3) = 3 . . ~P%?|
00002870  28 4e 25 2d 31 29 3b 0d  12 d4 05 ed 0d 12 de 19  |(N%-1);.........|
00002880  e7 20 28 70 61 73 73 25  20 80 20 33 29 20 3d 20  |. (pass% . 3) = |
00002890  33 20 8c 20 f1 0d 12 e8  0f 50 25 3d 50 25 2b a9  |3 . .....P%=P%+.|
000028a0  28 4e 24 29 0d 12 f2 07  fe 20 30 0d 12 fc 0a 3d  |(N$)..... 0....=|
000028b0  70 61 73 73 25 0d 13 06  05 20 0d 13 10 28 2a 2a  |pass%.... ...(**|
000028c0  2a 2a 20 45 51 55 61 74  65 20 61 20 73 65 63 74  |** EQUate a sect|
000028d0  69 6f 6e 20 6f 66 20 4d  65 6d 6f 72 79 20 2a 2a  |ion of Memory **|
000028e0  2a 2a 0d 13 1a 1a dd 20  a4 45 51 55 4d 28 6e 75  |**..... .EQUM(nu|
000028f0  6d 62 65 72 25 2c 62 79  74 65 25 29 0d 13 24 08  |mber%,byte%)..$.|
00002900  ea 20 4e 25 0d 13 2e 08  fe 20 34 30 0d 13 38 16  |. N%..... 40..8.|
00002910  e3 20 4e 25 3d 30 20 b8  20 6e 75 6d 62 65 72 25  |. N%=0 . number%|
00002920  2d 31 0d 13 42 0f 50 25  3f 4e 25 3d 62 79 74 65  |-1..B.P%?N%=byte|
00002930  25 0d 13 4c 21 e7 20 28  70 61 73 73 25 20 80 20  |%..L!. (pass% . |
00002940  33 29 20 3d 20 33 20 8c  20 f1 20 7e 50 25 3f 4e  |3) = 3 . . ~P%?N|
00002950  25 3b 0d 13 56 05 ed 0d  13 60 19 e7 20 28 70 61  |%;..V....`.. (pa|
00002960  73 73 25 20 80 20 33 29  20 3d 20 33 20 8c 20 f1  |ss% . 3) = 3 . .|
00002970  0d 13 6a 11 50 25 3d 50  25 2b 6e 75 6d 62 65 72  |..j.P%=P%+number|
00002980  25 0d 13 74 07 fe 20 30  0d 13 7e 0a 3d 70 61 73  |%..t.. 0..~.=pas|
00002990  73 25 0d 13 88 05 20 0d  13 92 2c 2a 2a 2a 2a 20  |s%.... ...,**** |
000029a0  45 51 55 61 74 65 20 61  20 66 6c 6f 61 74 69 6e  |EQUate a floatin|
000029b0  67 20 70 6f 69 6e 74 20  6e 75 6d 62 65 72 20 2a  |g point number *|
000029c0  2a 2a 2a 0d 13 9c 19 57  65 20 75 73 65 20 74 68  |***....We use th|
000029d0  65 20 76 61 72 69 61 62  6c 65 20 60 0d 13 a6 2b  |e variable `...+|
000029e0  74 6f 20 67 61 69 6e 20  61 63 63 65 73 73 20 74  |to gain access t|
000029f0  6f 20 42 41 53 49 43 27  73 20 66 70 20 63 6f 6e  |o BASIC's fp con|
00002a00  76 65 72 73 69 6f 6e 0d  13 b0 2a 72 6f 75 74 69  |version...*routi|
00002a10  6e 65 73 2e 20 4e 6f 20  6f 74 68 65 72 20 76 61  |nes. No other va|
00002a20  72 69 61 62 6c 65 73 20  62 65 67 69 6e 6e 69 6e  |riables beginnin|
00002a30  67 0d 13 ba 1a 77 69 74  68 20 60 20 63 61 6e 20  |g....with ` can |
00002a40  62 65 20 64 65 66 69 6e  65 64 2e 0d 13 c4 0e dd  |be defined......|
00002a50  20 a4 45 51 55 46 28 60  29 0d 13 ce 0c ea 20 4d  | .EQUF(`)..... M|
00002a60  25 2c 20 4e 25 0d 13 d8  08 fe 20 34 30 0d 13 e2  |%, N%..... 40...|
00002a70  1a 4d 25 20 3d 20 33 2b  28 21 26 34 43 30 20 80  |.M% = 3+(!&4C0 .|
00002a80  20 26 46 46 46 46 29 0d  13 ec 0e e3 20 4e 25 3d  | &FFFF)..... N%=|
00002a90  30 20 b8 20 34 0d 13 f6  0f 50 25 3f 4e 25 3d 4d  |0 . 4....P%?N%=M|
00002aa0  25 3f 4e 25 0d 14 00 21  e7 20 28 70 61 73 73 25  |%?N%...!. (pass%|
00002ab0  20 80 20 33 29 20 3d 20  33 20 8c 20 f1 20 7e 50  | . 3) = 3 . . ~P|
00002ac0  25 3f 4e 25 3b 0d 14 0a  05 ed 0d 14 14 19 e7 20  |%?N%;.......... |
00002ad0  28 70 61 73 73 25 20 80  20 33 29 20 3d 20 33 20  |(pass% . 3) = 3 |
00002ae0  8c 20 f1 0d 14 1e 0b 50  25 3d 50 25 2b 35 0d 14  |. .....P%=P%+5..|
00002af0  28 07 fe 20 30 0d 14 32  0a 3d 70 61 73 73 25 0d  |(.. 0..2.=pass%.|
00002b00  14 3c 05 20 0d 14 46 18  2a 2a 2a 2a 20 52 65 76  |.<. ..F.**** Rev|
00002b10  65 72 73 65 20 46 50 20  2a 2a 2a 2a 0d 14 50 1e  |erse FP ****..P.|
00002b20  50 75 74 73 20 66 70 20  6e 75 6d 62 65 72 20 66  |Puts fp number f|
00002b30  72 6f 6d 20 6d 65 6d 6f  72 79 0d 14 5a 1b 69 6e  |rom memory..Z.in|
00002b40  74 6f 20 76 61 72 69 61  62 6c 65 20 60 20 28 50  |to variable ` (P|
00002b50  4f 55 4e 44 29 0d 14 64  0f dd 20 a4 66 70 28 6d  |OUND)..d.. .fp(m|
00002b60  65 6d 25 29 0d 14 6e 0c  ea 20 4d 25 2c 20 4e 25  |em%)..n.. M%, N%|
00002b70  0d 14 78 07 60 3d 30 0d  14 82 1a 4d 25 20 3d 20  |..x.`=0....M% = |
00002b80  33 2b 28 21 26 34 43 30  20 80 20 26 46 46 46 46  |3+(!&4C0 . &FFFF|
00002b90  29 0d 14 8c 0e e3 20 4e  25 3d 30 20 b8 20 34 0d  |)..... N%=0 . 4.|
00002ba0  14 96 11 4d 25 3f 4e 25  3d 6d 65 6d 25 3f 4e 25  |...M%?N%=mem%?N%|
00002bb0  0d 14 a0 05 ed 0d 14 aa  06 3d 60 0d ff           |.........=`..|
00002bbd