+CODE fsin
+ a = reinterpret(Float64, popPS())
+ pushPS(reinterpret(Int64, sin(a)))
+END-CODE
+
+CODE fcos
+ a = reinterpret(Float64, popPS())
+ pushPS(reinterpret(Int64, cos(a)))
+END-CODE
+
+CODE ftan
+ a = reinterpret(Float64, popPS())
+ pushPS(reinterpret(Int64, tan(a)))
+END-CODE
+
+CODE fatan
+ a = reinterpret(Float64, popPS())
+ pushPS(reinterpret(Int64, atan(a)))
+END-CODE
+
+CODE fnan?
+ a = reinterpret(Float64, popPS())
+ if isnan(a)
+ pushPS(-1)
+ else
+ pushPS(0)
+ end
+END-CODE
+
+CODE finf?
+ a = reinterpret(Float64, popPS())
+ if isinf(a)
+ pushPS(-1)
+ else
+ pushPS(0)
+ end
+END-CODE
+