Changeset 8 for trunk/SharpMz800.pas

Timestamp:

Apr 19, 2026, 9:00:16 PM (7 days ago)

Author:

chronos

Message:

• Modified: Implemented more instructions.
• Added: Hardware emulation of 8255 and 8253 chips.

File:

• trunk/SharpMz800.pas (modified) (7 diffs)

trunk/SharpMz800.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Z80, Memory, Base;
+  Classes, SysUtils, Z80, Memory, Base, I8255, I8253;
 
 type
@@ -38 +38 @@
     MappedMemory: TMemoryMapped;
     MappedIO: TMemoryIO;
+    I8255: T8255;
+    I8253: T8253;
     procedure PowerOn;
     procedure PowerOff;
@@ -65 +67 @@
 begin
   Result := 0;
+  case Address of
+    $e0..$e6: Result := MemoryBankControl[Address - $e0];
+    $d0..$d3: Result := I8255.Read(Address - $d0);
+    $d4..$d7: Result := I8253.Read(Address - $d4);
+    else MesssageExecute('Unsupported I/O port read from ' + IntToHex(Address, 4));
+  end;
 end;
 
@@ -79 +87 @@
     end;
     $e0..$e6: MemoryBankControl[Address - $e0] := Data;
-    else MesssageExecute('Unsupported I/O port ' + IntToHex(Address, 4) + ' data ' + IntToHex(Data, 2));
+    $d0..$d3: I8255.Write(Address - $d0, Data);
+    $d4..$d7: I8253.Write(Address - $d4, Data);
+    else MesssageExecute('Unsupported I/O port write to ' + IntToHex(Address, 4) + ' data ' + IntToHex(Data, 2));
   end;
 end;
@@ -97 +107 @@
       VideoRam.Size := $1000;
       MappedMemory.Areas.AddNew($e000, MappedIO);
-      MappedMemory.Areas.AddNew($e010, ExtendedRom);
+      MappedMemory.Areas.AddNew($e000, ExtendedRom);
     end;
     md800: begin
@@ -133 +143 @@
   Mode := md800;
   Resolution := rs320x200;
+  I8255 := T8255.Create;
+  I8253 := T8253.Create;
   Memory := TMemoryData.Create;
   Memory.Title := 'Main memory';
@@ -176 +188 @@
   FreeAndNil(Memory);
   FreeAndNil(MappedIO);
+  FreeAndNil(I8255);
+  FreeAndNil(I8253);
   inherited;
 end;