atari: add a new Error to InOutRes function

git-svn-id: trunk@34659 -

rtl/atari/sysos.inc

@@ -14,3 +14,28 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+
+procedure Error2InOutRes(errno: longint);
+begin
+  if (errno <= -2) and (errno >= -11) then
+    InOutRes:=150-errno
+  else
+    begin
+      case errno of
+        -32 : InOutRes:=1;
+        -33 : InOutRes:=2;
+        -34 : InOutRes:=3;
+        -35 : InOutRes:=4;
+        -36 : InOutRes:=5;
+        -37 : InOutRes:=8;
+        -39 : InOutRes:=8;
+        -40 : InOutRes:=9;
+        -46 : InOutRes:=15;
+        -67..-64 : InOutRes:=153;
+        -15 : InOutRes:=151;
+        -13 : InOutRes:=150;
+      else
+        InOutRes := word(errno);
+      end;
+    end;
+end;