Changeset 185 for branches/virtualcpu4/Forms/UFormMain.pas

Timestamp:

May 1, 2019, 9:48:46 PM (6 years ago)

Author:

chronos

Message:

• Added: Assembler labels reference address calculation.
• Fixed: Displaying address/data hex numbers in opcode and instruction.

File:

• branches/virtualcpu4/Forms/UFormMain.pas (modified) (3 diffs)

branches/virtualcpu4/Forms/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ButtonAssembler: TButton;
+    ButtonClearMemory: TButton;
     ButtonScreen: TButton;
     ButtonDisassembler: TButton;
@@ -23 +24 @@
     ButtonStop: TButton;
     procedure ButtonAssemblerClick(Sender: TObject);
+    procedure ButtonClearMemoryClick(Sender: TObject);
     procedure ButtonConsoleClick(Sender: TObject);
     procedure ButtonCpuStateClick(Sender: TObject);
@@ -111 +113 @@
 end;
 
+procedure TFormMain.ButtonClearMemoryClick(Sender: TObject);
+begin
+  Machine.ClearMemory;
+end;
+
 procedure TFormMain.ButtonStopClick(Sender: TObject);
 begin