Changeset 42 for branches/simple/Devices/Device.pas

Timestamp:

Sep 8, 2023, 11:20:27 PM (9 months ago)

Author:

chronos

Message:

• Modified: Improved simple virtual machine.

Location:

branches/simple/Devices

Files:

• . (added)
• Device.pas (moved) (moved from branches/simple/Device.pas ) (2 diffs)

branches/simple/Devices/Device.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, DeviceMapper;
+  Classes, SysUtils, Channel, Generics.Collections, Forms;
 
 type
+  TDeviceClass = (dcNone, dcKeyboard, dcMouse, dcStorage, dcScreen, dcConsole,
+    dcTimer);
+  TDeviceClassSet = set of TDeviceClass;
+
   { TDevice8 }
 
   TDevice8 = class
-    procedure RegisterMapper8(Mapper: TDeviceMapper8); virtual; abstract;
+    BaseAddress: Byte;
+    procedure SetDataBus(Channel: TAddressableChannel8); virtual;
+    function GetHandlerCount: Integer; virtual;
+    function GetHandler(Address: Integer): TChannel8; virtual;
   end;
 
@@ -16 +23 @@
 
   TDevice16 = class
-    procedure RegisterMapper8(Mapper: TDeviceMapper8); virtual; abstract;
-    procedure RegisterMapper16(Mapper: TDeviceMapper16); virtual; abstract;
+    BaseAddress: Word;
+    procedure SetDataBus(Channel: TAddressableChannel16); virtual;
+    function GetHandlerCount: Integer; virtual;
+    function GetHandler(Address: Integer): TChannel16; virtual;
   end;
+
+  { TDevice32 }
+
+  TDevice32 = class
+    BaseAddress: DWord;
+    procedure SetDataBus(Channel: TAddressableChannel32); virtual;
+    function GetHandlerCount: Integer; virtual;
+    function GetHandler(Address: Integer): TChannel32; virtual;
+  end;
+
+  { TDevice64 }
+
+  TDevice64 = class
+    BaseAddress: QWord;
+    procedure SetDataBus(Channel: TAddressableChannel64); virtual;
+    function GetHandlerCount: Integer; virtual;
+    function GetHandler(Address: Integer): TChannel64; virtual;
+  end;
+
+  TDevice = class;
+
+  { TFormDevice }
+
+  TFormDevice = class(TForm)
+  protected
+    function GetDevice: TDevice; virtual;
+    procedure SetDevice(AValue: TDevice); virtual;
+  public
+    property Device: TDevice read GetDevice write SetDevice;
+  end;
+
+  TFormDeviceClass = class of TFormDevice;
+
+  { TDevice }
+
+  TDevice = class
+    Name: string;
+    DeviceClass: TDeviceClass;
+    Form: TFormDevice;
+  end;
+
+  { TDevices }
+
+  TDevices = class(TObjectList<TDevice>)
+    function GetDevicesCountByClass(DeviceClass: TDeviceClass): Integer;
+    function GetDevicesByClass(DeviceClass: TDeviceClass): TDevices;
+    function GetClasses: TDeviceClassSet;
+  end;
+
+const
+  DeviceClassText: array[TDeviceClass] of string = ('None', 'Keyboard', 'Mouse', 'Storage', 'Screen', 'Console', 'Timer');
 
 
 implementation
 
+{ TFormDevice }
+
+function TFormDevice.GetDevice: TDevice;
+begin
+  Result := nil;
+end;
+
+procedure TFormDevice.SetDevice(AValue: TDevice);
+begin
+end;
+
+{ TDevices }
+
+function TDevices.GetDevicesCountByClass(DeviceClass: TDeviceClass): Integer;
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 0 to Count - 1 do
+    if Items[I].DeviceClass = DeviceClass then Inc(Result);
+end;
+
+function TDevices.GetDevicesByClass(DeviceClass: TDeviceClass): TDevices;
+var
+  I: Integer;
+begin
+  Result := TDevices.Create(False);
+  for I := 0 to Count - 1 do
+    if Items[I].DeviceClass = DeviceClass then Result.Add(Items[I])
+end;
+
+function TDevices.GetClasses: TDeviceClassSet;
+var
+  I: Integer;
+begin
+  Result := [];
+  for I := 0 to Count - 1 do
+    if not (Items[I].DeviceClass in Result) then
+      Result := Result + [Items[I].DeviceClass];
+end;
+
+{ TDevice32 }
+
+procedure TDevice32.SetDataBus(Channel: TAddressableChannel32);
+begin
+end;
+
+function TDevice32.GetHandlerCount: Integer;
+begin
+  Result := 0;
+end;
+
+function TDevice32.GetHandler(Address: Integer): TChannel32;
+begin
+end;
+
+{ TDevice64 }
+
+procedure TDevice64.SetDataBus(Channel: TAddressableChannel64);
+begin
+end;
+
+function TDevice64.GetHandlerCount: Integer;
+begin
+  Result := 0;
+end;
+
+function TDevice64.GetHandler(Address: Integer): TChannel64;
+begin
+end;
+
+{ TDevice8 }
+
+procedure TDevice8.SetDataBus(Channel: TAddressableChannel8);
+begin
+end;
+
+function TDevice8.GetHandlerCount: Integer;
+begin
+  Result := 0;
+end;
+
+function TDevice8.GetHandler(Address: Integer): TChannel8;
+begin
+end;
+
+{ TDevice16 }
+
+procedure TDevice16.SetDataBus(Channel: TAddressableChannel16);
+begin
+end;
+
+function TDevice16.GetHandlerCount: Integer;
+begin
+  Result := 0;
+end;
+
+function TDevice16.GetHandler(Address: Integer): TChannel16;
+begin
+end;
+
 end.