Changeset 12 for branches/bigint/Machine.pas

Timestamp:

Apr 24, 2025, 10:12:32 PM (2 weeks ago)

Author:

chronos

Message:

• Added: More CPU instructions.
• Added: Mouse device.

File:

• branches/bigint/Machine.pas (modified) (4 diffs)

branches/bigint/Machine.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Cpu, IntMemory, Console, DeviceManager;
+  Classes, SysUtils, Cpu, IntMemory, Console, DeviceManager, Mouse;
 
 type
@@ -11 +11 @@
 
   TMachine = class
+  public
     Cpu: TCpu;
     Memory: TIntMemory;
     Console: TConsole;
+    Mouse: TMouse;
     DeviceManager: TDeviceManager;
     constructor Create;
@@ -29 +31 @@
   Memory.Size := 10000;
   Console := TConsole.Create;
+  Mouse := TMouse.Create;
   DeviceManager := TDeviceManager.Create;
   DeviceManager.RegisterDevice(Console);
+  DeviceManager.RegisterDevice(Mouse);
   Cpu := TCpu.Create;
   Cpu.OnWriteMem := Memory.Write;
@@ -44 +48 @@
   FreeAndNil(DeviceManager);
   FreeAndNil(Console);
+  FreeAndNil(Mouse);
   inherited;
 end;