paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced method AppendDataBlock to avoid code duplication

Browse Source 
git-svn-id: branches/z80@44595 -
This commit is contained in:
nickysn 2020-04-05 15:55:34 +00:00
parent 0ace5d96a7
commit 55960df57e
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
utils/ihx2tzx/tzxwriter.pas
View File

@ -40,6 +40,7 @@ type
constructor Create(OutStream : TStream); constructor Create(OutStream : TStream);
procedure AppendStandardSpeedDataBlock(const Buffer; Count: Word); procedure AppendStandardSpeedDataBlock(const Buffer; Count: Word);
procedure AppendHeader(FileType: Byte; const FileName: string; DataBlockLength, Parameter1, Parameter2: Word); procedure AppendHeader(FileType: Byte; const FileName: string; DataBlockLength, Parameter1, Parameter2: Word);
procedure AppendDataBlock(const Buffer; Count: Word);
procedure AppendProgramFile(const FileName: string; AutostartLine, VarAreaOffset: Word; const Buffer; Count: Word); procedure AppendProgramFile(const FileName: string; AutostartLine, VarAreaOffset: Word; const Buffer; Count: Word);
procedure AppendCodeFile(const FileName: string; StartAddress: Word; const Buffer; Count: Word); procedure AppendCodeFile(const FileName: string; StartAddress: Word; const Buffer; Count: Word);
end; end;
@ -97,14 +98,12 @@ begin
AppendStandardSpeedDataBlock(HeaderBlock, SizeOf(HeaderBlock)); AppendStandardSpeedDataBlock(HeaderBlock, SizeOf(HeaderBlock));
end; end;
procedure TTZXWriter.AppendProgramFile(const FileName: string; AutostartLine, procedure TTZXWriter.AppendDataBlock(const Buffer; Count: Word);
VarAreaOffset: Word; const Buffer; Count: Word);
var var
I: Integer; I: Integer;
Checksum: Byte; Checksum: Byte;
DataBlock: array of Byte; DataBlock: array of Byte;
begin begin
AppendHeader(0, FileName, Count, AutostartLine, VarAreaOffset);
SetLength(DataBlock, Count + 2); SetLength(DataBlock, Count + 2);
Move(Buffer, DataBlock[1], Count); Move(Buffer, DataBlock[1], Count);
DataBlock[0] := $FF; { data } DataBlock[0] := $FF; { data }
@ -115,22 +114,18 @@ begin
AppendStandardSpeedDataBlock(DataBlock[0], Length(DataBlock)); AppendStandardSpeedDataBlock(DataBlock[0], Length(DataBlock));
end; end;
procedure TTZXWriter.AppendProgramFile(const FileName: string; AutostartLine,
VarAreaOffset: Word; const Buffer; Count: Word);
begin
AppendHeader(0, FileName, Count, AutostartLine, VarAreaOffset);
AppendDataBlock(Buffer, Count);
end;
procedure TTZXWriter.AppendCodeFile(const FileName: string; StartAddress: Word; procedure TTZXWriter.AppendCodeFile(const FileName: string; StartAddress: Word;
const Buffer; Count: Word); const Buffer; Count: Word);
var
I: Integer;
Checksum: Byte;
DataBlock: array of Byte;
begin begin
AppendHeader(3, FileName, Count, StartAddress, 32768); AppendHeader(3, FileName, Count, StartAddress, 32768);
SetLength(DataBlock, Count + 2); AppendDataBlock(Buffer, Count);
Move(Buffer, DataBlock[1], Count);
DataBlock[0] := $FF; { data }
Checksum := 0;
for I := 0 to High(DataBlock) - 1 do
Checksum := Checksum xor DataBlock[I];
DataBlock[High(DataBlock)] := Checksum;
AppendStandardSpeedDataBlock(DataBlock[0], Length(DataBlock));
end; end;
end. end.