Initial check in

src.jtag/svf/jtag.svfAstEndDR.pas

@@ -0,0 +1,57 @@
+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.