Changeset 175 for branches/virtualcpu4/UMachine.pas

Timestamp:

Apr 12, 2019, 1:34:47 AM (6 years ago)

Author:

chronos

Message:

• Added: Drawing to video memory.

File:

• branches/virtualcpu4/UMachine.pas (modified) (6 diffs)

branches/virtualcpu4/UMachine.pas

@@ -11 +11 @@
   TScreen = class
     Size: TPoint;
+    MemoryBase: Integer;
   end;
 
@@ -19 +20 @@
     function CpuInput(Port: TAddress): TRegister;
     procedure CpuOutput(Port: TAddress; Value: TRegister);
+    function GetMemorySize: Integer;
+    procedure SetMemorySize(AValue: Integer);
   public
-    Memory: array of Byte;
+    Memory: Pointer;
     Cpu: TCpu;
     Screen: TScreen;
@@ -27 +30 @@
     LockInput: TCriticalSection;
     LockOutput: TCriticalSection;
+    property MemorySize: Integer read GetMemorySize write SetMemorySize;
     constructor Create;
     destructor Destroy; override;
@@ -42 +46 @@
   Cpu.OnInput := CpuInput;
   Cpu.OnOutput := CpuOutput;
-  Cpu.DataSize := bw16;
-  Cpu.AddressSize := bw16;
+  Cpu.DataSize := bw32;
+  Cpu.AddressSize := bw32;
   Screen := TScreen.Create;
   Screen.Size := Point(320, 240);
-  SetLength(Memory, 1000);
+  Screen.MemoryBase := $100;
+  MemorySize := $1000000;
   Cpu.Memory := Memory;
 end;
@@ -76 +81 @@
       LockInput.Release;
     end;
+    1: case Cpu.DataSize of
+      bw8: Result.B := Screen.Size.X;
+      bw16: Result.W := Screen.Size.X;
+      bw32: Result.D := Screen.Size.X;
+      bw64: Result.Q := Screen.Size.X;
+    end;
+    2: case Cpu.DataSize of
+      bw8: Result.B := Screen.Size.Y;
+      bw16: Result.W := Screen.Size.Y;
+      bw32: Result.D := Screen.Size.Y;
+      bw64: Result.Q := Screen.Size.Y;
+    end;
+    3: case Cpu.DataSize of
+      bw8: Result.B := Screen.MemoryBase;
+      bw16: Result.W := Screen.MemoryBase;
+      bw32: Result.D := Screen.MemoryBase;
+      bw64: Result.Q := Screen.MemoryBase;
+    end;
   end;
 end;
@@ -87 +110 @@
       LockOutput.Release;
     end;
+    1: case Cpu.DataSize of
+      bw8: Screen.Size.X := Value.B;
+      bw16: Screen.Size.X := Value.W;
+      bw32: Screen.Size.X := Value.D;
+      bw64: Screen.Size.X := Value.Q;
+    end;
+    2: case Cpu.DataSize of
+      bw8: Screen.Size.Y := Value.B;
+      bw16: Screen.Size.Y := Value.W;
+      bw32: Screen.Size.Y := Value.D;
+      bw64: Screen.Size.Y := Value.Q;
+    end;
+    3: case Cpu.DataSize of
+      bw8: Screen.MemoryBase := Value.B;
+      bw16: Screen.MemoryBase := Value.W;
+      bw32: Screen.MemoryBase := Value.D;
+      bw64: Screen.MemoryBase := Value.Q;
+    end;
   end;
+end;
+
+function TMachine.GetMemorySize: Integer;
+begin
+  Result := MemSize(Memory);
+end;
+
+procedure TMachine.SetMemorySize(AValue: Integer);
+begin
+  Memory := ReAllocMem(Memory, AValue);
 end;