source: trunk/SharpMz800.pas

unit SharpMz800;

interface

uses
  Classes, SysUtils, CpuZ80, Memory;

type
  { TSharpMz800 }

  TSharpMz800 = class
  private
  public
    Cpu: TCpuZ80;
    Memory: TMemoryData;
    BaseRom: TMemoryData;
    ExtendedRom: TMemoryData;
    VideoRam: TMemoryData;
    CharacterRom: TMemoryData;
    MappedMemory: TMemoryMapped;
    procedure CpuWrite(Address: Word; Data: Byte);
    function CpuRead(Address: Word): Byte;
    procedure PowerOn;
    procedure PowerOff;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TSharpMz800 }

procedure TSharpMz800.CpuWrite(Address: Word; Data: Byte);
begin
  MappedMemory.Write(Address, Data);
end;

function TSharpMz800.CpuRead(Address: Word): Byte;
begin
  Result := MappedMemory.Read(Address);
end;

procedure TSharpMz800.PowerOn;
begin
  Cpu.Running := True;
end;

procedure TSharpMz800.PowerOff;
begin
  Cpu.Running := False;
end;

constructor TSharpMz800.Create;
const
  RomSubDir = 'ROM';
begin
  Memory := TMemoryData.Create;
  Memory.Size := 65536; // $10000
  BaseRom := TMemoryData.Create;
  BaseRom.LoadFromFile(RomSubDir + DirectorySeparator + 'MZ700A.ROM');
  ExtendedRom := TMemoryData.Create;
  ExtendedRom.LoadFromFile(RomSubDir + DirectorySeparator + '9Z_504M.ROM');
  CharacterRom := TMemoryData.Create;
  CharacterRom.LoadFromFile(RomSubDir + DirectorySeparator + 'CGROM.ROM');
  VideoRam := TMemoryData.Create;
  VideoRam.Size := 4096; // $1000
  MappedMemory := TMemoryMapped.Create;
  MappedMemory.Size := $10000;
  MappedMemory.Areas.AddNew($0, BaseRom);
  MappedMemory.Areas.AddNew($1000, CharacterRom);
  MappedMemory.Areas.AddNew($e000, ExtendedRom);
  MappedMemory.Areas.AddNew($0, Memory);
  Cpu := TCpuZ80.Create;
  Cpu.Memory := MappedMemory;
  Cpu.OnRead := CpuRead;
  Cpu.OnWrite := CpuWrite;
end;

destructor TSharpMz800.Destroy;
begin
  FreeAndNil(Cpu);
  FreeAndNil(MappedMemory);
  FreeAndNil(VideoRam);
  FreeAndNil(CharacterRom);
  FreeAndNil(BaseRom);
  FreeAndNil(ExtendedRom);
  FreeAndNil(Memory);
  inherited;
end;

end.