[openocd.git] / src / target / arm11_dbgtap.c

/***************************************************************************
 *   Copyright (C) 2008 digenius technology GmbH.                          *
 *                                                                         *
 *   Copyright (C) 2008 Oyvind Harboe oyvind.harboe@zylin.com              *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "arm11.h"
#include "jtag.h"
#include "log.h"

#include <stdlib.h>
#include <string.h>

#if 0
#define JTAG_DEBUG(expr ...)    DEBUG(expr)
#else
#define JTAG_DEBUG(expr ...)    do {} while(0)
#endif

tap_state_t arm11_move_pi_to_si_via_ci[] =
{
    TAP_IREXIT2, TAP_IRUPDATE, TAP_DRSELECT, TAP_IRSELECT, TAP_IRCAPTURE, TAP_IRSHIFT
};


int arm11_add_ir_scan_vc(int num_fields, scan_field_t *fields, tap_state_t state)
{
        if (cmd_queue_cur_state == TAP_IRPAUSE)
                jtag_add_pathmove(asizeof(arm11_move_pi_to_si_via_ci), arm11_move_pi_to_si_via_ci);

        jtag_add_ir_scan(num_fields, fields, state);
        return ERROR_OK;
}

tap_state_t arm11_move_pd_to_sd_via_cd[] =
{
        TAP_DREXIT2, TAP_DRUPDATE, TAP_DRSELECT, TAP_DRCAPTURE, TAP_DRSHIFT
};

int arm11_add_dr_scan_vc(int num_fields, scan_field_t *fields, tap_state_t state)
{
        if (cmd_queue_cur_state == TAP_DRPAUSE)
                jtag_add_pathmove(asizeof(arm11_move_pd_to_sd_via_cd), arm11_move_pd_to_sd_via_cd);

        jtag_add_dr_scan(num_fields, fields, state);
        return ERROR_OK;
}


/** Code de-clutter: Construct scan_field_t to write out a value
 *
 * \param arm11                 Target state variable.
 * \param num_bits              Length of the data field
 * \param out_data              pointer to the data that will be sent out
 *                                              <em>(data is read when it is added to the JTAG queue)</em>
 * \param in_data               pointer to the memory that will receive data that was clocked in
 *                                              <em>(data is written when the JTAG queue is executed)</em>
 * \param field                 target data structure that will be initialized
 */
void arm11_setup_field(arm11_common_t * arm11, int num_bits, void * out_data, void * in_data, scan_field_t * field)
{
        field->tap                      = arm11->jtag_info.tap;
        field->num_bits                 = num_bits;
        field->out_mask                 = NULL;
        field->in_check_mask    = NULL;
        field->in_check_value   = NULL;
        field->in_handler               = NULL;
        field->in_handler_priv  = NULL;

        field->out_value                = out_data;
        field->in_value                 = in_data;
}


/** Write JTAG instruction register
 *
 * \param arm11         Target state variable.
 * \param instr         An ARM11 DBGTAP instruction. Use enum #arm11_instructions.
 * \param state         Pass the final TAP state or ARM11_TAP_DEFAULT for the default value (Pause-IR).
 *
 * \remarks                     This adds to the JTAG command queue but does \em not execute it.
 */
void arm11_add_IR(arm11_common_t * arm11, u8 instr, tap_state_t state)
{
        jtag_tap_t *tap;
        tap = arm11->jtag_info.tap;

        if (buf_get_u32(tap->cur_instr, 0, 5) == instr)
        {
                JTAG_DEBUG("IR <= 0x%02x SKIPPED", instr);
                return;
        }

        JTAG_DEBUG("IR <= 0x%02x", instr);

        scan_field_t field;

        arm11_setup_field(arm11, 5, &instr, NULL, &field);

        arm11_add_ir_scan_vc(1, &field, state == ARM11_TAP_DEFAULT ? TAP_IRPAUSE : state);
}

/** Verify shifted out data from Scan Chain Register (SCREG)
 *  Used as parameter to scan_field_t::in_handler in
 *  arm11_add_debug_SCAN_N().
 *
 */
static int arm11_in_handler_SCAN_N(u8 *in_value, void *priv, struct scan_field_s *field)
{
        /** \todo TODO: clarify why this isnt properly masked in jtag.c jtag_read_buffer() */
        u8 v = *in_value & 0x1F;

        if (v != 0x10)
        {
                LOG_ERROR("'arm11 target' JTAG communication error SCREG SCAN OUT 0x%02x (expected 0x10)", v);
                return ERROR_FAIL;
        }

        JTAG_DEBUG("SCREG SCAN OUT 0x%02x", v);
        return ERROR_OK;
}

/** Select and write to Scan Chain Register (SCREG)
 *
 * This function sets the instruction register to SCAN_N and writes
 * the data register with the selected chain number.
 *
 * http://infocenter.arm.com/help/topic/com.arm.doc.ddi0301f/Cacbjhfg.html
 *
 * \param arm11     Target state variable.
 * \param chain     Scan chain that will be selected.
 * \param state     Pass the final TAP state or ARM11_TAP_DEFAULT for the default
 *                                      value (Pause-DR).
 *
 * The chain takes effect when Update-DR is passed (usually when subsequently
 * the INTEXT/EXTEST instructions are written).
 *
 * \warning                     (Obsolete) Using this twice in a row will \em fail. The first
 *                                      call will end in Pause-DR. The second call, due to the IR
 *                                      caching, will not go through Capture-DR when shifting in the
 *                                      new scan chain number. As a result the verification in
 *                                      arm11_in_handler_SCAN_N() must fail.
 *
 * \remarks                     This adds to the JTAG command queue but does \em not execute it.
 */

void arm11_add_debug_SCAN_N(arm11_common_t * arm11, u8 chain, tap_state_t state)
{
        JTAG_DEBUG("SCREG <= 0x%02x", chain);

        arm11_add_IR(arm11, ARM11_SCAN_N, ARM11_TAP_DEFAULT);

        scan_field_t            field;

        arm11_setup_field(arm11, 5, &chain, NULL, &field);

        field.in_handler = arm11_in_handler_SCAN_N;

        arm11_add_dr_scan_vc(1, &field, state == ARM11_TAP_DEFAULT ? TAP_DRPAUSE : state);
}

/** Write an instruction into the ITR register
 *
 * \param arm11         Target state variable.
 * \param inst          An ARM11 processor instruction/opcode.
 * \param flag          Optional parameter to retrieve the InstCompl flag
 *                                      (this will be written when the JTAG chain is executed).
 * \param state         Pass the final TAP state or ARM11_TAP_DEFAULT for the default
 *                                      value (Run-Test/Idle).
 *
 * \remarks                     By default this ends with Run-Test/Idle state
 *                                      and causes the instruction to be executed. If
 *                                      a subsequent write to DTR is needed before
 *                                      executing the instruction then TAP_DRPAUSE should be
 *                                      passed to \p state.
 *
 * \remarks                     This adds to the JTAG command queue but does \em not execute it.
 */
void arm11_add_debug_INST(arm11_common_t * arm11, u32 inst, u8 * flag, tap_state_t state)
{
        JTAG_DEBUG("INST <= 0x%08x", inst);

        scan_field_t            itr[2];

        arm11_setup_field(arm11, 32,    &inst,  NULL, itr + 0);
        arm11_setup_field(arm11, 1,         NULL,       flag, itr + 1);

        arm11_add_dr_scan_vc(asizeof(itr), itr, state == ARM11_TAP_DEFAULT ? TAP_IDLE : state);
}

/** Read the Debug Status and Control Register (DSCR)
 *
 * same as CP14 c1
 *
 * \param arm11         Target state variable.
 * \return                      DSCR content
 *
 * \remarks                     This is a stand-alone function that executes the JTAG command queue.
 */
u32 arm11_read_DSCR(arm11_common_t * arm11)
{
        arm11_add_debug_SCAN_N(arm11, 0x01, ARM11_TAP_DEFAULT);

        arm11_add_IR(arm11, ARM11_INTEST, ARM11_TAP_DEFAULT);

        u32                             dscr;
        scan_field_t    chain1_field;

        arm11_setup_field(arm11, 32, NULL, &dscr, &chain1_field);

        arm11_add_dr_scan_vc(1, &chain1_field, TAP_DRPAUSE);

        jtag_execute_queue();

        if (arm11->last_dscr != dscr)
                JTAG_DEBUG("DSCR  = %08x (OLD %08x)", dscr, arm11->last_dscr);

        arm11->last_dscr = dscr;

        return dscr;
}

/** Write the Debug Status and Control Register (DSCR)
 *
 * same as CP14 c1
 *
 * \param arm11         Target state variable.
 * \param dscr          DSCR content
 *
 * \remarks                     This is a stand-alone function that executes the JTAG command queue.
 */
void arm11_write_DSCR(arm11_common_t * arm11, u32 dscr)
{
        arm11_add_debug_SCAN_N(arm11, 0x01, ARM11_TAP_DEFAULT);

        arm11_add_IR(arm11, ARM11_EXTEST, ARM11_TAP_DEFAULT);

        scan_field_t                chain1_field;

        arm11_setup_field(arm11, 32, &dscr, NULL, &chain1_field);

        arm11_add_dr_scan_vc(1, &chain1_field, TAP_DRPAUSE);

        jtag_execute_queue();

        JTAG_DEBUG("DSCR <= %08x (OLD %08x)", dscr, arm11->last_dscr);

        arm11->last_dscr = dscr;
}



/** Get the debug reason from Debug Status and Control Register (DSCR)
 *
 * \param dscr          DSCR value to analyze
 * \return                      Debug reason
 *
 */
enum target_debug_reason arm11_get_DSCR_debug_reason(u32 dscr)
{
        switch (dscr & ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_MASK)
        {
        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_HALT:
                LOG_INFO("Debug entry: JTAG HALT");
                return DBG_REASON_DBGRQ;

        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_BREAKPOINT:
                LOG_INFO("Debug entry: breakpoint");
                return DBG_REASON_BREAKPOINT;

        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_WATCHPOINT:
                LOG_INFO("Debug entry: watchpoint");
                return DBG_REASON_WATCHPOINT;

        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_BKPT_INSTRUCTION:
                LOG_INFO("Debug entry: BKPT instruction");
                return DBG_REASON_BREAKPOINT;

        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_EDBGRQ:
                LOG_INFO("Debug entry: EDBGRQ signal");
                return DBG_REASON_DBGRQ;

        case ARM11_DSCR_METHOD_OF_DEBUG_ENTRY_VECTOR_CATCH:
                LOG_INFO("Debug entry: VCR vector catch");
                return DBG_REASON_BREAKPOINT;

        default:
                LOG_INFO("Debug entry: unknown");
                return DBG_REASON_DBGRQ;
        }
};



/** Prepare the stage for ITR/DTR operations
 * from the arm11_run_instr... group of functions.
 *
 * Put arm11_run_instr_data_prepare() and arm11_run_instr_data_finish()
 * around a block of arm11_run_instr_... calls.
 *
 * Select scan chain 5 to allow quick access to DTR. When scan
 * chain 4 is needed to put in a register the ITRSel instruction
 * shortcut is used instead of actually changing the Scan_N
 * register.
 *
 * \param arm11         Target state variable.
 *
 */
void arm11_run_instr_data_prepare(arm11_common_t * arm11)
{
        arm11_add_debug_SCAN_N(arm11, 0x05, ARM11_TAP_DEFAULT);
}

/** Cleanup after ITR/DTR operations
 * from the arm11_run_instr... group of functions
 *
 * Put arm11_run_instr_data_prepare() and arm11_run_instr_data_finish()
 * around a block of arm11_run_instr_... calls.
 *
 * Any IDLE can lead to an instruction execution when
 * scan chains 4 or 5 are selected and the IR holds
 * INTEST or EXTEST. So we must disable that before
 * any following activities lead to an IDLE.
 *
 * \param arm11         Target state variable.
 *
 */
void arm11_run_instr_data_finish(arm11_common_t * arm11)
{
        arm11_add_debug_SCAN_N(arm11, 0x00, ARM11_TAP_DEFAULT);
}


/** Execute one or multiple instructions via ITR
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        Pointer to sequence of ARM opcodes
 * \param count         Number of opcodes to execute
 *
 */
void arm11_run_instr_no_data(arm11_common_t * arm11, u32 * opcode, size_t count)
{
        arm11_add_IR(arm11, ARM11_ITRSEL, ARM11_TAP_DEFAULT);

        while (count--)
        {
                arm11_add_debug_INST(arm11, *opcode++, NULL, TAP_IDLE);

                while (1)
                {
                        u8 flag;

                        arm11_add_debug_INST(arm11, 0, &flag, count ? TAP_IDLE : TAP_DRPAUSE);

                        jtag_execute_queue();

                        if (flag)
                                break;
                }
        }
}

/** Execute one instruction via ITR
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode
 *
 */
void arm11_run_instr_no_data1(arm11_common_t * arm11, u32 opcode)
{
        arm11_run_instr_no_data(arm11, &opcode, 1);
}


/** Execute one instruction via ITR repeatedly while
 *  passing data to the core via DTR on each execution.
 *
 *  The executed instruction \em must read data from DTR.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode
 * \param data          Pointer to the data words to be passed to the core
 * \param count         Number of data words and instruction repetitions
 *
 */
void arm11_run_instr_data_to_core(arm11_common_t * arm11, u32 opcode, u32 * data, size_t count)
{
        arm11_add_IR(arm11, ARM11_ITRSEL, ARM11_TAP_DEFAULT);

        arm11_add_debug_INST(arm11, opcode, NULL, TAP_DRPAUSE);

        arm11_add_IR(arm11, ARM11_EXTEST, ARM11_TAP_DEFAULT);

        scan_field_t    chain5_fields[3];

        u32                             Data;
        u8                              Ready;
        u8                              nRetry;

        arm11_setup_field(arm11, 32,    &Data,  NULL,           chain5_fields + 0);
        arm11_setup_field(arm11,  1,    NULL,   &Ready,         chain5_fields + 1);
        arm11_setup_field(arm11,  1,    NULL,   &nRetry,        chain5_fields + 2);

        while (count--)
        {
                do
                {
                        Data        = *data;

                        arm11_add_dr_scan_vc(asizeof(chain5_fields), chain5_fields, TAP_IDLE);
                        jtag_execute_queue();

                        JTAG_DEBUG("DTR  Ready %d  nRetry %d", Ready, nRetry);
                }
                while (!Ready);

                data++;
        }

        arm11_add_IR(arm11, ARM11_INTEST, ARM11_TAP_DEFAULT);

        do
        {
                Data        = 0;

                arm11_add_dr_scan_vc(asizeof(chain5_fields), chain5_fields, TAP_DRPAUSE);
                jtag_execute_queue();

                JTAG_DEBUG("DTR  Data %08x  Ready %d  nRetry %d", Data, Ready, nRetry);
        }
        while (!Ready);
}

/** JTAG path for arm11_run_instr_data_to_core_noack
 *
 *  The repeated TAP_IDLE's do not cause a repeated execution
 *  if passed without leaving the state.
 *
 *  Since this is more than 7 bits (adjustable via adding more
 *  TAP_IDLE's) it produces an artificial delay in the lower
 *  layer (FT2232) that is long enough to finish execution on
 *  the core but still shorter than any manually inducible delays.
 *
 */
tap_state_t arm11_MOVE_DRPAUSE_IDLE_DRPAUSE_with_delay[] =
{
        TAP_DREXIT2, TAP_DRUPDATE, TAP_IDLE, TAP_IDLE, TAP_IDLE, TAP_DRSELECT, TAP_DRCAPTURE, TAP_DRSHIFT
};



/** Execute one instruction via ITR repeatedly while
 *  passing data to the core via DTR on each execution.
 *
 *  No Ready check during transmission.
 *
 *  The executed instruction \em must read data from DTR.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode
 * \param data          Pointer to the data words to be passed to the core
 * \param count         Number of data words and instruction repetitions
 *
 */
void arm11_run_instr_data_to_core_noack(arm11_common_t * arm11, u32 opcode, u32 * data, size_t count)
{
        arm11_add_IR(arm11, ARM11_ITRSEL, ARM11_TAP_DEFAULT);

        arm11_add_debug_INST(arm11, opcode, NULL, TAP_DRPAUSE);

        arm11_add_IR(arm11, ARM11_EXTEST, ARM11_TAP_DEFAULT);

        scan_field_t    chain5_fields[3];

        arm11_setup_field(arm11, 32,    NULL/*&Data*/,  NULL,                           chain5_fields + 0);
        arm11_setup_field(arm11,  1,    NULL,                   NULL /*&Ready*/,        chain5_fields + 1);
        arm11_setup_field(arm11,  1,    NULL,                   NULL,                           chain5_fields + 2);

        u8                      Readies[count + 1];
        u8      *               ReadyPos                        = Readies;

        while (count--)
        {
                chain5_fields[0].out_value      = (void *)(data++);
                chain5_fields[1].in_value       = ReadyPos++;

                if (count)
                {
                        jtag_add_dr_scan(asizeof(chain5_fields), chain5_fields, TAP_DRPAUSE);
                        jtag_add_pathmove(asizeof(arm11_MOVE_DRPAUSE_IDLE_DRPAUSE_with_delay),
                                arm11_MOVE_DRPAUSE_IDLE_DRPAUSE_with_delay);
                }
                else
                {
                        jtag_add_dr_scan(asizeof(chain5_fields), chain5_fields, TAP_IDLE);
                }
        }

        arm11_add_IR(arm11, ARM11_INTEST, ARM11_TAP_DEFAULT);

        chain5_fields[0].out_value      = 0;
        chain5_fields[1].in_value   = ReadyPos++;

        arm11_add_dr_scan_vc(asizeof(chain5_fields), chain5_fields, TAP_DRPAUSE);

        jtag_execute_queue();

        size_t error_count = 0;

        {size_t i;
        for (i = 0; i < asizeof(Readies); i++)
        {
                if (Readies[i] != 1)
                {
                        error_count++;
                }
        }}

        if (error_count)
                LOG_ERROR("Transfer errors " ZU, error_count);
}


/** Execute an instruction via ITR while handing data into the core via DTR.
 *
 *  The executed instruction \em must read data from DTR.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode
 * \param data          Data word to be passed to the core via DTR
 *
 */
void arm11_run_instr_data_to_core1(arm11_common_t * arm11, u32 opcode, u32 data)
{
        arm11_run_instr_data_to_core(arm11, opcode, &data, 1);
}


/** Execute one instruction via ITR repeatedly while
 *  reading data from the core via DTR on each execution.
 *
 *  The executed instruction \em must write data to DTR.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode
 * \param data          Pointer to an array that receives the data words from the core
 * \param count         Number of data words and instruction repetitions
 *
 */
void arm11_run_instr_data_from_core(arm11_common_t * arm11, u32 opcode, u32 * data, size_t count)
{
        arm11_add_IR(arm11, ARM11_ITRSEL, ARM11_TAP_DEFAULT);

        arm11_add_debug_INST(arm11, opcode, NULL, TAP_IDLE);

        arm11_add_IR(arm11, ARM11_INTEST, ARM11_TAP_DEFAULT);

        scan_field_t    chain5_fields[3];

        u32                     Data;
        u8                      Ready;
        u8                      nRetry;

        arm11_setup_field(arm11, 32,    NULL,   &Data,      chain5_fields + 0);
        arm11_setup_field(arm11,  1,    NULL,   &Ready,     chain5_fields + 1);
        arm11_setup_field(arm11,  1,    NULL,   &nRetry,    chain5_fields + 2);

        while (count--)
        {
                do
                {
                        arm11_add_dr_scan_vc(asizeof(chain5_fields), chain5_fields, count ? TAP_IDLE : TAP_DRPAUSE);
                        jtag_execute_queue();

                        JTAG_DEBUG("DTR  Data %08x  Ready %d  nRetry %d", Data, Ready, nRetry);
                }
                while (!Ready);

                *data++ = Data;
        }
}

/** Execute one instruction via ITR
 *  then load r0 into DTR and read DTR from core.
 *
 *  The first executed instruction (\p opcode) should write data to r0.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode to write r0 with the value of interest
 * \param data          Pointer to a data word that receives the value from r0 after \p opcode was executed.
 *
 */
void arm11_run_instr_data_from_core_via_r0(arm11_common_t * arm11, u32 opcode, u32 * data)
{
        arm11_run_instr_no_data1(arm11, opcode);

        /* MCR p14,0,R0,c0,c5,0 (move r0 -> wDTR -> local var) */
        arm11_run_instr_data_from_core(arm11, 0xEE000E15, data, 1);
}

/** Load data into core via DTR then move it to r0 then
 *  execute one instruction via ITR
 *
 *  The final executed instruction (\p opcode) should read data from r0.
 *
 * \pre arm11_run_instr_data_prepare() /  arm11_run_instr_data_finish() block
 *
 * \param arm11         Target state variable.
 * \param opcode        ARM opcode to read r0 act upon it
 * \param data          Data word that will be written to r0 before \p opcode is executed
 *
 */
void arm11_run_instr_data_to_core_via_r0(arm11_common_t * arm11, u32 opcode, u32 data)
{
        /* MRC p14,0,r0,c0,c5,0 */
        arm11_run_instr_data_to_core1(arm11, 0xEE100E15, data);

        arm11_run_instr_no_data1(arm11, opcode);
}

/** Apply reads and writes to scan chain 7
 *
 * \see arm11_sc7_action_t
 *
 * \param arm11         Target state variable.
 * \param actions       A list of read and/or write instructions
 * \param count         Number of instructions in the list.
 *
 */
void arm11_sc7_run(arm11_common_t * arm11, arm11_sc7_action_t * actions, size_t count)
{
        arm11_add_debug_SCAN_N(arm11, 0x07, ARM11_TAP_DEFAULT);

        arm11_add_IR(arm11, ARM11_EXTEST, ARM11_TAP_DEFAULT);

        scan_field_t    chain7_fields[3];

        u8                              nRW;
        u32                             DataOut;
        u8                              AddressOut;
        u8                              Ready;
        u32                             DataIn;
        u8                              AddressIn;

        arm11_setup_field(arm11,  1, &nRW,                      &Ready,         chain7_fields + 0);
        arm11_setup_field(arm11, 32, &DataOut,          &DataIn,        chain7_fields + 1);
        arm11_setup_field(arm11,  7, &AddressOut,       &AddressIn,     chain7_fields + 2);

        {size_t i;
        for (i = 0; i < count + 1; i++)
        {
                if (i < count)
                {
                        nRW                     = actions[i].write ? 1 : 0;
                        DataOut         = actions[i].value;
                        AddressOut      = actions[i].address;
                }
                else
                {
                        nRW                     = 0;
                        DataOut         = 0;
                        AddressOut      = 0;
                }

                do
                {
                        JTAG_DEBUG("SC7 <= Address %02x  Data %08x    nRW %d", AddressOut, DataOut, nRW);

                        arm11_add_dr_scan_vc(asizeof(chain7_fields), chain7_fields, TAP_DRPAUSE);
                        jtag_execute_queue();

                        JTAG_DEBUG("SC7 => Address %02x  Data %08x  Ready %d", AddressIn, DataIn, Ready);
                }
                while (!Ready); /* 'nRW' is 'Ready' on read out */

                if (i > 0)
                {
                        if (actions[i - 1].address != AddressIn)
                        {
                                LOG_WARNING("Scan chain 7 shifted out unexpected address");
                        }

                        if (!actions[i - 1].write)
                        {
                                actions[i - 1].value = DataIn;
                        }
                        else
                        {
                                if (actions[i - 1].value != DataIn)
                                {
                                        LOG_WARNING("Scan chain 7 shifted out unexpected data");
                                }
                        }
                }
        }}

        {size_t i;
        for (i = 0; i < count; i++)
        {
                JTAG_DEBUG("SC7 %02d: %02x %s %08x", i, actions[i].address, actions[i].write ? "<=" : "=>", actions[i].value);
        }}
}

/** Clear VCR and all breakpoints and watchpoints via scan chain 7
 *
 * \param arm11         Target state variable.
 *
 */
void arm11_sc7_clear_vbw(arm11_common_t * arm11)
{
        arm11_sc7_action_t              clear_bw[arm11->brp + arm11->wrp + 1];
        arm11_sc7_action_t *    pos = clear_bw;

        {size_t i;
        for (i = 0; i < asizeof(clear_bw); i++)
        {
                clear_bw[i].write       = true;
                clear_bw[i].value       = 0;
        }}

        {size_t i;
        for (i = 0; i < arm11->brp; i++)
                (pos++)->address = ARM11_SC7_BCR0 + i;
        }

        {size_t i;
        for (i = 0; i < arm11->wrp; i++)
                (pos++)->address = ARM11_SC7_WCR0 + i;
        }

        (pos++)->address = ARM11_SC7_VCR;

        arm11_sc7_run(arm11, clear_bw, asizeof(clear_bw));
}

/** Write VCR register
 *
 * \param arm11         Target state variable.
 * \param value         Value to be written
 */
void arm11_sc7_set_vcr(arm11_common_t * arm11, u32 value)
{
        arm11_sc7_action_t              set_vcr;

        set_vcr.write           = true;
        set_vcr.address         = ARM11_SC7_VCR;
        set_vcr.value           = value;


        arm11_sc7_run(arm11, &set_vcr, 1);
}



/** Read word from address
 *
 * \param arm11         Target state variable.
 * \param address       Memory address to be read
 * \param result        Pointer where to store result
 *
 */
void arm11_read_memory_word(arm11_common_t * arm11, u32 address, u32 * result)
{
        arm11_run_instr_data_prepare(arm11);

        /* MRC p14,0,r0,c0,c5,0 (r0 = address) */
        arm11_run_instr_data_to_core1(arm11, 0xee100e15, address);

        /* LDC p14,c5,[R0],#4 (DTR = [r0]) */
        arm11_run_instr_data_from_core(arm11, 0xecb05e01, result, 1);

        arm11_run_instr_data_finish(arm11);
}