Changeset 180 for branches/virtualcpu4/UInstructionWriter.pas

Timestamp:

Apr 12, 2019, 10:48:02 PM (6 years ago)

Author:

chronos

Message:

• Modified: Memory dump, CPU state, screen, console moved to separate forms.
• Added: Dissasembler form.

File:

• branches/virtualcpu4/UInstructionWriter.pas (modified) (3 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -1 +1 @@
 unit UInstructionWriter;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, UCpu;
+  Classes, SysUtils, UCpu, UMemory, fgl;
 
 type
@@ -72 +72 @@
   end;
 
+  TDisassemblerLine = class
+    Address: Integer;
+    Opcode: string;
+    Instruction: string;
+  end;
+
+  { TDisassembler }
+
   TDisassembler = class
-
+    Memory: TMemoryPos;
+    Output: TFPGObjectList<TDisassemblerLine>;
+    procedure Process;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -85 +97 @@
 implementation
 
+{ TDisassembler }
+
+procedure TDisassembler.Process;
+var
+  Opcode: Byte;
+  Line: TDisassemblerLine;
+begin
+  Output.Clear;
+  Memory.Position := Memory.Data;
+
+  while Memory.Position < Memory.Data + Memory.Size do begin
+    Opcode := Memory.ReadByte;
+    if Opcode < Integer(High(TOpcode)) then begin
+      Line := TDisassemblerLine.Create;
+      Line.Address := Memory.Position - Memory.Data;
+      Line.Opcode := IntToHex(Opcode, 2);
+      Line.Instruction := OpcodeName[TOpcode(Opcode)];
+      Output.Add(Line);
+    end;
+  end;
+end;
+
+constructor TDisassembler.Create;
+begin
+  Output := TFPGObjectList<TDisassemblerLine>.Create;
+  Memory := TMemoryPos.Create;
+end;
+
+destructor TDisassembler.Destroy;
+begin
+  Memory.Free;
+  Output.Free;
+  inherited Destroy;
+end;
+
 { TAssembler }