Changeset 30 for branches/UltimatOS/Forms/UFormMain.pas

Timestamp:

Jul 5, 2022, 8:28:18 PM (23 months ago)

Author:

chronos

Message:

• Modified: Improved sample code execution.
• Added: Memory map form.

Location:

branches/UltimatOS

Files:

• . (modified) (1 prop)
• Forms (added)
• Forms/UFormMain.pas (moved) (moved from branches/UltimatOS/UFormMain.pas ) (4 diffs)

branches/UltimatOS/Forms/UFormMain.pas

@@ -12 +12 @@
 
   TFormMain = class(TForm)
+    ButtonMemory: TButton;
     ButtonRun: TButton;
+    Label1: TLabel;
     MemoCode: TMemo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    procedure ButtonMemoryClick(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -37 +40 @@
 
 uses
-  UInstructionWriter;
+  UInstructionWriter, UFormMemory;
 
 { TFormMain }
@@ -49 +52 @@
 procedure TFormMain.ButtonRunClick(Sender: TObject);
 begin
+  Machine.Reset;
   with TInstructionWriter.Create do
   try
@@ -56 +60 @@
     Free;
   end;
-  Machine.Reset;
   Machine.Cpu.Run;
+  Label1.Caption := 'Executed instructions: ' + IntToStr(Machine.Cpu.ExecutedCount);
+end;
+
+procedure TFormMain.ButtonMemoryClick(Sender: TObject);
+begin
+  FormMemory.Memory := Machine.Memory;
+  FormMemory.Show;
 end;