Changeset 197 for branches/virtcpu varint/UInstructionWriter.pas

Timestamp:

Sep 22, 2019, 9:31:49 PM (5 years ago)

Author:

chronos

Message:

• Modified: All parts of virtual machine have own form in Forms subdirectory.
• Modified: Main form moved to Forms subdirectory.
• Modified: TCpu class moved to UCpu unit.
• Added: Assembler and dissasembler forms.

File:

• branches/virtcpu varint/UInstructionWriter.pas (modified) (8 diffs)

branches/virtcpu varint/UInstructionWriter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UMachine;
+  Classes, SysUtils, UCpu;
 
 type
@@ -14 +14 @@
   private
   public
-    Cpu: TCpu;
+    Memory: Pointer;
     IP: T;
+    function GetRelativeAddr(BaseIP, TargetAddr: T): T;
     procedure Write(Value: T);
+    procedure WriteSigned(Value: T);
     procedure WriteOpcode(Value: TOpcode);
+    procedure WriteString(Text: string);
     procedure NoOperation;
     procedure Load(R1, R2: Integer);
@@ -30 +33 @@
     procedure Jump(Addr: Integer);
     procedure JumpCond(Addr: Integer);
-    {$IFDEF EXT_REL_JUMP}
     procedure JumpRelative(R1: Integer; Addr: Integer);
     procedure JumpRelativeCond(Addr: Integer);
-    {$ENDIF}
     procedure TestEqual(R1, R2: Integer);
     procedure Increment(R: Integer);
     procedure Decrement(R: Integer);
     constructor Create;
+    procedure Init;
   end;
 
@@ -44 +46 @@
 
 { TInstructionWriter }
+
+function TInstructionWriter.GetRelativeAddr(BaseIP, TargetAddr: T): T;
+begin
+  Result := TargetAddr - (BaseIP + 1 + T.GetByteSize);
+end;
+
+procedure TInstructionWriter.WriteString(Text: string);
+var
+  I: Integer;
+begin
+  for I := 1 to Length(Text) do
+    Write(Ord(Text[I]));
+end;
 
 procedure TInstructionWriter.NoOperation;
@@ -129 +144 @@
 end;
 
-{$IFDEF EXT_REL_JUMP}
 procedure TInstructionWriter.JumpRelative(R1: Integer; Addr: Integer);
 begin
@@ -139 +153 @@
 procedure TInstructionWriter.JumpRelativeCond(Addr: Integer);
 begin
-  Write(T(opJumpRelCond));
+  WriteOpcode(opJumpRelCond);
   Write(Addr - IP - 1);
 end;
-{$ENDIF}
 
 procedure TInstructionWriter.Increment(R: Integer);
@@ -158 +171 @@
 constructor TInstructionWriter.Create;
 begin
+  Memory := nil;
+  Init;
+end;
+
+procedure TInstructionWriter.Init;
+begin
   IP := 0;
-  Cpu := nil;
 end;
 
@@ -166 +184 @@
   C: Integer;
 begin
-  C := Value.WriteToAddr(Pointer(NativeInt(Cpu.Memory) + IP));
+  C := Value.WriteToAddr(Pointer(NativeUInt(Memory) + IP));
   Inc(IP, C);
 end;
 
+procedure TInstructionWriter.WriteSigned(Value: T);
+var
+  C: Integer;
+begin
+  C := Value.WriteToAddr(Pointer(NativeUInt(Memory) + IP));
+  Inc(IP, C);
+end;
+
 procedure TInstructionWriter.WriteOpcode(Value: TOpcode);
 begin