Changeset 30 for branches/UltimatOS/UMachine.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)
• UMachine.pas (modified) (2 diffs)

branches/UltimatOS/UMachine.pas

@@ -211 +211 @@
   Screen.Reset;
   Cpu.Reset;
+  FillChar(Memory.Data^, Memory.Size, 0);
 end;
 
@@ -216 +217 @@
 begin
   Memory := TMemory.Create;
-  Memory.Size := 65535;
+  Memory.Size := 200000;
   Keyboard := TKeyboard.Create;
   Mouse := TMouse.Create;