Changeset 50 for branches/ByteArray/Forms/FormSourceEditor.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Forms/FormSourceEditor.pas (modified) (9 diffs)

branches/ByteArray/Forms/FormSourceEditor.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
-  ActnList, FormMessages, FormAssembler, Project, Common.FormEx;
+  ActnList, FormMessages, FormAssembler, Project, Common.FormEx, Assembler,
+  Machine, Memory;
 
 type
@@ -13 +14 @@
   TFormSourceEditor = class(TFormEx)
     AClose: TAction;
+    ACompile: TAction;
+    AStop: TAction;
+    APause: TAction;
+    AStepOver: TAction;
+    AStepOut: TAction;
+    AStepIn: TAction;
+    ARunToCursor: TAction;
+    ARun: TAction;
     ANew: TAction;
     ASaveAs: TAction;
@@ -22 +31 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
+    MenuItem13: TMenuItem;
+    MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
+    MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -29 +46 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     Separator1: TMenuItem;
     PanelBottom: TPanel;
@@ -34 +52 @@
     Splitter1: TSplitter;
     procedure ACloseExecute(Sender: TObject);
+    procedure ACompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure ANewExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure ARunExecute(Sender: TObject);
     procedure ASaveAsExecute(Sender: TObject);
     procedure ASaveExecute(Sender: TObject);
+    procedure AStopExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   public
+    Assembler: TAssembler;
     FormMessages: TFormMessages;
     FormAssembler: TFormAssembler;
     Project: TProject;
+    CompiledProgram: TMemory;
+    Machine: TMachine;
     procedure DockInit;
     procedure UpdateInterface;
@@ -62 +86 @@
 procedure TFormSourceEditor.FormCreate(Sender: TObject);
 begin
+  CompiledProgram := TMemory.Create;
+  Assembler := TAssembler.Create;
   FormMessages := TFormMessages.Create(nil);
   FormAssembler := TFormAssembler.Create(nil);
@@ -82 +108 @@
 end;
 
+procedure TFormSourceEditor.ACompileExecute(Sender: TObject);
+begin
+  AStop.Execute;
+  with Assembler do begin
+    Compile(FormAssembler.SynEdit1.Lines.Text);
+    //Memory.SaveToFile('compiled.bin');
+    CompiledProgram.Assign(Memory);
+    Machine.Memory.Position := 0;
+    Machine.Memory.WriteMemoryPos(CompiledProgram);
+  end;
+  if FormMessages.Visible then
+    FormMessages.Reload;
+end;
+
 procedure TFormSourceEditor.AOpenExecute(Sender: TObject);
 var
@@ -93 +133 @@
     OpenDialog.Free;
   end;
+end;
+
+procedure TFormSourceEditor.ARunExecute(Sender: TObject);
+begin
+  ACompile.Execute;
+  Machine.PowerOn;
 end;
 
@@ -113 +159 @@
 end;
 
+procedure TFormSourceEditor.AStopExecute(Sender: TObject);
+begin
+  Machine.PowerOff;
+end;
+
 procedure TFormSourceEditor.FormDestroy(Sender: TObject);
 begin
   FreeAndNil(FormAssembler);
   FreeAndNil(FormMessages);
+  FreeAndNil(Assembler);
+  FreeAndNil(CompiledProgram);
 end;