Changeset 3 for branches/bigint/FormMain.pas

Timestamp:

Aug 1, 2024, 10:09:05 PM (3 months ago)

Author:

chronos

Message:

• Modified: Added more instructions.

Location:

branches/bigint

Files:

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

branches/bigint/FormMain.pas

@@ -44 +44 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
+var
+  Label1: TInt;
 begin
   with Machine.Memory do begin
     WritePos(TInt(inLoadConst));
-    WritePos(0);
+    WritePos(1000);
     WritePos(Ord('A'));
+
+    WritePos(TInt(inLoadConst));
+    WritePos(1001);
+    WritePos(20);
+
+    Label1 := Position;
+
     WritePos(TInt(inOutput));
     WritePos(0);
-    WritePos(0);
-    WritePos(TInt(inLoad));
-    WritePos(1);
-    WritePos(0);
+    WritePos(1000);
+
+    WritePos(TInt(inInc));
+    WritePos(1000);
+
+    WritePos(TInt(inDec));
+    WritePos(1001);
+
+    WritePos(TInt(inJumpNotZero));
+    WritePos(1001);
+    WritePos(Label1);
+
     WritePos(TInt(inHalt));
   end;