Changeset 30 for branches/UltimatOS/UCpu.pas

Timestamp:

Jul 5, 2022, 8:28:18 PM (23 months ago)

Author:

chronos

Message:

• Modified: Improved sample code execution.
• Added: Memory map form.

Location:

branches/UltimatOS

Files:

• . (modified) (1 prop)
• UCpu.pas (modified) (3 diffs)

branches/UltimatOS/UCpu.pas

@@ -31 +31 @@
     function Pop: Integer;
   public
+    ExecutedCount: Integer;
     Terminated: Boolean;
     Memory: TMemory;
@@ -93 +94 @@
 begin
   Instruction := TInstruction(ReadByte);
+  Inc(ExecutedCount);
   case Instruction of
     inNop: ;
@@ -211 +213 @@
   IP := 0;
   SP := 0;
+  ExecutedCount := 0;
 end;