Changeset 34 for branches/UltimatOS/UMachine.pas

Timestamp:

Jul 12, 2022, 11:51:47 PM (22 months ago)

Author:

chronos

Message:

• Modified: Execute instructions as array of instruction handlers.
• Modified: Optimized some methods call with inline directive.

File:

• branches/UltimatOS/UMachine.pas (modified) (3 diffs)

branches/UltimatOS/UMachine.pas

@@ -14 +14 @@
     Machine: TMachine;
     procedure Reset; virtual;
+    procedure OutputHandler(Port: TAddress; Data: TData); virtual; abstract;
+    function InputHandler(Port: TAddress): TData;  virtual; abstract;
   end;
 
@@ -87 +89 @@
   end;
 
+  { TStorage }
+
+  TStorage = class(TDevice)
+  public
+    F: TFileStream;
+    FileName: string;
+    constructor Create;
+    procedure OutputHandler(Port: TAddress; Data: TData); override;
+    function InputHandler(Port: TAddress): TData; override;
+  end;
+
   { TMachine }
 
@@ -110 +123 @@
 
 implementation
+
+{ TStorage }
+
+constructor TStorage.Create;
+begin
+
+end;
+
+procedure TStorage.OutputHandler(Port: TAddress; Data: TData);
+begin
+
+end;
+
+function TStorage.InputHandler(Port: TAddress): TData;
+begin
+
+end;
 
 { TMouse }