char *dcode_msg_pkt(char *buf)
{
  static char *pkt_typ[] = {"INFO","WARN","ERROR","Not a message type"};
  static char *msg_src[] = {"Misc","VME Ctrl","VME Mstr","VME Rdbk",
			    "VME IH","VME Slave","VME Arb","Ext FIFO",
			    "Eth Rcvr","Eth Trns","JTAG mod","Flash mod",
			    "Config mod","BTC mod","Rst Hndlr","StrtupShdwn"};
  static char *ctrlerrs[]  = {"No Error","Unknown Address","Unknown Delay Type",
			      "Incompatible Options","Read Error on Units",
			      "Read Error on Control Word","Read Error on Address",
			      "Read Error on Data Count","Read Error on Data"};
  static char *mstrerrs[]  = {"No Error","Bus Error","Not Allowed","Bus Timeout"};
  static char *iherrs[]  = {"No Error","Bus Error","Not Allowed","Bus Timeout"};
  static char *ihwarns[]  = {"No Warning","An IRQ has been masked"};
  static char *fferrs[]  = {"No Error","Read Error","Empty Error",
			    "ReTransmit Error","Mark Error","Write Error"};
  static char *btcerrs[] = {"No Error","No Data","Command Not Executed",
			    "Unknown Function"};
  static char *sswarns[] = {"No Warning","Reload Pending"};
  static char *ssinfo[]  = {"No Information","Controller is up and running"};
  static char *unknwn = "Unknown message";
  static char *trns_typ[] = {"SNGL", "BLOCK", "RMW", "UNALG"};
  static char *data_sz[]   = {"D08", "D16", "D32", "D64"};
  static char *addr_sz[]   = {"Axx","A16","A24","A32","A40","A64","Axx","Axx"};
  static char *rdwrt[]     = {"Read","Write"};
  static char *dly_type[]  = {"No_Dly","D4nsX16","D16nsX16","D16usX16",
			      "D4nsX32","D16nsX32","D16usX32","undefined"};

  static char *acc_typ_pg[] = {"DATA","PRGM"};
  static char *acc_typ_sp[] = {"NPRV","SUPV"};
  static char *acc_typ_lk[] = {"    ","LOCK"};
  static char *acc_typ_cr[] = {"    ","CCSR"};
  static char *acc_typ_ud[] = {"    ","UDAM"};


  static char msg[MAX_MSG_SIZE];
  static char tmp[MAX_MSG_SIZE];

  union ctrl_stat unc;
  union mstr_stat unm;

  int n,i;
  enum pkt_t ptyp;
  enum src_id srcid;
  enum ih_err_t iherrn;
  enum ih_wrn_t ihwrnn;

  int ih_st,ih_irq,ih_add,curmsk;
  int mstrerrn,mstrwrnn;
  int mstr_st;
  unsigned short int msgn;

  int pt,tag[NFFERRS];

  msg[0]='\0';
  ptyp = buf[PKT_TYP_OFF]&0XFF;
  srcid = SOURCE_ID(buf);
  msgn   = EXTRACT_MSG(buf);

  pt = (ptyp<INFO_PKT) ? 3 : (int)(ptyp-INFO_PKT);

  sprintf(msg,"%s: %s: ",pkt_typ[pt],msg_src[srcid]);

  switch(srcid){
  case MISC:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_CTRL:
    switch(ptyp){
    case ERR_PKT:
      strcat(msg,ctrlerrs[msgn]);
      if(msgn != CTRL_NO_ERR){
	unc.full=SECND_WRD(buf);
	sprintf(tmp,"\nTransfer Type: %-3s:%-3s:%-5s:%-5s",addr_sz[unc.tg.asz],
		data_sz[unc.tg.dsz],trns_typ[unc.tg.tt],rdwrt[unc.tg.wrt]);
	strcat(msg,tmp);
	sprintf(tmp,"\n  Access Type: %4s+%4s+%4s+%4s+%4s",acc_typ_sp[unc.fl.sp],
		acc_typ_pg[unc.fl.pg],acc_typ_lk[unc.fl.lk],
		acc_typ_cr[unc.fl.cr],acc_typ_ud[unc.fl.ud]);
	strcat(msg,tmp);
	sprintf(tmp,"\n   Delay Type: %s",dly_type[unc.tg.dt]);
	strcat(msg,tmp);
      }
      break;
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_MSTR:
    switch(ptyp){
    case ERR_PKT:
      mstrerrn = EXTRACT_MSTR_ERR(buf);
      strcat(msg,mstrerrs[mstrerrn]);
      if(mstrerrn == MSTR_BERR || mstrerrn == MSTR_BTO){
	mstr_st=EXTRACT_MSTR_STATE(buf);
	unm.full=SECND_WRD(buf);
	sprintf(tmp,"\n    Master State: %2d",mstr_st);
	strcat(msg,tmp);
	sprintf(tmp,"\n   Transfer Type: %-3s:%-5s:%-5s",data_sz[unm.tg.dsz],
		trns_typ[unm.tg.tt],rdwrt[unm.tg.wrt]);
	strcat(msg,tmp);
	sprintf(tmp,"\nAddress Modifier: %02X",unm.tg.am&0xFF);
	strcat(msg,tmp);
	strcat(msg,"\n  64 bit Address: "); 
	for(i=0;i<8;i++)sprintf(&tmp[2*i],"%02X",buf[MSG_OFF+4+i]&0xFF);
	strcat(msg,tmp);
      }
      break;
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_RDBK:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_IH:
    switch(ptyp){
    case ERR_PKT:
      iherrn = EXTRACT_IH_ERR(buf);
      strcat(msg,iherrs[iherrn]);
      if(iherrn == IH_BERR || iherrn == IH_BTO){
	ih_st=EXTRACT_IH_STATE(buf);
	ih_irq=EXTRACT_IH_IRQ(buf);
	ih_add=EXTRACT_IH_ADD(buf);
	sprintf(tmp,"\nIH State: %2d\nIH IRQs pending: ",ih_st);
	strcat(msg,tmp);
	for(i=0;i<7;i++){
	  sprintf(&tmp[i],"%01d",(ih_irq>>(6-i))&1);
	}
	strcat(msg,tmp);
	sprintf(tmp,"\nIH IACK Address %1d",ih_add);
	strcat(msg,tmp);
      }
      break;
    case WARN_PKT:
      ihwrnn=EXTRACT_IH_WRN(buf);
      strcat(msg,ihwarns[ihwrnn]);
      if(ihwrnn == IH_IRQ_MSKD){
	curmsk=EXTRACT_IRQ_MSK(buf);
	strcat(msg,"\nIH Current IRQ Mask: ");
	for(i=0;i<7;i++){
	  sprintf(&tmp[i],"%01d",(curmsk>>(6-i))&1);
	}
	strcat(msg,tmp);
      }
      break;
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_SLV:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case VME_ARB:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case EXFIFO_MOD:
    switch(ptyp){
    case ERR_PKT:
      n=0;
      for(i=0;i<5;i++)if((msgn>>i)&1)tag[n++]=i;
      if(n==0){tag[0]=0;n=1;}
      for(i=0;i<n;i++){
	strcat(msg,fferrs[tag[i]]);
	if(i<n-1)strcat(msg,",");
      }
      break;
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case ETH_RCV:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case ETH_TRNS:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case JTAG_MOD:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case FLASH_MOD:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case CNFG_MOD:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case BTC_MOD:
    switch(ptyp){
    case ERR_PKT:
      strcat(msg,btcerrs[msgn]);
      break;
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case RST_HNDLR:
    switch(ptyp){
    case ERR_PKT:
    case WARN_PKT:
    case INFO_PKT:
      strcat(msg,unknwn);
      break;
    default:
      break;
    }
    break;
  case STRTUP_SHTDWN:
    switch(ptyp){
    case ERR_PKT:
      strcat(msg,unknwn);
      break;
    case WARN_PKT:
      strcat(msg,sswarns[msgn]);
    case INFO_PKT:
      strcat(msg,ssinfo[msgn]);
    default:
      break;
    }
    break;
  default:
    break;
  }
  strcat(msg,"\n");
  return msg;
}