Changeset 15

Timestamp:

Nov 6, 2025, 10:51:17 PM (25 hours ago)

Author:

chronos

Message:

• Added: Test loop.

Location:

branches/test2

Files:

• Cpu.pas (modified) (1 diff)
• FormMain.pas (modified) (2 diffs)

branches/test2/Cpu.pas

@@ -20 +20 @@
     opSetBit, opResetBit);
 
-  TData = Cardinal;
+  TData = Integer;
 
   TInstruction = record

branches/test2/FormMain.pas

@@ -44 +44 @@
 const
   Value0 = 0;
-  Value1 = 0;
+  Value1 = 1;
   Port0 = 0;
+  Port1 = 1;
+var
+  Label0: Integer;
 begin
   with Cpu do begin
@@ -55 +58 @@
     AddInstruction(opSet, Value1, 5);
     AddInstruction(opAdd, Value0, Value1);
+    AddInstruction(opOutput, Port1, Value0);
+
+    AddInstruction(opSet, Value0, 20);
+    AddInstruction(opSet, Value1, 10);
+    Label0 := Instructions.Count;
     AddInstruction(opOutput, Port0, Value0);
+    AddInstruction(opIncrement, Value0);
+    AddInstruction(opDecrement, Value1);
+    AddInstruction(opJumpRelativeNotZero, Label0 - Instructions.Count - 1, Value1);
+
     AddInstruction(opTerminate);
     SetLength(Memory, 10000);