Changeset 154 for branches/virtualcpu2/UFormMain.pas

Timestamp:

Apr 23, 2018, 2:13:10 PM (7 years ago)

Author:

chronos

Message:

• Added: More opcodes with handlers.

File:

• branches/virtualcpu2/UFormMain.pas (modified) (3 diffs)

branches/virtualcpu2/UFormMain.pas

@@ -95 +95 @@
   Counter = 3;
   Temp = 4;
+  Jump = 5;
 var
   Writer: TInstructionWriter;
@@ -103 +104 @@
     Machine := Self.Machine;
     AddGetDataSize(Temp);
-    AddCopyConst(Temp, 1);
+    AddCopyConst8(Temp, 1);
 
     AddCopyConst(Counter, 8);
@@ -116 +117 @@
     AddDec(Counter);
     AddTestNotZero(Counter);
-    AddJumpRelCond8(LoopAddr - Addr);
+    AddCopyConst8(Jump, LoopAddr - (Addr + 3));
+    AddJumpRelCond8(Jump);
     AddHalt;
   end;