#2 ignoring the max e2e will lead into an error

SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=15.05.2021
-CompileTime=11:32:02
+CompileDate=02.06.2021
+CompileTime=16:16:04
 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.

usps.pas

@@ -274,7 +274,7 @@ type
     procedure preFetch();
     function getLastError():string;
 
-    procedure writeEEProm(adr: byte; Data: byte);
+    procedure writeEEProm(adr: word; Data: byte);
 
     function isActive(): boolean;
     function isDelayActive(): boolean;
@@ -632,8 +632,9 @@ begin
   result := errorMessage;
 end;
 
-procedure TSPS.writeEEProm(adr: byte; Data: byte);
+procedure TSPS.writeEEProm(adr: word; Data: byte);
 begin
+  if adr < e2e then
   eeprom[adr] := Data;
 end;