atari/sysos: use the symbolic names for error numbers

rtl/atari/gemdos.inc

@@ -19,12 +19,14 @@
 
 const
     E_OK        = 0;       // OK. No error has arisen
+    ESPIPE      = -6;      // Illegal seek
     EINVFN      = -32;     // Unknown function number
     EFILNF      = -33;     // File not found
     EPTHNF      = -34;     // Directory (folder) not found
     ENHNDL      = -35;     // No more handles available
     EACCDN      = -36;     // Access denied
     EIHNDL      = -37;     // Invalid file handle
+    EPERM       = -38;     // Permission denied
     ENSMEM      = -39;     // Insufficient memory
     EIMBA       = -40;     // Invalid memory block address
     EDRIVE      = -46;     // Invalid drive specification

rtl/atari/sysos.inc

@@ -25,16 +25,16 @@ begin
   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;
+        EINVFN : InOutRes:=1;
+        EFILNF : InOutRes:=2;
+        EPTHNF : InOutRes:=3;
+        ENHNDL : InOutRes:=4;
+        EACCDN : InOutRes:=5;
+        EIHNDL : InOutRes:=6;
+        ENSMEM,EGSBF : InOutRes:=8;
+        EIMBA : InOutRes:=9;
+        EDRIVE : InOutRes:=15;
+        EPLFMT,EINTRN,ERANGE : InOutRes:=153;
         -15 : InOutRes:=151;
         -13 : InOutRes:=150;
       else