Changeset 179 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 12, 2019, 3:23:47 PM (5 years ago)

Author:

chronos

Message:

• Added: Subroutine execution.

File:

• branches/virtualcpu4/UFormMain.pas (modified) (5 diffs)

branches/virtualcpu4/UFormMain.pas

@@ -187 +187 @@
   R3: Byte;
   R4: Byte;
-  LabelStart: Integer;
   LabelText: Integer;
+  LabelText2: Integer;
   LabelPrint: Integer;
   LabelClearScreen: Integer;
+  LabelPrintLoop: Integer;
+  LabelConsole: Integer;
+  LabelMain: Integer;
 begin
   R1 := 1;
@@ -198 +201 @@
   with InstructionWriter do begin
     Init;
-    // Print Hello world text
-    LabelText := 200;
-    Loadi(R1, LabelText);
-    Loadi(R2, 12);
+    LabelMain := $100;
+    Jump(LabelMain);
+
+  LabelText := IP;
+    WriteString('Hello World!');
+
+  LabelText2 := IP;
+    WriteString('Good day!');
+
   LabelPrint := IP;
+    Push(R3);
+    Push(R2);
+    Push(R1);
+  LabelPrintLoop := IP;
     DataPrefix8; LoadMem(R3, R1);
     DataPrefix8; Output(0, R3);
@@ -208 +220 @@
     Decrement(R2);
     Test(R2);
-    JumpNotZero(LabelPrint);
+    AddrPrefix8; JumpNotZero(LabelPrintLoop);
+    Pop(R1);
+    Pop(R2);
+    Pop(R3);
+    Return;
+
+    IP := LabelMain;
+
+    // Print Hello world text
+    Loadi(R1, LabelText);
+    Loadi(R2, 12);
+    Call(LabelPrint);
+    Loadi(R1, LabelText2);
+    Loadi(R2, 9);
+    Call(LabelPrint);
 
     // Draw to video memory
@@ -231 +257 @@
     // Read keyboard and print to console
     Loadi(R1, 100);
-  LabelStart := IP;
+  LabelConsole := IP;
     Increment(R1);
     Loadi(R2, $100);
@@ -237 +263 @@
     DataPrefix8; Input(R2, 0);
     DataPrefix8; Output(0, R2);
-    Jump(LabelStart);
+    Jump(LabelConsole);
+
     Halt;
-  IP := LabelText;
-    WriteString('Hello World!');
   end;
 end;