Changeset 220 for branches/CpuSingleSize/UCore.pas

Timestamp:

Oct 20, 2020, 1:10:09 AM (4 years ago)

Author:

chronos

Message:

• Added: Devices form with tree view of connected devices. Device control form can be opened by double click.
• Modifid: IN/OUT instructions now use also device group index to directly specify which device should be read/written.

File:

• branches/CpuSingleSize/UCore.pas (modified) (5 diffs)

branches/CpuSingleSize/UCore.pas

@@ -16 +16 @@
     AHelp: TAction;
     ADisassembler: TAction;
-    AConsole: TAction;
     ACpu: TAction;
-    AScreen: TAction;
+    ADevices: TAction;
     ARunToCursor: TAction;
     AStop: TAction;
@@ -31 +30 @@
     ImageList1: TImageList;
     procedure ACompileExecute(Sender: TObject);
-    procedure AConsoleExecute(Sender: TObject);
     procedure ACpuExecute(Sender: TObject);
+    procedure ADevicesExecute(Sender: TObject);
     procedure ADisassemblerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
-    procedure AScreenExecute(Sender: TObject);
     procedure AStopExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -60 +58 @@
 uses
   UFormScreen, UFormCpu, UFormAssembler, UFormConsole, UFormHelp,
-  UFormDisassembler, UFormMessages;
+  UFormDisassembler, UFormMessages, UFormDevices;
 
 { TCore }
@@ -78 +76 @@
   ACompile.Execute;
   Machine.PowerOn;
-end;
-
-procedure TCore.AScreenExecute(Sender: TObject);
-begin
-  FormScreen.Screen := Machine.Screen;
-  FormScreen.Show;
 end;
 
@@ -120 +112 @@
 end;
 
-procedure TCore.AConsoleExecute(Sender: TObject);
-begin
-  FormConsole.Console := Machine.Console;
-  FormConsole.Show;
-end;
-
 procedure TCore.ACpuExecute(Sender: TObject);
 begin
   FormCpu.Cpu := Machine.Cpu;
   FormCpu.Show;
+end;
+
+procedure TCore.ADevicesExecute(Sender: TObject);
+begin
+  FormDevices.Devices := Machine.Devices;
+  FormDevices.Show;
 end;