Changeset 10 for branches/ByteArray/Cpu.pas

Timestamp:

Aug 7, 2024, 12:12:42 AM (2 months ago)

Author:

chronos

Message:

• Modified: Improved serial console handling.

File:

• branches/ByteArray/Cpu.pas (modified) (3 diffs)

branches/ByteArray/Cpu.pas

@@ -157 +157 @@
 procedure TCpu.Push(Value: TInt; Size: TIntSize);
 begin
-  SP := SP - Size;
+  SP := (SP - Size + Memory.GetSize) mod Memory.GetSize;
   Memory.Write(SP, Size, Value);
 end;
@@ -164 +164 @@
 begin
   Result := Memory.Read(SP, Size);
-  SP := SP + Size;
+  SP := (SP + Size) mod Memory.GetSize;
 end;
 
@@ -740 +740 @@
   I: TRegIndex;
 begin
-  DataWidth := 1;
-  AddressWidth := 1;
+  DataWidth := 2;
+  AddressWidth := 2;
   for I := Low(TRegIndex) to High(TRegIndex) do
     Regs[I] := 0;