human68k: pre-fetch the version number of the OS during startup. and store it for easy access

rtl/human68k/h68kdos.inc

@@ -109,6 +109,7 @@ procedure h68kdos_exit; noreturn; syscall $ff00;
 function h68kdos_chgdrv(newdrv: word): longint; syscall $ff0e;
 function h68kdos_curdrv: longint; syscall $ff17;
 function h68kdos_gettim2: longint; syscall $ff27;
+function h68kdos_vernum: longint; syscall $ff30;
 function h68kdos_mkdir(name: pchar): longint; syscall $ff39;
 function h68kdos_rmdir(name: pchar): longint; syscall $ff3a;
 function h68kdos_chdir(name: pchar): longint; syscall $ff3b;

rtl/human68k/system.pp

@@ -63,6 +63,7 @@ var
     argv: PPChar;
     envp: PPChar;
 
+    human68k_vernum: word;
 
     {$if defined(FPUSOFT)}
 
@@ -282,6 +283,8 @@ end;
 
 
 begin
+  human68k_vernum:=word(h68kdos_vernum);
+
   StackLength := CheckInitialStkLen (InitialStkLen);
 { Initialize ExitProc }
   ExitProc:=Nil;