运行时支持 cpy_tbl.c 文件

/****************************************************************************/
/* cpy_tbl.c                                                                */
/*                                                                          */
/* 通用复制例程。  给定由链接器生成的    */
/* COPY_TABLE 数据结构的地址，通过      */
/* 相应的 LCF table() 运算符复制指定用于复制的所有对象组件。*/
/****************************************************************************/
#include <cpy_tbl.h>
#include <string.h>
void copy_in(COPY_TABLE *tp)
{
   unsigned int i;
   for (i = 0; i < tp->num_recs; i++)
   {
      COPY_RECORD *crp = &tp->recs[i];
      unsigned int cpy_type = 0;
      unsigned int j;
      if (crp->src_pgid) cpy_type += 2;
      if (crp->dst_pgid) cpy_type += 1;
      for (j = 0; j < crp->size; j++)
      {
         switch (cpy_type)
         {
            case 3: ddcopy(crp->src_addr + j, crp->dst_addr + j); break;
            case 2: dpcopy(crp->src_addr + j, crp->dst_addr + j); break;
            case 1: pdcopy(crp->src_addr + j, crp->dst_addr + j); break;
            case 0: ppcopy(crp->src_addr + j, crp->dst_addr + j); break;
         }
      }
   }
}