Add convert_u8_A_to_FAC1

STATUS.md

@@ -201,7 +201,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$B1BF`   | `convert_FAC1_to_s16`  | NOT DONE |                                                    |
 | `$B391`   | `GIVAYF`               | PARTIAL  | not fully tested yet                               |
 | `$B3A2`   | `convert_Y_to_FAC1`    | DONE     |                                                    |
-| `$B794`   | `convert_A_to_FAC1`    | NOT DONE |                                                    |
+| `$B794`   | `convert_u8_A_to_FAC1` | DONE     |                                                    |
 | `$B7B5`   | `STRVAL`               | NOT DONE | imports string to FAC1                             |
 | `$B7F7`   | `convert_FAC1_to_ADDR` | NOT DONE |                                                    |
 | `$B849`   | `add_HALF_FAC1`        | DONE     |                                                    |

src/basic/math/b794.convert_A_to_FAC1.s

@@ -4,10 +4,11 @@
 ;; #LAYOUT# *   *       #IGNORE
 
 ;
-; Math package - XXX
+; Math package - Convert A (uint8) to FAC1
 ;
 ; - https://sta.c64.org/cbm64basconv.html
 ;
-; XXX add name, label, documentation, implement, test
 
-	+STUB_IMPLEMENTATION
+convert_u8_A_to_FAC1:
+    tay
+    jmp convert_Y_to_FAC1

strings/208DB420

@@ -0,0 +1,3 @@
+JSR $B38D + JSR fragment
+
+Call to address in ROM + fragment

strings/4CA2B320

@@ -0,0 +1,3 @@
+JMP $B3A2 + JSR fragment
+
+Call to well known floating point function + fragment

strings/A84CA2B3

@@ -0,0 +1,3 @@
+TAY + JMP $B3A2
+
+Transfer to Y + Jump to well known floating point function (that needs its argument in Y)