Merge pull request #90 from rikardn/set_FAC1_mantissa

Add set_FAC1_mantissa

STATUS.md

@@ -195,7 +195,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$AABC`   | `print_FAC1`           | NOT DONE |                                                    |
 | `$AF7B`   | `compute_TI`           | NOT DONE |                                                    |
 | `$AF7E`   | not named yet          | NOT DONE |                                                    |
-| `$AF87`   | not named yet          | NOT DONE |                                                    |
+| `$AF87`   | `set_FAC1_mantissa`    | DONE     |                                                    |
 | `$AF9A`   | `compute_ST`           | NOT DONE |                                                    |
 | `$B1AA`   | `FACINX`               | NOT DONE | convert FAC1 to 16-bit signed integer              |
 | `$B1BF`   | `convert_FAC1_to_s16`  | NOT DONE |                                                    |

src/basic/,stubs_math/af7e.math_stub.s

@@ -4,7 +4,7 @@
 ;; #LAYOUT# *   *       #IGNORE
 
 ;
-; Math package - sets mantissa to 00yyxxaa
+; Math package - set rest of FAC1 and JMP to $b8d2
 ;
 ; See also:
 ; - https://codebase64.org/doku.php?id=base:kernal_floating_point_mathematics

src/basic/math/af87.set_FAC1_mantissa.s

@@ -4,12 +4,17 @@
 ;; #LAYOUT# *   *       #IGNORE
 
 ;
-; Math package - set rest of FAC1 and JMP to $b8d2
+; Math package - sets mantissa to 00yyxxaa
 ;
 ; See also:
 ; - https://codebase64.org/doku.php?id=base:kernal_floating_point_mathematics
 ;
 
-; XXX add name, label, implement, test
 
-	+STUB_IMPLEMENTATION
+set_FAC1_mantissa:
+    sty FAC1_mantissa+1
+    stx FAC1_mantissa+2
+    sta FAC1_mantissa+3
+    lda #0
+    sta FAC1_mantissa
+    rts