Changeset 219 for branches/CpuSingleSize/UDisassembler.pas

Timestamp:

Oct 14, 2020, 8:04:25 PM (4 years ago)

Author:

chronos

Message:

• Added: New LDI and STI instruction for indexed access to memory.

File:

• branches/CpuSingleSize/UDisassembler.pas (modified) (2 diffs)

branches/CpuSingleSize/UDisassembler.pas

@@ -52 +52 @@
             InstText := InstText + ', ' else
             InstText := InstText + ' ';
+          if InstructionInfo.Params[J] = ptNumber then begin
+            InstText := InstText + IntToHex(Value, 8);
+          end else
           if InstructionInfo.Params[J] = ptReg then begin
             InstText := InstText + 'R' + IntToStr(Value);
@@ -58 +61 @@
             InstText := InstText + '(R' + IntToStr(Value) + ')';
           end else
-          if InstructionInfo.Params[J] = ptNumber then begin
-            InstText := InstText + IntToHex(Value, 8);
+          if InstructionInfo.Params[J] = ptRegIndirectIndex then begin
+            InstText := InstText + '(R' + IntToStr(Value);
+            Value := Memory.Read;
+            InstBytes := InstBytes + IntToHex(Value, 2) + ' ';
+            InstText := InstText + ' + ' + IntToStr(Value) + ')';
           end;
         end;
-        InstBytes := InstBytes + DupeString(' ', 10 - Length(InstBytes));
+        InstBytes := InstBytes + DupeString(' ', 13 - Length(InstBytes));
       end;
     end;