Changeset 9 for branches/ByteArray/Core.pas

Timestamp:

Aug 6, 2024, 10:31:16 PM (2 months ago)

Author:

chronos

Message:

• Modified: Optimized DeviceMapper read/write handlers calls without case statement.
• Modified: Use TInt as base data type which can be redefined to different higher integer type. For start it is Int64.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Core.pas (modified) (7 diffs)

branches/ByteArray/Core.pas

@@ -45 +45 @@
     procedure DataModuleDestroy(Sender: TObject);
   private
-    procedure InitMachine;
     procedure LoadConfig;
     procedure SaveConfig;
@@ -59 +58 @@
     StartUpForm: string;
     AutoStartMachine: Boolean;
+    ExecutableFileName: string;
     Machine: TMachine;
   end;
@@ -78 +78 @@
 begin
   Machine := TMachine.Create;
-  //InitMachine;
   LoadConfig;
 
@@ -94 +93 @@
     ADebugger.Execute;
   end;
+  if FileExists(ExecutableFileName) then
+    Machine.Memory.LoadFromFile(ExecutableFileName);
   if AutoStartMachine then
     Machine.PowerOn;
@@ -213 +214 @@
 
   FreeAndNil(Machine);
-end;
-
-procedure TCore.InitMachine;
-var
-  Loop: TBigInt;
-begin
-  with Machine.Cpu do begin
-    Reset;
-
-    // LD A, 'A'
-    WriteInstruction(inLoadConst);
-    WriteRegister(0);
-    Write(DataWidth, Ord('A'));
-
-    // LD B, 8
-    WriteInstruction(inLoadConst);
-    WriteRegister(1);
-    Write(DataWidth, Machine.Serial.BaseAddress);
-
-    // OUT (B), A
-    WriteInstruction(inOutput);
-    WriteRegister(1);
-    WriteRegister(0);
-
-    // LD B,
-    WriteInstruction(inLoadConst);
-    WriteRegister(1);
-    Write(DataWidth, Machine.FrameBuffer.BaseAddress);
-
-    WriteInstruction(inLoadConst);
-    WriteRegister(2);
-    Write(DataWidth, 10);
-
-    Loop := PC;
-
-    WriteInstruction(inOutput);
-    WriteRegister(1);
-    WriteRegister(0);
-
-    WriteInstruction(inInc);
-    WriteRegister(0);
-
-    WriteInstruction(inDec);
-    WriteRegister(2);
-
-    WriteInstruction(inJumpNotZero);
-    WriteRegister(2);
-    Write(AddressWidth, Loop);
-
-    WriteInstruction(inHalt);
-  end;
 end;
 
@@ -281 +231 @@
     StartUpForm := ReadStringWithDefault('StartUpForm', 'Screen');
     AutoStartMachine := ReadBoolWithDefault('AutoStartMachine', True);
+    ExecutableFileName := ReadStringWithDefault('ExecutableFileName', 'compiled.bin');
   finally
     Free;
@@ -299 +250 @@
     WriteString('StartUpForm', StartUpForm);
     WriteBool('AutoStartMachine', AutoStartMachine);
+    WriteString('ExecutableFileName', ExecutableFileName);
   finally
     Free;