diff --git a/STATUS.md b/STATUS.md
index 922d7016..baedadc5 100644
--- a/STATUS.md
+++ b/STATUS.md
@@ -253,7 +253,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$E097`   | `rnd_FAC1`             | DONE     |                                                    |
 | `$E09A`   | `rnd_A`                | DONE     |                                                    |
 | `$E0BE`   | `rnd_generate`         | DONE     |                                                    |
-| `$E264`   | `cos_FAC1`             | NOT DONE |                                                    |
+| `$E264`   | `cos_FAC1`             | PARTIAL  | needs `sin_FAC1`                                   |
 | `$E26B`   | `sin_FAC1`             | NOT DONE | some work already started                          |
 | `$E2B4`   | `tan_FAC1`             | NOT DONE |                                                    |
 | `$E30E`   | `atn_FAC1`             | NOT DONE |                                                    |
diff --git a/src/basic/,stubs_math/e264.cos_FAC1.s b/src/basic/math/e264.cos_FAC1.s
similarity index 68%
rename from src/basic/,stubs_math/e264.cos_FAC1.s
rename to src/basic/math/e264.cos_FAC1.s
index 42999aa7..c81f32f7 100644
--- a/src/basic/,stubs_math/e264.cos_FAC1.s
+++ b/src/basic/math/e264.cos_FAC1.s
@@ -5,14 +5,17 @@
 ;
 ; Math package - cosine of FAC1 in radians
 ;
+; Adds pi/2 to FAC1 and falls through to the sine function
+;
 ; See also:
 ; - [CM64] Computes Mapping the Commodore 64 - page 210
 ; - https://www.c64-wiki.com/wiki/Floating_point_arithmetic
 ; - https://codebase64.org/doku.php?id=base:kernal_floating_point_mathematics
 ;
 
-; XXX provide implementation
-
 COS:
-
-	+STUB_IMPLEMENTATION
+    ldy #>const_HALF_PI
+    lda #<const_HALF_PI
+    jsr add_MEM_FAC1
+    
+    ; FALLTHROUGH to SIN
diff --git a/src/basic/,stubs_math/e264.interop b/src/basic/math/e264.interop
similarity index 100%
rename from src/basic/,stubs_math/e264.interop
rename to src/basic/math/e264.interop
diff --git a/strings/E02067B8 b/strings/E02067B8
new file mode 100644
index 00000000..8d889ac8
--- /dev/null
+++ b/strings/E02067B8
@@ -0,0 +1,3 @@
+$E0 + JSR $B867
+
+Fragment + call to well known floating point routine