Merge branch 'develop'

SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=02.06.2021
-CompileTime=16:54:13
+CompileDate=03.06.2021
+CompileTime=15:00:30
 Name=Wilfried Klaas
 LSUBinFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUTextFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.

ugui.pas

@@ -207,7 +207,7 @@ type
     procedure nextStep(singleStep: boolean);
     procedure renumberGrid;
     procedure saveFile(filename: string);
-    procedure selectAddress(addr: byte);
+    procedure selectAddress(addr: word);
     procedure inputSps;
     procedure outputSps;
     procedure uploadFile;
@@ -1499,7 +1499,6 @@ begin
     begin
       acStopExecute(Sender);
     end;
-
   end;
 end;
 
@@ -1886,7 +1885,7 @@ begin
   end;
 end;
 
-procedure TForm1.selectAddress(addr: byte);
+procedure TForm1.selectAddress(addr: word);
 begin
   StringGrid1.Row := addr + 1;
   Application.ProcessMessages;

usps.pas

@@ -446,10 +446,13 @@ begin
 
   if (addr > e2e) then
   begin
-    errorMessage := 'Address out of range after address: 0x' + IntToHex(oldAddr, 2);
-    doReset();
+    addr := 0;
+    // errorMessage := 'Address out of range after address: 0x' + IntToHex(oldAddr, 2);
+    // doReset();
+  end
+  else begin
+    preFetch();
   end;
-  preFetch();
 end;
 
 procedure TSPS.doReset();