Changeset 32 for branches/UltimatOS/UMachine.pas

Timestamp:

Jul 10, 2022, 12:37:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Interrupt handling.

Location:

branches/UltimatOS

Files:

• . (modified) (1 prop)
• UMachine.pas (modified) (9 diffs)

branches/UltimatOS

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib

branches/UltimatOS/UMachine.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, UCpu, UMemory;
+  Classes, SysUtils, UCpu, UMemory, ExtCtrls;
 
 type
+  TMachine = class;
 
   { TDevice }
 
   TDevice = class
+    Machine: TMachine;
     procedure Reset; virtual;
   end;
+
+  { TMouse }
 
   TMouse = class(TDevice)
     Position: TPoint;
+    InterruptVector: Integer;
+    procedure Move(X, Y: Integer);
   end;
 
@@ -54 +60 @@
   TKeyboard = class(TDevice)
     Buffer: TFifo;
+    InterruptVector: Integer;
     function ReadKey: Integer;
     function KeyReady: Integer;
@@ -59 +66 @@
     destructor Destroy; override;
     procedure Reset; override;
+    procedure Press(KeyCode: Integer);
+  end;
+
+  { TCounter }
+
+  TCounter = class(TDevice)
+  private
+    Timer: TTimer;
+    function GetEnabled: Boolean;
+    function GetInterval: Integer;
+    procedure SetEnabled(AValue: Boolean);
+    procedure SetInterval(AValue: Integer);
+    procedure DoTimer(Sender: TObject);
+  public
+    InterruptVector: Integer;
+    constructor Create;
+    destructor Destroy; override;
+    property Enabled: Boolean read GetEnabled write SetEnabled;
+    property Interval: Integer read GetInterval write SetInterval;
   end;
 
@@ -67 +93 @@
     function CpuInput(Address: TAddress): TData;
     procedure CpuOutput(Address: TAddress; Value: TData);
+    function GetRunning: Boolean;
+    procedure SetRunning(AValue: Boolean);
   public
     Cpu: TCpu;
@@ -73 +101 @@
     Mouse: TMouse;
     Screen: TScreen;
+    Counter: TCounter;
     procedure Reset;
     constructor Create;
     destructor Destroy; override;
+    property Running: Boolean read GetRunning write SetRunning;
   end;
 
 
 implementation
+
+{ TMouse }
+
+procedure TMouse.Move(X, Y: Integer);
+begin
+  Position := Point(X, Y);
+  Machine.Cpu.Interrupt(InterruptVector);
+end;
+
+{ TCounter }
+
+function TCounter.GetEnabled: Boolean;
+begin
+  Result := Timer.Enabled;
+end;
+
+function TCounter.GetInterval: Integer;
+begin
+  Result := Timer.Interval;
+end;
+
+procedure TCounter.SetEnabled(AValue: Boolean);
+begin
+  Timer.Enabled := AValue;
+end;
+
+procedure TCounter.SetInterval(AValue: Integer);
+begin
+  Timer.Interval := AValue;
+end;
+
+procedure TCounter.DoTimer(Sender: TObject);
+begin
+  Machine.Cpu.Interrupt(InterruptVector);
+end;
+
+constructor TCounter.Create;
+begin
+  Timer := TTimer.Create(nil);
+  Timer.OnTimer := DoTimer;
+  Enabled := False;
+end;
+
+destructor TCounter.Destroy;
+begin
+  FreeAndNil(Timer);
+  inherited;
+end;
 
 { TDevice }
@@ -183 +261 @@
 begin
   Buffer.Clear;
+end;
+
+procedure TKeyboard.Press(KeyCode: Integer);
+begin
+  Buffer.Put(KeyCode);
+  Machine.Cpu.Interrupt(InterruptVector);
 end;
 
@@ -201 +285 @@
 begin
   if Address = 0 then Screen.SetPointer(Value)
-  else if Address = 1 then Screen.WriteData(Value);
+  else if Address = 1 then Screen.WriteData(Value)
+  else if Address = 2 then Counter.Interval := Value
+  else if Address = 3 then Counter.Enabled := Value = 1;
+end;
+
+function TMachine.GetRunning: Boolean;
+begin
+  Result := Cpu.Running;
+end;
+
+procedure TMachine.SetRunning(AValue: Boolean);
+begin
+  Cpu.Running := AValue;
 end;
 
@@ -213 +309 @@
 constructor TMachine.Create;
 begin
+  Counter := TCounter.Create;
+  Counter.Machine := Self;
+  Counter.InterruptVector := 2;
   Memory := TMemory.Create;
   Memory.Size := 200000;
   Keyboard := TKeyboard.Create;
+  Keyboard.Machine := Self;
+  Keyboard.InterruptVector := 4;
   Mouse := TMouse.Create;
+  Mouse.Machine := Self;
+  Mouse.InterruptVector := 3;
   Screen := TScreen.Create;
   Screen.Size := Point(640, 480);
@@ -232 +335 @@
   FreeAndNil(Screen);
   FreeAndNil(Memory);
+  FreeAndNil(Counter);
   inherited;
 end;

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib