Add SGN FAC1

STATUS.md

@@ -232,7 +232,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$BC0F`   | `mov_FAC1_FAC2`        | DONE     |                                                    |
 | `$BC1B`   | `round_FAC1`           | PARTIAL  | not fully tested yet                               |
 | `$BC2B`   | `sgn_FAC1_A`           | DONE     |                                                    |
-| `$BC39`   | `sgn_FAC1`             | NOT DONE |                                                    |
+| `$BC39`   | `sgn_FAC1`             | DONE     |                                                    |
 | `$BC3C`   | `convert_A_to_FAC1`    | PARTIAL  | not fully tested yet                               |
 | `$BC44`   | `convert_i16_to_FAC1`  | PARTIAL  | not fully tested yet                               |
 | `$BC58`   | `abs_FAC1`             | NOT DONE |                                                    |

src/basic/math/bc39.sgn_FAC1.s

@@ -15,7 +15,6 @@
 ; - https://codebase64.org/doku.php?id=base:kernal_floating_point_mathematics
 ;
 
-; XXX provide implementation
-
 sgn_FAC1:
-	+STUB_IMPLEMENTATION
+	jsr sgn_FAC1_A
+	; Fallthrough to convert_A_to_FAC1

strings/202BBC8562

@@ -0,0 +1,3 @@
+JSR $BC2B + STA $62
+
+Calls the SGN FAC1 into A which is a well known routine and then stores the result in the FAC1 mantissa. Trivial