Changeset 197 for branches/virtcpu varint/Forms/UFormMain.pas

Timestamp:

Sep 22, 2019, 9:31:49 PM (5 years ago)

Author:

chronos

Message:

• Modified: All parts of virtual machine have own form in Forms subdirectory.
• Modified: Main form moved to Forms subdirectory.
• Modified: TCpu class moved to UCpu unit.
• Added: Assembler and dissasembler forms.

Location:

branches/virtcpu varint/Forms

Files:

• . (added)
• UFormMain.pas (moved) (moved from branches/virtcpu varint/UFormMain.pas ) (4 diffs)

branches/virtcpu varint/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, ExtCtrls, UMachine, UInstructionWriter;
+  StdCtrls, ExtCtrls, UMachine, UInstructionWriter, UCpu;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
-    Button1: TButton;
-    Button2: TButton;
-    LabelTicks: TLabel;
-    ListViewMemory: TListView;
-    ListViewRegisters: TListView;
-    Memo1: TMemo;
+    ButtonStart: TButton;
+    ButtonStop: TButton;
+    ButtonAssembler: TButton;
+    ButtonDisassembler: TButton;
+    ButtonCpuState: TButton;
+    ButtonScreen: TButton;
+    ButtonMemory: TButton;
+    ButtonConsole: TButton;
     Timer1: TTimer;
-    procedure Button1Click(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
+    procedure ButtonStartClick(Sender: TObject);
+    procedure ButtonStopClick(Sender: TObject);
+    procedure ButtonAssemblerClick(Sender: TObject);
+    procedure ButtonConsoleClick(Sender: TObject);
+    procedure ButtonCpuStateClick(Sender: TObject);
+    procedure ButtonDisassemblerClick(Sender: TObject);
+    procedure ButtonMemoryClick(Sender: TObject);
+    procedure ButtonScreenClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure FormShow(Sender: TObject);
-    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
-    procedure ListViewRegistersData(Sender: TObject; Item: TListItem);
-    procedure Memo1KeyPress(Sender: TObject; var Key: char);
-    procedure Timer1Timer(Sender: TObject);
   private
-    KeyInputBuffer: array of Char;
-    procedure ReloadMemoryDump;
-    procedure ReloadRegisterDump;
-    function CpuInput(Port: T): T;
-    procedure CpuOutput(Port, Value: T);
   public
     Machine: TMachine;
@@ -45 +43 @@
   FormMain: TFormMain;
 
-const
-  ItemsPerLine = 16;
-
 
 implementation
 
 {$R *.lfm}
+
+uses
+  UFormConsole, UFormMemory, UFormScreen, UFormCpuState, UFormAssembler,
+  UFormDisassembler;
 
 { TFormMain }
@@ -110 +109 @@
 end;
 
-procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
-begin
-end;
-
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   Machine := TMachine.Create(nil);
-  Machine.Cpu.OnInput := CpuInput;
-  Machine.Cpu.OnOutput := CpuOutput;
   InstructionWriter := TInstructionWriter.Create;
-  InstructionWriter.Cpu := Machine.Cpu;
 end;
 
-procedure TFormMain.Button1Click(Sender: TObject);
+procedure TFormMain.ButtonStartClick(Sender: TObject);
 begin
   Machine.Cpu.Start;
 end;
 
-procedure TFormMain.Button2Click(Sender: TObject);
+procedure TFormMain.ButtonStopClick(Sender: TObject);
 begin
   Machine.Cpu.Stop;
 end;
 
-procedure TFormMain.ListViewMemoryData(Sender: TObject; Item: TListItem);
-var
-  Line: string;
-  I: Integer;
+procedure TFormMain.ButtonAssemblerClick(Sender: TObject);
 begin
-  if Item.Index < Machine.MemorySize div ItemsPerLine then begin
-    Line := '';
-    for I := 0 to ItemsPerLine - 1 do
-      Line := Line + IntToHex(PByte(NativeUInt(Machine.Memory) + Item.Index * ItemsPerLine + I)^, 2) + ' ';
-    Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
-    Item.SubItems.Add(Line);
-  end;
+  if not Assigned(FormAssembler) then
+    FormAssembler := TFormAssembler.Create(Self);
+  FormAssembler.Assembler.InstructionWriter.Memory := Machine.Memory;
+  FormAssembler.Show;
 end;
 
-procedure TFormMain.ListViewRegistersData(Sender: TObject; Item: TListItem);
+procedure TFormMain.ButtonConsoleClick(Sender: TObject);
 begin
-  if Item.Index < Length(Machine.Cpu.Registers) + 1 then begin
-    if Item.Index = 0 then begin
-      Item.Caption := 'IP';
-      Item.SubItems.Add(IntToHex(Int64(Machine.Cpu.IP), 8));
-    end else
-    if Item.Index = 1 then begin
-      Item.Caption := 'SP';
-      Item.SubItems.Add(IntToHex(Int64(Machine.Cpu.SP), 8));
-    end else begin
-      Item.Caption := 'R' + IntToStr(Item.Index - 2);
-      Item.SubItems.Add(IntToHex(Int64(Machine.Cpu.Registers[Item.Index - 2]), 8));
-    end;
-  end;
+  if not Assigned(FormConsole) then
+    FormConsole := TFormConsole.Create(nil);
+  FormConsole.Machine := Machine;
+  FormConsole.Show;
 end;
 
-procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
+procedure TFormMain.ButtonCpuStateClick(Sender: TObject);
 begin
-  SetLength(KeyInputBuffer, Length(KeyInputBuffer) + 1);
-  KeyInputBuffer[High(KeyInputBuffer)] := Key;
+  if not Assigned(FormCpuState) then
+     FormCpuState := TFormCpuState.Create(Self);
+   FormCpuState.Machine := Machine;
+   FormCpuState.Show;
+   FormCpuState.Reload;
 end;
 
-procedure TFormMain.Timer1Timer(Sender: TObject);
+procedure TFormMain.ButtonDisassemblerClick(Sender: TObject);
 begin
-  ReloadMemoryDump;
-  ReloadRegisterDump;
-  LabelTicks.Caption := 'Ticks: ' + IntToStr(Machine.Cpu.Ticks);
+  if not Assigned(FormDisassembler) then
+    FormDisassembler := TFormDisassembler.Create(Self);
+  FormDisassembler.Disassembler.Cpu := Machine.Cpu;
+  FormDisassembler.Show;
+  FormDisassembler.Reload;
 end;
 
-procedure TFormMain.ReloadMemoryDump;
+procedure TFormMain.ButtonMemoryClick(Sender: TObject);
 begin
-  ListViewMemory.Items.Count := Machine.MemorySize div ItemsPerLine;
-  ListViewMemory.Refresh;
+  if not Assigned(FormMemory) then
+    FormMemory := TFormMemory.Create(Self);
+  FormMemory.Machine := Machine;
+  FormMemory.Show;
+  FormMemory.Reload;
 end;
 
-procedure TFormMain.ReloadRegisterDump;
+procedure TFormMain.ButtonScreenClick(Sender: TObject);
 begin
-  ListViewRegisters.Items.Count := Length(Machine.Cpu.Registers);
-  ListViewRegisters.Refresh;
-end;
-
-function TFormMain.CpuInput(Port: T): T;
-begin
-  Result := 0;
-  case Integer(Port) of
-    0: begin
-      while (Length(KeyInputBuffer) = 0) and not Machine.Cpu.Terminated do begin
-        Sleep(100);
-        Application.ProcessMessages;
-      end;
-      if Length(KeyInputBuffer) > 0 then begin
-        Result := Ord(KeyInputBuffer[0]);
-        if Length(KeyInputBuffer) > 1 then
-          Move(KeyInputBuffer[1], KeyInputBuffer[0], Length(KeyInputBuffer) - 1);
-        SetLength(KeyInputBuffer, Length(KeyInputBuffer) - 1);
-      end else Result := 0;
-    end;
-  end;
-end;
-
-procedure TFormMain.CpuOutput(Port, Value: T);
-begin
-  case Integer(Port) of
-    0: Memo1.Lines.Text := Memo1.Lines.Text + Char(Value);
-  end;
+  if not Assigned(FormScreen) then
+    FormScreen := TFormScreen.Create(Self);
+  FormScreen.Machine := Machine;
+  FormScreen.Show;
+  FormScreen.Reload;
 end;