Changeset 87

Timestamp:

Jul 16, 2015, 9:20:40 AM (9 years ago)

Author:

chronos

Message:

Another experimental virtual CPU implementation.

Location:

branches

Files:

• Machine/UMachine.pas (modified) (8 diffs)
• Machine/project1.lpi (modified) (1 diff)
• virtualcpu (added)
• virtualcpu/UFormMain.lfm (added)
• virtualcpu/UFormMain.pas (added)
• virtualcpu/UMachine.pas (added)
• virtualcpu/virtualcpu.ico (added)
• virtualcpu/virtualcpu.lpi (added)
• virtualcpu/virtualcpu.lpr (added)
• virtualcpu/virtualcpu.res (added)

branches/Machine/UMachine.pas

@@ -9 +9 @@
 
 type
+  //TAddrInt = Int8;
+  TAddrInt = Int16;
+  //TAddrInt = Int32;
+  //TAddrInt = Int64;
+  TDataInt = Int16;
+  //TDataInt = Int16;
+  //TDataInt = Int32;
+  //TDataInt = Int64;
+
   TOpcode = (opNop, opHalt, opCopy, opAdd, opSub, opMul, opDiv, opSet,
     opParamClearAll, opParamSelect, opParamSet, opParamIndirect, opParamNext,
-    opSkip, opSign);
+    opSkip, opSign, opParamSize);
 
   TAreaType = (atAddress, atMemory, atIOPort, atRegister, atSysRegister);
 
+  TSysAddr = (saInstructionPointer, saAddrWidth, saDataWidth, saRegisterCount);
+
   TParameter = record
-    Number: Integer;
+    Number: TAddrInt;
     Area: Integer;
+    Size: Integer;
     Defined: Boolean;
   end;
@@ -42 +54 @@
     procedure OpcodeParamIndirect;
     procedure OpcodeParamClearAll;
+    procedure OpcodeParamSize;
     procedure OpcodeSkip;
     procedure OpcodeSign;
     function ReadNext: Integer;
   public
-    Memory: array of Integer;
-    Registers: array of Integer;
-    IP: Integer;
+    Memory: array of Byte;
+    Registers: array of TAddrInt;
+    IP: TAddrInt;
     Params: array of TParameter;
     Terminated: Boolean;
-    function ReadPort(Address: Integer): Integer;
-    procedure WritePort(Address: Integer; Value: Integer);
-    function ReadArea(AreaIndex: Integer; Address: Integer): Integer;
-    procedure WriteArea(AreaIndex: Integer; Address: Integer; Value: Integer);
+    function ReadPort(Address: Integer): TDataInt;
+    procedure WritePort(Address: TAddrInt; Value: TDataInt);
+    function ReadArea(AreaIndex: Integer; Address: TAddrInt): TDataInt;
+    procedure WriteArea(AreaIndex: Integer; Address: TAddrInt; Value: TDataInt);
+    function ReadSys(Address: TAddrInt): TDataInt;
     procedure Run;
     constructor Create;
@@ -74 +88 @@
 procedure TMachine.OpcodeCopy;
 begin
-  WriteArea(Params[0].Area, Params[0].Number, ReadArea(Params[1].Area, Params[1].Number));
+//  for I := 0 to Params[0].Size - 1 do begin
+    WriteArea(Params[0].Area, Params[0].Number, ReadArea(Params[1].Area, Params[1].Number));
 end;
 
@@ -144 +159 @@
     Params[I].Area := Integer(atAddress);
     Params[I].Defined := False;
+    Params[I].Size := 1;
   end;
   CurrentParam := 0;
+end;
+
+procedure TMachine.OpcodeParamSize;
+begin
+  Params[CurrentParam].Size := ReadNext;
 end;
 
@@ -169 +190 @@
 end;
 
-function TMachine.ReadPort(Address: Integer): Integer;
+function TMachine.ReadPort(Address: Integer): TDataInt;
 begin
   Result := 0;
 end;
 
-procedure TMachine.WritePort(Address: Integer; Value: Integer);
-begin
-
-end;
-
-function TMachine.ReadArea(AreaIndex: Integer; Address: Integer): Integer;
+procedure TMachine.WritePort(Address: TAddrInt; Value: TDataInt);
+begin
+
+end;
+
+function TMachine.ReadArea(AreaIndex: Integer; Address: TAddrInt): TDataInt;
 begin
   if AreaIndex = Integer(atAddress) then Result := Address
@@ -185 +206 @@
   else if AreaIndex = Integer(atIOPort) then Result := ReadPort(Address)
   else if AreaIndex = Integer(atRegister) then Result := Registers[Address]
-  else if AreaIndex = Integer(atSysRegister) then begin
-    if Address = 0 then Result := IP
-    else Result := 0;
-  end else raise Exception.Create('Unsupported area number ' + IntToStr(AreaIndex));
-end;
-
-procedure TMachine.WriteArea(AreaIndex: Integer; Address: Integer;
-  Value: Integer);
+  else if AreaIndex = Integer(atSysRegister) then Result := ReadSys(Address)
+  else raise Exception.Create('Unsupported area number ' + IntToStr(AreaIndex));
+end;
+
+procedure TMachine.WriteArea(AreaIndex: Integer; Address: TAddrInt;
+  Value: TDataInt);
 begin
   if AreaIndex = Integer(atAddress) then
@@ -201 +220 @@
     if Address = 0 then IP := Value
   end else raise Exception.Create('Unsupported area number ' + IntToStr(AreaIndex));
+end;
+
+function TMachine.ReadSys(Address: TAddrInt): TDataInt;
+begin
+  if Address = Integer(saInstructionPointer) then Result := IP
+  else if Address = Integer(saAddrWidth) then Result := SizeOf(TAddrInt)
+  else if Address = Integer(saDataWidth) then Result := SizeOf(TDataInt)
+  else if Address = Integer(saRegisterCount) then Result := Length(Registers)
+  else Result := 0;
 end;
 
@@ -244 +272 @@
   OpcodeTable[opSign] := OpcodeSign;
   OpcodeTable[opParamNext] := OpcodeParamNext;
+  OpcodeTable[opParamSize] := OpcodeParamSize;
 end;
 

branches/Machine/project1.lpi

@@ -44 +44 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UFormMain"/>
       </Unit1>
       <Unit2>
         <Filename Value="UMachine.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UMachine"/>
       </Unit2>
       <Unit3>
         <Filename Value="UCompiler.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UCompiler"/>
       </Unit3>
     </Units>