Changeset 50 for branches/ByteArray/Machine.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Machine.pas (modified) (3 diffs)

branches/ByteArray/Machine.pas

@@ -18 +18 @@
     Serial: TSerial;
     DeviceMapper: TDeviceMapper;
-    procedure Run;
+    procedure PowerOn;
+    procedure PowerOff;
     constructor Create;
     destructor Destroy; override;
@@ -28 +29 @@
 { TMachine }
 
-procedure TMachine.Run;
+procedure TMachine.PowerOn;
 begin
-  Cpu.Run;
+  Cpu.Start;
+end;
+
+procedure TMachine.PowerOff;
+begin
+  Cpu.Stop;
 end;
 
@@ -54 +60 @@
   FreeAndNil(DeviceMapper);
   FreeAndNil(FrameBuffer);
+  FreeAndNil(Storage);
   FreeAndNil(Memory);
   FreeAndNil(Serial);