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