Changeset 14 for branches/test2/FormMain.pas

Timestamp:

Nov 6, 2025, 10:35:31 PM (35 hours ago)

Author:

chronos

Message:

• Added: More instructions to test2 project.

Location:

branches/test2

Files:

• . (modified) (1 prop)
• FormMain.pas (modified) (1 diff)

branches/test2/FormMain.pas

@@ -42 +42 @@
 
 procedure TForm1.FormShow(Sender: TObject);
+const
+  Value0 = 0;
+  Value1 = 0;
+  Port0 = 0;
 begin
   with Cpu do begin
     OnOutput := OutputExecute;
-    AddInstruction(opSet, 0, 10);
-    AddInstruction(opOutput, 0, 0);
-    AddInstruction(opIncrement, 0, 0);
-    AddInstruction(opOutput, 0, 0);
-    AddInstruction(opSet, 1, 5);
-    AddInstruction(opAdd, 0, 1);
-    AddInstruction(opOutput, 0, 0);
-    AddInstruction(opTerminate, 0, 0);
+    AddInstruction(opSet, Value0, 10);
+    AddInstruction(opOutput, Port0, Value0);
+    AddInstruction(opIncrement, Value0);
+    AddInstruction(opOutput, Port0, Value0);
+    AddInstruction(opSet, Value1, 5);
+    AddInstruction(opAdd, Value0, Value1);
+    AddInstruction(opOutput, Port0, Value0);
+    AddInstruction(opTerminate);
     SetLength(Memory, 10000);
     Run;