Allow using %() at the left side of assignment.

This allows storing floating point values through a pointer.

Author: dmsc

manual.md

@@ -984,6 +984,14 @@ with the hardware. Use with care!
   This returns the floating-point
   value stored at memory address _n_.
 
+  This function is special, as it is
+  possible to use it also at the left
+  side of an assignment, to store a
+  floating point into an address:
+
+      %(1536) = 0.1234
+      ? %(1536)
+
 
 List Of Statements
 ==================

src/syntax/float.syn

@@ -83,7 +83,6 @@ FP_FUNCS:
         "Val"   STR_EXPR emit TOK_FP_VAL
         "RNd()" emit TOK_FP_RND
         "%Time" emit TOK_FP_TIME
-        "%"     PAR_EXPR emit TOK_FP_LOAD
 
 ADR_EXPR:
         emit { TOK_VAR_LOAD, VT_ARRAY_FLOAT  } E_VAR_SEARCH "%"
@@ -129,6 +128,7 @@ INPUT_VAR:
 ARRAY_FLOAT_ADDR:
         emit { TOK_VAR_LOAD, VT_ARRAY_FLOAT } E_VAR_SEARCH "%" emit TOK_PUSH PAR_EXPR emit { TOK_MUL6, TOK_ADD }
         emit { TOK_NUM, VT_ARRAY_FLOAT } E_LABEL "%" emit TOK_PUSH PAR_EXPR emit { TOK_MUL6, TOK_ADD }
+        "%"     PAR_EXPR
 
 # This is added at start of current table (<)
 DIM_VAR_TYPE:<

testsuite/tests/floatadr.bas

@@ -11,7 +11,8 @@ ENDPROC
 DIM A%(2)
 A%(0) = 0.125
 A%(1) = 0.0625
-A%(2) = 0.03125
+' Test storing into pointer
+%(&A%+12)= 0.03125
 
 @SUM &A%, 3
 ? SUM%