Changeset 223 for branches/CpuSingleSize/Forms/UFormCpu.pas

Timestamp:

Jul 12, 2022, 10:43:40 PM (23 months ago)

Author:

chronos

Message:

• Modified: More instructions.
• Modified: Optimized instruction execution with procedure array instead case.

File:

• branches/CpuSingleSize/Forms/UFormCpu.pas (modified) (4 diffs)

branches/CpuSingleSize/Forms/UFormCpu.pas

@@ -1 +1 @@
 unit UFormCpu;
-
-{$mode delphi}
 
 interface
@@ -49 +47 @@
   I: Integer;
 begin
-  if Item.Index * DataPerLine < Length(Cpu.Data) then begin
+  if Item.Index * DataPerLine < Length(Cpu.Memory) then begin
     Item.Caption := IntToHex(Item.Index * DataPerLine, 8);
     Line := '';
     for I := 0 to DataPerLine - 1 do
-      Line := Line + IntToHex(Cpu.Data[Item.Index * DataPerLine + I], 4) + ' ';
+      Line := Line + IntToHex(Cpu.Memory[Item.Index * DataPerLine + I], 4) + ' ';
     Item.SubItems.Add(Line);
   end;
@@ -63 +61 @@
     if Item.Index = 0 then begin
       Item.Caption := 'IP';
-      Item.SubItems.Add(IntToHex(Cpu.IP, 8));
+      Item.SubItems.Add(IntToHex(Cpu.InstructionPointer, 8));
     end else
     if Item.Index = 1 then begin
       Item.Caption := 'SP';
-      Item.SubItems.Add(IntToHex(Cpu.SP, 8));
+      Item.SubItems.Add(IntToHex(Cpu.StackPointer, 8));
     end else begin
       Item.Caption := 'R' + IntToStr(Item.Index - 2);
@@ -77 +75 @@
 procedure TFormCpu.Timer1Timer(Sender: TObject);
 begin
-  ListViewMemory.Items.Count := Length(Cpu.Data) div DataPerLine;
+  ListViewMemory.Items.Count := Length(Cpu.Memory) div DataPerLine;
   ListViewMemory.Refresh;
   ListViewRegs.Items.Count := Length(Cpu.R) + 2;