Changeset 5 for trunk/Core.lfm

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.lfm (modified) (2 diffs)

trunk/Core.lfm

@@ -19 +19 @@
       Category = 'View'
       Caption = 'Memory'
+      ShortCut = 113
       OnExecute = AViewMemoryExecute
-      ShortCut = 113
     end
     object AViewDissssembler: TAction
       Category = 'View'
       Caption = 'Disassembler'
+      ShortCut = 114
       OnExecute = AViewDissssemblerExecute
-      ShortCut = 114
     end
     object AStepIn: TAction
+      Category = 'Debug'
       Caption = 'Step in'
+      ShortCut = 118
       OnExecute = AStepInExecute
-      ShortCut = 118
     end
     object AStepOver: TAction
+      Category = 'Debug'
       Caption = 'Step over'
+      ShortCut = 119
       OnExecute = AStepOverExecute
-      ShortCut = 119
     end
     object ARunToCursor: TAction
+      Category = 'Debug'
       Caption = 'Run to cursor'
       ShortCut = 115
     end
     object APause: TAction
+      Category = 'Debug'
       Caption = 'Pause'
+      ShortCut = 16504
       OnExecute = APauseExecute
-      ShortCut = 16504
     end
     object ARun: TAction
+      Category = 'Debug'
       Caption = 'Run'
+      ShortCut = 120
       OnExecute = ARunExecute
-      ShortCut = 120
     end
     object AStepOut: TAction
+      Category = 'Debug'
       Caption = 'Step out'
+      ShortCut = 8311
       OnExecute = AStepOutExecute
-      ShortCut = 8311
     end
     object AStop: TAction
+      Category = 'Debug'
       Caption = 'Stop'
+      ShortCut = 8312
       OnExecute = AStopExecute
-      ShortCut = 8312
     end
     object AViewCpu: TAction
       Category = 'View'
       Caption = 'CPU'
+      ShortCut = 116
       OnExecute = AViewCpuExecute
-      ShortCut = 116
     end
     object AViewScreen: TAction
@@ -72 +79 @@
       Caption = 'Screen'
       OnExecute = AViewScreenExecute
+    end
+    object AReset: TAction
+      Category = 'Debug'
+      Caption = 'Reset'
+      OnExecute = AResetExecute
+    end
+    object AGoToAddress: TAction
+      Category = 'Edit'
+      Caption = 'Go to address'
+      ShortCut = 16455
+      OnExecute = AGoToAddressExecute
+    end
+    object AViewMessages: TAction
+      Category = 'View'
+      Caption = 'Messages'
+      OnExecute = AViewMessagesExecute
     end
   end