Changeset 7 for trunk/Disassembler.pas

Timestamp:

Apr 19, 2026, 12:16:19 PM (8 days ago)

Author:

chronos

Message:

• Modified: Updated instruction info with all instructions.

File:

• trunk/Disassembler.pas (modified) (2 diffs)

trunk/Disassembler.pas

@@ -106 +106 @@
       Value := Memory.ReadByte;
       DecodedInstruction.AddOpcode(Value);
-      Value := $cb00 or Value;
+      Value := $100 or Value;
     end else
     if Value = $dd then begin
       Value := Memory.ReadByte;
       DecodedInstruction.AddOpcode(Value);
-      Value := $dd00 or Value;
+      Value := $200 or Value;
     end else
     if Value = $ed then begin
       Value := Memory.ReadByte;
       DecodedInstruction.AddOpcode(Value);
-      Value := $ed00 or Value;
+      Value := $300 or Value;
     end else
     if Value = $fd then begin
       Value := Memory.ReadByte;
       DecodedInstruction.AddOpcode(Value);
-      Value := $fd00 or Value;
+      Value := $400 or Value;
     end;
     if (Value >= 0) and (Value <= Integer(High(TInstruction))) then begin
@@ -154 +154 @@
           end else
           if InstructionInfo.Params[J] in [ptRegA, ptRegB, ptRegC, ptRegD,
-            ptRegE, ptRegH, ptRegL, ptRegBC, ptRegDE, ptRegHL, ptRegSP,
-            ptFlagZ, ptFlagNZ, ptFlagC, ptFlagNC,
-            ptRegBCIndir, ptRegDEIndir, ptRegHLIndir,
-            pt00, pt08, pt10, pt18, pt20, pt28, pt30, pt38, pt0, pt1, pt2] then begin
+            ptRegE, ptRegH, ptRegL, ptRegBC, ptRegDE, ptRegHL, ptRegSP, ptRegIX,
+            ptRegIY,
+            ptFlagZ, ptFlagNZ, ptFlagC, ptFlagNC, ptFlagP, ptFlagPO,
+            ptRegBCIndir, ptRegDEIndir, ptRegHLIndir, ptRegSPIndir,
+            pt00, pt08, pt10, pt18, pt20, pt28, pt30, pt38,
+            pt0, pt1, pt2, pt3, pt4, pt5, pt6, pt7] then begin
             DecodedInstruction.Parameters := DecodedInstruction.Parameters + ParamTypeText[InstructionInfo.Params[J]];
           end else