diff --git a/STATUS.md b/STATUS.md
index 5e17aebe..cf5fcbca 100644
--- a/STATUS.md
+++ b/STATUS.md
@@ -196,7 +196,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$AF7B`   | `compute_TI`           | NOT DONE |                                                    |
 | `$AF7E`   | not named yet          | NOT DONE |                                                    |
 | `$AF87`   | `set_FAC1_mantissa`    | DONE     |                                                    |
-| `$AF9A`   | `compute_ST`           | NOT DONE |                                                    |
+| `$AF9A`   | `compute_ST`           | DONE     |                                                    |
 | `$B1AA`   | `FACINX`               | NOT DONE | convert FAC1 to 16-bit signed integer              |
 | `$B1BF`   | `convert_FAC1_to_s16`  | NOT DONE |                                                    |
 | `$B391`   | `GIVAYF`               | PARTIAL  | not fully tested yet                               |
diff --git a/src/basic/,stubs_math/af9a.compute_ST.s b/src/basic/math/af9a.compute_ST.s
similarity index 84%
rename from src/basic/,stubs_math/af9a.compute_ST.s
rename to src/basic/math/af9a.compute_ST.s
index 8ffe15cc..29dac48e 100644
--- a/src/basic/,stubs_math/af9a.compute_ST.s
+++ b/src/basic/math/af9a.compute_ST.s
@@ -10,8 +10,7 @@
 ; - https://www.c64-wiki.com/wiki/BASIC-ROM
 ;
 
-; XXX implement, test
-
 compute_ST:
 
-	+STUB_IMPLEMENTATION
+	lda IOSTATUS
+	jmp convert_A_to_FAC1
diff --git a/src/basic/,stubs_math/af9a.interop b/src/basic/math/af9a.interop
similarity index 100%
rename from src/basic/,stubs_math/af9a.interop
rename to src/basic/math/af9a.interop
diff --git a/strings/4C3CBCA5 b/strings/4C3CBCA5
new file mode 100644
index 00000000..a06cbb9a
--- /dev/null
+++ b/strings/4C3CBCA5
@@ -0,0 +1,3 @@
+JMP $BC3C + LDA fragment
+
+Jump to well known floating point function + fragment