Subversion Repositories w11

// $Id: Rw11CntlLP11.cpp 659 2015-03-22 23:15:51Z mueller $

//

// Copyright 2013-2014 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>

//

// This program is free software; you may redistribute and/or modify it under

// the terms of the GNU General Public License as published by the Free

// Software Foundation, either version 2, 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 complete details.

// 

// Revision History: 

// Date         Rev Version  Comment

// 2014-12-30   625   1.2    adopt to Rlink V4 attn logic

// 2014-12-25   621   1.1    adopt to 4k word ibus window

// 2013-05-04   515   1.0    Initial version

// 2013-05-01   513   0.1    First draft

// ---------------------------------------------------------------------------

/*!

  \file

  \version $Id: Rw11CntlLP11.cpp 659 2015-03-22 23:15:51Z mueller $

  \brief   Implemenation of Rw11CntlLP11.

*/

#include "boost/bind.hpp"

#include "librtools/RosFill.hpp"

#include "librtools/RosPrintBvi.hpp"

#include "librtools/RosPrintf.hpp"

#include "librtools/Rexception.hpp"

#include "librtools/RlogMsg.hpp"

#include "Rw11CntlLP11.hpp"

using namespace std;

/*!

  \class Retro::Rw11CntlLP11

  \brief FIXME_docs

*/

// all method definitions in namespace Retro

namespace Retro {

//------------------------------------------+-----------------------------------

// constants definitions

const uint16_t Rw11CntlLP11::kIbaddr;

const int      Rw11CntlLP11::kLam;

const uint16_t Rw11CntlLP11::kCSR;

const uint16_t Rw11CntlLP11::kBUF;

const uint16_t Rw11CntlLP11::kProbeOff;

const bool     Rw11CntlLP11::kProbeInt;

const bool     Rw11CntlLP11::kProbeRem;

const uint16_t Rw11CntlLP11::kCSR_M_ERROR;

const uint16_t Rw11CntlLP11::kBUF_M_VAL;

const uint16_t Rw11CntlLP11::kBUF_M_BUF;

//------------------------------------------+-----------------------------------

//! Default constructor

Rw11CntlLP11::Rw11CntlLP11()

  : Rw11CntlBase<Rw11UnitLP11,1>("lp11"),

    fPC_buf(0)

{

  // must be here because Units have a back-ptr (not available at Rw11CntlBase)

  for (size_t i=0; i<NUnit(); i++) {

    fspUnit[i].reset(new Rw11UnitLP11(this, i));

  }

}

//------------------------------------------+-----------------------------------

//! Destructor

Rw11CntlLP11::~Rw11CntlLP11()

{}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void Rw11CntlLP11::Config(const std::string& name, uint16_t base, int lam)

{

  ConfigCntl(name, base, lam, kProbeOff, kProbeInt, kProbeRem);

  return;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void Rw11CntlLP11::Start()

{

  if (fStarted || fLam<0 || !fEnable || !fProbe.Found())

    throw Rexception("Rw11CntlLP11::Start",

                     "Bad state: started, no lam, not enable, not found");

  // add device register address ibus and rbus mappings

  // done here because now Cntl bound to Cpu and Cntl probed

  Cpu().AllIAddrMapInsert(Name()+".csr", Base() + kCSR);

  Cpu().AllIAddrMapInsert(Name()+".buf", Base() + kBUF);

  // setup primary info clist

  fPrimClist.Clear();

  fPrimClist.AddAttn();

  fPC_buf = Cpu().AddRibr(fPrimClist, fBase+kBUF);

  // add attn handler

  Server().AddAttnHandler(boost::bind(&Rw11CntlLP11::AttnHandler, this, _1),

                          uint16_t(1)<<fLam, (void*)this);

  fStarted = true;

  return;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void Rw11CntlLP11::UnitSetup(size_t ind)

{

  Rw11UnitLP11& unit = *fspUnit[ind];

  SetOnline(unit.Virt());                   // online if stream attached

  return;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void Rw11CntlLP11::Dump(std::ostream& os, int ind, const char* text) const

{

  RosFill bl(ind);

  os << bl << (text?text:"--") << "Rw11CntlLP11 @ " << this << endl;

  os << bl << "  fPC_buf:         " << fPC_buf << endl;

  Rw11CntlBase<Rw11UnitLP11,1>::Dump(os, ind, " ^");

  return;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

int Rw11CntlLP11::AttnHandler(RlinkServer::AttnArgs& args)

{

  fStats.Inc(kStatNAttnHdl);

  Server().GetAttnInfo(args, fPrimClist);

  uint16_t buf = fPrimClist[fPC_buf].Data();

  bool val     = buf & kBUF_M_VAL;

  uint8_t ochr = buf & kBUF_M_BUF;

  if (fTraceLevel>0) {

    RlogMsg lmsg(LogFile());

    lmsg << "-I LP11." << Name()

         << " buf=" << RosPrintBvi(buf,8)

         << " val=" << val;

    if (val) {

      lmsg << " char=";

      if (ochr>=040 && ochr<0177) {

        lmsg << "'" << char(ochr) << "'";

      } else {

        lmsg << RosPrintBvi(ochr,8);

      }

    }

  }

  if (val) {

    RerrMsg emsg;

    bool rc = fspUnit[0]->VirtWrite(&ochr, 1, emsg);

    if (!rc) {

      RlogMsg lmsg(LogFile());

      lmsg << emsg;

      SetOnline(false);

    }

    if (ochr == 014) {                      // ^L = FF = FormFeed seen ?

      rc = fspUnit[0]->VirtFlush(emsg);

    }

  }

  return 0;

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void Rw11CntlLP11::SetOnline(bool online)

{

  Rw11Cpu& cpu  = Cpu();

  uint16_t csr  = online ? 0 : kCSR_M_ERROR;

  RlinkCommandList clist;

  cpu.AddWibr(clist, fBase+kCSR, csr);

  Server().Exec(clist);

  return;

}

} // end namespace Retro