Changeset 46 for branches/ByteArray/Devices/Memory.pas

Timestamp:

Oct 23, 2023, 11:34:54 PM (7 months ago)

Author:

chronos

Message:

• Added: Various useful forms, assembler and disassembler classes.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Devices/Memory.pas (modified) (3 diffs)

branches/ByteArray/Devices/Memory.pas

@@ -16 +16 @@
     procedure SetSize(AValue: Integer);
   public
+    Position: Integer;
     function Read(Address: TBigInt; Size: Byte): TBigInt;
+    function ReadPos(Size: Byte): TBigInt;
     procedure Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+    procedure WritePos(Size: Byte; Value: TBigInt);
+    procedure WriteStringPos(Value: string);
     function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
@@ -49 +53 @@
 end;
 
+function TMemory.ReadPos(Size: Byte): TBigInt;
+begin
+  Result := Read(Position, Size);
+end;
+
 procedure TMemory.Write(Address: TBigInt; Size: Byte; Value: TBigInt);
 begin
@@ -56 +65 @@
     4: PDWord(FData + Integer(Address))^ := Value;
     8: PQWord(FData + Integer(Address))^ := Value;
+  end;
+end;
+
+procedure TMemory.WritePos(Size: Byte; Value: TBigInt);
+begin
+  Write(Position, Size, Value);
+end;
+
+procedure TMemory.WriteStringPos(Value: string);
+var
+  I: Integer;
+begin
+  if Length(Value) > 0 then begin
+    if Position + Length(Value) > Size then Size := Position + Length(Value);
+    for I := 0 to Length(Value) - 1 do
+      Write(Position + I, 1, Ord(Value[I + 1]));
+    Inc(Position, Length(Value));
   end;
 end;