� > FPLib v1.20 July 1991
� Floating Point Assembler
� � Mike Curnow
(� Initialise Floating Point
2��fpinit:� I%
<>*RMENSURE FPEMULATOR 2.00 RMLOAD SYSTEM:MODULES.FPEMULATOR
F+F0=0:F1=1:F2=2:F3=3:F4=4:F5=5:F6=6:F7=7
PeR0=0:R1=1:R2=2:R3=3:R4=4:R5=5:R6=6:R7=7:R8=8:R9=9:R10=10:R11=11:R12=12:R13=13:R14=14:R15=15:PC=15
Z�LOCAL DATA
d� +7
nfpmax=43
x&� fp$(fpmax),fo%(fpmax),ft%(fpmax)
�� I%=0 � fpmax
�� fp$(I%),fo%(I%),ft%(I%)
��:�:RESTORE DATA
�� code% 512,fpnum 256
��strtofp(code%)
��
�� Mnemonic,Opcode,Type
�� LDF,&0C100100,0
�� STF,&0C000100,0
�� ADF,&0E000100,1
�� MUF,&0E100100,1
�� SUF,&0E200100,1
�� RSF,&0E300100,1

� DVF,&0E400100,1

� RDF,&0E500100,1

� POW,&0E600100,1

"� RPW,&0E700100,1

,� RMF,&0E800100,1

6� FML,&0E900100,1

@� FDV,&0EA00100,1

J� FRD,&0EB00100,1

T� POL,&0EC00100,1

^� MVF,&0E008100,2

h� MNF,&0E108100,2

r� ABS,&0E208100,2

|� RND,&0E308100,2

�� SQT,&0E408100,2

�� LOG,&0E508100,2

�� LGN,&0E608100,2

�� EXP,&0E708100,2

�� SIN,&0E808100,2

�� COS,&0E908100,2

�� TAN,&0EA08100,2

�� ASN,&0EB08100,2

�� ACS,&0EC08100,2

�� ATN,&0ED08100,2

�� FLT,&0E000110,3

�� FIX,&0E100110,4

�� WFS,&0E200110,5
� RFS,&0E300110,5
� WFC,&0E400110,5
� RFC,&0E500110,5
&� CMF,&0E90F110,6
0� CNF,&0EB0F110,6
:� CME,&0ED0F110,6
D� CNE,&0EF0F110,6
N
� DFS,0,7
X
� DFD,0,8
b
� DFE,0,9
l� DFP,0,10
v� End Marker
�
� ZZZ,0,0
��------------------------
�� Generate floating point
�ݤfp(i$)
�� � i$:�:�
�&� o$,I%,i%,p%,t%,s$,fr%,a%,a,c%,f$
�f$=i$:o$=�fpstrip(3)
�'I%=-1:�I%+=1:�o$=fp$(I%) � I%=fpmax
�<� I%=fpmax �fperr("Bad FP Inst") � i%=fo%(I%):t%=ft%(I%)
�� (asm � 3)=0 �
�  � t%<8 P%+=4:O%+=4:=0
�  � t%=8 P%+=8:O%+=8:=0
�  � t%=9 P%+=12:O%+=12:=0
  � t%=10 P%+=12:O%+=12:=0
�
� t%>6 �fpdf(t%):=0
 &� �f$,1)=" " c%=%1110 � c%=�fpcond
*i%+=c%<<28
4"� �f$,1)=" " p%=0 � p%=�fpprec
>2� �f$,1)=" " s$=�fpstrip(1) � �fperr("Syntax")
H
i%+=p%
RȎ t% �
\  � 0:�fpt0
f  � 1:�fpt1
p  � 2:�fpt2
z  � 3:�fpt3
�  � 4:�fpt4
�  � 5:�fpt5
�  � 6:�fpt6
��
�� asm �4 !O%=i% � !P%=i%
�P%+=4:O%+=4
�=0
�
�
� LDF/STF
�
��fpt0
� �fpreg:i%+=fr%<<12:i%+=3<<23
�� �f$,1)="[" �
�  s$=�fpstrip(1)
  �fpreg:i%+=fr%<<16
  � s$="," �
=    s$=�fpstrip(1):� s$<>"#" �fperr("Bad Address offset")
$    a%=�(f$)
.     � a%<0 a%=0-a%:i%-=1<<23
87    � a%>1024 � (a%�3) �fperr("Bad Address offset")
B    i%+=a%>>2
L    � �f$,1)="!" i%+=1<<21
V  �
`    s$=�fpstrip(1)
j    Ȏ s$ �
t       � "!":i%+=1<<21
~       � "":
�       � ",":s$=�fpstrip(1)
�*       � s$<>"#" �fperr("Bad Address")
�       a%=�(f$)
�#       � a%<0 a%=0-a%:i%-=1<<23
�3       � a%>1024 � (a%�3) �fperr("Bad Address")
�       i%+=a%>>2:i%-=1<<24
�#       :�fperr("Syntax error")
�	    �
�  �
��
�  i%+=15<<16
�  fr%=�(f$):a%=P%+8-fr%
   � a%<0 a%=0-a% � i%-=1<<23

.  � a%>1024 � (a%�3) �fperr("Bad Address")
  i%+=a%>>2
�
(�
2
<� ADF..POL
F
��fpt1
P�fpreg:i%+=fr%<<12
Z�fpreg:i%+=fr%<<16
d	�fpfm
n�
x
�� MVF..ATN
�
��fpt2
��fpreg:i%+=fr%<<12
�	�fpfm
��
�
�	� FLT
�
��fpt3
��fpreg:i%+=fr%<<16
��fpreg:i%+=fr%<<12
��
�
�	� FIX

��fpt4
�fpreg:i%+=fr%<<12
�fpreg:i%+=fr%
"�
,
6� WFS..RFC
@
��fpt5
J�fpreg:i%+=fr%<<12
T�
^
h� CMF..CNE
r
��fpt6
|�fpreg:i%+=fr%<<16
�	�fpfm
��
�
�� DFx constant
���fpdf(t%)
�� (asm �4)=4 B%=O% � B%=P%
�/$fpnum=f$:A%=fpnum:C%=t%-7:�string_to_float
�Ȏ t% �
�  � 7:P%+=4:O%+=4
�  � 8:P%+=8:O%+=8
�  � 9:P%+=12:O%+=12
�  � 10:P%+=12:O%+=12
��
�

��fpreg
&
fr%=�(f$)
0.�:s$=�fpstrip(1):� s$="" � s$="," � s$="]"
:�
D
N
��fpfm
X� �f$,1)="#" �
b  i%+=8
l  s$=�fpstrip(1)
v
  a=�(f$)
�  Ȏ a �
�    � 0,1,2,3,4,5:i%+=a
�    � 0.5:i%+=6
�    � 10:i%+=7
�      �fperr("Bad Constant")
�  �
��
�  �fpreg:i%+=fr%
��:�
�
�ݤfpcond:� c$
�
c$=�f$,2)
�2� c$="S " � c$="D " � c$="E " � c$="P " =%1110
c$=�fpstrip(2)
� c$="EQ" =%0000
� c$="NE" =%0001
 � c$="CS" =%0010
*� c$="CC" =%0011
4� c$="MI" =%0100
>� c$="PL" =%0101
H� c$="VS" =%0110
R� c$="VC" =%0111
\� c$="HI" =%1000
f� c$="LS" =%1001
p� c$="GE" =%1010
z� c$="LT" =%1011
�� c$="GT" =%1100
�� c$="LE" =%1101
�� c$="AL" =%1110
�� c$="NV" =%1111
��fperr("Bad Condition")
�
�ݤfpprec:� p$,p%
�p$=�fpstrip(1)
�� t%=0 �
�  � p$="S" p%=0
�  � p$="D" p%=&008000
�  � p$="E" p%=&400000
�  � p$="P" p%=&408000
	�
	  � p$="S" p%=0
	  � p$="D" p%=&000080
	$  � p$="E" p%=&080000
	.  � p$="P" p%=&080080
	8�
	B=p%
	L
	Vݤfpstrip(N%)
	`� s$:s$=�f$,N%)
	jf$=�f$,N%+1):=s$
	t
	~��fperr(e$)
	�� 0,e$+" :"+i$
	�
	�"� Optional conversion routines
	�� Convert FP to string
	�!� 300 bytes required at addr%
	���fptostr(addr%)
	�� P%,O%,asm
	�� asm=0 � 2 � 2
	�P%=addr%
	�[OPT asm
	�E; FP (@ R0) to String (26 bytes @ R1), R2=fp type 0=S,1=D,2=E,3=P
	�.float_to_string
STMFD R13!,{R0-R12,R14}


CMP R2,#0
�fp("LDFEQS F0,[R0]")

CMP R2,#1
(�fp("LDFEQD F0,[R0]")
2
CMP R2,#2
<�fp("LDFEQE F0,[R0]")
F
CMP R2,#3
P�fp("LDFEQP F0,[R0]")
Z�fp("STFP F0,fp_packed")
dADR R2,fp_packed
nBL fp_rotate
xADR R2,fp_packed+4
�BL fp_rotate
�ADR R2,fp_packed+8
�BL fp_rotate
�LDRB R2,fp_packed
�MOV R3,#�" "
�TST R2,#&80
�MOVNE R3,#�"-"
�STRB R3,[R1],#1
�
MOV R4,R1
�MOV R5,#18 ; No.digits
�ADR R6,fp_packed+2
�.fp_unpack
�LDRB R7,[R6],#1
MOV R8,R7,LSR #4
ADD R8,R8,#�"0"
STRB R8,[R4],#1
"� R7,R7,#%1111
,ADD R7,R7,#�"0"
6STRB R7,[R4],#1
@SUBS R5,R5,#2
JBNE fp_unpack
TLDRB R8,[R1] ; e0
^LDRB R7,[R1,#1] ; d18
hSTRB R7,[R1]
rMOV R7,#�"."
|STRB R7,[R1,#1]
�MOV R7,#�"e"
�STRB R7,[R4],#1
�LDRB R2,fp_packed
�MOV R3,#�"+"
�TST R2,#&40
�MOVNE R3,#�"-"
�STRB R3,[R4],#1
�LDRB R2,fp_packed+1
�MOV R3,R2,LSR #4
�ADD R3,R3,#�"0"
�STRB R3,[R4],#1
�� R2,R2,#%1111
�ADD R2,R2,#�"0"
STRB R2,[R4],#1
STRB R8,[R4],#1 ;e0
MOV R3,#13
&STRB R3,[R4],#1
0LDMFD R13!,{R0-R12,PC}
:.fp_rotate
DLDR R3,[R2]
NSTRB R3,[R2,#3]
XMOV R3,R3,ROR #8
bSTRB R3,[R2,#2]
lMOV R3,R3,ROR #8
vSTRB R3,[R2,#1]
�MOV R3,R3,ROR #8
�STRB R3,[R2,#0]
�MOV PC,R14
�.fp_packed �fp("DFP 0")
�]
��
��
�)� String to floating point conversion
�!� 280 bytes required at addr%
���strtofp(addr%)
�� P%,O%,asm
�fp_point=1:fp_eneg=2
�� asm=0 � 2 � 2

P%=addr%

[OPT asm

E; Call with R0=>string, R1=>fp target, R2=fp type 0=S,1=D,2=E,3=P

 +; F0=Number,F1=divider/Sign,F2=exponent

*.string_to_float

4STMFD R13!,{R0-R12,R14}

>�fp("MVFE F0,#0")

H�fp("MVFE F1,#1")

R�fp("MVFE F2,#0")

\MOV R4,#0 ; Flag register

f; Locate start of string

p.fp_findbeg

zLDRB R3,[R0],#1

�CMP R3,#32

�BEQ fp_findbeg

�BLT fp_endconv

�CMP R3,#�"+"

�BEQ fp_getnum

�CMP R3,#�"-"

��fp("MNFEQE F1,F1")

�BEQ fp_getnum

�.fp_chkpoint

�CMP R3,#�"."

�BNE fp_chke

�&TST R4,#fp_point; Already a point?

�BNE fp_endconv ; yes
'�R R4,R4,#fp_point ; Now have point
B fp_getnum
.fp_chke
$CMP R3,#�"e"
.BEQ fp_doe
8CMP R3,#�"E"
BBEQ fp_doe
LCMP R3,#�"0"
VBLT fp_endconv
`CMP R3,#�"9"
jBGT fp_endconv
tSUB R3,R3,#�"0" ; To hex
~�fp("FLTE F3,R3")
��fp("MUFE F0,F0,#10")
��fp("ADFE F0,F0,F3")
�:TST R4,#fp_point ; Decimal place? If so adjust divider
��fp("MUFNEE F1,F1,#10")
�.fp_getnum
�LDRB R3,[R0],#1
�CMP R3,#32
�BLT fp_endconv
�B fp_chkpoint
�; Handle exponent
�.fp_doe
�LDRB R3,[R0],#1
CMP R3,#32

BLT fp_endconv
CMP R3,#�"+"
BEQ fp_doe
(CMP R3,#�"-"
2�REQ R4,R4,#fp_eneg
<BEQ fp_doe
F.fp_chkenum
PCMP R3,#�"0"
ZBLT fp_endconv
dCMP R3,#�"9"
nBGT fp_endconv
xSUB R3,R3,#�"0" ; To hex
��fp("FLTE F3,R3")
��fp("MUFE F2,F2,#10")
��fp("ADFE F2,F2,F3")
�B fp_doe
�; Put number together
�.fp_endconv
�1�fp("DVFE F0,F0,F1") ; Scale to decimal point
�(TST R4,#fp_eneg ; Negative exponent?
�$�fp("MNFNEE F2,F2") ; yes,negate
��fp("MVFE F4,#10.0")
�,�fp("POWE F4,F4,F2") ; value of exponent
�%�fp("MUFE F0,F0,F4") ; end number
�%; Store result in required format

CMP R2,#0
�fp("STFEQS F0,[R1,#0]")

CMP R2,#1
"�fp("STFEQD F0,[R1,#0]")
,
CMP R2,#2
6�fp("STFEQE F0,[R1,#0]")
@
CMP R2,#3
J�fp("STFEQP F0,[R1,#0]")
TLDMFD R13!,{R0-R12,PC}
^]:�
h�
�

00000000  0d 00 0a 1d f4 20 3e 20  46 50 4c 69 62 20 76 31  |..... > FPLib v1|
00000010  2e 32 30 20 4a 75 6c 79  20 31 39 39 31 0d 00 14  |.20 July 1991...|
00000020  1e f4 20 46 6c 6f 61 74  69 6e 67 20 50 6f 69 6e  |.. Floating Poin|
00000030  74 20 41 73 73 65 6d 62  6c 65 72 0d 00 1e 13 f4  |t Assembler.....|
00000040  20 a9 20 4d 69 6b 65 20  43 75 72 6e 6f 77 0d 00  | . Mike Curnow..|
00000050  28 1f f4 20 49 6e 69 74  69 61 6c 69 73 65 20 46  |(.. Initialise F|
00000060  6c 6f 61 74 69 6e 67 20  50 6f 69 6e 74 0d 00 32  |loating Point..2|
00000070  11 dd f2 66 70 69 6e 69  74 3a ea 20 49 25 0d 00  |...fpinit:. I%..|
00000080  3c 3e 2a 52 4d 45 4e 53  55 52 45 20 46 50 45 4d  |<>*RMENSURE FPEM|
00000090  55 4c 41 54 4f 52 20 32  2e 30 30 20 52 4d 4c 4f  |ULATOR 2.00 RMLO|
000000a0  41 44 20 53 59 53 54 45  4d 3a 4d 4f 44 55 4c 45  |AD SYSTEM:MODULE|
000000b0  53 2e 46 50 45 4d 55 4c  41 54 4f 52 0d 00 46 2b  |S.FPEMULATOR..F+|
000000c0  46 30 3d 30 3a 46 31 3d  31 3a 46 32 3d 32 3a 46  |F0=0:F1=1:F2=2:F|
000000d0  33 3d 33 3a 46 34 3d 34  3a 46 35 3d 35 3a 46 36  |3=3:F4=4:F5=5:F6|
000000e0  3d 36 3a 46 37 3d 37 0d  00 50 65 52 30 3d 30 3a  |=6:F7=7..PeR0=0:|
000000f0  52 31 3d 31 3a 52 32 3d  32 3a 52 33 3d 33 3a 52  |R1=1:R2=2:R3=3:R|
00000100  34 3d 34 3a 52 35 3d 35  3a 52 36 3d 36 3a 52 37  |4=4:R5=5:R6=6:R7|
00000110  3d 37 3a 52 38 3d 38 3a  52 39 3d 39 3a 52 31 30  |=7:R8=8:R9=9:R10|
00000120  3d 31 30 3a 52 31 31 3d  31 31 3a 52 31 32 3d 31  |=10:R11=11:R12=1|
00000130  32 3a 52 31 33 3d 31 33  3a 52 31 34 3d 31 34 3a  |2:R13=13:R14=14:|
00000140  52 31 35 3d 31 35 3a 50  43 3d 31 35 0d 00 5a 0f  |R15=15:PC=15..Z.|
00000150  f4 4c 4f 43 41 4c 20 44  41 54 41 0d 00 64 08 f7  |.LOCAL DATA..d..|
00000160  20 2b 37 0d 00 6e 0c 66  70 6d 61 78 3d 34 33 0d  | +7..n.fpmax=43.|
00000170  00 78 26 de 20 66 70 24  28 66 70 6d 61 78 29 2c  |.x&. fp$(fpmax),|
00000180  66 6f 25 28 66 70 6d 61  78 29 2c 66 74 25 28 66  |fo%(fpmax),ft%(f|
00000190  70 6d 61 78 29 0d 00 82  12 e3 20 49 25 3d 30 20  |pmax)..... I%=0 |
000001a0  b8 20 66 70 6d 61 78 0d  00 8c 1d f3 20 66 70 24  |. fpmax..... fp$|
000001b0  28 49 25 29 2c 66 6f 25  28 49 25 29 2c 66 74 25  |(I%),fo%(I%),ft%|
000001c0  28 49 25 29 0d 00 96 14  ed 3a f4 3a 52 45 53 54  |(I%).....:.:REST|
000001d0  4f 52 45 20 44 41 54 41  0d 00 a0 19 de 20 63 6f  |ORE DATA..... co|
000001e0  64 65 25 20 35 31 32 2c  66 70 6e 75 6d 20 32 35  |de% 512,fpnum 25|
000001f0  36 0d 00 aa 13 f2 73 74  72 74 6f 66 70 28 63 6f  |6.....strtofp(co|
00000200  64 65 25 29 0d 00 b4 05  e1 0d 00 be 1a f4 20 4d  |de%).......... M|
00000210  6e 65 6d 6f 6e 69 63 2c  4f 70 63 6f 64 65 2c 54  |nemonic,Opcode,T|
00000220  79 70 65 0d 00 c8 15 dc  20 4c 44 46 2c 26 30 43  |ype..... LDF,&0C|
00000230  31 30 30 31 30 30 2c 30  0d 00 d2 15 dc 20 53 54  |100100,0..... ST|
00000240  46 2c 26 30 43 30 30 30  31 30 30 2c 30 0d 00 dc  |F,&0C000100,0...|
00000250  15 dc 20 41 44 46 2c 26  30 45 30 30 30 31 30 30  |.. ADF,&0E000100|
00000260  2c 31 0d 00 e6 15 dc 20  4d 55 46 2c 26 30 45 31  |,1..... MUF,&0E1|
00000270  30 30 31 30 30 2c 31 0d  00 f0 15 dc 20 53 55 46  |00100,1..... SUF|
00000280  2c 26 30 45 32 30 30 31  30 30 2c 31 0d 00 fa 15  |,&0E200100,1....|
00000290  dc 20 52 53 46 2c 26 30  45 33 30 30 31 30 30 2c  |. RSF,&0E300100,|
000002a0  31 0d 01 04 15 dc 20 44  56 46 2c 26 30 45 34 30  |1..... DVF,&0E40|
000002b0  30 31 30 30 2c 31 0d 01  0e 15 dc 20 52 44 46 2c  |0100,1..... RDF,|
000002c0  26 30 45 35 30 30 31 30  30 2c 31 0d 01 18 15 dc  |&0E500100,1.....|
000002d0  20 50 4f 57 2c 26 30 45  36 30 30 31 30 30 2c 31  | POW,&0E600100,1|
000002e0  0d 01 22 15 dc 20 52 50  57 2c 26 30 45 37 30 30  |..".. RPW,&0E700|
000002f0  31 30 30 2c 31 0d 01 2c  15 dc 20 52 4d 46 2c 26  |100,1..,.. RMF,&|
00000300  30 45 38 30 30 31 30 30  2c 31 0d 01 36 15 dc 20  |0E800100,1..6.. |
00000310  46 4d 4c 2c 26 30 45 39  30 30 31 30 30 2c 31 0d  |FML,&0E900100,1.|
00000320  01 40 15 dc 20 46 44 56  2c 26 30 45 41 30 30 31  |.@.. FDV,&0EA001|
00000330  30 30 2c 31 0d 01 4a 15  dc 20 46 52 44 2c 26 30  |00,1..J.. FRD,&0|
00000340  45 42 30 30 31 30 30 2c  31 0d 01 54 15 dc 20 50  |EB00100,1..T.. P|
00000350  4f 4c 2c 26 30 45 43 30  30 31 30 30 2c 31 0d 01  |OL,&0EC00100,1..|
00000360  5e 15 dc 20 4d 56 46 2c  26 30 45 30 30 38 31 30  |^.. MVF,&0E00810|
00000370  30 2c 32 0d 01 68 15 dc  20 4d 4e 46 2c 26 30 45  |0,2..h.. MNF,&0E|
00000380  31 30 38 31 30 30 2c 32  0d 01 72 15 dc 20 41 42  |108100,2..r.. AB|
00000390  53 2c 26 30 45 32 30 38  31 30 30 2c 32 0d 01 7c  |S,&0E208100,2..||
000003a0  15 dc 20 52 4e 44 2c 26  30 45 33 30 38 31 30 30  |.. RND,&0E308100|
000003b0  2c 32 0d 01 86 15 dc 20  53 51 54 2c 26 30 45 34  |,2..... SQT,&0E4|
000003c0  30 38 31 30 30 2c 32 0d  01 90 15 dc 20 4c 4f 47  |08100,2..... LOG|
000003d0  2c 26 30 45 35 30 38 31  30 30 2c 32 0d 01 9a 15  |,&0E508100,2....|
000003e0  dc 20 4c 47 4e 2c 26 30  45 36 30 38 31 30 30 2c  |. LGN,&0E608100,|
000003f0  32 0d 01 a4 15 dc 20 45  58 50 2c 26 30 45 37 30  |2..... EXP,&0E70|
00000400  38 31 30 30 2c 32 0d 01  ae 15 dc 20 53 49 4e 2c  |8100,2..... SIN,|
00000410  26 30 45 38 30 38 31 30  30 2c 32 0d 01 b8 15 dc  |&0E808100,2.....|
00000420  20 43 4f 53 2c 26 30 45  39 30 38 31 30 30 2c 32  | COS,&0E908100,2|
00000430  0d 01 c2 15 dc 20 54 41  4e 2c 26 30 45 41 30 38  |..... TAN,&0EA08|
00000440  31 30 30 2c 32 0d 01 cc  15 dc 20 41 53 4e 2c 26  |100,2..... ASN,&|
00000450  30 45 42 30 38 31 30 30  2c 32 0d 01 d6 15 dc 20  |0EB08100,2..... |
00000460  41 43 53 2c 26 30 45 43  30 38 31 30 30 2c 32 0d  |ACS,&0EC08100,2.|
00000470  01 e0 15 dc 20 41 54 4e  2c 26 30 45 44 30 38 31  |.... ATN,&0ED081|
00000480  30 30 2c 32 0d 01 ea 15  dc 20 46 4c 54 2c 26 30  |00,2..... FLT,&0|
00000490  45 30 30 30 31 31 30 2c  33 0d 01 f4 15 dc 20 46  |E000110,3..... F|
000004a0  49 58 2c 26 30 45 31 30  30 31 31 30 2c 34 0d 01  |IX,&0E100110,4..|
000004b0  fe 15 dc 20 57 46 53 2c  26 30 45 32 30 30 31 31  |... WFS,&0E20011|
000004c0  30 2c 35 0d 02 08 15 dc  20 52 46 53 2c 26 30 45  |0,5..... RFS,&0E|
000004d0  33 30 30 31 31 30 2c 35  0d 02 12 15 dc 20 57 46  |300110,5..... WF|
000004e0  43 2c 26 30 45 34 30 30  31 31 30 2c 35 0d 02 1c  |C,&0E400110,5...|
000004f0  15 dc 20 52 46 43 2c 26  30 45 35 30 30 31 31 30  |.. RFC,&0E500110|
00000500  2c 35 0d 02 26 15 dc 20  43 4d 46 2c 26 30 45 39  |,5..&.. CMF,&0E9|
00000510  30 46 31 31 30 2c 36 0d  02 30 15 dc 20 43 4e 46  |0F110,6..0.. CNF|
00000520  2c 26 30 45 42 30 46 31  31 30 2c 36 0d 02 3a 15  |,&0EB0F110,6..:.|
00000530  dc 20 43 4d 45 2c 26 30  45 44 30 46 31 31 30 2c  |. CME,&0ED0F110,|
00000540  36 0d 02 44 15 dc 20 43  4e 45 2c 26 30 45 46 30  |6..D.. CNE,&0EF0|
00000550  46 31 31 30 2c 36 0d 02  4e 0d dc 20 44 46 53 2c  |F110,6..N.. DFS,|
00000560  30 2c 37 0d 02 58 0d dc  20 44 46 44 2c 30 2c 38  |0,7..X.. DFD,0,8|
00000570  0d 02 62 0d dc 20 44 46  45 2c 30 2c 39 0d 02 6c  |..b.. DFE,0,9..l|
00000580  0e dc 20 44 46 50 2c 30  2c 31 30 0d 02 76 10 f4  |.. DFP,0,10..v..|
00000590  20 45 6e 64 20 4d 61 72  6b 65 72 0d 02 80 0d dc  | End Marker.....|
000005a0  20 5a 5a 5a 2c 30 2c 30  0d 02 8a 1d f4 2d 2d 2d  | ZZZ,0,0.....---|
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005c0  2d 2d 2d 2d 2d 0d 02 94  1d f4 20 47 65 6e 65 72  |-----..... Gener|
000005d0  61 74 65 20 66 6c 6f 61  74 69 6e 67 20 70 6f 69  |ate floating poi|
000005e0  6e 74 0d 02 9e 0c dd a4  66 70 28 69 24 29 0d 02  |nt......fp(i$)..|
000005f0  a8 0f ee 85 20 f1 20 69  24 3a f6 3a e0 0d 02 b2  |.... . i$:.:....|
00000600  26 ea 20 6f 24 2c 49 25  2c 69 25 2c 70 25 2c 74  |&. o$,I%,i%,p%,t|
00000610  25 2c 73 24 2c 66 72 25  2c 61 25 2c 61 2c 63 25  |%,s$,fr%,a%,a,c%|
00000620  2c 66 24 0d 02 bc 18 66  24 3d 69 24 3a 6f 24 3d  |,f$....f$=i$:o$=|
00000630  a4 66 70 73 74 72 69 70  28 33 29 0d 02 c6 27 49  |.fpstrip(3)...'I|
00000640  25 3d 2d 31 3a f5 49 25  2b 3d 31 3a fd 6f 24 3d  |%=-1:.I%+=1:.o$=|
00000650  66 70 24 28 49 25 29 20  84 20 49 25 3d 66 70 6d  |fp$(I%) . I%=fpm|
00000660  61 78 0d 02 d0 3c e7 20  49 25 3d 66 70 6d 61 78  |ax...<. I%=fpmax|
00000670  20 f2 66 70 65 72 72 28  22 42 61 64 20 46 50 20  | .fperr("Bad FP |
00000680  49 6e 73 74 22 29 20 8b  20 69 25 3d 66 6f 25 28  |Inst") . i%=fo%(|
00000690  49 25 29 3a 74 25 3d 66  74 25 28 49 25 29 0d 02  |I%):t%=ft%(I%)..|
000006a0  da 13 e7 20 28 61 73 6d  20 80 20 33 29 3d 30 20  |... (asm . 3)=0 |
000006b0  8c 0d 02 e4 1b 20 20 e7  20 74 25 3c 38 20 50 25  |.....  . t%<8 P%|
000006c0  2b 3d 34 3a 4f 25 2b 3d  34 3a 3d 30 0d 02 ee 1b  |+=4:O%+=4:=0....|
000006d0  20 20 e7 20 74 25 3d 38  20 50 25 2b 3d 38 3a 4f  |  . t%=8 P%+=8:O|
000006e0  25 2b 3d 38 3a 3d 30 0d  02 f8 1d 20 20 e7 20 74  |%+=8:=0....  . t|
000006f0  25 3d 39 20 50 25 2b 3d  31 32 3a 4f 25 2b 3d 31  |%=9 P%+=12:O%+=1|
00000700  32 3a 3d 30 0d 03 02 1e  20 20 e7 20 74 25 3d 31  |2:=0....  . t%=1|
00000710  30 20 50 25 2b 3d 31 32  3a 4f 25 2b 3d 31 32 3a  |0 P%+=12:O%+=12:|
00000720  3d 30 0d 03 0c 05 cd 0d  03 16 17 e7 20 74 25 3e  |=0.......... t%>|
00000730  36 20 f2 66 70 64 66 28  74 25 29 3a 3d 30 0d 03  |6 .fpdf(t%):=0..|
00000740  20 26 e7 20 c0 66 24 2c  31 29 3d 22 20 22 20 63  | &. .f$,1)=" " c|
00000750  25 3d 25 31 31 31 30 20  8b 20 63 25 3d a4 66 70  |%=%1110 . c%=.fp|
00000760  63 6f 6e 64 0d 03 2a 0e  69 25 2b 3d 63 25 3c 3c  |cond..*.i%+=c%<<|
00000770  32 38 0d 03 34 22 e7 20  c0 66 24 2c 31 29 3d 22  |28..4". .f$,1)="|
00000780  20 22 20 70 25 3d 30 20  8b 20 70 25 3d a4 66 70  | " p%=0 . p%=.fp|
00000790  70 72 65 63 0d 03 3e 32  e7 20 c0 66 24 2c 31 29  |prec..>2. .f$,1)|
000007a0  3d 22 20 22 20 73 24 3d  a4 66 70 73 74 72 69 70  |=" " s$=.fpstrip|
000007b0  28 31 29 20 8b 20 f2 66  70 65 72 72 28 22 53 79  |(1) . .fperr("Sy|
000007c0  6e 74 61 78 22 29 0d 03  48 0a 69 25 2b 3d 70 25  |ntax")..H.i%+=p%|
000007d0  0d 03 52 0b c8 8e 20 74  25 20 ca 0d 03 5c 0f 20  |..R... t% ...\. |
000007e0  20 c9 20 30 3a f2 66 70  74 30 0d 03 66 0f 20 20  | . 0:.fpt0..f.  |
000007f0  c9 20 31 3a f2 66 70 74  31 0d 03 70 0f 20 20 c9  |. 1:.fpt1..p.  .|
00000800  20 32 3a f2 66 70 74 32  0d 03 7a 0f 20 20 c9 20  | 2:.fpt2..z.  . |
00000810  33 3a f2 66 70 74 33 0d  03 84 0f 20 20 c9 20 34  |3:.fpt3....  . 4|
00000820  3a f2 66 70 74 34 0d 03  8e 0f 20 20 c9 20 35 3a  |:.fpt4....  . 5:|
00000830  f2 66 70 74 35 0d 03 98  0f 20 20 c9 20 36 3a f2  |.fpt5....  . 6:.|
00000840  66 70 74 36 0d 03 a2 05  cb 0d 03 ac 1c e7 20 61  |fpt6.......... a|
00000850  73 6d 20 80 34 20 21 4f  25 3d 69 25 20 8b 20 21  |sm .4 !O%=i% . !|
00000860  50 25 3d 69 25 0d 03 b6  0f 50 25 2b 3d 34 3a 4f  |P%=i%....P%+=4:O|
00000870  25 2b 3d 34 0d 03 c0 06  3d 30 0d 03 ca 04 0d 03  |%+=4....=0......|
00000880  d4 0d f4 20 4c 44 46 2f  53 54 46 0d 03 de 0a dd  |... LDF/STF.....|
00000890  f2 66 70 74 30 0d 03 e8  20 f2 66 70 72 65 67 3a  |.fpt0... .fpreg:|
000008a0  69 25 2b 3d 66 72 25 3c  3c 31 32 3a 69 25 2b 3d  |i%+=fr%<<12:i%+=|
000008b0  33 3c 3c 32 33 0d 03 f2  12 e7 20 c0 66 24 2c 31  |3<<23..... .f$,1|
000008c0  29 3d 22 5b 22 20 8c 0d  03 fc 14 20 20 73 24 3d  |)="[" .....  s$=|
000008d0  a4 66 70 73 74 72 69 70  28 31 29 0d 04 06 18 20  |.fpstrip(1).... |
000008e0  20 f2 66 70 72 65 67 3a  69 25 2b 3d 66 72 25 3c  | .fpreg:i%+=fr%<|
000008f0  3c 31 36 0d 04 10 10 20  20 e7 20 73 24 3d 22 2c  |<16....  . s$=",|
00000900  22 20 8c 0d 04 1a 3d 20  20 20 20 73 24 3d a4 66  |" ....=    s$=.f|
00000910  70 73 74 72 69 70 28 31  29 3a e7 20 73 24 3c 3e  |pstrip(1):. s$<>|
00000920  22 23 22 20 f2 66 70 65  72 72 28 22 42 61 64 20  |"#" .fperr("Bad |
00000930  41 64 64 72 65 73 73 20  6f 66 66 73 65 74 22 29  |Address offset")|
00000940  0d 04 24 10 20 20 20 20  61 25 3d a0 28 66 24 29  |..$.    a%=.(f$)|
00000950  0d 04 2e 20 20 20 20 20  e7 20 61 25 3c 30 20 61  |...     . a%<0 a|
00000960  25 3d 30 2d 61 25 3a 69  25 2d 3d 31 3c 3c 32 33  |%=0-a%:i%-=1<<23|
00000970  0d 04 38 37 20 20 20 20  e7 20 61 25 3e 31 30 32  |..87    . a%>102|
00000980  34 20 84 20 28 61 25 80  33 29 20 f2 66 70 65 72  |4 . (a%.3) .fper|
00000990  72 28 22 42 61 64 20 41  64 64 72 65 73 73 20 6f  |r("Bad Address o|
000009a0  66 66 73 65 74 22 29 0d  04 42 11 20 20 20 20 69  |ffset")..B.    i|
000009b0  25 2b 3d 61 25 3e 3e 32  0d 04 4c 1e 20 20 20 20  |%+=a%>>2..L.    |
000009c0  e7 20 c2 66 24 2c 31 29  3d 22 21 22 20 69 25 2b  |. .f$,1)="!" i%+|
000009d0  3d 31 3c 3c 32 31 0d 04  56 07 20 20 cc 0d 04 60  |=1<<21..V.  ...`|
000009e0  16 20 20 20 20 73 24 3d  a4 66 70 73 74 72 69 70  |.    s$=.fpstrip|
000009f0  28 31 29 0d 04 6a 0f 20  20 20 20 c8 8e 20 73 24  |(1)..j.    .. s$|
00000a00  20 ca 0d 04 74 1a 20 20  20 20 20 20 20 c9 20 22  | ...t.       . "|
00000a10  21 22 3a 69 25 2b 3d 31  3c 3c 32 31 0d 04 7e 10  |!":i%+=1<<21..~.|
00000a20  20 20 20 20 20 20 20 c9  20 22 22 3a 0d 04 88 1f  |       . "":....|
00000a30  20 20 20 20 20 20 20 c9  20 22 2c 22 3a 73 24 3d  |       . ",":s$=|
00000a40  a4 66 70 73 74 72 69 70  28 31 29 0d 04 92 2a 20  |.fpstrip(1)...* |
00000a50  20 20 20 20 20 20 e7 20  73 24 3c 3e 22 23 22 20  |      . s$<>"#" |
00000a60  f2 66 70 65 72 72 28 22  42 61 64 20 41 64 64 72  |.fperr("Bad Addr|
00000a70  65 73 73 22 29 0d 04 9c  13 20 20 20 20 20 20 20  |ess")....       |
00000a80  61 25 3d a0 28 66 24 29  0d 04 a6 23 20 20 20 20  |a%=.(f$)...#    |
00000a90  20 20 20 e7 20 61 25 3c  30 20 61 25 3d 30 2d 61  |   . a%<0 a%=0-a|
00000aa0  25 3a 69 25 2d 3d 31 3c  3c 32 33 0d 04 b0 33 20  |%:i%-=1<<23...3 |
00000ab0  20 20 20 20 20 20 e7 20  61 25 3e 31 30 32 34 20  |      . a%>1024 |
00000ac0  84 20 28 61 25 80 33 29  20 f2 66 70 65 72 72 28  |. (a%.3) .fperr(|
00000ad0  22 42 61 64 20 41 64 64  72 65 73 73 22 29 0d 04  |"Bad Address")..|
00000ae0  ba 1e 20 20 20 20 20 20  20 69 25 2b 3d 61 25 3e  |..       i%+=a%>|
00000af0  3e 32 3a 69 25 2d 3d 31  3c 3c 32 34 0d 04 c4 23  |>2:i%-=1<<24...#|
00000b00  20 20 20 20 20 20 20 7f  3a f2 66 70 65 72 72 28  |       .:.fperr(|
00000b10  22 53 79 6e 74 61 78 20  65 72 72 6f 72 22 29 0d  |"Syntax error").|
00000b20  04 ce 09 20 20 20 20 cb  0d 04 d8 07 20 20 cd 0d  |...    .....  ..|
00000b30  04 e2 05 cc 0d 04 ec 10  20 20 69 25 2b 3d 31 35  |........  i%+=15|
00000b40  3c 3c 31 36 0d 04 f6 1b  20 20 66 72 25 3d a0 28  |<<16....  fr%=.(|
00000b50  66 24 29 3a 61 25 3d 50  25 2b 38 2d 66 72 25 0d  |f$):a%=P%+8-fr%.|
00000b60  05 00 20 20 20 e7 20 61  25 3c 30 20 61 25 3d 30  |..   . a%<0 a%=0|
00000b70  2d 61 25 20 8b 20 69 25  2d 3d 31 3c 3c 32 33 0d  |-a% . i%-=1<<23.|
00000b80  05 0a 2e 20 20 e7 20 61  25 3e 31 30 32 34 20 84  |...  . a%>1024 .|
00000b90  20 28 61 25 80 33 29 20  f2 66 70 65 72 72 28 22  | (a%.3) .fperr("|
00000ba0  42 61 64 20 41 64 64 72  65 73 73 22 29 0d 05 14  |Bad Address")...|
00000bb0  0f 20 20 69 25 2b 3d 61  25 3e 3e 32 0d 05 1e 05  |.  i%+=a%>>2....|
00000bc0  cd 0d 05 28 05 e1 0d 05  32 04 0d 05 3c 0e f4 20  |...(....2...<.. |
00000bd0  41 44 46 2e 2e 50 4f 4c  0d 05 46 0a dd f2 66 70  |ADF..POL..F...fp|
00000be0  74 31 0d 05 50 16 f2 66  70 72 65 67 3a 69 25 2b  |t1..P..fpreg:i%+|
00000bf0  3d 66 72 25 3c 3c 31 32  0d 05 5a 16 f2 66 70 72  |=fr%<<12..Z..fpr|
00000c00  65 67 3a 69 25 2b 3d 66  72 25 3c 3c 31 36 0d 05  |eg:i%+=fr%<<16..|
00000c10  64 09 f2 66 70 66 6d 0d  05 6e 05 e1 0d 05 78 04  |d..fpfm..n....x.|
00000c20  0d 05 82 0e f4 20 4d 56  46 2e 2e 41 54 4e 0d 05  |..... MVF..ATN..|
00000c30  8c 0a dd f2 66 70 74 32  0d 05 96 16 f2 66 70 72  |....fpt2.....fpr|
00000c40  65 67 3a 69 25 2b 3d 66  72 25 3c 3c 31 32 0d 05  |eg:i%+=fr%<<12..|
00000c50  a0 09 f2 66 70 66 6d 0d  05 aa 05 e1 0d 05 b4 04  |...fpfm.........|
00000c60  0d 05 be 09 f4 20 46 4c  54 0d 05 c8 0a dd f2 66  |..... FLT......f|
00000c70  70 74 33 0d 05 d2 16 f2  66 70 72 65 67 3a 69 25  |pt3.....fpreg:i%|
00000c80  2b 3d 66 72 25 3c 3c 31  36 0d 05 dc 16 f2 66 70  |+=fr%<<16.....fp|
00000c90  72 65 67 3a 69 25 2b 3d  66 72 25 3c 3c 31 32 0d  |reg:i%+=fr%<<12.|
00000ca0  05 e6 05 e1 0d 05 f0 04  0d 05 fa 09 f4 20 46 49  |............. FI|
00000cb0  58 0d 06 04 0a dd f2 66  70 74 34 0d 06 0e 16 f2  |X......fpt4.....|
00000cc0  66 70 72 65 67 3a 69 25  2b 3d 66 72 25 3c 3c 31  |fpreg:i%+=fr%<<1|
00000cd0  32 0d 06 18 12 f2 66 70  72 65 67 3a 69 25 2b 3d  |2.....fpreg:i%+=|
00000ce0  66 72 25 0d 06 22 05 e1  0d 06 2c 04 0d 06 36 0e  |fr%.."....,...6.|
00000cf0  f4 20 57 46 53 2e 2e 52  46 43 0d 06 40 0a dd f2  |. WFS..RFC..@...|
00000d00  66 70 74 35 0d 06 4a 16  f2 66 70 72 65 67 3a 69  |fpt5..J..fpreg:i|
00000d10  25 2b 3d 66 72 25 3c 3c  31 32 0d 06 54 05 e1 0d  |%+=fr%<<12..T...|
00000d20  06 5e 04 0d 06 68 0e f4  20 43 4d 46 2e 2e 43 4e  |.^...h.. CMF..CN|
00000d30  45 0d 06 72 0a dd f2 66  70 74 36 0d 06 7c 16 f2  |E..r...fpt6..|..|
00000d40  66 70 72 65 67 3a 69 25  2b 3d 66 72 25 3c 3c 31  |fpreg:i%+=fr%<<1|
00000d50  36 0d 06 86 09 f2 66 70  66 6d 0d 06 90 05 e1 0d  |6.....fpfm......|
00000d60  06 9a 04 0d 06 a4 12 f4  20 44 46 78 20 63 6f 6e  |........ DFx con|
00000d70  73 74 61 6e 74 0d 06 ae  0e dd f2 66 70 64 66 28  |stant......fpdf(|
00000d80  74 25 29 0d 06 b8 1e e7  20 28 61 73 6d 20 80 34  |t%)..... (asm .4|
00000d90  29 3d 34 20 42 25 3d 4f  25 20 8b 20 42 25 3d 50  |)=4 B%=O% . B%=P|
00000da0  25 0d 06 c2 2f 24 66 70  6e 75 6d 3d 66 24 3a 41  |%.../$fpnum=f$:A|
00000db0  25 3d 66 70 6e 75 6d 3a  43 25 3d 74 25 2d 37 3a  |%=fpnum:C%=t%-7:|
00000dc0  d6 73 74 72 69 6e 67 5f  74 6f 5f 66 6c 6f 61 74  |.string_to_float|
00000dd0  0d 06 cc 0b c8 8e 20 74  25 20 ca 0d 06 d6 15 20  |...... t% ..... |
00000de0  20 c9 20 37 3a 50 25 2b  3d 34 3a 4f 25 2b 3d 34  | . 7:P%+=4:O%+=4|
00000df0  0d 06 e0 15 20 20 c9 20  38 3a 50 25 2b 3d 38 3a  |....  . 8:P%+=8:|
00000e00  4f 25 2b 3d 38 0d 06 ea  17 20 20 c9 20 39 3a 50  |O%+=8....  . 9:P|
00000e10  25 2b 3d 31 32 3a 4f 25  2b 3d 31 32 0d 06 f4 18  |%+=12:O%+=12....|
00000e20  20 20 c9 20 31 30 3a 50  25 2b 3d 31 32 3a 4f 25  |  . 10:P%+=12:O%|
00000e30  2b 3d 31 32 0d 06 fe 05  cb 0d 07 08 05 e1 0d 07  |+=12............|
00000e40  12 04 0d 07 1c 0b dd f2  66 70 72 65 67 0d 07 26  |........fpreg..&|
00000e50  0d 66 72 25 3d a0 28 66  24 29 0d 07 30 2e f5 3a  |.fr%=.(f$)..0..:|
00000e60  73 24 3d a4 66 70 73 74  72 69 70 28 31 29 3a fd  |s$=.fpstrip(1):.|
00000e70  20 73 24 3d 22 22 20 84  20 73 24 3d 22 2c 22 20  | s$="" . s$="," |
00000e80  84 20 73 24 3d 22 5d 22  0d 07 3a 05 e1 0d 07 44  |. s$="]"..:....D|
00000e90  04 0d 07 4e 0a dd f2 66  70 66 6d 0d 07 58 12 e7  |...N...fpfm..X..|
00000ea0  20 c0 66 24 2c 31 29 3d  22 23 22 20 8c 0d 07 62  | .f$,1)="#" ...b|
00000eb0  0b 20 20 69 25 2b 3d 38  0d 07 6c 14 20 20 73 24  |.  i%+=8..l.  s$|
00000ec0  3d a4 66 70 73 74 72 69  70 28 31 29 0d 07 76 0d  |=.fpstrip(1)..v.|
00000ed0  20 20 61 3d a0 28 66 24  29 0d 07 80 0c 20 20 c8  |  a=.(f$)....  .|
00000ee0  8e 20 61 20 ca 0d 07 8a  1b 20 20 20 20 c9 20 30  |. a .....    . 0|
00000ef0  2c 31 2c 32 2c 33 2c 34  2c 35 3a 69 25 2b 3d 61  |,1,2,3,4,5:i%+=a|
00000f00  0d 07 94 13 20 20 20 20  c9 20 30 2e 35 3a 69 25  |....    . 0.5:i%|
00000f10  2b 3d 36 0d 07 9e 12 20  20 20 20 c9 20 31 30 3a  |+=6....    . 10:|
00000f20  69 25 2b 3d 37 0d 07 a8  20 20 20 20 20 7f 20 f2  |i%+=7...     . .|
00000f30  66 70 65 72 72 28 22 42  61 64 20 43 6f 6e 73 74  |fperr("Bad Const|
00000f40  61 6e 74 22 29 0d 07 b2  07 20 20 cb 0d 07 bc 05  |ant")....  .....|
00000f50  cc 0d 07 c6 14 20 20 f2  66 70 72 65 67 3a 69 25  |.....  .fpreg:i%|
00000f60  2b 3d 66 72 25 0d 07 d0  07 cd 3a e1 0d 07 da 04  |+=fr%.....:.....|
00000f70  0d 07 e4 11 dd a4 66 70  63 6f 6e 64 3a ea 20 63  |......fpcond:. c|
00000f80  24 0d 07 ee 0d 63 24 3d  c0 66 24 2c 32 29 0d 07  |$....c$=.f$,2)..|
00000f90  f8 32 e7 20 63 24 3d 22  53 20 22 20 84 20 63 24  |.2. c$="S " . c$|
00000fa0  3d 22 44 20 22 20 84 20  63 24 3d 22 45 20 22 20  |="D " . c$="E " |
00000fb0  84 20 63 24 3d 22 50 20  22 20 3d 25 31 31 31 30  |. c$="P " =%1110|
00000fc0  0d 08 02 12 63 24 3d a4  66 70 73 74 72 69 70 28  |....c$=.fpstrip(|
00000fd0  32 29 0d 08 0c 14 e7 20  63 24 3d 22 45 51 22 20  |2)..... c$="EQ" |
00000fe0  3d 25 30 30 30 30 0d 08  16 14 e7 20 63 24 3d 22  |=%0000..... c$="|
00000ff0  4e 45 22 20 3d 25 30 30  30 31 0d 08 20 14 e7 20  |NE" =%0001.. .. |
00001000  63 24 3d 22 43 53 22 20  3d 25 30 30 31 30 0d 08  |c$="CS" =%0010..|
00001010  2a 14 e7 20 63 24 3d 22  43 43 22 20 3d 25 30 30  |*.. c$="CC" =%00|
00001020  31 31 0d 08 34 14 e7 20  63 24 3d 22 4d 49 22 20  |11..4.. c$="MI" |
00001030  3d 25 30 31 30 30 0d 08  3e 14 e7 20 63 24 3d 22  |=%0100..>.. c$="|
00001040  50 4c 22 20 3d 25 30 31  30 31 0d 08 48 14 e7 20  |PL" =%0101..H.. |
00001050  63 24 3d 22 56 53 22 20  3d 25 30 31 31 30 0d 08  |c$="VS" =%0110..|
00001060  52 14 e7 20 63 24 3d 22  56 43 22 20 3d 25 30 31  |R.. c$="VC" =%01|
00001070  31 31 0d 08 5c 14 e7 20  63 24 3d 22 48 49 22 20  |11..\.. c$="HI" |
00001080  3d 25 31 30 30 30 0d 08  66 14 e7 20 63 24 3d 22  |=%1000..f.. c$="|
00001090  4c 53 22 20 3d 25 31 30  30 31 0d 08 70 14 e7 20  |LS" =%1001..p.. |
000010a0  63 24 3d 22 47 45 22 20  3d 25 31 30 31 30 0d 08  |c$="GE" =%1010..|
000010b0  7a 14 e7 20 63 24 3d 22  4c 54 22 20 3d 25 31 30  |z.. c$="LT" =%10|
000010c0  31 31 0d 08 84 14 e7 20  63 24 3d 22 47 54 22 20  |11..... c$="GT" |
000010d0  3d 25 31 31 30 30 0d 08  8e 14 e7 20 63 24 3d 22  |=%1100..... c$="|
000010e0  4c 45 22 20 3d 25 31 31  30 31 0d 08 98 14 e7 20  |LE" =%1101..... |
000010f0  63 24 3d 22 41 4c 22 20  3d 25 31 31 31 30 0d 08  |c$="AL" =%1110..|
00001100  a2 14 e7 20 63 24 3d 22  4e 56 22 20 3d 25 31 31  |... c$="NV" =%11|
00001110  31 31 0d 08 ac 1b f2 66  70 65 72 72 28 22 42 61  |11.....fperr("Ba|
00001120  64 20 43 6f 6e 64 69 74  69 6f 6e 22 29 0d 08 b6  |d Condition")...|
00001130  04 0d 08 c0 14 dd a4 66  70 70 72 65 63 3a ea 20  |.......fpprec:. |
00001140  70 24 2c 70 25 0d 08 ca  12 70 24 3d a4 66 70 73  |p$,p%....p$=.fps|
00001150  74 72 69 70 28 31 29 0d  08 d4 0c e7 20 74 25 3d  |trip(1)..... t%=|
00001160  30 20 8c 0d 08 de 13 20  20 e7 20 70 24 3d 22 53  |0 .....  . p$="S|
00001170  22 20 70 25 3d 30 0d 08  e8 19 20 20 e7 20 70 24  |" p%=0....  . p$|
00001180  3d 22 44 22 20 70 25 3d  26 30 30 38 30 30 30 0d  |="D" p%=&008000.|
00001190  08 f2 19 20 20 e7 20 70  24 3d 22 45 22 20 70 25  |...  . p$="E" p%|
000011a0  3d 26 34 30 30 30 30 30  0d 08 fc 19 20 20 e7 20  |=&400000....  . |
000011b0  70 24 3d 22 50 22 20 70  25 3d 26 34 30 38 30 30  |p$="P" p%=&40800|
000011c0  30 0d 09 06 05 cc 0d 09  10 13 20 20 e7 20 70 24  |0.........  . p$|
000011d0  3d 22 53 22 20 70 25 3d  30 0d 09 1a 19 20 20 e7  |="S" p%=0....  .|
000011e0  20 70 24 3d 22 44 22 20  70 25 3d 26 30 30 30 30  | p$="D" p%=&0000|
000011f0  38 30 0d 09 24 19 20 20  e7 20 70 24 3d 22 45 22  |80..$.  . p$="E"|
00001200  20 70 25 3d 26 30 38 30  30 30 30 0d 09 2e 19 20  | p%=&080000.... |
00001210  20 e7 20 70 24 3d 22 50  22 20 70 25 3d 26 30 38  | . p$="P" p%=&08|
00001220  30 30 38 30 0d 09 38 05  cd 0d 09 42 07 3d 70 25  |0080..8....B.=p%|
00001230  0d 09 4c 04 0d 09 56 11  dd a4 66 70 73 74 72 69  |..L...V...fpstri|
00001240  70 28 4e 25 29 0d 09 60  13 ea 20 73 24 3a 73 24  |p(N%)..`.. s$:s$|
00001250  3d c0 66 24 2c 4e 25 29  0d 09 6a 14 66 24 3d c1  |=.f$,N%)..j.f$=.|
00001260  66 24 2c 4e 25 2b 31 29  3a 3d 73 24 0d 09 74 04  |f$,N%+1):=s$..t.|
00001270  0d 09 7e 0f dd f2 66 70  65 72 72 28 65 24 29 0d  |..~...fperr(e$).|
00001280  09 88 12 85 20 30 2c 65  24 2b 22 20 3a 22 2b 69  |.... 0,e$+" :"+i|
00001290  24 0d 09 92 04 0d 09 9c  22 f4 20 4f 70 74 69 6f  |$.......". Optio|
000012a0  6e 61 6c 20 63 6f 6e 76  65 72 73 69 6f 6e 20 72  |nal conversion r|
000012b0  6f 75 74 69 6e 65 73 0d  09 a6 1a f4 20 43 6f 6e  |outines..... Con|
000012c0  76 65 72 74 20 46 50 20  74 6f 20 73 74 72 69 6e  |vert FP to strin|
000012d0  67 0d 09 b0 21 f4 20 33  30 30 20 62 79 74 65 73  |g...!. 300 bytes|
000012e0  20 72 65 71 75 69 72 65  64 20 61 74 20 61 64 64  | required at add|
000012f0  72 25 0d 09 ba 14 dd f2  66 70 74 6f 73 74 72 28  |r%......fptostr(|
00001300  61 64 64 72 25 29 0d 09  c4 0f ea 20 50 25 2c 4f  |addr%)..... P%,O|
00001310  25 2c 61 73 6d 0d 09 ce  13 e3 20 61 73 6d 3d 30  |%,asm..... asm=0|
00001320  20 b8 20 32 20 88 20 32  0d 09 d8 0c 50 25 3d 61  | . 2 . 2....P%=a|
00001330  64 64 72 25 0d 09 e2 0c  5b 4f 50 54 20 61 73 6d  |ddr%....[OPT asm|
00001340  0d 09 ec 45 3b 20 46 50  20 28 40 20 52 30 29 20  |...E; FP (@ R0) |
00001350  74 6f 20 53 74 72 69 6e  67 20 28 32 36 20 62 79  |to String (26 by|
00001360  74 65 73 20 40 20 52 31  29 2c 20 52 32 3d 66 70  |tes @ R1), R2=fp|
00001370  20 74 79 70 65 20 30 3d  53 2c 31 3d 44 2c 32 3d  | type 0=S,1=D,2=|
00001380  45 2c 33 3d 50 0d 09 f6  14 2e 66 6c 6f 61 74 5f  |E,3=P.....float_|
00001390  74 6f 5f 73 74 72 69 6e  67 0d 0a 00 1b 53 54 4d  |to_string....STM|
000013a0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 31 32 2c  |FD R13!,{R0-R12,|
000013b0  52 31 34 7d 0d 0a 0a 0d  43 4d 50 20 52 32 2c 23  |R14}....CMP R2,#|
000013c0  30 0d 0a 14 19 a4 66 70  28 22 4c 44 46 45 51 53  |0.....fp("LDFEQS|
000013d0  20 46 30 2c 5b 52 30 5d  22 29 0d 0a 1e 0d 43 4d  | F0,[R0]")....CM|
000013e0  50 20 52 32 2c 23 31 0d  0a 28 19 a4 66 70 28 22  |P R2,#1..(..fp("|
000013f0  4c 44 46 45 51 44 20 46  30 2c 5b 52 30 5d 22 29  |LDFEQD F0,[R0]")|
00001400  0d 0a 32 0d 43 4d 50 20  52 32 2c 23 32 0d 0a 3c  |..2.CMP R2,#2..<|
00001410  19 a4 66 70 28 22 4c 44  46 45 51 45 20 46 30 2c  |..fp("LDFEQE F0,|
00001420  5b 52 30 5d 22 29 0d 0a  46 0d 43 4d 50 20 52 32  |[R0]")..F.CMP R2|
00001430  2c 23 33 0d 0a 50 19 a4  66 70 28 22 4c 44 46 45  |,#3..P..fp("LDFE|
00001440  51 50 20 46 30 2c 5b 52  30 5d 22 29 0d 0a 5a 1c  |QP F0,[R0]")..Z.|
00001450  a4 66 70 28 22 53 54 46  50 20 46 30 2c 66 70 5f  |.fp("STFP F0,fp_|
00001460  70 61 63 6b 65 64 22 29  0d 0a 64 14 41 44 52 20  |packed")..d.ADR |
00001470  52 32 2c 66 70 5f 70 61  63 6b 65 64 0d 0a 6e 10  |R2,fp_packed..n.|
00001480  42 4c 20 66 70 5f 72 6f  74 61 74 65 0d 0a 78 16  |BL fp_rotate..x.|
00001490  41 44 52 20 52 32 2c 66  70 5f 70 61 63 6b 65 64  |ADR R2,fp_packed|
000014a0  2b 34 0d 0a 82 10 42 4c  20 66 70 5f 72 6f 74 61  |+4....BL fp_rota|
000014b0  74 65 0d 0a 8c 16 41 44  52 20 52 32 2c 66 70 5f  |te....ADR R2,fp_|
000014c0  70 61 63 6b 65 64 2b 38  0d 0a 96 10 42 4c 20 66  |packed+8....BL f|
000014d0  70 5f 72 6f 74 61 74 65  0d 0a a0 15 4c 44 52 42  |p_rotate....LDRB|
000014e0  20 52 32 2c 66 70 5f 70  61 63 6b 65 64 0d 0a aa  | R2,fp_packed...|
000014f0  10 4d 4f 56 20 52 33 2c  23 97 22 20 22 0d 0a b4  |.MOV R3,#." "...|
00001500  0f 54 53 54 20 52 32 2c  23 26 38 30 0d 0a be 12  |.TST R2,#&80....|
00001510  4d 4f 56 4e 45 20 52 33  2c 23 97 22 2d 22 0d 0a  |MOVNE R3,#."-"..|
00001520  c8 13 53 54 52 42 20 52  33 2c 5b 52 31 5d 2c 23  |..STRB R3,[R1],#|
00001530  31 0d 0a d2 0d 4d 4f 56  20 52 34 2c 52 31 0d 0a  |1....MOV R4,R1..|
00001540  dc 1a 4d 4f 56 20 52 35  2c 23 31 38 20 3b 20 4e  |..MOV R5,#18 ; N|
00001550  6f 2e 64 69 67 69 74 73  0d 0a e6 16 41 44 52 20  |o.digits....ADR |
00001560  52 36 2c 66 70 5f 70 61  63 6b 65 64 2b 32 0d 0a  |R6,fp_packed+2..|
00001570  f0 0e 2e 66 70 5f 75 6e  70 61 63 6b 0d 0a fa 13  |...fp_unpack....|
00001580  4c 44 52 42 20 52 37 2c  5b 52 36 5d 2c 23 31 0d  |LDRB R7,[R6],#1.|
00001590  0b 04 14 4d 4f 56 20 52  38 2c 52 37 2c 4c 53 52  |...MOV R8,R7,LSR|
000015a0  20 23 34 0d 0b 0e 13 41  44 44 20 52 38 2c 52 38  | #4....ADD R8,R8|
000015b0  2c 23 97 22 30 22 0d 0b  18 13 53 54 52 42 20 52  |,#."0"....STRB R|
000015c0  38 2c 5b 52 34 5d 2c 23  31 0d 0b 22 12 80 20 52  |8,[R4],#1..".. R|
000015d0  37 2c 52 37 2c 23 25 31  31 31 31 0d 0b 2c 13 41  |7,R7,#%1111..,.A|
000015e0  44 44 20 52 37 2c 52 37  2c 23 97 22 30 22 0d 0b  |DD R7,R7,#."0"..|
000015f0  36 13 53 54 52 42 20 52  37 2c 5b 52 34 5d 2c 23  |6.STRB R7,[R4],#|
00001600  31 0d 0b 40 11 53 55 42  53 20 52 35 2c 52 35 2c  |1..@.SUBS R5,R5,|
00001610  23 32 0d 0b 4a 11 42 4e  45 20 66 70 5f 75 6e 70  |#2..J.BNE fp_unp|
00001620  61 63 6b 0d 0b 54 15 4c  44 52 42 20 52 38 2c 5b  |ack..T.LDRB R8,[|
00001630  52 31 5d 20 3b 20 65 30  0d 0b 5e 19 4c 44 52 42  |R1] ; e0..^.LDRB|
00001640  20 52 37 2c 5b 52 31 2c  23 31 5d 20 3b 20 64 31  | R7,[R1,#1] ; d1|
00001650  38 0d 0b 68 10 53 54 52  42 20 52 37 2c 5b 52 31  |8..h.STRB R7,[R1|
00001660  5d 0d 0b 72 10 4d 4f 56  20 52 37 2c 23 97 22 2e  |]..r.MOV R7,#.".|
00001670  22 0d 0b 7c 13 53 54 52  42 20 52 37 2c 5b 52 31  |"..|.STRB R7,[R1|
00001680  2c 23 31 5d 0d 0b 86 10  4d 4f 56 20 52 37 2c 23  |,#1]....MOV R7,#|
00001690  97 22 65 22 0d 0b 90 13  53 54 52 42 20 52 37 2c  |."e"....STRB R7,|
000016a0  5b 52 34 5d 2c 23 31 0d  0b 9a 15 4c 44 52 42 20  |[R4],#1....LDRB |
000016b0  52 32 2c 66 70 5f 70 61  63 6b 65 64 0d 0b a4 10  |R2,fp_packed....|
000016c0  4d 4f 56 20 52 33 2c 23  97 22 2b 22 0d 0b ae 0f  |MOV R3,#."+"....|
000016d0  54 53 54 20 52 32 2c 23  26 34 30 0d 0b b8 12 4d  |TST R2,#&40....M|
000016e0  4f 56 4e 45 20 52 33 2c  23 97 22 2d 22 0d 0b c2  |OVNE R3,#."-"...|
000016f0  13 53 54 52 42 20 52 33  2c 5b 52 34 5d 2c 23 31  |.STRB R3,[R4],#1|
00001700  0d 0b cc 17 4c 44 52 42  20 52 32 2c 66 70 5f 70  |....LDRB R2,fp_p|
00001710  61 63 6b 65 64 2b 31 0d  0b d6 14 4d 4f 56 20 52  |acked+1....MOV R|
00001720  33 2c 52 32 2c 4c 53 52  20 23 34 0d 0b e0 13 41  |3,R2,LSR #4....A|
00001730  44 44 20 52 33 2c 52 33  2c 23 97 22 30 22 0d 0b  |DD R3,R3,#."0"..|
00001740  ea 13 53 54 52 42 20 52  33 2c 5b 52 34 5d 2c 23  |..STRB R3,[R4],#|
00001750  31 0d 0b f4 12 80 20 52  32 2c 52 32 2c 23 25 31  |1..... R2,R2,#%1|
00001760  31 31 31 0d 0b fe 13 41  44 44 20 52 32 2c 52 32  |111....ADD R2,R2|
00001770  2c 23 97 22 30 22 0d 0c  08 13 53 54 52 42 20 52  |,#."0"....STRB R|
00001780  32 2c 5b 52 34 5d 2c 23  31 0d 0c 12 17 53 54 52  |2,[R4],#1....STR|
00001790  42 20 52 38 2c 5b 52 34  5d 2c 23 31 20 3b 65 30  |B R8,[R4],#1 ;e0|
000017a0  0d 0c 1c 0e 4d 4f 56 20  52 33 2c 23 31 33 0d 0c  |....MOV R3,#13..|
000017b0  26 13 53 54 52 42 20 52  33 2c 5b 52 34 5d 2c 23  |&.STRB R3,[R4],#|
000017c0  31 0d 0c 30 1a 4c 44 4d  46 44 20 52 31 33 21 2c  |1..0.LDMFD R13!,|
000017d0  7b 52 30 2d 52 31 32 2c  50 43 7d 0d 0c 3a 0e 2e  |{R0-R12,PC}..:..|
000017e0  66 70 5f 72 6f 74 61 74  65 0d 0c 44 0f 4c 44 52  |fp_rotate..D.LDR|
000017f0  20 52 33 2c 5b 52 32 5d  0d 0c 4e 13 53 54 52 42  | R3,[R2]..N.STRB|
00001800  20 52 33 2c 5b 52 32 2c  23 33 5d 0d 0c 58 14 4d  | R3,[R2,#3]..X.M|
00001810  4f 56 20 52 33 2c 52 33  2c 52 4f 52 20 23 38 0d  |OV R3,R3,ROR #8.|
00001820  0c 62 13 53 54 52 42 20  52 33 2c 5b 52 32 2c 23  |.b.STRB R3,[R2,#|
00001830  32 5d 0d 0c 6c 14 4d 4f  56 20 52 33 2c 52 33 2c  |2]..l.MOV R3,R3,|
00001840  52 4f 52 20 23 38 0d 0c  76 13 53 54 52 42 20 52  |ROR #8..v.STRB R|
00001850  33 2c 5b 52 32 2c 23 31  5d 0d 0c 80 14 4d 4f 56  |3,[R2,#1]....MOV|
00001860  20 52 33 2c 52 33 2c 52  4f 52 20 23 38 0d 0c 8a  | R3,R3,ROR #8...|
00001870  13 53 54 52 42 20 52 33  2c 5b 52 32 2c 23 30 5d  |.STRB R3,[R2,#0]|
00001880  0d 0c 94 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 0c  |....MOV PC,R14..|
00001890  9e 1b 2e 66 70 5f 70 61  63 6b 65 64 20 a4 66 70  |...fp_packed .fp|
000018a0  28 22 44 46 50 20 30 22  29 0d 0c a8 05 5d 0d 0c  |("DFP 0")....]..|
000018b0  b2 05 ed 0d 0c bc 05 e1  0d 0c c6 29 f4 20 53 74  |...........). St|
000018c0  72 69 6e 67 20 74 6f 20  66 6c 6f 61 74 69 6e 67  |ring to floating|
000018d0  20 70 6f 69 6e 74 20 63  6f 6e 76 65 72 73 69 6f  | point conversio|
000018e0  6e 0d 0c d0 21 f4 20 32  38 30 20 62 79 74 65 73  |n...!. 280 bytes|
000018f0  20 72 65 71 75 69 72 65  64 20 61 74 20 61 64 64  | required at add|
00001900  72 25 0d 0c da 14 dd f2  73 74 72 74 6f 66 70 28  |r%......strtofp(|
00001910  61 64 64 72 25 29 0d 0c  e4 0f ea 20 50 25 2c 4f  |addr%)..... P%,O|
00001920  25 2c 61 73 6d 0d 0c ee  18 66 70 5f 70 6f 69 6e  |%,asm....fp_poin|
00001930  74 3d 31 3a 66 70 5f 65  6e 65 67 3d 32 0d 0c f8  |t=1:fp_eneg=2...|
00001940  13 e3 20 61 73 6d 3d 30  20 b8 20 32 20 88 20 32  |.. asm=0 . 2 . 2|
00001950  0d 0d 02 0c 50 25 3d 61  64 64 72 25 0d 0d 0c 0c  |....P%=addr%....|
00001960  5b 4f 50 54 20 61 73 6d  0d 0d 16 45 3b 20 43 61  |[OPT asm...E; Ca|
00001970  6c 6c 20 77 69 74 68 20  52 30 3d 3e 73 74 72 69  |ll with R0=>stri|
00001980  6e 67 2c 20 52 31 3d 3e  66 70 20 74 61 72 67 65  |ng, R1=>fp targe|
00001990  74 2c 20 52 32 3d 66 70  20 74 79 70 65 20 30 3d  |t, R2=fp type 0=|
000019a0  53 2c 31 3d 44 2c 32 3d  45 2c 33 3d 50 0d 0d 20  |S,1=D,2=E,3=P.. |
000019b0  2b 3b 20 46 30 3d 4e 75  6d 62 65 72 2c 46 31 3d  |+; F0=Number,F1=|
000019c0  64 69 76 69 64 65 72 2f  53 69 67 6e 2c 46 32 3d  |divider/Sign,F2=|
000019d0  65 78 70 6f 6e 65 6e 74  0d 0d 2a 14 2e 73 74 72  |exponent..*..str|
000019e0  69 6e 67 5f 74 6f 5f 66  6c 6f 61 74 0d 0d 34 1b  |ing_to_float..4.|
000019f0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
00001a00  31 32 2c 52 31 34 7d 0d  0d 3e 15 a4 66 70 28 22  |12,R14}..>..fp("|
00001a10  4d 56 46 45 20 46 30 2c  23 30 22 29 0d 0d 48 15  |MVFE F0,#0")..H.|
00001a20  a4 66 70 28 22 4d 56 46  45 20 46 31 2c 23 31 22  |.fp("MVFE F1,#1"|
00001a30  29 0d 0d 52 15 a4 66 70  28 22 4d 56 46 45 20 46  |)..R..fp("MVFE F|
00001a40  32 2c 23 30 22 29 0d 0d  5c 1d 4d 4f 56 20 52 34  |2,#0")..\.MOV R4|
00001a50  2c 23 30 20 3b 20 46 6c  61 67 20 72 65 67 69 73  |,#0 ; Flag regis|
00001a60  74 65 72 0d 0d 66 1c 3b  20 4c 6f 63 61 74 65 20  |ter..f.; Locate |
00001a70  73 74 61 72 74 20 6f 66  20 73 74 72 69 6e 67 0d  |start of string.|
00001a80  0d 70 0f 2e 66 70 5f 66  69 6e 64 62 65 67 0d 0d  |.p..fp_findbeg..|
00001a90  7a 13 4c 44 52 42 20 52  33 2c 5b 52 30 5d 2c 23  |z.LDRB R3,[R0],#|
00001aa0  31 0d 0d 84 0e 43 4d 50  20 52 33 2c 23 33 32 0d  |1....CMP R3,#32.|
00001ab0  0d 8e 12 42 45 51 20 66  70 5f 66 69 6e 64 62 65  |...BEQ fp_findbe|
00001ac0  67 0d 0d 98 12 42 4c 54  20 66 70 5f 65 6e 64 63  |g....BLT fp_endc|
00001ad0  6f 6e 76 0d 0d a2 10 43  4d 50 20 52 33 2c 23 97  |onv....CMP R3,#.|
00001ae0  22 2b 22 0d 0d ac 11 42  45 51 20 66 70 5f 67 65  |"+"....BEQ fp_ge|
00001af0  74 6e 75 6d 0d 0d b6 10  43 4d 50 20 52 33 2c 23  |tnum....CMP R3,#|
00001b00  97 22 2d 22 0d 0d c0 17  a4 66 70 28 22 4d 4e 46  |."-".....fp("MNF|
00001b10  45 51 45 20 46 31 2c 46  31 22 29 0d 0d ca 11 42  |EQE F1,F1")....B|
00001b20  45 51 20 66 70 5f 67 65  74 6e 75 6d 0d 0d d4 10  |EQ fp_getnum....|
00001b30  2e 66 70 5f 63 68 6b 70  6f 69 6e 74 0d 0d de 10  |.fp_chkpoint....|
00001b40  43 4d 50 20 52 33 2c 23  97 22 2e 22 0d 0d e8 0f  |CMP R3,#."."....|
00001b50  42 4e 45 20 66 70 5f 63  68 6b 65 0d 0d f2 26 54  |BNE fp_chke...&T|
00001b60  53 54 20 52 34 2c 23 66  70 5f 70 6f 69 6e 74 3b  |ST R4,#fp_point;|
00001b70  20 41 6c 72 65 61 64 79  20 61 20 70 6f 69 6e 74  | Already a point|
00001b80  3f 0d 0d fc 18 42 4e 45  20 66 70 5f 65 6e 64 63  |?....BNE fp_endc|
00001b90  6f 6e 76 20 3b 20 79 65  73 0d 0e 06 27 84 52 20  |onv ; yes...'.R |
00001ba0  52 34 2c 52 34 2c 23 66  70 5f 70 6f 69 6e 74 20  |R4,R4,#fp_point |
00001bb0  3b 20 4e 6f 77 20 68 61  76 65 20 70 6f 69 6e 74  |; Now have point|
00001bc0  0d 0e 10 0f 42 20 66 70  5f 67 65 74 6e 75 6d 0d  |....B fp_getnum.|
00001bd0  0e 1a 0c 2e 66 70 5f 63  68 6b 65 0d 0e 24 10 43  |....fp_chke..$.C|
00001be0  4d 50 20 52 33 2c 23 97  22 65 22 0d 0e 2e 0e 42  |MP R3,#."e"....B|
00001bf0  45 51 20 66 70 5f 64 6f  65 0d 0e 38 10 43 4d 50  |EQ fp_doe..8.CMP|
00001c00  20 52 33 2c 23 97 22 45  22 0d 0e 42 0e 42 45 51  | R3,#."E"..B.BEQ|
00001c10  20 66 70 5f 64 6f 65 0d  0e 4c 10 43 4d 50 20 52  | fp_doe..L.CMP R|
00001c20  33 2c 23 97 22 30 22 0d  0e 56 12 42 4c 54 20 66  |3,#."0"..V.BLT f|
00001c30  70 5f 65 6e 64 63 6f 6e  76 0d 0e 60 10 43 4d 50  |p_endconv..`.CMP|
00001c40  20 52 33 2c 23 97 22 39  22 0d 0e 6a 12 42 47 54  | R3,#."9"..j.BGT|
00001c50  20 66 70 5f 65 6e 64 63  6f 6e 76 0d 0e 74 1c 53  | fp_endconv..t.S|
00001c60  55 42 20 52 33 2c 52 33  2c 23 97 22 30 22 20 3b  |UB R3,R3,#."0" ;|
00001c70  20 54 6f 20 68 65 78 0d  0e 7e 15 a4 66 70 28 22  | To hex..~..fp("|
00001c80  46 4c 54 45 20 46 33 2c  52 33 22 29 0d 0e 88 19  |FLTE F3,R3")....|
00001c90  a4 66 70 28 22 4d 55 46  45 20 46 30 2c 46 30 2c  |.fp("MUFE F0,F0,|
00001ca0  23 31 30 22 29 0d 0e 92  18 a4 66 70 28 22 41 44  |#10").....fp("AD|
00001cb0  46 45 20 46 30 2c 46 30  2c 46 33 22 29 0d 0e 9c  |FE F0,F0,F3")...|
00001cc0  3a 54 53 54 20 52 34 2c  23 66 70 5f 70 6f 69 6e  |:TST R4,#fp_poin|
00001cd0  74 20 3b 20 44 65 63 69  6d 61 6c 20 70 6c 61 63  |t ; Decimal plac|
00001ce0  65 3f 20 49 66 20 73 6f  20 61 64 6a 75 73 74 20  |e? If so adjust |
00001cf0  64 69 76 69 64 65 72 0d  0e a6 1b a4 66 70 28 22  |divider.....fp("|
00001d00  4d 55 46 4e 45 45 20 46  31 2c 46 31 2c 23 31 30  |MUFNEE F1,F1,#10|
00001d10  22 29 0d 0e b0 0e 2e 66  70 5f 67 65 74 6e 75 6d  |").....fp_getnum|
00001d20  0d 0e ba 13 4c 44 52 42  20 52 33 2c 5b 52 30 5d  |....LDRB R3,[R0]|
00001d30  2c 23 31 0d 0e c4 0e 43  4d 50 20 52 33 2c 23 33  |,#1....CMP R3,#3|
00001d40  32 0d 0e ce 12 42 4c 54  20 66 70 5f 65 6e 64 63  |2....BLT fp_endc|
00001d50  6f 6e 76 0d 0e d8 11 42  20 66 70 5f 63 68 6b 70  |onv....B fp_chkp|
00001d60  6f 69 6e 74 0d 0e e2 15  3b 20 48 61 6e 64 6c 65  |oint....; Handle|
00001d70  20 65 78 70 6f 6e 65 6e  74 0d 0e ec 0b 2e 66 70  | exponent.....fp|
00001d80  5f 64 6f 65 0d 0e f6 13  4c 44 52 42 20 52 33 2c  |_doe....LDRB R3,|
00001d90  5b 52 30 5d 2c 23 31 0d  0f 00 0e 43 4d 50 20 52  |[R0],#1....CMP R|
00001da0  33 2c 23 33 32 0d 0f 0a  12 42 4c 54 20 66 70 5f  |3,#32....BLT fp_|
00001db0  65 6e 64 63 6f 6e 76 0d  0f 14 10 43 4d 50 20 52  |endconv....CMP R|
00001dc0  33 2c 23 97 22 2b 22 0d  0f 1e 0e 42 45 51 20 66  |3,#."+"....BEQ f|
00001dd0  70 5f 64 6f 65 0d 0f 28  10 43 4d 50 20 52 33 2c  |p_doe..(.CMP R3,|
00001de0  23 97 22 2d 22 0d 0f 32  17 84 52 45 51 20 52 34  |#."-"..2..REQ R4|
00001df0  2c 52 34 2c 23 66 70 5f  65 6e 65 67 0d 0f 3c 0e  |,R4,#fp_eneg..<.|
00001e00  42 45 51 20 66 70 5f 64  6f 65 0d 0f 46 0f 2e 66  |BEQ fp_doe..F..f|
00001e10  70 5f 63 68 6b 65 6e 75  6d 0d 0f 50 10 43 4d 50  |p_chkenum..P.CMP|
00001e20  20 52 33 2c 23 97 22 30  22 0d 0f 5a 12 42 4c 54  | R3,#."0"..Z.BLT|
00001e30  20 66 70 5f 65 6e 64 63  6f 6e 76 0d 0f 64 10 43  | fp_endconv..d.C|
00001e40  4d 50 20 52 33 2c 23 97  22 39 22 0d 0f 6e 12 42  |MP R3,#."9"..n.B|
00001e50  47 54 20 66 70 5f 65 6e  64 63 6f 6e 76 0d 0f 78  |GT fp_endconv..x|
00001e60  1c 53 55 42 20 52 33 2c  52 33 2c 23 97 22 30 22  |.SUB R3,R3,#."0"|
00001e70  20 3b 20 54 6f 20 68 65  78 0d 0f 82 15 a4 66 70  | ; To hex.....fp|
00001e80  28 22 46 4c 54 45 20 46  33 2c 52 33 22 29 0d 0f  |("FLTE F3,R3")..|
00001e90  8c 19 a4 66 70 28 22 4d  55 46 45 20 46 32 2c 46  |...fp("MUFE F2,F|
00001ea0  32 2c 23 31 30 22 29 0d  0f 96 18 a4 66 70 28 22  |2,#10").....fp("|
00001eb0  41 44 46 45 20 46 32 2c  46 32 2c 46 33 22 29 0d  |ADFE F2,F2,F3").|
00001ec0  0f a0 0c 42 20 66 70 5f  64 6f 65 0d 0f aa 19 3b  |...B fp_doe....;|
00001ed0  20 50 75 74 20 6e 75 6d  62 65 72 20 74 6f 67 65  | Put number toge|
00001ee0  74 68 65 72 0d 0f b4 0f  2e 66 70 5f 65 6e 64 63  |ther.....fp_endc|
00001ef0  6f 6e 76 0d 0f be 31 a4  66 70 28 22 44 56 46 45  |onv...1.fp("DVFE|
00001f00  20 46 30 2c 46 30 2c 46  31 22 29 20 3b 20 53 63  | F0,F0,F1") ; Sc|
00001f10  61 6c 65 20 74 6f 20 64  65 63 69 6d 61 6c 20 70  |ale to decimal p|
00001f20  6f 69 6e 74 0d 0f c8 28  54 53 54 20 52 34 2c 23  |oint...(TST R4,#|
00001f30  66 70 5f 65 6e 65 67 20  3b 20 4e 65 67 61 74 69  |fp_eneg ; Negati|
00001f40  76 65 20 65 78 70 6f 6e  65 6e 74 3f 0d 0f d2 24  |ve exponent?...$|
00001f50  a4 66 70 28 22 4d 4e 46  4e 45 45 20 46 32 2c 46  |.fp("MNFNEE F2,F|
00001f60  32 22 29 20 3b 20 79 65  73 2c 6e 65 67 61 74 65  |2") ; yes,negate|
00001f70  0d 0f dc 18 a4 66 70 28  22 4d 56 46 45 20 46 34  |.....fp("MVFE F4|
00001f80  2c 23 31 30 2e 30 22 29  0d 0f e6 2c a4 66 70 28  |,#10.0")...,.fp(|
00001f90  22 50 4f 57 45 20 46 34  2c 46 34 2c 46 32 22 29  |"POWE F4,F4,F2")|
00001fa0  20 3b 20 76 61 6c 75 65  20 6f 66 20 65 78 70 6f  | ; value of expo|
00001fb0  6e 65 6e 74 0d 0f f0 25  a4 66 70 28 22 4d 55 46  |nent...%.fp("MUF|
00001fc0  45 20 46 30 2c 46 30 2c  46 34 22 29 20 3b 20 65  |E F0,F0,F4") ; e|
00001fd0  6e 64 20 6e 75 6d 62 65  72 0d 0f fa 25 3b 20 53  |nd number...%; S|
00001fe0  74 6f 72 65 20 72 65 73  75 6c 74 20 69 6e 20 72  |tore result in r|
00001ff0  65 71 75 69 72 65 64 20  66 6f 72 6d 61 74 0d 10  |equired format..|
00002000  04 0d 43 4d 50 20 52 32  2c 23 30 0d 10 0e 1c a4  |..CMP R2,#0.....|
00002010  66 70 28 22 53 54 46 45  51 53 20 46 30 2c 5b 52  |fp("STFEQS F0,[R|
00002020  31 2c 23 30 5d 22 29 0d  10 18 0d 43 4d 50 20 52  |1,#0]")....CMP R|
00002030  32 2c 23 31 0d 10 22 1c  a4 66 70 28 22 53 54 46  |2,#1.."..fp("STF|
00002040  45 51 44 20 46 30 2c 5b  52 31 2c 23 30 5d 22 29  |EQD F0,[R1,#0]")|
00002050  0d 10 2c 0d 43 4d 50 20  52 32 2c 23 32 0d 10 36  |..,.CMP R2,#2..6|
00002060  1c a4 66 70 28 22 53 54  46 45 51 45 20 46 30 2c  |..fp("STFEQE F0,|
00002070  5b 52 31 2c 23 30 5d 22  29 0d 10 40 0d 43 4d 50  |[R1,#0]")..@.CMP|
00002080  20 52 32 2c 23 33 0d 10  4a 1c a4 66 70 28 22 53  | R2,#3..J..fp("S|
00002090  54 46 45 51 50 20 46 30  2c 5b 52 31 2c 23 30 5d  |TFEQP F0,[R1,#0]|
000020a0  22 29 0d 10 54 1a 4c 44  4d 46 44 20 52 31 33 21  |")..T.LDMFD R13!|
000020b0  2c 7b 52 30 2d 52 31 32  2c 50 43 7d 0d 10 5e 07  |,{R0-R12,PC}..^.|
000020c0  5d 3a ed 0d 10 68 05 e1  0d ff                    |]:...h....|
000020ca