Changeset 5 for trunk/Core.pas

Timestamp:

Apr 18, 2026, 7:24:02 PM (9 days ago)

Author:

chronos

Message:

• Added: Some I/O ports handling.
• Added: Messages form for capturing error messages.
• Added: Go to address action.
• Added: Allow to view all used memory areas in Memory window.
• Added: Allow to reset CPU execution.
• Modified: Improved memory mapping for MZ-700 and MZ-800 modes.
• Fixed: Focusing currently executed instruction position.
• Fixed: Wrong order or 8-bit registers in 16-bit pair.

File:

• trunk/Core.pas (modified) (10 diffs)

trunk/Core.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, ActnList, Controls, FormMain, Forms, ExtCtrls, FormMemory,
-  SharpMz800, FormDisassembler, FormCpu, FormScreen;
+  SharpMz800, FormDisassembler, FormCpu, FormScreen, FormMessages;
 
 type
@@ -12 +12 @@
 
   TCore = class(TDataModule)
+    AViewMessages: TAction;
+    AGoToAddress: TAction;
+    AReset: TAction;
     AViewScreen: TAction;
     AViewCpu: TAction;
@@ -28 +31 @@
     TimerUpdate: TTimer;
     procedure AExitExecute(Sender: TObject);
+    procedure AGoToAddressExecute(Sender: TObject);
     procedure APauseExecute(Sender: TObject);
+    procedure AResetExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
     procedure AStepInExecute(Sender: TObject);
@@ -37 +42 @@
     procedure AViewDissssemblerExecute(Sender: TObject);
     procedure AViewMemoryExecute(Sender: TObject);
+    procedure AViewMessagesExecute(Sender: TObject);
     procedure AViewScreenExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -49 +55 @@
     FormCpu: TFormCpu;
     FormScreen: TFormScreen;
+    FormMessages: TFormMessages;
     SharpMz800: TSharpMz800;
     procedure UpdateDisassemblerPos;
@@ -63 +70 @@
 
 uses
-  CpuZ80;
+  CpuZ80, FormGoToAddress;
 
 { TCore }
@@ -69 +76 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  LastPc := $ffff;
   SharpMz800 := TSharpMz800.Create;
 //  SharpMz800.PowerOn;
@@ -80 +88 @@
 end;
 
+procedure TCore.AGoToAddressExecute(Sender: TObject);
+var
+  FormGoToAddress: TFormGoToAddress;
+  Address: LongInt;
+begin
+  FormGoToAddress := TFormGoToAddress.Create(nil);
+  try
+    if FormGoToAddress.ShowModal = mrOk then begin
+      if TryStrToInt(FormGoToAddress.EditAddress.Text, Address) then
+        FormDisassembler.SelectAddress(Address);
+    end;
+  finally
+    FormGoToAddress.Free;
+  end;
+end;
+
 procedure TCore.APauseExecute(Sender: TObject);
 begin
   SharpMz800.Cpu.Running := False;
+  UpdateInterface;
+end;
+
+procedure TCore.AResetExecute(Sender: TObject);
+var
+  IsRunning: Boolean;
+begin
+  IsRunning := SharpMz800.Cpu.Running;
+  SharpMz800.Cpu.Running := False;
+  SharpMz800.Cpu.Reset;
+  SharpMz800.Cpu.Running := IsRunning;
   UpdateInterface;
 end;
@@ -142 +177 @@
   if not Assigned(FormMemory) then begin
     FormMemory := TFormMemory.Create(nil);
-    FormMemory.Size := SharpMz800.MappedMemory.Size;
-    FormMemory.Memory := SharpMz800.MappedMemory;
+    FormMemory.Areas.Add(SharpMz800.Memory);
+    FormMemory.Areas.Add(SharpMz800.BaseRom);
+    FormMemory.Areas.Add(SharpMz800.ExtendedRom);
+    FormMemory.Areas.Add(SharpMz800.VideoRam);
+    FormMemory.Areas.Add(SharpMz800.CharacterRom);
+    FormMemory.Areas.Add(SharpMz800.MappedIO);
   end;
   FormMemory.Show;
+end;
+
+procedure TCore.AViewMessagesExecute(Sender: TObject);
+begin
+  if not Assigned(FormMessages) then begin
+    FormMessages := TFormMessages.Create(nil);
+    SharpMz800.OnMessage := FormMessages.AddMessage;
+  end;
+  FormMessages.Show;
 end;
 
@@ -162 +210 @@
   if Assigned(FormMemory) then FreeAndNil(FormMemory);
   if Assigned(FormScreen) then FreeAndNil(FormScreen);
+  if Assigned(FormMessages) then FreeAndNil(FormMessages);
   FreeAndNil(FormMain);
   FreeAndNil(SharpMz800);