Changeset 174 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 12, 2019, 12:06:05 AM (6 years ago)

Author:

chronos

Message:

• Added: Unit UMachine which will cover virtual hardware for virtual CPU.

File:

• branches/virtualcpu4/UFormMain.pas (modified) (9 diffs)

branches/virtualcpu4/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
-  ComCtrls, UCpu, UInstructionWriter, syncobjs;
+  ComCtrls, UCpu, UMachine, UInstructionWriter, syncobjs;
 
 type
@@ -32 +32 @@
     procedure Timer1Timer(Sender: TObject);
   private
-    InputBuffer: string;
-    OutputBuffer: string;
-    Lock: TCriticalSection;
-    function CpuInput(Port: TAddress): TRegister;
-    procedure CpuOutput(Port: TAddress; Value: TRegister);
     procedure ReloadMemoryDump;
     procedure ReloadRegisterDump;
     procedure LoadProgram;
   public
-    Cpu: TCpu;
+    Machine: TMachine;
     InstructionWriter: TInstructionWriter;
   end;
@@ -59 +54 @@
 procedure TFormMain.ButtonStartClick(Sender: TObject);
 begin
-  Cpu.Start;
+  Machine.Cpu.Start;
 end;
 
 procedure TFormMain.ButtonStopClick(Sender: TObject);
 begin
-  Cpu.Stop;
+  Machine.Cpu.Stop;
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
-  Lock := TCriticalSection.Create;
-  Cpu := TCpu.Create;
-  Cpu.OnInput := CpuInput;
-  Cpu.OnOutput := CpuOutput;
-  Cpu.DataSize := bw16;
-  Cpu.AddressSize := bw16;
+  Machine := TMachine.Create;
   InstructionWriter := TInstructionWriter.Create;
-  InstructionWriter.Cpu := Cpu;
+  InstructionWriter.Cpu := Machine.Cpu;
 end;
 
@@ -82 +72 @@
 begin
   InstructionWriter.Free;
-  Cpu.Free;
-  Lock.Free;
+  Machine.Free;
 end;
 
@@ -96 +85 @@
   I: Integer;
 begin
-  if Item.Index < Length(Cpu.Memory) div ItemsPerLine then begin
+  if Item.Index < Length(Machine.Memory) div ItemsPerLine then begin
     Line := '';
     for I := 0 to ItemsPerLine - 1 do
-      Line := Line + IntToHex(Cpu.Memory[Item.Index * ItemsPerLine + I], 2) + ' ';
+      Line := Line + IntToHex(Machine.Memory[Item.Index * ItemsPerLine + I], 2) + ' ';
     Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
     Item.SubItems.Add(Line);
@@ -107 +96 @@
 procedure TFormMain.ListViewRegistersData(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < Length(Cpu.Registers) + 2 then begin
+  if Item.Index < Length(Machine.Cpu.Registers) + 2 then begin
     if Item.Index = 0 then begin
       Item.Caption := 'IP';
-      Item.SubItems.Add(IntToHex(Cpu.IP, 16));
+      Item.SubItems.Add(IntToHex(Machine.Cpu.IP, 16));
     end else
     if Item.Index = 1 then begin
       Item.Caption := 'SP';
-      Item.SubItems.Add(IntToHex(Cpu.SP, 16));
+      Item.SubItems.Add(IntToHex(Machine.Cpu.SP, 16));
     end else begin
       Item.Caption := 'R' + IntToStr(Item.Index - 2);
-      Item.SubItems.Add(IntToHex(Cpu.Registers[Item.Index - 2].D, 16));
+      Item.SubItems.Add(IntToHex(Machine.Cpu.Registers[Item.Index - 2].D, 16));
     end;
   end;
@@ -124 +113 @@
 procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
 begin
-  Lock.Acquire;
-  InputBuffer := InputBuffer + Key;
-  Lock.Release;
+  Machine.LockInput.Acquire;
+  Machine.InputBuffer := Machine.InputBuffer + Key;
+  Machine.LockInput.Release;
 end;
 
 procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
-  Label1.Caption := 'Ticks: ' + IntToStr(Cpu.Ticks);
+  Label1.Caption := 'Ticks: ' + IntToStr(Machine.Cpu.Ticks);
   ReloadMemoryDump;
   ReloadRegisterDump;
-  Lock.Acquire;
-  Memo1.Lines.Text := Memo1.Lines.Text + OutputBuffer;
-  SetLength(OutputBuffer, 0);
-  Lock.Release;
+  Machine.LockOutput.Acquire;
+  Memo1.Lines.Text := Memo1.Lines.Text + Machine.OutputBuffer;
+  SetLength(Machine.OutputBuffer, 0);
+  Machine.LockOutput.Release;
 end;
 
 procedure TFormMain.ReloadMemoryDump;
 begin
-  ListViewMemory.Items.Count := Length(Cpu.Memory) div ItemsPerLine;
+  ListViewMemory.Items.Count := Length(Machine.Memory) div ItemsPerLine;
   ListViewMemory.Refresh;
 end;
@@ -148 +137 @@
 procedure TFormMain.ReloadRegisterDump;
 begin
-  ListViewRegisters.Items.Count := Length(Cpu.Registers);
+  ListViewRegisters.Items.Count := Length(Machine.Cpu.Registers);
   ListViewRegisters.Refresh;
 end;
@@ -190 +179 @@
 end;
 
-function TFormMain.CpuInput(Port: TAddress): TRegister;
-begin
-  Result.Q := 0;
-  case Port of
-    0: begin
-      Lock.Acquire;
-      while (Length(InputBuffer) = 0) and not Cpu.Terminated do begin
-        Lock.Release;
-        Sleep(100);
-        Lock.Acquire;
-      end;
-      if Length(InputBuffer) > 0 then begin
-        Result.B := Ord(InputBuffer[1]);
-        Delete(InputBuffer, 1, 1);
-      end else Result.B := 0;
-      Lock.Release;
-    end;
-  end;
-end;
-
-procedure TFormMain.CpuOutput(Port: TAddress; Value: TRegister);
-begin
-  case Port of
-    0: begin
-      Lock.Acquire;
-      OutputBuffer := OutputBuffer + Char(Value.B);
-      Lock.Release;
-    end;
-  end;
-end;
-
-
-
 end.