Top secrets sources NedoPC pentevo

#include "std.h"

#include "emul.h"
#include "vars.h"
#include "draw.h"
#include "dxrframe.h"
#include "dxr_atmf.h"
#include "dxr_atm7.h"
#include "fontatm2.h"

const int text_ofs = 0x1840;

static void line_atm7_8(unsigned char *dst, unsigned char *src, unsigned *tab0, unsigned char *font)
{
   unsigned i = 0;
   for (unsigned x = 0; x < 512; x += 0x10) {
      unsigned chr = src[(i+1) & 0x1F]; i++;
      unsigned *tab = tab0 + (chr << 2);
      chr = font[chr];
      *(unsigned*)(dst+x+0x00) = tab[(chr >> 6) & 0x03];
      *(unsigned*)(dst+x+0x04) = tab[(chr >> 4) & 0x03];
      *(unsigned*)(dst+x+0x08) = tab[(chr >> 2) & 0x03];
      *(unsigned*)(dst+x+0x0C) = tab[chr & 0x03];
   }
}

static void line_atm7_16(unsigned char *dst, unsigned char *src, unsigned *tab0, unsigned char *font)
{
   unsigned i = 0;
   for (unsigned x = 0; x < 512*2; x += 0x20) {
      unsigned chr = src[(i+1) & 0x1F]; i++;
      unsigned *tab = tab0+chr;
      chr = font[chr];
      *(unsigned*)(dst+x+0x00) = tab[((chr << 1) & 0x100)];
      *(unsigned*)(dst+x+0x04) = tab[((chr << 2) & 0x100)];
      *(unsigned*)(dst+x+0x08) = tab[((chr << 3) & 0x100)];
      *(unsigned*)(dst+x+0x0C) = tab[((chr << 4) & 0x100)];
      *(unsigned*)(dst+x+0x10) = tab[((chr << 5) & 0x100)];
      *(unsigned*)(dst+x+0x14) = tab[((chr << 6) & 0x100)];
      *(unsigned*)(dst+x+0x18) = tab[((chr << 7) & 0x100)];
      *(unsigned*)(dst+x+0x1C) = tab[((chr << 8) & 0x100)];
   }
}

static void line_atm7_32(unsigned char *dst, unsigned char *src, unsigned *tab0, unsigned char *font)
{
   unsigned i = 0;
   for (unsigned x = 0; x < 512*4; x += 0x40) {
      unsigned chr = src[(i+1) & 0x1F]; i++;
      unsigned *tab = tab0+chr;
      chr = font[chr];
      *(unsigned*)(dst+x+0x00) = *(unsigned*)(dst+x+0x04) = tab[((chr << 1) & 0x100)];
      *(unsigned*)(dst+x+0x08) = *(unsigned*)(dst+x+0x0C) = tab[((chr << 2) & 0x100)];
      *(unsigned*)(dst+x+0x10) = *(unsigned*)(dst+x+0x14) = tab[((chr << 3) & 0x100)];
      *(unsigned*)(dst+x+0x18) = *(unsigned*)(dst+x+0x1C) = tab[((chr << 4) & 0x100)];
      *(unsigned*)(dst+x+0x20) = *(unsigned*)(dst+x+0x24) = tab[((chr << 5) & 0x100)];
      *(unsigned*)(dst+x+0x28) = *(unsigned*)(dst+x+0x2C) = tab[((chr << 6) & 0x100)];
      *(unsigned*)(dst+x+0x30) = *(unsigned*)(dst+x+0x34) = tab[((chr << 7) & 0x100)];
      *(unsigned*)(dst+x+0x38) = *(unsigned*)(dst+x+0x3C) = tab[((chr << 8) & 0x100)];
   }
}

static void r_atm7_8s(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_8(dst, temp.base + text_ofs + y, t.zctab8ad[0], fontatm2 + v*0x100); dst += pitch;
         }
}

static void r_atm7_8d(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_8(dst, temp.base + text_ofs + y, t.zctab8ad[0], fontatm2 + v*0x100); dst += pitch;
            line_atm7_8(dst, temp.base + text_ofs + y, t.zctab8ad[1], fontatm2 + v*0x100); dst += pitch;
         }
}

static void r_atm7_16s(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_16(dst, temp.base + text_ofs + y, t.zctab16ad[0], fontatm2 + v*0x100); dst += pitch;
         }
}

static void r_atm7_16d(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_16(dst, temp.base + text_ofs + y, t.zctab16ad[0], fontatm2 + v*0x100); dst += pitch;
            line_atm7_16(dst, temp.base + text_ofs + y, t.zctab16ad[1], fontatm2 + v*0x100); dst += pitch;
         }
}

static void r_atm7_32s(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_32(dst, temp.base + text_ofs + y, t.zctab32ad[0], fontatm2 + v*0x100); dst += pitch;
         }
}

static void r_atm7_32d(unsigned char *dst, unsigned pitch)
{
   for (unsigned y = 0; y < 192; y += 32)
      for (unsigned s = 0; s < 4; s++)
         for (unsigned v = 0; v < 8; v++) {
            line_atm7_32(dst, temp.base + text_ofs + y, t.zctab32ad[0], fontatm2 + v*0x100); dst += pitch;
            line_atm7_32(dst, temp.base + text_ofs + y, t.zctab32ad[1], fontatm2 + v*0x100); dst += pitch;
         }
}

void rend_atm7(unsigned char *dst, unsigned pitch)
{
   unsigned char *dst2 = dst + (temp.ox-512)*temp.obpp/16;
   if (temp.scy > 200) dst2 += (temp.scy-192)/2*pitch * ((temp.oy > temp.scy)?2:1);
   if (temp.oy > temp.scy && conf.fast_sl) pitch *= 2;

   if(temp.obpp == 8)
   {
       if(conf.fast_sl)
       {
           rend_frame_8d1(dst, pitch);
           r_atm7_8s(dst2, pitch);
       }
       else
       {
           rend_frame_8d(dst, pitch);
           r_atm7_8d(dst2, pitch);
       }
       return;
   }
   if(temp.obpp == 16)
   {
       if(conf.fast_sl)
       {
           rend_frame_16d1(dst, pitch);
           r_atm7_16s(dst2, pitch);
       }
       else
       {
           rend_frame_16d(dst, pitch);
           r_atm7_16d(dst2, pitch);
       }
       return;
   }
   if(temp.obpp == 32)
   {
       if(conf.fast_sl)
       {
           rend_frame_32d1(dst, pitch);
           r_atm7_32s(dst2, pitch);
       }
       else
       {
           rend_frame_32d(dst, pitch);
           r_atm7_32d(dst2, pitch);
       }
       return;
   }
}