Changeset 55 for branches/ByteArray/Disassembler.pas

Timestamp:

Nov 22, 2023, 10:09:35 PM (6 months ago)

Author:

chronos

Message:

• Modified: Extended BigInt type implementation.

File:

• branches/ByteArray/Disassembler.pas (modified) (3 diffs)

branches/ByteArray/Disassembler.pas

@@ -11 +11 @@
 
   TDisassembler = class
+  private
+    function RegToStr(RegIndex: Byte): string;
+  public
     InstructionSet: TInstructionSet;
     Memory: TMemory;
@@ -25 +28 @@
   BigInt;
 
-function IntToHex(Value: TBigInt; Digits: Integer): string; overload;
+function TDisassembler.RegToStr(RegIndex: Byte): string;
 begin
-  Result := IntToHex(UInt64(Value), Digits);
-end;
-
-function IntToStr(Value: TBigInt): string; overload;
-begin
-  Result := IntToStr(UInt64(Value));
+  Result := Chr(Ord('A') + RegIndex);
 end;
 
@@ -64 +62 @@
             InstText := InstText + ' ';
           if InstructionInfo.Params[J] = ptNumber then begin
-            InstText := InstText + IntToHex(Value, 8);
+            InstText := InstText + IntToHex(Value) + 'h';
           end else
           if InstructionInfo.Params[J] = ptReg then begin
-            InstText := InstText + 'R' + IntToStr(Value);
+            InstText := InstText + RegToStr(Value);
           end else
           if InstructionInfo.Params[J] = ptRegIndirect then begin
-            InstText := InstText + '(R' + IntToStr(Value) + ')';
+            InstText := InstText + '(' + RegToStr(Value) + ')';
           end else
           if InstructionInfo.Params[J] = ptRegIndirectIndex then begin
-            InstText := InstText + '(R' + IntToStr(Value);
+            InstText := InstText + '(' + RegToStr(Value);
             Value := Memory.ReadPos(1);
             InstBytes := InstBytes + IntToHex(Value, 2) + ' ';
             InstText := InstText + ' + ' + IntToStr(Value) + ')';
-          end else
-          if InstructionInfo.Params[J] = ptRegIndirectGroup then begin
-            InstText := InstText + '(R' + IntToStr(Value);
-            Value := Memory.ReadPos(1);
-            InstBytes := InstBytes + IntToHex(Value, 2) + ' ';
-            InstText := InstText + ': R' + IntToStr(Value) + ')';
           end;
         end;