Changeset 59 for branches/ByteArray/Core.pas

Timestamp:

Nov 25, 2023, 11:47:52 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Assembler and disassembler to work correctly with supported instructions.

File:

• branches/ByteArray/Core.pas (modified) (6 diffs)

branches/ByteArray/Core.pas

@@ -78 +78 @@
 begin
   Machine := TMachine.Create;
-  InitMachine;
+  //InitMachine;
   LoadConfig;
 
@@ -118 +118 @@
   end;
   FormDisassembler.Disassembler.Memory := Machine.Memory;
+  FormDisassembler.Disassembler.DataWidth := Machine.Cpu.DataWidth;
+  FormDisassembler.Disassembler.AddressWidth := Machine.Cpu.AddressWidth;
   FormDisassembler.Show;
 end;
@@ -222 +224 @@
     // LD A, 'A'
     WriteInstruction(inLoadConst);
-    WriteRegister(riA);
+    WriteRegister(0);
     Write(DataWidth, Ord('A'));
 
     // LD B, 8
     WriteInstruction(inLoadConst);
-    WriteRegister(riB);
+    WriteRegister(1);
     Write(DataWidth, Machine.Serial.BaseAddress);
 
     // OUT (B), A
     WriteInstruction(inOutput);
-    WriteRegister(riB);
-    WriteRegister(riA);
+    WriteRegister(1);
+    WriteRegister(0);
 
     // LD B,
     WriteInstruction(inLoadConst);
-    WriteRegister(riB);
+    WriteRegister(1);
     Write(DataWidth, Machine.FrameBuffer.BaseAddress);
 
     WriteInstruction(inLoadConst);
-    WriteRegister(riC);
+    WriteRegister(2);
     Write(DataWidth, 10);
 
@@ -247 +249 @@
 
     WriteInstruction(inOutput);
-    WriteRegister(riB);
-    WriteRegister(riA);
+    WriteRegister(1);
+    WriteRegister(0);
 
     WriteInstruction(inInc);
-    WriteRegister(riA);
+    WriteRegister(0);
 
     WriteInstruction(inDec);
-    WriteRegister(riC);
+    WriteRegister(2);
 
     WriteInstruction(inJumpNotZero);
-    WriteRegister(riC);
+    WriteRegister(2);
     Write(AddressWidth, Loop);
 
@@ -278 +280 @@
       else ThemeManager1.Theme := ThemeManager1.Themes.FindByName('System');
     StartUpForm := ReadStringWithDefault('StartUpForm', 'Screen');
+    AutoStartMachine := ReadBoolWithDefault('AutoStartMachine', True);
   finally
     Free;
@@ -295 +298 @@
       else DeleteValue('Theme');
     WriteString('StartUpForm', StartUpForm);
+    WriteBool('AutoStartMachine', AutoStartMachine);
   finally
     Free;