Section One BBS

On Wednesday, October 9, 2019 at 2:55:44 PM UTC-4, Andreas Kohlbach wrote:
> Yes, post some snippets please. I won't be able to help because I am a
> lousy 6502 assembly coder but generally interested what you have done so
> far.
> --
> Andreas

It is written in C using cc65.  Here are two code snippets:
-------------------------
static unsigned sslz_getcomp (int pos, register unsigned char len)
{
   register unsigned i2, j2; //register unsigned char k;
   static unsigned char k, n, o;//=0;
   static unsigned char comp, compa, bestcomp;
   bestcomp=(len<<3)+2;
   tmpcptr=&InBuffer[pos];
   i=5;
   if (len<=3) i=7;
   if (len<=2) i=7;
   j2=(len<=2?60:len<=3?600:7*1024);
   if (pos<j2) j2=pos;
   o=0;
   for (i2=1; i2<=j2; ++i2) {
      --tmpcptr;
      if (len>=4) {
         if (i2==1) {i+=3; k+=3;}
         if (i2==250) {i+=4; k+=3;}
         if (i2==1800) {i+=3; k+=3;}
      }
      j=i; n=0;
      for (e=0; e<len; ++e) {
         if (cin[e]==((unsigned char*)tmpcptr)[e]) {
            sslz_tocomp[e]=1;
            ++n;
            ++j;
         } else {
            sslz_tocomp[e]=0;
            j+=9;
         }
      }
      if (j<bestcomp && n>=2) {
         if (n>=2) o=1;
         bestcomp=j;
         //m=1;
         sslz_offs=i2-1;
         //memcpy (&sslz_best, &sslz_tocomp, sizeof(sslz_tocomp));
         __asm__ (
            "\tldx\t_buflen\n"
            "\tdex\n"
            "@aaa:\r\n"
            "\tlda\t_sslz_tocomp,x\n"
            "\tsta\t_sslz_best,x\n"
            "\tdex\n"
            "\tbpl\t@aaa\n"
            );
      }
   }
   sslz_comp=bestcomp;
   return o;
}
-------------------------
      j=0; y=&InBuffer[in+i];
      for (k=0; k<108 && j<108; /*++k*/) {
         if ((len!=2 && len!=3 && len<7) && j>=12) {j=108; break;}
         m=0;
         --y;
         if ((unsigned)y<(unsigned)&InBuffer) {k= 108; break;}
         if (cin[i]==*y) break;
         if (j>=0) {
            for (l=1;l<=j; ++l) {
               //if (InBuffer[in+i-l-1]==InBuffer[in+i-j-1]) {
               if (*y==y[l]) {
                  m=1; break;
               }
            }
         }
         if (m) {++j; continue;}
         ++j;
         ++k;
      }
xcomp:
      l2=in+i;
      if (k<108 && j<108) {
         po_offs[i]=k;
//comp+=/*5-(k<4)*/(k<6?1:getnumbits(po_getnumlits(vz.InPos-buflen+i+1)));
         if (len!=2 && len!=3 && len<7) comp+=EstimDist(k,
po_getnumlits(in+i));
         else comp+=EstimDist (k, po_getnumlits2(l2));       }
      else {
         po_offs[i]=-1;
         if ((len!=2 && len!=3 && len<7)) x=po_writelit (l2, InBuffer[l2], &l);
         else x=po_writelit1a (in+i, InBuffer[in+i], &l);
         po_nl1[i]=x; po_nl2[i]=l;
         comp+=EstimDist (x, l)+1;
      }
   }
------------------------------

--- SoupGate-Win32 v1.05
 * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)