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

Timestamp:

Apr 25, 2019, 4:20:43 PM (6 years ago)

Author:

chronos

Message:

• Added: Basic assembler window.

File:

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

branches/virtualcpu4/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ButtonAssembler: TButton;
     ButtonScreen: TButton;
     ButtonDisassembler: TButton;
@@ -21 +22 @@
     ButtonStart: TButton;
     ButtonStop: TButton;
+    procedure ButtonAssemblerClick(Sender: TObject);
     procedure ButtonConsoleClick(Sender: TObject);
     procedure ButtonCpuStateClick(Sender: TObject);
@@ -47 +49 @@
 
 uses
-  UFormDisassembler, UFormMemory, UFormCpuState, UFormScreen, UFormConsole;
+  UFormDisassembler, UFormMemory, UFormCpuState, UFormScreen, UFormConsole,
+  UFormAssembler;
 
 { TFormMain }
@@ -61 +64 @@
     FormDisassembler := TFormDisassembler.Create(Self);
   FormDisassembler.Disassembler.Cpu := Machine.Cpu;
-  FormDisassembler.Disassembler.Process;
   FormDisassembler.Show;
   FormDisassembler.Reload;
@@ -99 +101 @@
   FormConsole.Machine := Machine;
   FormConsole.Show;
+end;
+
+procedure TFormMain.ButtonAssemblerClick(Sender: TObject);
+begin
+  if not Assigned(FormAssembler) then
+    FormAssembler := TFormAssembler.Create(Self);
+  FormAssembler.Assembler.InstructionWriter.Cpu := Machine.Cpu;
+  FormAssembler.Show;
 end;