Changeset 4 for branches/bigint/FormMain.pas

Timestamp:

Aug 1, 2024, 10:47:04 PM (3 months ago)

Author:

chronos

Message:

• Added: Assembler to parse instructions from text string and produce binary code.

File:

• branches/bigint/FormMain.pas (modified) (2 diffs)

branches/bigint/FormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Machine, Int,
-  Cpu;
+  Cpu, Assembler;
 
 type
@@ -45 +45 @@
 procedure TFormMain.FormShow(Sender: TObject);
 var
-  Label1: TInt;
+  Assembler: TAssembler;
+  Lines: TStringList;
 begin
-  with Machine.Memory do begin
-    WritePos(TInt(inLoadConst));
-    WritePos(1000);
-    WritePos(Ord('A'));
+  Lines := TStringList.Create;
+  Lines.LoadFromFile('Example.asm');
 
-    WritePos(TInt(inLoadConst));
-    WritePos(1001);
-    WritePos(20);
+  Assembler := TAssembler.Create;
+  with Assembler do begin
+    Compile(Lines.Text);
+    Machine.Memory.CopyFrom(Memory, 0, 0, Memory.Size);
+    Free;
+  end;
 
-    Label1 := Position;
+  Lines.Free;
 
-    WritePos(TInt(inOutput));
-    WritePos(0);
-    WritePos(1000);
-
-    WritePos(TInt(inInc));
-    WritePos(1000);
-
-    WritePos(TInt(inDec));
-    WritePos(1001);
-
-    WritePos(TInt(inJumpNotZero));
-    WritePos(1001);
-    WritePos(Label1);
-
-    WritePos(TInt(inHalt));
-  end;
   Machine.Run;
 end;