Changeset 3 for branches/Z80/UZ80Compiler.pas

Timestamp:

Nov 6, 2009, 2:10:40 PM (15 years ago)

Author:

george

Message:

• Přidáno: Vývojová větev Void.

File:

• branches/Z80/UZ80Compiler.pas (modified) (6 diffs)

branches/Z80/UZ80Compiler.pas

@@ -17 +17 @@
     Mask: TDynamicNumber;
     property Size: Integer read GetSize write SetSize;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -43 +45 @@
     destructor Destroy; override;
   end;
+
+  { TZ80Compiler }
 
   TZ80Compiler = class
@@ -50 +54 @@
     MachineCode: TMemoryStream;
     procedure InitOpcodes;
+    function FindOpcodeByName(Name: string): TOpcode;
+    function ParseLine(var Text: string; Separator: string = ' '): string;
   public
     procedure Load(StringList: TStringList);
@@ -101 +107 @@
 end;
 
+function TZ80Compiler.FindOpcodeByName(Name: string): TOpcode;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Opcodes.Count) and (TOpcode(Opcodes[I]).Name <> Name) do Inc(I);
+  if I < Opcodes.Count then Result := Opcodes[I]
+    else Result := nil;
+end;
+
+function TZ80Compiler.ParseLine(var Text: string; Separator: string = ' '): string;
+begin
+  Text := Trim(Text);
+  Result := Copy(Text, 1, Pos(Separator, Text) - 1);
+  if Result <> '' then
+    Delete(Text, 1, Length(Result) + Length(Separator));
+end;
+
 procedure TZ80Compiler.Load(StringList: TStringList);
 var
   I: Integer;
-begin
+  Line: string;
+  InstructionName: string;
+  Instruction: TOpcode;
+  Parameter: string;
+  begin
   for I := 0 to StringList.Count - 1 do begin
-
+    Line := Trim(StringList[I]);
+    Line := StringReplace(Line, #9, ' ', [rfReplaceAll]);
+    if Length(Line) > 0 then begin
+      if Line[1] = ';' then Continue; // Skip commented lines
+      InstructionName := ParseLine(Line);
+      Instruction := FindOpcodeByName(InstructionName);
+      if Assigned(Instruction) then begin
+        WriteLn(InstructionName);
+        if Pos(',', Line) > 0 then Parameter := ParseLine(Line, ',')
+          else Parameter := Line;
+        WriteLn(Parameter);
+      end else WriteLn('Unknown instruction name "' + InstructionName + '"');
+    end;
   end;
 end;
@@ -145 +185 @@
 end;
 
+constructor TMaskedValue.Create;
+begin
+  Mask := TDynamicNumber.Create;
+  Value := TDynamicNumber.Create;
+end;
+
+destructor TMaskedValue.Destroy;
+begin
+  Mask.Destroy;
+  Value.Destroy;
+  inherited Destroy;
+end;
+
 { TOpcode }
 
@@ -150 +203 @@
 begin
   MaskedValue := TMaskedValue.Create;
+  Operands := TList.Create;
 end;