origen_jtag 0.17.0 → 0.17.1

data/lib/origen_jtag.rb

@@ -1,13 +1,13 @@
-require 'origen'
-require_relative '../config/application.rb'
-
-# Include this module to add a JTAG driver to your class
-module OrigenJTAG
-  autoload :TAPController, 'origen_jtag/tap_controller'
-  autoload :Driver,        'origen_jtag/driver'
-
-  # Returns an instance of the OrigenJTAG::Driver
-  def jtag
-    @jtag ||= Driver.new(self)
-  end
-end
+require 'origen'
+require_relative '../config/application.rb'
+
+# Include this module to add a JTAG driver to your class
+module OrigenJTAG
+  autoload :TAPController, 'origen_jtag/tap_controller'
+  autoload :Driver,        'origen_jtag/driver'
+
+  # Returns an instance of the OrigenJTAG::Driver
+  def jtag
+    @jtag ||= Driver.new(self)
+  end
+end

data/lib/origen_jtag_dev/top_level.rb

@@ -1,94 +1,94 @@
-module OrigenJTAGDev
-  # This is a dummy DUT model which is used
-  # to instantiate and test the JTAG locally
-  # during development.
-  #
-  # It is not included when this library is imported.
-  class DUT
-    include Origen::TopLevel
-    include OrigenJTAG
-
-    attr_reader :jtag_config
-
-    JTAG_CONFIG = {
-      verbose:         true,
-      tclk_format:     :rh,
-      tclk_multiple:   1,
-      tdo_strobe:      :tclk_high,
-      tdo_store_cycle: 0,
-      init_state:      :unknown
-    }
-
-    def initialize(options = {})
-      JTAG_CONFIG[:tclk_format] = options[:tclk_format] if options[:tclk_format]
-      JTAG_CONFIG[:tclk_multiple] = options[:tclk_multiple] if options[:tclk_multiple]
-      JTAG_CONFIG[:tdo_strobe] = options[:tdo_strobe] if options[:tdo_strobe]
-      JTAG_CONFIG[:tdo_store_cycle] = options[:tdo_store_cycle] if options[:tdo_store_cycle]
-      JTAG_CONFIG[:init_state] = options[:init_state] if options[:init_state]
-
-      instantiate_registers(options)
-      instantiate_pins(options)
-    end
-
-    def instantiate_registers(options = {})
-      reg :test16, 0x0012, size: 16 do |reg|
-        reg.bit 15..8, :bus
-        reg.bit 0, :bit
-      end
-
-      reg :test32, 0x0014, size: 32 do |reg|
-        reg.bit 31..16, :bus
-        reg.bit 0, :bit
-      end
-
-      reg :full16, 0x0012, size: 16 do |reg|
-        reg.bit 15..0, :data
-      end
-    end
-
-    def instantiate_pins(options = {})
-      add_pin :tclk
-      add_pin :tdi
-      add_pin :tdo
-      add_pin :tms
-    end
-
-    def startup(options = {})
-      tester.set_timeset('nvmbist', 40)
-    end
-
-    # Getter for top-level tclk_format setting
-    def tclk_format
-      JTAG_CONFIG[:tclk_format]
-    end
-
-    # Getter for top-level tclk_multiple setting
-    def tclk_multiple
-      JTAG_CONFIG[:tclk_multiple]
-    end
-
-    # Getter for top-level tdo_strobe setting
-    def tdo_strobe
-      JTAG_CONFIG[:tdo_strobe]
-    end
-
-    # Getter for top-level tdo_store_cycle setting
-    def tdo_store_cycle
-      JTAG_CONFIG[:tdo_store_cycle]
-    end
-
-    # Getter for top-level init_state setting
-    def init_state
-      JTAG_CONFIG[:init_state]
-    end
-
-    # Wouldn't want to do this in reality, but allows some flexibility duing gem testing
-    def update_jtag_config(cfg, val)
-      if JTAG_CONFIG.key?(cfg)
-        JTAG_CONFIG[cfg] = val
-      else
-        fail "#{cfg} not a part of JTAG_CONFIG"
-      end
-    end
-  end
-end
+module OrigenJTAGDev
+  # This is a dummy DUT model which is used
+  # to instantiate and test the JTAG locally
+  # during development.
+  #
+  # It is not included when this library is imported.
+  class DUT
+    include Origen::TopLevel
+    include OrigenJTAG
+
+    attr_reader :jtag_config
+
+    JTAG_CONFIG = {
+      verbose:         true,
+      tclk_format:     :rh,
+      tclk_multiple:   1,
+      tdo_strobe:      :tclk_high,
+      tdo_store_cycle: 0,
+      init_state:      :unknown
+    }
+
+    def initialize(options = {})
+      JTAG_CONFIG[:tclk_format] = options[:tclk_format] if options[:tclk_format]
+      JTAG_CONFIG[:tclk_multiple] = options[:tclk_multiple] if options[:tclk_multiple]
+      JTAG_CONFIG[:tdo_strobe] = options[:tdo_strobe] if options[:tdo_strobe]
+      JTAG_CONFIG[:tdo_store_cycle] = options[:tdo_store_cycle] if options[:tdo_store_cycle]
+      JTAG_CONFIG[:init_state] = options[:init_state] if options[:init_state]
+
+      instantiate_registers(options)
+      instantiate_pins(options)
+    end
+
+    def instantiate_registers(options = {})
+      reg :test16, 0x0012, size: 16 do |reg|
+        reg.bit 15..8, :bus
+        reg.bit 0, :bit
+      end
+
+      reg :test32, 0x0014, size: 32 do |reg|
+        reg.bit 31..16, :bus
+        reg.bit 0, :bit
+      end
+
+      reg :full16, 0x0012, size: 16 do |reg|
+        reg.bit 15..0, :data
+      end
+    end
+
+    def instantiate_pins(options = {})
+      add_pin :tclk
+      add_pin :tdi
+      add_pin :tdo
+      add_pin :tms
+    end
+
+    def startup(options = {})
+      tester.set_timeset('nvmbist', 40)
+    end
+
+    # Getter for top-level tclk_format setting
+    def tclk_format
+      JTAG_CONFIG[:tclk_format]
+    end
+
+    # Getter for top-level tclk_multiple setting
+    def tclk_multiple
+      JTAG_CONFIG[:tclk_multiple]
+    end
+
+    # Getter for top-level tdo_strobe setting
+    def tdo_strobe
+      JTAG_CONFIG[:tdo_strobe]
+    end
+
+    # Getter for top-level tdo_store_cycle setting
+    def tdo_store_cycle
+      JTAG_CONFIG[:tdo_store_cycle]
+    end
+
+    # Getter for top-level init_state setting
+    def init_state
+      JTAG_CONFIG[:init_state]
+    end
+
+    # Wouldn't want to do this in reality, but allows some flexibility duing gem testing
+    def update_jtag_config(cfg, val)
+      if JTAG_CONFIG.key?(cfg)
+        JTAG_CONFIG[cfg] = val
+      else
+        fail "#{cfg} not a part of JTAG_CONFIG"
+      end
+    end
+  end
+end

data/pattern/global_label_test.rb

@@ -0,0 +1,13 @@
+if tester.j750? || tester.uflex?
+  Pattern.create(options = { name: 'global_label_test' }) do
+
+    jtag = $dut.jtag
+    reg = $dut.reg(:full16)
+
+    cc 'TDO should be HLHL_LHLH_HLHL_LHLH'
+    reg.write(0xFFFF)
+    reg.overlay('globaltest')
+    jtag.write_dr reg, overlay: true, overlay_label: 'thisisthegloballabel'
+
+  end
+end

data/pattern/jtag_workout.rb

@@ -1,220 +1,220 @@
-pat_name = "jtag_workout_#{$dut.tclk_format.upcase}#{$dut.tclk_multiple}"
-pat_name = pat_name + "_#{dut.tdo_store_cycle}" if dut.tdo_store_cycle != 0
-
-Pattern.create(options = { name: pat_name }) do
-  def test(msg)
-    ss "Test - #{msg}"
-  end
-
-  jtag = $dut.jtag
-  reg = $dut.reg(:test16)
-
-  # First tests of the TAP Controller
-
-  test 'Transition TAP controller in and out of Shift-DR'
-  jtag.shift_dr {}
-
-  test 'Transition TAP controller in and out of Pause-DR'
-  jtag.pause_dr {}
-
-  test 'Transition TAP controller in and out of Shift-IR'
-  jtag.shift_ir {}
-
-  test 'Transition TAP controller in and out of Pause-IR'
-  jtag.pause_ir {}
-
-  test 'Transition into Shift-DR, then back and forth into Pause-DR'
-  jtag.shift_dr do
-    jtag.pause_dr {}
-    jtag.pause_dr {}
-  end
-
-  test 'Transition into Pause-DR, then back and forth into Shift-DR'
-  jtag.pause_dr do
-    jtag.shift_dr {}
-    jtag.shift_dr {}
-  end
-
-  test 'Transition into Shift-IR, then back and forth into Pause-IR'
-  jtag.shift_ir do
-    jtag.pause_ir {}
-    jtag.pause_ir {}
-  end
-
-  test 'Transition into Pause-IR, then back and forth into Shift-IR'
-  jtag.pause_ir do
-    jtag.shift_ir {}
-    jtag.shift_ir {}
-  end
-
-  # Tests of the shift method, make sure it handles registers with
-  # bit-level flags set in additional to dumb values
-
-  test 'Shifting an explicit value into TDI'
-  jtag.shift 0x1234, size: 16, cycle_last: true
-
-  test 'Shifting an explicit value out of TDO'
-  jtag.shift 0x1234, size: 16, cycle_last: true, read: true
-
-  test 'Shift register into TDI'
-  reg.write(0xFF01)
-  cc 'Full register (16 bits)'
-  jtag.shift reg, cycle_last: true
-  cc 'Full register with additional size (32 bits)'
-  jtag.shift reg, cycle_last: true, size: 32
-  cc 'Full register with reduced size (8 bits)'
-  jtag.shift reg, cycle_last: true, size: 8, includes_last_bit: false
-
-  test 'Shift register into TDI with overlay'
-  reg.overlay('write_overlay')
-  cc 'Full register (16 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true
-  cc 'Full register with additional size (32 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, size: 32
-  cc 'Full register with reduced size (8 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, size: 8, includes_last_bit: false
-  cc 'It should in-line overlays when running in simulation mode'
-  Origen.mode = :simulation
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true
-  Origen.mode = :debug
-  if tester.respond_to?('label')
-    cc 'Full register overlay without using subroutine'
-    jtag.shift reg, cycle_last: true, no_subr: true
-  end
-
-  test 'Shift register into TDI with single bit overlay'
-  reg.overlay(nil)
-  reg.bit(:bit).overlay('write_overlay2')
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true
-  reg.overlay(nil)
-
-  test 'Read register out of TDO'
-  cc 'Full register (16 bits)'
-  reg.read
-  jtag.shift reg, cycle_last: true, read: true
-  cc 'Full register with additional size (32 bits)'
-  reg.read
-  jtag.shift reg, cycle_last: true, size: 32, read: true
-  cc 'Full register with reduced size (8 bits)'
-  reg.read
-  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
-
-  test 'Read single bit out of TDO'
-  reg.bit(:bit).read
-  jtag.shift reg, cycle_last: true, read: true
-
-  test 'Store register out of TDO'
-  cc 'Full register (16 bits)'
-  reg.store
-  jtag.shift reg, cycle_last: true, read: true
-  cc 'Full register with additional size (32 bits)'
-  reg.store
-  jtag.shift reg, cycle_last: true, size: 32, read: true
-  cc 'Full register with reduced size (8 bits)'
-  reg.store
-  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
-
-  test 'Store single bit out of TDO'
-  reg.bit(:bit).store
-  jtag.shift reg, cycle_last: true, read: true
-
-  test 'Test flag clear, bit 0 should be read, but not stored'
-  reg.bit(:bit).read
-  jtag.shift reg, cycle_last: true, read: true
-
-  test 'Shift register out of TDO with overlay'
-  reg.overlay('read_overlay')
-  cc 'Full register (16 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, read: true
-  cc 'Full register with additional size (32 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, size: 32, read: true
-  cc 'Full register with reduced size (8 bits)'
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
-  cc 'It should in-line overlays when running in simulation mode'
-  Origen.mode = :simulation
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true, read: true
-  Origen.mode = :debug
-  if tester.respond_to?('label')
-    cc 'Full register overlay without using subroutine'
-    jtag.shift reg, cycle_last: true, read: true, no_subr: true
-  end
-
-  test 'Shift register out of TDO with single bit overlay'
-  reg.overlay(nil)
-  reg.bit(:bit).overlay('read_overlay2')
-  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
-  jtag.shift reg, cycle_last: true
-  reg.overlay(nil)
-
-  # Finally integration tests of the TAPController + shift
-
-  test 'Write value into DR'
-  jtag.write_dr 0xFFFF, size: 16, msg: 'Write value into DR'
-
-  test 'Write value into DR, with compare on TDO'
-  jtag.write_dr 0xFFFF, size: 16, shift_out_data: 0xAAAA, msg: 'Write value into DR'
-
-   test 'Write register into DR with full-width overlay'
-  r = $dut.reg(:test32)
-  r.overlay('write_overlay')
-  jtag.write_dr r
-  r.overlay(nil)
-
-  test 'Read value out of DR'
-  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
-
-  test 'Store value out of DR'
-  r.store
-  jtag.read_dr r
-
-
-  test 'Read value out of DR, with specified shift in data into TDI'
-  jtag.read_dr 0xFFFF, size: 16, shift_in_data: 0x5555, msg: 'Read value out of DR'
-
-   test 'Write value into IR'
-  jtag.write_ir 0xF, size: 4, msg: 'Write value into IR'
-
-  test 'Read value out of IR'
-  jtag.read_ir 0xF, size: 4, msg: 'Read value out of IR'
-
-  test 'The IR value is tracked and duplicate writes are inhibited'
-  jtag.write_ir 0xF, size: 4
-
-  test 'Unless forced'
-  jtag.write_ir 0xF, size: 4, force: true
- 
-  test 'Reset'
-  jtag.reset
-
-  test 'Suspend of compare on TDO works'
-  cc 'TDO should be H'
-  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
-  tester.ignore_fails($dut.pin(:tdo)) do
-    cc 'TDO should be X'
-    jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
-  end
-  cc 'TDO should be H'
-  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
-
-  test 'Mask option for read_dr works'
-  cc 'TDO should be H'
-  jtag.read_dr 0xFFFF, size: 16, mask: 0x5555, msg: 'Read value out of DR'
-
-  test 'Write value into DR, with compare on TDO'
-  jtag.write_dr 0x5555, size: 16, shift_out_data: 0xAAAA, mask: 0x00FF, msg: 'Write value into DR'
-
-  test 'Shifting an explicit value out of TDO with mask'
-  jtag.shift 0x1234, size: 16, read: true, mask: 0xFF00
-
-  test 'Shifting an explicit value into TDI (and out of TDO)'
-  jtag.shift 0x1234, size: 16, cycle_last: true, shift_out_data: 0xAAAA, mask: 0x0F0F
-end
+pat_name = "jtag_workout_#{$dut.tclk_format.upcase}#{$dut.tclk_multiple}"
+pat_name = pat_name + "_#{dut.tdo_store_cycle}" if dut.tdo_store_cycle != 0
+
+Pattern.create(options = { name: pat_name }) do
+  def test(msg)
+    ss "Test - #{msg}"
+  end
+
+  jtag = $dut.jtag
+  reg = $dut.reg(:test16)
+
+  # First tests of the TAP Controller
+
+  test 'Transition TAP controller in and out of Shift-DR'
+  jtag.shift_dr {}
+
+  test 'Transition TAP controller in and out of Pause-DR'
+  jtag.pause_dr {}
+
+  test 'Transition TAP controller in and out of Shift-IR'
+  jtag.shift_ir {}
+
+  test 'Transition TAP controller in and out of Pause-IR'
+  jtag.pause_ir {}
+
+  test 'Transition into Shift-DR, then back and forth into Pause-DR'
+  jtag.shift_dr do
+    jtag.pause_dr {}
+    jtag.pause_dr {}
+  end
+
+  test 'Transition into Pause-DR, then back and forth into Shift-DR'
+  jtag.pause_dr do
+    jtag.shift_dr {}
+    jtag.shift_dr {}
+  end
+
+  test 'Transition into Shift-IR, then back and forth into Pause-IR'
+  jtag.shift_ir do
+    jtag.pause_ir {}
+    jtag.pause_ir {}
+  end
+
+  test 'Transition into Pause-IR, then back and forth into Shift-IR'
+  jtag.pause_ir do
+    jtag.shift_ir {}
+    jtag.shift_ir {}
+  end
+
+  # Tests of the shift method, make sure it handles registers with
+  # bit-level flags set in additional to dumb values
+
+  test 'Shifting an explicit value into TDI'
+  jtag.shift 0x1234, size: 16, cycle_last: true
+
+  test 'Shifting an explicit value out of TDO'
+  jtag.shift 0x1234, size: 16, cycle_last: true, read: true
+
+  test 'Shift register into TDI'
+  reg.write(0xFF01)
+  cc 'Full register (16 bits)'
+  jtag.shift reg, cycle_last: true
+  cc 'Full register with additional size (32 bits)'
+  jtag.shift reg, cycle_last: true, size: 32
+  cc 'Full register with reduced size (8 bits)'
+  jtag.shift reg, cycle_last: true, size: 8, includes_last_bit: false
+
+  test 'Shift register into TDI with overlay'
+  reg.overlay('write_overlay')
+  cc 'Full register (16 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true
+  cc 'Full register with additional size (32 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, size: 32
+  cc 'Full register with reduced size (8 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, size: 8, includes_last_bit: false
+  cc 'It should in-line overlays when running in simulation mode'
+  Origen.mode = :simulation
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true
+  Origen.mode = :debug
+  if tester.respond_to?('label')
+    cc 'Full register overlay without using subroutine'
+    jtag.shift reg, cycle_last: true, no_subr: true
+  end
+
+  test 'Shift register into TDI with single bit overlay'
+  reg.overlay(nil)
+  reg.bit(:bit).overlay('write_overlay2')
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true
+  reg.overlay(nil)
+
+  test 'Read register out of TDO'
+  cc 'Full register (16 bits)'
+  reg.read
+  jtag.shift reg, cycle_last: true, read: true
+  cc 'Full register with additional size (32 bits)'
+  reg.read
+  jtag.shift reg, cycle_last: true, size: 32, read: true
+  cc 'Full register with reduced size (8 bits)'
+  reg.read
+  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
+
+  test 'Read single bit out of TDO'
+  reg.bit(:bit).read
+  jtag.shift reg, cycle_last: true, read: true
+
+  test 'Store register out of TDO'
+  cc 'Full register (16 bits)'
+  reg.store
+  jtag.shift reg, cycle_last: true, read: true
+  cc 'Full register with additional size (32 bits)'
+  reg.store
+  jtag.shift reg, cycle_last: true, size: 32, read: true
+  cc 'Full register with reduced size (8 bits)'
+  reg.store
+  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
+
+  test 'Store single bit out of TDO'
+  reg.bit(:bit).store
+  jtag.shift reg, cycle_last: true, read: true
+
+  test 'Test flag clear, bit 0 should be read, but not stored'
+  reg.bit(:bit).read
+  jtag.shift reg, cycle_last: true, read: true
+
+  test 'Shift register out of TDO with overlay'
+  reg.overlay('read_overlay')
+  cc 'Full register (16 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, read: true
+  cc 'Full register with additional size (32 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, size: 32, read: true
+  cc 'Full register with reduced size (8 bits)'
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, size: 8, read: true, includes_last_bit: false
+  cc 'It should in-line overlays when running in simulation mode'
+  Origen.mode = :simulation
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true, read: true
+  Origen.mode = :debug
+  if tester.respond_to?('label')
+    cc 'Full register overlay without using subroutine'
+    jtag.shift reg, cycle_last: true, read: true, no_subr: true
+  end
+
+  test 'Shift register out of TDO with single bit overlay'
+  reg.overlay(nil)
+  reg.bit(:bit).overlay('read_overlay2')
+  tester.cycle  # Give a padding cycle as a place for the subroutine call to go
+  jtag.shift reg, cycle_last: true
+  reg.overlay(nil)
+
+  # Finally integration tests of the TAPController + shift
+
+  test 'Write value into DR'
+  jtag.write_dr 0xFFFF, size: 16, msg: 'Write value into DR'
+
+  test 'Write value into DR, with compare on TDO'
+  jtag.write_dr 0xFFFF, size: 16, shift_out_data: 0xAAAA, msg: 'Write value into DR'
+
+   test 'Write register into DR with full-width overlay'
+  r = $dut.reg(:test32)
+  r.overlay('write_overlay')
+  jtag.write_dr r
+  r.overlay(nil)
+
+  test 'Read value out of DR'
+  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
+
+  test 'Store value out of DR'
+  r.store
+  jtag.read_dr r
+
+
+  test 'Read value out of DR, with specified shift in data into TDI'
+  jtag.read_dr 0xFFFF, size: 16, shift_in_data: 0x5555, msg: 'Read value out of DR'
+
+   test 'Write value into IR'
+  jtag.write_ir 0xF, size: 4, msg: 'Write value into IR'
+
+  test 'Read value out of IR'
+  jtag.read_ir 0xF, size: 4, msg: 'Read value out of IR'
+
+  test 'The IR value is tracked and duplicate writes are inhibited'
+  jtag.write_ir 0xF, size: 4
+
+  test 'Unless forced'
+  jtag.write_ir 0xF, size: 4, force: true
+ 
+  test 'Reset'
+  jtag.reset
+
+  test 'Suspend of compare on TDO works'
+  cc 'TDO should be H'
+  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
+  tester.ignore_fails($dut.pin(:tdo)) do
+    cc 'TDO should be X'
+    jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
+  end
+  cc 'TDO should be H'
+  jtag.read_dr 0xFFFF, size: 16, msg: 'Read value out of DR'
+
+  test 'Mask option for read_dr works'
+  cc 'TDO should be H'
+  jtag.read_dr 0xFFFF, size: 16, mask: 0x5555, msg: 'Read value out of DR'
+
+  test 'Write value into DR, with compare on TDO'
+  jtag.write_dr 0x5555, size: 16, shift_out_data: 0xAAAA, mask: 0x00FF, msg: 'Write value into DR'
+
+  test 'Shifting an explicit value out of TDO with mask'
+  jtag.shift 0x1234, size: 16, read: true, mask: 0xFF00
+
+  test 'Shifting an explicit value into TDI (and out of TDO)'
+  jtag.shift 0x1234, size: 16, cycle_last: true, shift_out_data: 0xAAAA, mask: 0x0F0F
+end