Changeset 196 for branches/virtcpu varint/UFormMain.pas

Timestamp:

Sep 22, 2019, 7:13:15 PM (5 years ago)

Author:

chronos

Message:

• Modified: Address CPU memory as pointer instead array of bytes.
• Added: TMachine class to represent virtual machine itself.

Location:

branches/virtcpu varint

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (7 diffs)

branches/virtcpu varint/UFormMain.pas

@@ -11 +11 @@
 type
 
-  { TForm1 }
-
-  TForm1 = class(TForm)
+  { TFormMain }
+
+  TFormMain = class(TForm)
     Button1: TButton;
     Button2: TButton;
@@ -38 +38 @@
     procedure CpuOutput(Port, Value: T);
   public
-    Cpu: TCPU;
+    Machine: TMachine;
     InstructionWriter: TInstructionWriter;
   end;
 
 var
-  Form1: TForm1;
+  FormMain: TFormMain;
 
 const
@@ -53 +53 @@
 {$R *.lfm}
 
-{ TForm1 }
-
-procedure TForm1.FormShow(Sender: TObject);
+{ TFormMain }
+
+procedure TFormMain.FormShow(Sender: TObject);
 var
   LabelStart: Integer;
@@ -104 +104 @@
 end;
 
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
-  InstructionWriter.Free;
-  Cpu.Free;
-end;
-
-procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
-begin
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
-  Cpu := TCPU.Create(nil);
-  Cpu.OnInput := CpuInput;
-  Cpu.OnOutput := CpuOutput;
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(InstructionWriter);
+  FreeAndNil(Machine);
+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 := Cpu;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
-  Cpu.Start;
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
-  Cpu.Stop;
-end;
-
-procedure TForm1.ListViewMemoryData(Sender: TObject; Item: TListItem);
+  InstructionWriter.Cpu := Machine.Cpu;
+end;
+
+procedure TFormMain.Button1Click(Sender: TObject);
+begin
+  Machine.Cpu.Start;
+end;
+
+procedure TFormMain.Button2Click(Sender: TObject);
+begin
+  Machine.Cpu.Stop;
+end;
+
+procedure TFormMain.ListViewMemoryData(Sender: TObject; Item: TListItem);
 var
   Line: string;
   I: Integer;
 begin
-  if Item.Index < Length(Cpu.Memory) div ItemsPerLine then begin
+  if Item.Index < Machine.MemorySize 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(PByte(NativeUInt(Machine.Memory) + Item.Index * ItemsPerLine + I)^, 2) + ' ';
     Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
     Item.SubItems.Add(Line);
@@ -147 +147 @@
 end;
 
-procedure TForm1.ListViewRegistersData(Sender: TObject; Item: TListItem);
-begin
-  if Item.Index < Length(Cpu.Registers) + 1 then begin
+procedure TFormMain.ListViewRegistersData(Sender: TObject; Item: TListItem);
+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(Cpu.IP), 8));
+      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(Cpu.SP), 8));
+      Item.SubItems.Add(IntToHex(Int64(Machine.Cpu.SP), 8));
     end else begin
       Item.Caption := 'R' + IntToStr(Item.Index - 2);
-      Item.SubItems.Add(IntToHex(Int64(Cpu.Registers[Item.Index - 2]), 8));
+      Item.SubItems.Add(IntToHex(Int64(Machine.Cpu.Registers[Item.Index - 2]), 8));
     end;
   end;
 end;
 
-procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: char);
+procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
 begin
   SetLength(KeyInputBuffer, Length(KeyInputBuffer) + 1);
@@ -170 +170 @@
 end;
 
-procedure TForm1.Timer1Timer(Sender: TObject);
+procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
   ReloadMemoryDump;
   ReloadRegisterDump;
-  LabelTicks.Caption := 'Ticks: ' + IntToStr(Cpu.Ticks);
-end;
-
-procedure TForm1.ReloadMemoryDump;
-begin
-  ListViewMemory.Items.Count := Length(Cpu.Memory) div ItemsPerLine;
+  LabelTicks.Caption := 'Ticks: ' + IntToStr(Machine.Cpu.Ticks);
+end;
+
+procedure TFormMain.ReloadMemoryDump;
+begin
+  ListViewMemory.Items.Count := Machine.MemorySize div ItemsPerLine;
   ListViewMemory.Refresh;
 end;
 
-procedure TForm1.ReloadRegisterDump;
-begin
-  ListViewRegisters.Items.Count := Length(Cpu.Registers);
+procedure TFormMain.ReloadRegisterDump;
+begin
+  ListViewRegisters.Items.Count := Length(Machine.Cpu.Registers);
   ListViewRegisters.Refresh;
 end;
 
-function TForm1.CpuInput(Port: T): T;
+function TFormMain.CpuInput(Port: T): T;
 begin
   Result := 0;
   case Integer(Port) of
     0: begin
-      while (Length(KeyInputBuffer) = 0) and not Cpu.Terminated do begin
+      while (Length(KeyInputBuffer) = 0) and not Machine.Cpu.Terminated do begin
         Sleep(100);
         Application.ProcessMessages;
@@ -208 +208 @@
 end;
 
-procedure TForm1.CpuOutput(Port, Value: T);
+procedure TFormMain.CpuOutput(Port, Value: T);
 begin
   case Integer(Port) of