eribld.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

    os_std(&elrp->elsubid.subid_class,
		OS$mckstk,		DD$coarsesyndrome);
    switch(elrp->elsubid.subid_type)
      {

      case ELMCKT_780 :
	cds_ptr->subtype = DD$MC780CDS;
	ads_ptr->subtype = DD$MC78_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_summary,
		OS$gen_long,		DD$mcksumm);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_cpues,
		OS$gen_long,		DD$mc8cpues);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_upc,
		OS$gen_long,		DD$mc8upc);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_vaviba,
		OS$gen_long,		DD$mc8vaviba);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_dreg,
		OS$gen_long,		DD$mc8dreg);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_tber0,
		OS$gen_long,		DD$mc8tb0);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_tber1,
		OS$gen_long,		DD$mc8tb1);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_timo,
		OS$gen_long,		DD$mc8timo);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_parity,
		OS$gen_long,		DD$mc8par);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_sbier,
		OS$gen_long,		DD$awer);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el780mcf.mc8_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_750 :
	cds_ptr->subtype = DD$MC750_CDS;
	ads_ptr->subtype = DD$MC75_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_summary,
		OS$gen_long,		DD$mcksumm);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_va,
		OS$gen_long,		DD$mc5va);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_errpc,
		OS$gen_long,		DD$mc5erpc);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_mdr,
		OS$gen_long,		DD$mc5mdr);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_svmode,
		OS$gen_long,		DD$mc5sav);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_rdtimo,
		OS$gen_long,		DD$mc5rdt);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_tbgpar,
		OS$gen_long,		DD$mc5tbg);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_cacherr,
		OS$gen_long,		DD$mc5cache);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_buserr,
		OS$gen_long,		DD$mc5bus);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_mcesr,
		OS$gen_long,		DD$mc5mce);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el750mcf.mc5_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_730 :
	cds_ptr->subtype = DD$MC730_CDS;
	ads_ptr->subtype = DD$MCK_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_summary,
		OS$gen_long,		DD$mc73summ);
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_parm[0],
		OS$gen_long,		DD$mc1pm1);
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_parm[1],
		OS$gen_long,		DD$mc1pm2);
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el730mcf.mc3_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_8600 :
	cds_ptr->subtype = DD$MC8600_CDS;
	ads_ptr->subtype = DD$MC86_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_bytcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ehm_sts,
		OS$gen_long,		DD$m86ehm);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_evmqsav,
		OS$gen_long,		DD$m86evmqsav);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ebcs,
		OS$gen_long,		DD$m86ebcs);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_edpsr,
		OS$gen_long,		DD$m86edpsr);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_cslint,
		OS$gen_long,		DD$m86cslint);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ibesr,
		OS$gen_long,		DD$m86ibesr);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ebxwd1,
		OS$gen_long,		DD$m86ew1);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ebxwd2,
		OS$gen_long,		DD$m86ew2);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_ivasav,
		OS$gen_long,		DD$m86ivasav);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_vibasav,
		OS$gen_long,		DD$m86vibasav);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_esasav,
		OS$gen_long,		DD$m86esasav);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_isasav,
		OS$gen_long,		DD$m86isasav);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_cpc,
		OS$gen_long,		DD$m86cpc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_mstat1,
		OS$gen_long,		DD$m86ms1);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_mstat2,
		OS$gen_long,		DD$m86ms2);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_mdecc,
		OS$gen_long,		DD$m86mdecc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_merg,
		OS$gen_long,		DD$m86merg);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_cshctl,
		OS$gen_long,		DD$m86cshctl);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_mear,
		OS$gen_long,		DD$m86mear);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_medr,
		OS$gen_long,		DD$m86medr);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_accs,
		OS$gen_long,		DD$m86fber);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_cses,
		OS$gen_long,		DD$m86cses);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8600mcf.mc8600_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_8200 :
	cds_ptr->subtype = DD$MC8200_CDS;
	ads_ptr->subtype = DD$MC82_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_summary,
		OS$gen_long,		DD$m82summ);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_parm1,
		OS$gen_long,		DD$m82pm1);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_va,
		OS$gen_long,		DD$m82va);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_vap,
		OS$gen_long,		DD$m82vap);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_mar,
		OS$gen_long,		DD$m82mar);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_stat,
		OS$gen_long,		DD$m82stat);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_pcfail,
		OS$gen_long,		DD$m82pcf);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_upcfail,
		OS$gen_long,		DD$m82upc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8200mcf.mc8200_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_8800 :
	cds_ptr->subtype = DD$MC8800_CDS;
	ads_ptr->subtype = DD$MC88_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_mcsts,
		OS$gen_long,		DD$m88mcs);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_ipc,
		OS$gen_long,		DD$m88ipc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_vaviba,
		OS$gen_long,		DD$m88vaviba);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_iber,
		OS$gen_long,		DD$m88iber);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_cber,
		OS$gen_long,		DD$m88cber);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_eber,
		OS$gen_long,		DD$m88eber);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_nmifsr,
		OS$gen_long,		DD$m88nmf);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_nmiear,
		OS$gen_long,		DD$m88nme);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el8800mcf.mc8800_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_UVI :
	cds_ptr->subtype = DD$MCUVAX1_CDS;
	ads_ptr->subtype = DD$MCK_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_summary,
		OS$gen_long,		DD$mcuv1summ);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_parm[0],
		OS$gen_long,		DD$mc1pm1);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_parm[1],
		OS$gen_long,		DD$mc1pm2);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVImcf.mc1_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_UVII :
	cds_ptr->subtype = DD$MCUVAX2_CDS;
	ads_ptr->subtype = DD$MCUVII_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_summary,
		OS$gen_long,		DD$mcuv2summ);
        if (((elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_summary & 
		0x000000ff) == 0x81) ||
            ((elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_summary & 
		0x000000ff) == 0x83))
            os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_vap,
		OS$gen_long,		DD$mc1pap);
	else
            os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_vap,
		OS$gen_long,		DD$mc1vap);
        os_std(
	  &elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_internal_state,
		OS$gen_long,		DD$mc1int);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.elUVIImcf.mc1_psl,
		OS$gen_long,		DD$psl);
      break;
      case ELMCKT_CVAX :
      case ELMCKT_PVAX :
      case ELMCKT_6200 :
	cds_ptr->subtype = DD$MCCVAX_CDS;
	ads_ptr->subtype = DD$MCCVAX_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_bcnt,
		OS$gen_long,		DD$mcbcnt);
        os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_summary,
		OS$gen_long,		DD$mccvaxsum);
        if (((elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_summary & 
		0x000000ff) == 0x81) ||
            ((elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_summary & 
		0x000000ff) == 0x83))
            os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_vap,
		OS$gen_long,		DD$mc1pap);
	else
            os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_vap,
		OS$gen_long,		DD$mc1vap);
        os_std(
	  &elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_internal_state1,
		OS$gen_long,		DD$mccvaxint1);
        os_std(
	  &elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_internal_state2,
		OS$gen_long,		DD$mccvaxint2);
        os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.elCVAXmcf.mc1_psl,
		OS$gen_long,		DD$psl);
	if(elrp->elsubid.subid_type == ELMCKT_6200)
	  {
	  sds_ptr->subtype = DD$XCP_6200_SDS;
	  if (ini_seg(sds_ptr) == EI$FAIL)
	      status = EI$FAIL;
          os_std(&elrp->el_body.elmck.elmck_frame.el6200mcf.xcp_dtype,
		OS$gen_long,		DD$xdev);
          os_std(&elrp->el_body.elmck.elmck_frame.el6200mcf.xcp_xbe,
		OS$gen_long,		DD$xbe);
          os_std(&elrp->el_body.elmck.elmck_frame.el6200mcf.xcp_csr1,
		OS$gen_long,		DD$csr1);
          os_std(&elrp->el_body.elmck.elmck_frame.el6200mcf.xcp_csr2,
		OS$gen_long,		DD$csr2);
          os_std(&elrp->el_body.elmck.elmck_frame.el6200mcf.xcp_mser,
		OS$gen_long,		DD$esr650_mser);
	  }
      break;
      case ELMCKT_6400: 
	cds_ptr->subtype = DD$XRP_CDS;
	sds_ptr->subtype = DD$XRP_SDS;
	ads_ptr->subtype = DD$XRP_ADS;
	if (ini_seg(cds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(sds_ptr) == EI$FAIL)
	    status = EI$FAIL;
	if (ini_seg(ads_ptr) == EI$FAIL)
	    status = EI$FAIL;
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.mcode,
		OS$gen_long,		DD$mcode);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.vaddr,
		OS$gen_long,		DD$vaddr);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.viba,
		OS$gen_long,		DD$viba);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_rcsr,
		OS$gen_long,		DD$rcsr);
        if (((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00100000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00040000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00020000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00010000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00008000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00004000) == 0x01) ||
            ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x00002000) == 0x01))
            os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber,
		OS$gen_long,		DD$xber);
        if ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x0000000f) == 0x09)
            os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_xfadr,
		OS$gen_long,		DD$xfadrid);
        else if ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_xber & 
	  	    0x0000000f) == 0x0f)
            os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_xfadr,
		OS$gen_long,		DD$xfadriv);
	else
            os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_xfadr,
		OS$gen_long,		DD$xfadr);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_sscbtr,
		OS$gen_long,		DD$sscbtr);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.iccs_sisr,
		OS$gen_long,		DD$iccs_sisr);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.istate,
		OS$gen_long,		DD$istate);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.sc,
		OS$gen_long,		DD$sc);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.pc,
		OS$gen_long,		DD$pc);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.psl,
		OS$gen_long,		DD$psl);
        os_std(&elrp->el_body.elmck.elmck_frame.el6400mcf.s_bcctl,
		OS$gen_long,		DD$bcctl);
        if ((elrp->el_body.elmck.elmck_frame.el6400mcf.s_bcsts & 
		        0x02000000) == 0x01)