Changeset 220 for branches/CpuSingleSize/UDisassembler.pas

Timestamp:

Oct 20, 2020, 1:10:09 AM (4 years ago)

Author:

chronos

Message:

• Added: Devices form with tree view of connected devices. Device control form can be opened by double click.
• Modifid: IN/OUT instructions now use also device group index to directly specify which device should be read/written.

File:

• branches/CpuSingleSize/UDisassembler.pas (modified) (1 diff)

branches/CpuSingleSize/UDisassembler.pas

@@ -66 +66 @@
             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.Read;
+            InstBytes := InstBytes + IntToHex(Value, 2) + ' ';
+            InstText := InstText + ': R' + IntToStr(Value) + ')';
           end;
         end;