diff --git a/src/libsrc/sane.pla b/src/libsrc/sane.pla
index 07c4fc5..500ca8a 100644
--- a/src/libsrc/sane.pla
+++ b/src/libsrc/sane.pla
@@ -148,10 +148,10 @@ end
 //    putc('$')
 //    call($FDDA, h, 0, 0, 0)
 //end
-def prword(h)#0
-    putc('$')
-    call($F941, h >> 8, h, 0, 0)
-end
+//def prword(h)#0
+//    putc('$')
+//    call($F941, h >> 8, h, 0, 0)
+//end
 //def putname(pchr)#0
 //    byte c
 //
@@ -330,16 +330,17 @@ end
 //
 // Uninitialized placeholders of API
 //
-def uninit0()
+def uninit
     puts("SANE not initialized\n")
     return -1
 end
+def uninit0()
+    return uninit
+end
 def uninit1(op, dst)
-    puts("SANE not initialized\n")
-    return -1
+return uninit
 end
 def uninit2(op, dst, src)
-    puts("SANE not initialized\n")
-    return -1
+return uninit
 end
 done
diff --git a/src/samplesrc/sanity.pla b/src/samplesrc/sanity.pla
index af178d6..9a3560d 100644
--- a/src/samplesrc/sanity.pla
+++ b/src/samplesrc/sanity.pla
@@ -30,4 +30,22 @@ sane:fpOp2(FFINT|FOADD, @xT, @iB) // Add int B to ext T
 sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
 sane:zpRestore()
 puti(iA); putc('+'); puti(iB); putc('='); puti(iC); putc('\n')
+sane:zpSave()
+sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
+sane:fpOp2(FFINT|FOSUB, @xT, @iB) // Add int B to ext T
+sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
+sane:zpRestore()
+puti(iA); putc('-'); puti(iB); putc('='); puti(iC); putc('\n')
+sane:zpSave()
+sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
+sane:fpOp2(FFINT|FOMUL, @xT, @iB) // Add int B to ext T
+sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
+sane:zpRestore()
+puti(iA); putc('*'); puti(iB); putc('='); puti(iC); putc('\n')
+sane:zpSave()
+sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
+sane:fpOp2(FFINT|FODIV, @xT, @iB) // Add int B to ext T
+sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
+sane:zpRestore()
+puti(iA); putc('/'); puti(iB); putc('='); puti(iC); putc('\n')
 done