human68k: implemented do_getdir (based on the Atari version)

rtl/human68k/h68kdos.inc

@@ -106,6 +106,7 @@ const
     SEEK_FROM_END     = 2;
 
 procedure h68kdos_exit; noreturn; syscall $ff00;
+function h68kdos_curdrv: longint; syscall $ff17;
 function h68kdos_gettim2: longint; syscall $ff27;
 function h68kdos_mkdir(name: pchar): longint; syscall $ff39;
 function h68kdos_rmdir(name: pchar): longint; syscall $ff3a;
@@ -117,6 +118,7 @@ function h68kdos_read(fileno: word; buffer: pointer; len: longint): longint; sys
 function h68kdos_write(fileno: word; buffer: pointer; len: longint): longint; syscall $ff40;
 function h68kdos_delete(name: pchar): longint; syscall $ff41;
 function h68kdos_seek(fileno: word; offset: longint; mode: word): longint; syscall $ff42;
+function h68kdos_curdir(driveno: word; buffer: pointer): longint; syscall $ff47;
 function h68kdos_malloc(size: longint): pointer; syscall $ff48;
 function h68kdos_mfree(ptr: pointer): longint; syscall $ff49;
 function h68kdos_setblock(ptr: pointer; size: longint): longint; syscall $ff4a;

rtl/human68k/sysdir.inc

@@ -55,5 +55,26 @@ end;
 
 
 procedure do_GetDir (DriveNr: byte; var Dir: RawByteString);
+var
+  dosResult: longint;
+  pathbuf: array[0..259] of AnsiChar;
 begin
+  Dir := '';
+
+  dosResult:=h68kdos_curdir(DriveNr,@pathbuf[2]);
+  if dosResult < 0 then
+    begin
+      Error2InOutRes(dosResult);
+      exit;
+    end;
+
+  if DriveNr = 0 then
+    DriveNr := h68kdos_curdrv + 1;
+
+  { return a full path, including drive }
+  pathbuf[0]:=AnsiChar(ord('A') + DriveNr - 1);
+  pathbuf[1]:=DriveSeparator;
+
+  Dir:=pathbuf;
+  SetCodePage(Dir,DefaultSystemCodePage,false);
 end;