diff --git a/SYS/KERNEL.S.MATHF.txt b/SYS/KERNEL.S.MATHF.txt
new file mode 100644
index 00000000..82599b06
--- /dev/null
+++ b/SYS/KERNEL.S.MATHF.txt
@@ -0,0 +1,56 @@
+NEW
+  AUTO 3,1
+*--------------------------------------
+* http://www.txbobsc.com/scsc/scdocumentor/E7A0.html
+*--------------------------------------
+MATHF			jmp (.1-FPU.FMUL,x)
+*--------------------------------------
+.1				.DA $E987				FMULTT.1
+				.DA $EA6B				FDIVT+2
+				.DA 0
+				.DA $E7C1				FADDT
+				.DA $E7AA				FSUBT
+*--------------------------------------
+				.DA 0					fSHL
+				.DA 0					fSHR
+
+				.DA 0					fL
+				.DA 0					fLE
+				.DA 0					fG
+				.DA 0					fGE
+
+				.DA 0					fE
+				.DA 0					fNE
+
+				.DA 0					fAND
+				.DA 0					fOR
+				.DA 0					fXOR
+
+				.DA 0					fLAND
+				.DA 0					fLOR
+*--------------------------------------
+				.DA $EE97				FPWRT
+*--------------------------------------
+				.DA $E941				LOG
+				.DA $EE8D				SQR
+				.DA $EF09				EXP
+				.DA $EFEA				COS
+				.DA $EFF1				SIN
+				.DA $F03A				TAN
+				.DA $F09E				ATN
+*--------------------------------------
+				.DA $E9E3				LOAD.ARG.FROM.YA
+				.DA $EAF9				LOAD.FAC.FROM.YA
+				.DA $EB27				SETFOR		(GETFAC)
+				.DA $EBB2				FCOMP 		(Y,A with FAC)
+
+				.DA $E82E				NORMALIZE.FAC.2 (L->F)
+				.DA $EBF2				QINT		(F->L)
+
+				.DA $EC4A				FIN			AToF
+				.DA $ED36				FOUT.1		PrintF
+*--------------------------------------
+MAN
+SAVE usr/src/sys/kernel.s.mathf
+LOAD usr/src/sys/kernel.s
+ASM