optization, unit fp

Author: tebe6502

lib/fp.pas

@@ -0,0 +1,37 @@
+unit fp;
+(*
+ @type: unit
+ @author: Tomasz Biela (Tebe)
+ @name: Float-point OS
+ @version: 1.0
+
+ @description:
+
+*)
+
+
+{
+
+
+}
+
+interface
+
+	procedure _atofp(var inbuff, flptr); external;
+	procedure _fptoa(var loadfr0.adr, ptr1); external;
+
+	procedure _itofp(fr0: word; var flptr); external;
+	function _fptoi(flptr: word): word; external;	
+
+	procedure _fpadd(var loadfr0.adr, loadfr1.adr, flptr); external;
+	procedure _fpsub(var loadfr0.adr, loadfr1.adr, flptr); external;
+	procedure _fpdiv(var loadfr0.adr, loadfr1.adr, flptr); external;
+	procedure _fpmul(var loadfr0.adr, loadfr1.adr, flptr); external;
+
+implementation
+
+
+{$link fp/fp.obx}
+
+
+end.