58 lines
1.2 KiB
ObjectPascal
58 lines
1.2 KiB
ObjectPascal
unit jtag.svfAstEndDR;
|
|
|
|
interface
|
|
uses
|
|
jtag.svfAstNode,
|
|
jtag.svfLex;
|
|
|
|
type
|
|
TsvfAstEndDR = class( TsvfAstNode)
|
|
private
|
|
fState : byte;
|
|
|
|
public
|
|
function AsText: AnsiString; override;
|
|
public
|
|
constructor Create(State: byte);
|
|
|
|
public
|
|
property State: byte read fState;
|
|
|
|
end;
|
|
|
|
implementation
|
|
uses
|
|
System.SysUtils,
|
|
jtag.svfProgram;
|
|
|
|
{ TsvfAstEndDR }
|
|
|
|
// ================================================================================================
|
|
// Constructor
|
|
// ================================================================================================
|
|
constructor TsvfAstEndDR.Create(State: byte);
|
|
begin
|
|
inherited Create;
|
|
fState := State;
|
|
end;
|
|
|
|
// ================================================================================================
|
|
// As Text
|
|
// ================================================================================================
|
|
function TsvfAstEndDR.AsText: AnsiString;
|
|
var
|
|
s: AnsiString;
|
|
|
|
begin
|
|
case fState of
|
|
stRESET : s := 'RESET';
|
|
stIDLE : s := 'IDLE';
|
|
stDRPAUSE : s := 'DRPAUSE';
|
|
stIRPAUSE : s := 'IRPAUSE';
|
|
end;
|
|
|
|
result := 'ENDDR ' +s+ ';' +#13#10;
|
|
end;
|
|
|
|
end.
|