Changeset 168 for branches/virtcpu fixed int/UFormMain.pas

Timestamp:

Oct 16, 2018, 11:03:59 AM (6 years ago)

Author:

chronos

Message:

• Added: Show CPU tick count.
• Added: Show IP register value.
• Modified: Condition instructions store result to R1 register rather then to condition boolean variable.
• Modified: Shorter InstructionWriter method names.

File:

• branches/virtcpu fixed int/UFormMain.pas (modified) (4 diffs)

branches/virtcpu fixed int/UFormMain.pas

@@ -16 +16 @@
     Button1: TButton;
     Button2: TButton;
+    LabelTicks: TLabel;
     ListViewMemory: TListView;
     ListViewRegisters: TListView;
@@ -57 +58 @@
 var
   LabelStart: Integer;
-begin
+  LabelPrint: Integer;
+  LabelPrintBack: Integer;
+  R0: Integer;
+  R1: Integer;
+  R2: Integer;
+  R3: Integer;
+  R4: Integer;
+begin
+  R0 := 0;
+  R1 := 1;
+  R2 := 2;
+  R3 := 3;
+  R4 := 4;
   with InstructionWriter do begin
-    {AddNop;
-    AddLdc(1, $ffff);
-    AddLd(0, 1);
-    AddLdc(2, $10);
-    AddStm(2, 0);
+    {NoOperation;
+    LoadConst(1, $ffff);
+    Load(0, 1);
+    LoadConst(2, $10);
+    StoreMemory(2, 0);
     }
-
-    AddLdc(2, 0);
-    AddLdc(0, 0);
-    LabelStart := IP;
-    AddIn(1, 0);
-    AddOut(0, 1);
-    AddInc(2);
-    AddJump(LabelStart);
-    AddHalt;
+    LabelPrint := $100;
+
+    LoadConst(R2, 0);
+    LoadConst(R0, 0);
+    LoadConst(R4, Ord('a'));
+  LabelStart := IP;
+    Input(R1, 0);
+    Output(0, R1);
+    Subtract(R1, R4);
+    JumpZero(R1, LabelPrint);
+  LabelPrintBack := IP;
+    Increment(R2);
+    Jump(LabelStart);
+    Halt;
+  IP := LabelPrint;
+    LoadConst(R3, Ord('!'));
+    Output(0, R3);
+    Jump(LabelPrintBack)
   end;
 end;
@@ -122 +144 @@
 procedure TForm1.ListViewRegistersData(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < Length(Cpu.Registers) then begin
-    Item.Caption := 'R' + IntToStr(Item.Index);
-    Item.SubItems.Add(IntToHex(Cpu.Registers[Item.Index], 8));
+  if Item.Index < Length(Cpu.Registers) + 1 then begin
+    if Item.Index = 0 then begin
+      Item.Caption := 'IP';
+      Item.SubItems.Add(IntToHex(Cpu.IP, 8));
+    end else begin
+      Item.Caption := 'R' + IntToStr(Item.Index - 1);
+      Item.SubItems.Add(IntToHex(Cpu.Registers[Item.Index - 1], 8));
+    end;
   end;
 end;
@@ -138 +165 @@
   ReloadMemoryDump;
   ReloadRegisterDump;
+  LabelTicks.Caption := 'Ticks: ' + IntToStr(Cpu.Ticks);
 end;