-
Notifications
You must be signed in to change notification settings - Fork 1
/
tzxblock2b.inc
57 lines (44 loc) · 1.16 KB
/
tzxblock2b.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
// Copyright 2022-2024 Zoran Vučenović
// SPDX-License-Identifier: Apache-2.0
{$ifdef tzx_header_section}
{ TTzxBlock2B }
TTzxBlock2B = class (TTzxBlockStandard)
strict private
SignalLevel: Byte;
strict protected
function Load2(const Stream: TStream; L: Integer): Boolean; override;
public
class function GetBlockId: DWord; override;
class function GetBlockDescription: String; override;
function GetNextPulse: Boolean; override;
procedure Details(out S: String); override;
end;
{$else}
function {TTzxPlayer.}TTzxBlock2B.Load2(const Stream: TStream; L: Integer
): Boolean;
begin
Result := (L = 1) and (Stream.Read(SignalLevel, 1) = 1);
if SignalLevel <> 0 then
SignalLevel := 64;
end;
class function {TTzxPlayer.}TTzxBlock2B.GetBlockId: DWord;
begin
Result := $2B;
end;
class function {TTzxPlayer.}TTzxBlock2B.GetBlockDescription: String;
begin
Result := 'Set signal level';
end;
function {TTzxPlayer.}TTzxBlock2B.GetNextPulse: Boolean;
begin
Result := False;
FTapePlayer.ActiveBit := SignalLevel;
end;
procedure {TTzxPlayer.}TTzxBlock2B.Details(out S: String);
begin
if SignalLevel = 0 then
S := 'low'
else
S := 'high';
end;
{$endif}