source: branches/templates/Cpu.pas

unit Cpu;

interface

uses
  Classes, SysUtils, AddrChannel;

type
  {$MACRO ON}

  TOpcode = (opNop, opHalt, opInt, opSetC, opResC,
    opLoadImmediate, opLoadImmediate8, opLoadImmediate16, opLoadImmediate32, opLoadImmediate64,
    opLoad, opLoad8, opLoad16, opLoad32, opLoad64,
    opStore, opStore8, opStore16, opStore32, opStore64,
    opLoadBase, opLoadBase8, opLoadBase16, opLoadBase32, opLoadBase64,
    opStoreBase, opStoreBase8, opStoreBase16, opStoreBase32, opStoreBase64,
    opInput, opInput8, opInput16, opInput32, opInput64,
    opOutput, opOutput8, opOutput16, opOutput32, opOutput64,
    opInc, opInc8, opInc16, opInc32, opInc64,
    opDec, opDec8, opDec16, opDec32, opDec64,
    opAdd, opAdd8, opAdd16, opAdd32, opAdd64,
    opSub, opSub8, opSub16, opSub32, opSub64,
    opMul, opMul8, opMul16, opMul32, opMul64,
    opDiv, opDiv8, opDiv16, opDiv32, opDiv64,
    opMod, opMod8, opMod16, opMod32, opMod64,
    opShr, opShr8, opShr16, opShr32, opShr64,
    opShl, opShl8, opShl16, opShl32, opShl64,
    opRor,
    opRol,
    opJump,
    opJumpRel,
    opCall,
    opRet,
    opRetI,
    opPush, opPush8, opPush16, opPush32, opPush64,
    opPop, opPop8, opPop16, opPop32, opPop64,
    opXor,
    opOr,
    opAnd,
    opLoadSys,
    opStoreSys
    );

  {$DEFINE TGCpu := TCpu8}
  {$DEFINE TGCpuData := Byte}
  {$DEFINE TGCpuAddrChannel := TAddrChannel8}
  {$DEFINE TGCpuWidth := 8}
  {$DEFINE INTERFACE}
  {$I 'Cpu.inc'}

  {$DEFINE TGCpu := TCpu16}
  {$DEFINE TGCpuData := Word}
  {$DEFINE TGCpuAddrChannel := TAddrChannel16}
  {$DEFINE TGCpuWidth := 16}
  {$DEFINE INTERFACE}
  {$I 'Cpu.inc'}

  {$DEFINE TGCpu := TCpu32}
  {$DEFINE TGCpuData := DWord}
  {$DEFINE TGCpuAddrChannel := TAddrChannel32}
  {$DEFINE TGCpuWidth := 32}
  {$DEFINE INTERFACE}
  {$I 'Cpu.inc'}

  {$DEFINE TGCpu := TCpu64}
  {$DEFINE TGCpuData := QWord}
  {$DEFINE TGCpuAddrChannel := TAddrChannel64}
  {$DEFINE TGCpuWidth := 64}
  {$DEFINE INTERFACE}
  {$I 'Cpu.inc'}

  { TCpu }

  TCpu = class
  private
    FCpu16: TCpu16;
    FCpu32: TCpu32;
    FCpu64: TCpu64;
    FCpu8: TCpu8;
    FWidth: TBitWidth;
    procedure SetWidth(AValue: TBitWidth);
  public
    Memory: TAddrChannel;
    IO: TAddrChannel;
    property Width: TBitWidth read FWidth write SetWidth;
    property Cpu8: TCpu8 read FCpu8;
    property Cpu16: TCpu16 read FCpu16;
    property Cpu32: TCpu32 read FCpu32;
    property Cpu64: TCpu64 read FCpu64;
    procedure Run;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TCpu }

procedure TCpu.SetWidth(AValue: TBitWidth);
begin
  if FWidth = AValue then Exit;
  case FWidth of
    bw8: FreeAndNil(FCpu8);
    bw16: FreeAndNil(FCpu16);
    bw32: FreeAndNil(FCpu32);
    bw64: FreeAndNil(FCpu64);
  end;
  FWidth := AValue;
  FreeAndNil(Memory);
  case FWidth of
    bw8: begin
      FCpu8 := TCpu8.Create;
      Memory := TAddrChannel.Create(FCpu8.Memory);
      IO := TAddrChannel.Create(FCpu8.IO);
    end;
    bw16: begin
      FCpu16 := TCpu16.Create;
      Memory := TAddrChannel.Create(FCpu16.Memory);
      IO := TAddrChannel.Create(FCpu16.IO);
    end;
    bw32: begin
      FCpu32 := TCpu32.Create;
      Memory := TAddrChannel.Create(FCpu32.Memory);
      IO := TAddrChannel.Create(FCpu32.IO);
    end;
    bw64: begin
      FCpu64 := TCpu64.Create;
      Memory := TAddrChannel.Create(FCpu64.Memory);
      IO := TAddrChannel.Create(FCpu64.IO);
    end;
  end;
end;

procedure TCpu.Run;
begin
  case Width of
    bw8: FCpu8.Run;
    bw16: FCpu16.Run;
    bw32: FCpu32.Run;
    bw64: FCpu64.Run;
  end;
end;

constructor TCpu.Create;
begin
  FCpu8 := TCpu8.Create;
  Memory := TAddrChannel.Create(FCpu8.Memory);
  IO := TAddrChannel.Create(FCpu8.IO);
end;

destructor TCpu.Destroy;
begin
  FreeAndNil(IO);
  FreeAndNil(Memory);
  case Width of
    bw8: FreeAndNil(FCpu8);
    bw16: FreeAndNil(FCpu16);
    bw32: FreeAndNil(FCpu32);
    bw64: FreeAndNil(FCpu64);
  end;
  inherited;
end;

{$DEFINE TGCpuData := Byte}
{$DEFINE TGCpu := TCpu8}
{$DEFINE TGCpuAddrChannel := TAddrChannel8}
{$DEFINE TGCpuWidth := 8}
{$DEFINE IMPLEMENTATION}
{$I 'Cpu.inc'}

{$DEFINE TGCpu := TCpu16}
{$DEFINE TGCpuData := Word}
{$DEFINE TGCpuAddrChannel := TAddrChannel16}
{$DEFINE TGCpuWidth := 16}
{$DEFINE IMPLEMENTATION}
{$I 'Cpu.inc'}

{$DEFINE TGCpu := TCpu32}
{$DEFINE TGCpuData := DWord}
{$DEFINE TGCpuAddrChannel := TAddrChannel32}
{$DEFINE TGCpuWidth := 32}
{$DEFINE IMPLEMENTATION}
{$I 'Cpu.inc'}

{$DEFINE TGCpu := TCpu64}
{$DEFINE TGCpuData := QWord}
{$DEFINE TGCpuAddrChannel := TAddrChannel64}
{$DEFINE TGCpuWidth := 64}
{$DEFINE IMPLEMENTATION}
{$I 'Cpu.inc'}

end.