*** cpas_d__sdir1.c	2016-09-28 18:57:14.368687100 +0200
--- d__sdir10.c	2016-09-28 18:57:08.881656350 +0200
***************
*** 1,29 ****
! /*  P A S - P. WOLFERS SOFTWARE: V3.1-B2 OF 30-JUN-2016 
    ***  PASCAL II implementation in C. *** */
  
  /* Set specific Macro setting. */
  #define CC_TYPE_SW short
  #define CC_TYPE_SL   int
  #define CC_TYPE_SQ  long long int
  
  /* Include the PAS environment file. */
  #include <cpas_defs.h>
  
  /* Define the local data section. */
! static Blk( Rd, 144 ) = {
   14,  14, 102, 115, 112,  99,  95, 110, 101, 119,  95, 101, 110, 116, 114, 121,
   64,  64,  47, 104, 111, 109, 101,  47, 112, 105, 101, 114, 114, 101,  47,  83,
  111, 102, 116,  47,  99, 112, 115, 104,  95, 107, 105, 116, 115,  47,  99, 112,
   97, 115,  99,  97, 108,  95, 115, 114,  99,  95,  86,  51,  46,  49,  66,  52,
   47,  99, 112,  97, 115,  95, 100,  95,  95, 115, 100, 105, 114,  49,  46, 112,
!  97, 115,   0,   0,   0,   0,   0,   0,  18,  18, 102, 115, 112,  99,  95,  99,
! 114, 101,  97, 116, 101,  95, 102, 105, 108, 116, 101, 114,  16,  16, 102, 115,
! 112,  99,  95, 102, 114, 101, 101,  95, 102, 105, 108, 116, 101, 114,  10,  10,
! 102, 115, 112,  99,  95, 109,  97, 116,  99, 104,   0,   0,   0,   0,   0,   0
  };
  
  /* Define the local static section. */
  static Blk( Rs, 64 );
  
  
  
--- 1,29 ----
! /*  P A S - P. WOLFERS SOFTWARE: V3.1-B4 OF 30-SEP-2016 
    ***  PASCAL II implementation in C. *** */
  
  /* Set specific Macro setting. */
  #define CC_TYPE_SW short
  #define CC_TYPE_SL   int
  #define CC_TYPE_SQ  long long int
  
  /* Include the PAS environment file. */
  #include <cpas_defs.h>
  
  /* Define the local data section. */
! static Blk( Rd, 136 ) = {
   14,  14, 102, 115, 112,  99,  95, 110, 101, 119,  95, 101, 110, 116, 114, 121,
   64,  64,  47, 104, 111, 109, 101,  47, 112, 105, 101, 114, 114, 101,  47,  83,
  111, 102, 116,  47,  99, 112, 115, 104,  95, 107, 105, 116, 115,  47,  99, 112,
   97, 115,  99,  97, 108,  95, 115, 114,  99,  95,  86,  51,  46,  49,  66,  52,
   47,  99, 112,  97, 115,  95, 100,  95,  95, 115, 100, 105, 114,  49,  46, 112,
!  97, 115,  18,  18, 102, 115, 112,  99,  95,  99, 114, 101,  97, 116, 101,  95,
! 102, 105, 108, 116, 101, 114,  16,  16, 102, 115, 112,  99,  95, 102, 114, 101,
! 101,  95, 102, 105, 108, 116, 101, 114,  10,  10, 102, 115, 112,  99,  95, 109,
!  97, 116,  99, 104,   0,   0,   0,   0
  };
  
  /* Define the local static section. */
  static Blk( Rs, 64 );
  
  
  
***************
*** 57,71 ****
    ((UB *)Rv1)[20]=F_bstr;
    ((UB *)Rv1)[18]=Rs.sl[6];
    ((UB *)Rv1)[19]=0;
    ((UB *)Rv1)[17]=Rs.sl[6];
    if (F_bstr) ((V *)Rv1)[3]=NULL;
    else {
      Ra.sl[6]=108; /* line # 108 */
!     PAS__ASSIGN_LSET(Rv1+24,256, (V)Rd.s+84,4);
    }
    Ret=Rv0;
    PAS__curr_cntx=Ra.v[0];
    return(Ret);
  }
  
  
--- 57,71 ----
    ((UB *)Rv1)[20]=F_bstr;
    ((UB *)Rv1)[18]=Rs.sl[6];
    ((UB *)Rv1)[19]=0;
    ((UB *)Rv1)[17]=Rs.sl[6];
    if (F_bstr) ((V *)Rv1)[3]=NULL;
    else {
      Ra.sl[6]=108; /* line # 108 */
!     memcpy(Rv1+24,&0,32);
    }
    Ret=Rv0;
    PAS__curr_cntx=Ra.v[0];
    return(Ret);
  }
  
  
***************
*** 86,100 ****
    register int Rf0;
    register V Ret;
  
    /* Code of procedure/function */
    Ra.ub[0]=255;
    Ra.v[33]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s+264;
!   Ra.v[34]=Rd.s+88;
    Ra.v[35]=Rd.s+16;
    Ra.sl[72]=114; /* line # 114 */
    Rs.v[4]=NULL;
    Rs.v[0]=NULL;
    Rs.sl[6]=0;
    Rs.v[5]=NULL;
    Rs.v[2]=NULL;
--- 86,100 ----
    register int Rf0;
    register V Ret;
  
    /* Code of procedure/function */
    Ra.ub[0]=255;
    Ra.v[33]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s+264;
!   Ra.v[34]=Rd.s+82;
    Ra.v[35]=Rd.s+16;
    Ra.sl[72]=114; /* line # 114 */
    Rs.v[4]=NULL;
    Rs.v[0]=NULL;
    Rs.sl[6]=0;
    Rs.v[5]=NULL;
    Rs.v[2]=NULL;
***************
*** 133,164 ****
            if (Rv0==45) {
              Ra.sl[72]=152; /* line # 152 */
              if (Rs.sl[12]>((UB *)F_filtre)[1])  break;
              Rv5=((C *)F_filtre)[Rs.sl[12]+1];
              Rs.sl[12]=Rs.sl[12]+1;
              Rv6=Rv4;
              for( Rf0=(Rv5+1)-Rv4;Rf0>0;Rf0-- ) {
!               PAS__ASSIGN_LSET(Rv3+24,256, PAS__BIS_LSET(Ra.s+324,Rv3+24,32, PAS__SET_GENERATOR(
!               Ra.s+292,256, Rv6), 32), 32);
                Rv6++;
              }
              if (Rs.sl[12]>=((UB *)F_filtre)[1])  break;
              Ra.sl[72]=157; /* line # 157 */
              Rv0=((C *)F_filtre)[Rs.sl[12]+1];
              Rs.sl[12]=Rs.sl[12]+1;
            }
!           else PAS__ASSIGN_LSET(Rv3+24,256, PAS__BIS_LSET(Ra.s+324,Rv3+24,32, PAS__SET_GENERATOR(
!           Ra.s+292,256, Rv4), 32), 32);
            Ra.sl[72]=162; /* line # 162 */
            if (Rv0==93||Rs.sl[12]>((UB *)F_filtre)[1])  break;
            Rv4=((C *)F_filtre)[Rs.sl[12]+1];
            Rs.sl[12]=Rs.sl[12]+1;
          }
!         if (Rs.ub[60]) PAS__ASSIGN_LSET(Rv3+24,256, PAS__COM_LSET(Ra.s+292,Rv3+24,256),
! 32);
          Ra.sl[72]=167; /* line # 167 */
          if (Rs.sl[2]==0) {
            Rs.v[2]=Rs.v[5];
            Rs.sl[2]=1;
          }
          Ra.sl[72]=172; /* line # 172 */
          Rs.sl[2]=Rs.sl[2]+Rs.sl[6];
--- 133,163 ----
            if (Rv0==45) {
              Ra.sl[72]=152; /* line # 152 */
              if (Rs.sl[12]>((UB *)F_filtre)[1])  break;
              Rv5=((C *)F_filtre)[Rs.sl[12]+1];
              Rs.sl[12]=Rs.sl[12]+1;
              Rv6=Rv4;
              for( Rf0=(Rv5+1)-Rv4;Rf0>0;Rf0-- ) {
!               memcpy(Rv3+24,PAS__BIS_LSET(Ra.s+324,Rv3+24,32, PAS__SET_GENERATOR(
!               Ra.s+292,256, Rv6), 32),32);
                Rv6++;
              }
              if (Rs.sl[12]>=((UB *)F_filtre)[1])  break;
              Ra.sl[72]=157; /* line # 157 */
              Rv0=((C *)F_filtre)[Rs.sl[12]+1];
              Rs.sl[12]=Rs.sl[12]+1;
            }
!           else memcpy(Rv3+24,PAS__BIS_LSET(Ra.s+324,Rv3+24,32, PAS__SET_GENERATOR(
!           Ra.s+292,256, Rv4), 32),32);
            Ra.sl[72]=162; /* line # 162 */
            if (Rv0==93||Rs.sl[12]>((UB *)F_filtre)[1])  break;
            Rv4=((C *)F_filtre)[Rs.sl[12]+1];
            Rs.sl[12]=Rs.sl[12]+1;
          }
!         if (Rs.ub[60]) memcpy(Rv3+24,PAS__COM_LSET(Ra.s+292,Rv3+24,256),32);
          Ra.sl[72]=167; /* line # 167 */
          if (Rs.sl[2]==0) {
            Rs.v[2]=Rs.v[5];
            Rs.sl[2]=1;
          }
          Ra.sl[72]=172; /* line # 172 */
          Rs.sl[2]=Rs.sl[2]+Rs.sl[6];
***************
*** 254,268 ****
    V Rv0;
    register V Rv1;
    V Rv2;
  
    /* Code of procedure/function */
    Ra.v[0]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s;
!   Ra.v[1]=Rd.s+108;
    Ra.v[2]=Rd.s+16;
    Ra.sl[6]=288; /* line # 288 */
    Rv0=(*F_hp);
    (*F_hp)=NULL;
    while (Rv0!=NULL){
      Rv1=Rv0;
      Ra.sl[6]=294; /* line # 294 */
--- 253,267 ----
    V Rv0;
    register V Rv1;
    V Rv2;
  
    /* Code of procedure/function */
    Ra.v[0]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s;
!   Ra.v[1]=Rd.s+102;
    Ra.v[2]=Rd.s+16;
    Ra.sl[6]=288; /* line # 288 */
    Rv0=(*F_hp);
    (*F_hp)=NULL;
    while (Rv0!=NULL){
      Rv1=Rv0;
      Ra.sl[6]=294; /* line # 294 */
***************
*** 292,306 ****
    SL Rv5;
    register int Rf0;
    register UB Ret;
  
    /* Code of procedure/function */
    Ra.v[0]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s;
!   Ra.v[1]=Rd.s+126;
    Ra.v[2]=Rd.s+16;
    Ra.sl[6]=314; /* line # 314 */
    Rv0=1;
    Rv1=((UB *)F_spc)[1]+1;
    Rv2=1;
    Ra.sl[6]=321; /* line # 321 */
    while (F_pf!=NULL&&Rv0){
--- 291,305 ----
    SL Rv5;
    register int Rf0;
    register UB Ret;
  
    /* Code of procedure/function */
    Ra.v[0]=PAS__curr_cntx;
    PAS__curr_cntx=Ra.s;
!   Ra.v[1]=Rd.s+120;
    Ra.v[2]=Rd.s+16;
    Ra.sl[6]=314; /* line # 314 */
    Rv0=1;
    Rv1=((UB *)F_spc)[1]+1;
    Rv2=1;
    Ra.sl[6]=321; /* line # 321 */
    while (F_pf!=NULL&&Rv0){
