Changeset 171 for branches/virtualcpu4/UCpu.pas

Timestamp:

Apr 10, 2019, 4:00:46 PM (6 years ago)

Author:

chronos

Message:

• Added: Keyboard console.
• Added: Show Hello World! message.

File:

• branches/virtualcpu4/UCpu.pas (modified) (10 diffs)

branches/virtualcpu4/UCpu.pas

@@ -13 +13 @@
     opCall, opRet, opAdd, opAddc, opSub, opSubc, opInc, opDec, opIn, opOut, opShl,
     opShr, opDataPrefix8, opDataPrefix16, opDataPrefix32, opDataPrefix64,
-    opDataSize, opAddrSize);
+    opDataSize, opAddrSize, opTest);
   TAddress = QWord;
   PAddress = ^TAddress;
@@ -53 +53 @@
     procedure InstJumpNotZero;
     procedure InstJumpRel;
+    procedure InstTest;
     procedure InstNeg;
     procedure InstClear;
@@ -77 +78 @@
     procedure InstDataSize;
     procedure InstAddrSize;
+    procedure InitInstructions;
   public
     Memory: array of Byte;
@@ -93 +95 @@
     function Read32: DWord; inline;
     function Read64: QWord; inline;
+    function ReadAddress: TAddress; inline;
     constructor Create;
     property Ticks: Integer read FTicks;
@@ -167 +170 @@
 end;
 
+procedure TCpu.InstTest;
+var
+  Reg: Byte;
+begin
+  Reg := Read8;
+  case DataSize of
+    bw8: Z := Registers[Reg].B = 0;
+    bw16: Z := Registers[Reg].W = 0;
+    bw32: Z := Registers[Reg].D = 0;
+    bw64: Z := Registers[Reg].Q = 0;
+  end;
+end;
+
 procedure TCpu.InstNeg;
 var
-  Reg: Integer;
+  Reg: Byte;
 begin
   Reg := Read8;
@@ -428 +444 @@
 procedure TCpu.InstIn;
 var
-  R: Integer;
-  Port: Integer;
+  R: Byte;
+  Port: TAddress;
 begin
   R := Read8;
-  Port := Read8;
+  Port := ReadAddress;
   case DataSize of
     bw8: begin
@@ -455 +471 @@
 procedure TCpu.InstOut;
 var
-  R: Integer;
+  R: Byte;
   Port: TAddress;
   Value: TRegister;
 begin
+  Port := ReadAddress;
   R := Read8;
-  Port := Read8;
   case DataSize of
     bw8: begin
@@ -541 +557 @@
 end;
 
-procedure TCpu.Run;
-begin
-  Terminated := False;
-  FTicks := 0;
-  DataSizeLast := bwNone;
-  IP := 0;
-  SP := Length(Memory);
-  while not Terminated do
-    Step;
-end;
-
-procedure TCpu.Step;
-var
-  Opcode: Byte;
-begin
-  if DataSizePrefix <> bwNone then begin
-    DataSizeLast := DataSize;
-    DataSize := DataSizePrefix;
-    DataSizePrefix := bwNone;
-  end;
-  Opcode := Read8;
-  if Opcode < Length(Instructions) then Instructions[TOpcode(Opcode)]
-    else raise Exception.Create('Unsupported opcode ' + IntToStr(Opcode) + ' at address ' + IntToHex(IP, 8) + '.');
-  if DataSizeLast <> bwNone then begin
-    DataSize := DataSizeLast;
-    DataSizeLast := bwNone;
-  end;
-  IP := IP mod Length(Memory);
-  Inc(FTicks);
-end;
-
-procedure TCpu.Start;
-begin
-  if not Running then begin
-    Terminated := False;
-    Thread := TCpuThread.Create(True);
-    Thread.Cpu := Self;
-    Thread.Start;
-    FRunning := True;
-  end;
-end;
-
-procedure TCpu.Stop;
-begin
-  if Running then begin
-    Terminated := True;
-    Thread.Terminate;
-    Thread.WaitFor;
-    FreeAndNil(Thread);
-    FRunning := False;
-  end;
-end;
-
-function TCpu.Read8: Byte;
-begin
-  Result := Memory[IP];
-  Inc(IP);
-end;
-
-function TCpu.Read16: Word;
-begin
-  Result := PWord(@Memory[IP])^;
-  Inc(IP, SizeOf(Word));
-end;
-
-function TCpu.Read32: DWord;
-begin
-  Result := PDWord(@Memory[IP])^;
-  Inc(IP, SizeOf(DWord));
-end;
-
-function TCpu.Read64: QWord;
-begin
-  Result := PQWord(@Memory[IP])^;
-  Inc(IP, SizeOf(QWord));
-end;
-
-constructor TCpu.Create;
-begin
-  DataSize := bw16;
-  AddressSize := bw16;
-  SetLength(Memory, 1000);
-  SetLength(Registers, 32);
+procedure TCpu.InitInstructions;
+begin
   Instructions[opNop] := InstNop;
   Instructions[opHalt] := InstHalt;
@@ -629 +564 @@
   Instructions[opLoadConst] := InstLoadConst;
   Instructions[opJump] := InstJump;
+  Instructions[opJumpNotZero] := InstJumpNotZero;
+  Instructions[opJumpZero] := InstJumpZero;
   Instructions[opJumpRel] := InstJumpRel;
   Instructions[opLoadMem] := InstLoadMem;
@@ -654 +591 @@
   Instructions[opDataPrefix32] := InstDataPrefix64;
   Instructions[opAddrSize] := InstAddrSize;
+  Instructions[opTest] := InstTest;
+end;
+
+procedure TCpu.Run;
+begin
+  Terminated := False;
+  FTicks := 0;
+  DataSizeLast := bwNone;
+  IP := 0;
+  SP := Length(Memory);
+  while not Terminated do
+    Step;
+end;
+
+procedure TCpu.Step;
+var
+  Opcode: Byte;
+begin
+  if DataSizePrefix <> bwNone then begin
+    DataSizeLast := DataSize;
+    DataSize := DataSizePrefix;
+    DataSizePrefix := bwNone;
+  end;
+  Opcode := Read8;
+  if Opcode < Length(Instructions) then begin
+    if Assigned(Instructions[TOpcode(Opcode)]) then Instructions[TOpcode(Opcode)]
+      else raise Exception.Create('Missing instruction handler for opcode '+ IntToStr(Opcode));
+  end else raise Exception.Create('Unsupported opcode ' + IntToStr(Opcode) + ' at address ' + IntToHex(IP, 8) + '.');
+  if DataSizeLast <> bwNone then begin
+    DataSize := DataSizeLast;
+    DataSizeLast := bwNone;
+  end;
+  IP := IP mod Length(Memory);
+  Inc(FTicks);
+end;
+
+procedure TCpu.Start;
+begin
+  if not Running then begin
+    Terminated := False;
+    Thread := TCpuThread.Create(True);
+    Thread.Cpu := Self;
+    Thread.Start;
+    FRunning := True;
+  end;
+end;
+
+procedure TCpu.Stop;
+begin
+  if Running then begin
+    Terminated := True;
+    Thread.Terminate;
+    Thread.WaitFor;
+    FreeAndNil(Thread);
+    FRunning := False;
+  end;
+end;
+
+function TCpu.Read8: Byte;
+begin
+  Result := Memory[IP];
+  Inc(IP);
+end;
+
+function TCpu.Read16: Word;
+begin
+  Result := PWord(@Memory[IP])^;
+  Inc(IP, SizeOf(Word));
+end;
+
+function TCpu.Read32: DWord;
+begin
+  Result := PDWord(@Memory[IP])^;
+  Inc(IP, SizeOf(DWord));
+end;
+
+function TCpu.Read64: QWord;
+begin
+  Result := PQWord(@Memory[IP])^;
+  Inc(IP, SizeOf(QWord));
+end;
+
+function TCpu.ReadAddress: TAddress;
+begin
+  case AddressSize of
+    bw8: Result := Read8;
+    bw16: Result := Read16;
+    bw32: Result := Read32;
+    bw64: Result := Read64;
+  end;
+end;
+
+constructor TCpu.Create;
+begin
+  DataSize := bw16;
+  AddressSize := bw16;
+  SetLength(Memory, 1000);
+  SetLength(Registers, 32);
+  InitInstructions;
 end;