Changeset 181 for branches/virtualcpu4/Forms/UFormMain.pas

Timestamp:

Apr 13, 2019, 12:03:31 AM (5 years ago)

Author:

chronos

Message:

• Added: Disassemble instruction.

File:

• branches/virtualcpu4/Forms/UFormMain.pas (modified) (2 diffs)

branches/virtualcpu4/Forms/UFormMain.pas

@@ -60 +60 @@
   if not Assigned(FormDisassembler) then
     FormDisassembler := TFormDisassembler.Create(Self);
-  FormDisassembler.Disassembler.Memory.Owner:= False;
-  FormDisassembler.Disassembler.Memory.Data := Machine.Memory;
+  FormDisassembler.Disassembler.Cpu := Machine.Cpu;
   FormDisassembler.Disassembler.Process;
   FormDisassembler.Show;
@@ -164 +163 @@
     Decrement(R2);
     Test(R2);
-    AddrPrefix8; JumpNotZero(LabelPrintLoop);
+    AddrPrefix8; JumpRelNotZero(LabelPrintLoop);
     Pop(R1);
     Pop(R2);