#include <platform.h>
#include "types.h"
#include "bgraph.h"

#include <string.h>


void bar32(int x1,int y1, int x2, int y2)
  {
  word *begline;
  int i,j;

  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (x1>x2) swap_int(x1,x2);
  if (y1>y2) swap_int(y1,y2);
  if (x1<0) x1=0;
  if (y1<0) y1=0;
  if (x2>mx) x2=mx;
  if (y2>my) y2=my;
  int32_t scr_linelen2 = GetScreenPitch();
  for (i=y1,begline=GetScreenAdr()+scr_linelen2*i;i<=y2;i++,begline+=scr_linelen2)
    {
    for (j=x1;j<=x2;j++) begline[j]=curcolor;
    }
  }

void hor_line32(int x1,int y1,int x2)
  {
  word *begline;
  int i;
  uint32_t curcolor2=curcolor | (curcolor<<16);

  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (y1<0 || y1>my) return;
  if (x1>x2) swap_int(x1,x2);
  if (x1<0) x1=0;
  if (x2>mx) x2=mx;
  int32_t scr_linelen2 = GetScreenPitch();
  begline=GetScreenAdr()+scr_linelen2*y1;
  for (i=x1;i<x2;i+=2) *(uint32_t *)(begline+i)=curcolor2;
  if (i==x2) begline[i]=curcolor;
  }

void ver_line32(int x1,int y1,int y2)
  {
  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  word *begline;
  int i;
  if (y1>y2) swap_int(y1,y2);
  if (x1<0 || x1>mx) return;
  if (y1<0) y1=0;
  if (y2>my) y2=my;
  int32_t scr_linelen2 = GetScreenPitch();
  begline=GetScreenAdr()+scr_linelen2*y1+x1;
  for (i=y1;i<=y2;i++,begline+=scr_linelen2) *begline=curcolor;
  }

void hor_line_xor(int x1,int y1,int x2)
  {
  word *begline;
  int i;
  uint32_t curcolor2=curcolor | (curcolor<<16);

  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (y1<0 || y1>my) return;
  if (x1>x2) swap_int(x1,x2);
  if (x1<0) x1=0;
  if (x2>mx) x2=mx;
  int32_t scr_linelen2 = GetScreenPitch();
  begline=GetScreenAdr()+scr_linelen2*y1;
  for (i=x1;i<x2;i+=2) *(uint32_t *)(begline+i)^=curcolor2;
  if (i==x2) begline[i]^=curcolor;
  }

void ver_line_xor(int x1,int y1,int y2)
  {
  word *begline;
  int i;

  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (y1>y2) swap_int(y1,y2);
  if (x1<0 || x1>mx) return;
  if (y1<0) y1=0;
  if (y2>my) y2=my;
  int32_t scr_linelen2 = GetScreenPitch();
  begline=GetScreenAdr()+scr_linelen2*y1+x1;
  for (i=y1;i<=y2;i++,begline+=scr_linelen2) *begline^=curcolor;
  }

void line_32(int x,int y,int xs,int ys)
  {
  int xp,yp,ly;
  if (xs==0) {ver_line32(x,y,y+ys);return;}
  if (ys==0) {hor_line32(x,y,x+xs);return;}
  if (xs<0)
	{
	x=x+xs;
	y=y+ys;
	ys=-ys;
	xs=-xs;
	}
  ly=y;
  for (xp=0;xp<=xs;xp++)
	{
	yp=(xp*ys+(xs>>1))/xs+y;
	  {
	  ver_line32(xp+x,ly,yp);
	  ly=yp+(ys>0)-(ys<0);
	  }
	}
  }


void char_32(word *posit,word *font,char znak)
//#pragma aux char_32 parm [edi] [esi] [eax] modify [eax ebx ecx edx]
  {
    int32_t scr_linelen2 = GetScreenPitch();

	word *edi = posit;
	unsigned char *esi = (unsigned char *)font;
	int al = znak;
	unsigned char dl,cl,ch,dh;
	word *ebx;

	word ax = esi[al*2]+256*esi[al*2+1];
	if (ax == 0) goto chrend;
	esi += ax;
	dl = 0;
	cl = *esi++;
	ch = *esi++;
chr6:
	ebx = edi;
	dh = ch;
chr5:
	if (dl != 0) goto chr1;
	al = *esi++;
	if (al == 0) goto chr2;
	if (al >= 8) goto chr3;
	ax = charcolors[(al-1)];
	if (ax == 0xffff) goto chr4;
	*ebx = ax;
	goto chr4;
chr3:if (al == 255) goto chrend;
	dl = al - 6;
chr1: dl--;
chr2:
chr4: ebx+=scr_linelen2;
	  dh--;
      if (dh!=0) goto chr5;
	  edi++;
	  cl--;
	  if (cl!=0) goto chr6;
chrend:;


/*

  __asm
    {
        mov     edi,posit;
        mov     esi,font;
        mov     al,znak
                        ;edi - pozice na obrazovce
                        ;esi - ukazatel na font
                        ;al - znak
        and     eax,0ffh
        mov     ax,[esi][eax*2]
        or      ax,ax
        jz      chrend
        add     esi,eax
        lodsw
        xor     dl,dl   ;dl - je citac transparetnich pozic
        mov     cx,ax  ;cl - XRES, ch - YRES
chr6:   mov     ebx,edi ;ebx - ukazuje po radcich v jednom sloupci
        mov     dh,ch   ;dh - bude citac radku
chr5:   or      dl,dl   ;pokud je dl = 0 pak se cte dalsi bajt
        jnz     chr1    ;jinak je dalsi bod jenom transparetni
        lodsb           ;cti barvu
        or      al,al   ;pokud je 0 pak je transparetni
        jz      chr2    ;preskoc kresleni
        cmp     al,8    ;8 a vice jsou informace o opakovanych transparetnich bodech
        jnc     chr3    ;(viz FONTEDIT.DOC). Pak se podle toho zarid
        and     eax,0ffh;v eax jen dolnich 8 bitu
        dec     al
        mov     ax,short ptr charcolors[EAX*2] ;vyjmi barvu
        cmp     ax,0xffff ;0xffff je barva ktera se nekresli;
        jz      chr4    ;
        mov     [ebx],ax;zobraz ji na obrazovce
        jmp     chr4    ;a skoc na konec smycky
chr3:   cmp     al,0ffh ;pokud je al=255 pak jsme narazily na terminator.
        jz      chrend  ;V tom pripade KONEC
        sub     al,6    ;odecti do al 6. Ziskas pocet transparetnich pozic
        mov     dl,al   ;uloz je do citace
chr1:   dec     dl      ;pro kazdou pozici to dl odecti dokud neni 0
chr2:
chr4:   add     ebx,scr_linelen;dalsi radka
        dec     dh      ;odecti citac radek
        jnz     chr5    ;dokud neni nula
        add     edi,2   ;dalsi sloupec
        dec     cl      ;odecti citac sloupcu
        jnz     chr6    ;dokud neni nula
chrend:                 ;konec
    }
*/
  }
void char2_32(word *posit,word *font,char znak)
//#pragma aux char2_32 parm [edi] [esi] [eax] modify [eax ebx ecx edx]
  {

	//nevim jestli se vola a kdy se vola, takze necham puvodni obsluhu
	  char_32(posit,font,znak);

	  /*__asm
    {
        mov edi,posit
        mov esi,font
        mov al,znak

                        ;edi - pozice na obrazovce
                        ;esi - ukazatel na font
                        ;al - znak
        and     eax,0ffh
        mov     ax,[esi][eax*2]
        or      ax,ax
        jz      chr2end
        add     esi,eax
        lodsw
        xor     dl,dl   ;dl - je citac transparetnich pozic
        mov     cx,ax  ;cl - XRES, ch - YRES
chr26:   mov     ebx,edi ;ebx - ukazuje po radcich v jednom sloupci
        mov     dh,ch   ;dh - bude citac radku
chr25:   or      dl,dl   ;pokud je dl = 0 pak se cte dalsi bajt
        jnz     chr21    ;jinak je dalsi bod jenom transparetni
        lodsb           ;cti barvu
        or      al,al   ;pokud je 0 pak je transparetni
        jz      chr22    ;preskoc kresleni
        cmp     al,8    ;8 a vice jsou informace o opakovanych transparetnich bodech
        jnc     chr23    ;(viz FONTEDIT.DOC). Pak se podle toho zarid
        and     eax,0ffh;v eax jen dolnich 8 bitu
        dec     al
        mov     ax,charcolors[EAX*2] ;vyjmi barvu
        push    ebx
        mov     [ebx],ax;zobraz ji na obrazovce
        mov     [ebx+2],ax;zobraz ji na obrazovce
        add     ebx,scr_linelen
        mov     [ebx],ax;zobraz ji na obrazovce
        mov     [ebx+2],ax;zobraz ji na obrazovce
        pop     ebx
        jmp     chr24    ;a skoc na konec smycky
chr23:   cmp     al,0ffh ;pokud je al=255 pak jsme narazily na terminator.
        jz      chr2end  ;V tom pripade KONEC
        sub     al,6    ;odecti do al 6. Ziskas pocet transparetnich pozic
        mov     dl,al   ;uloz je do citace
chr21:   dec     dl      ;pro kazdou pozici to dl odecti dokud neni 0
chr22:
chr24:  add     ebx,scr_linelen;dalsi radka
        add     ebx,scr_linelen
        dec     dh      ;odecti citac radek
        jnz     chr25    ;dokud neni nula
        add     edi,4   ;dalsi sloupec
        dec     cl      ;odecti citac sloupcu
        jnz     chr26    ;dokud neni nula
chr2end:              ;konec
    }
*/
  }

word charsize(word *font,char znak)
  {

	  unsigned char *esi = (unsigned char *)font;
	  int al = znak;
	  unsigned char cl,ch;

	  word ax = esi[al*2]+256*esi[al*2+1];
	  if (ax == 0) return 0;
	  esi += ax;
	  cl = *esi++;
	  ch = *esi++;
	  ax = (int)cl+256*(int)ch;
	  return ax;
/*
//#pragma aux charsize parm [esi] [eax]
  __asm
    {
    mov     esi,font
    mov     al,znak

              ;esi - ukazatel na font
                        ;al - znak
        and     eax,0ffh
        mov     ax,[esi][eax*2]
        or      ax,ax
        jz      chsend
        add     esi,eax
        lodsw
chsend: and     eax,0ffffh
    }*/
  }

void put_picture(word x,word y,void *p)
//#pragma aux put_picture parm [esi] [eax] [edi] modify [ebx ecx edx]
  {
  int32_t scr_linelen2 = GetScreenPitch();
  word *adr=GetScreenAdr()+scr_linelen2*y+x;
  word *data=p;
  word xs=data[0];
  word ys=data[1];
  word mode=data[2];
  word xss=xs;
  word yss=ys;

  if (x > DxGetResX() || y > DxGetResY()) return;


  if (x+xss>=DxGetResX()) xss=DxGetResX()-x;
  if (y+yss>=DxGetResY()) yss=DxGetResY()-y;

  data+=3;

  if (mode==15)
    {
    int i;
    int j;

    for (i=0;i<yss;i++,adr+=scr_linelen2,data+=(xs-xss))
      for (j=0;j<xss;j++)
        {
        adr[j]=((*data & ~0x1f)<<1) | (*data & 0x1f);
        data++;
        }
    }
  if (mode==16)
    {
    int i;
    int j;

    for (i=0;i<yss;i++,adr+=scr_linelen2,data+=(xs-xss))
      for (j=0;j<xss;j++)
        {
        adr[j]=*data;
        data++;
        }
    }
  if (mode==8 || mode==264)
    {
    word *table=data;
    uint8_t *cdata=(uint8_t *)(data+(mode==264?10*256:256));
    int i;
    int j;

    for (i=0;i<yss;i++,adr+=scr_linelen2,cdata+=(xs-xss))
      for (j=0;j<xss;j++)
        {
        if (*cdata)
        adr[j]=table[*cdata];
        cdata++;
        }
    }
  else if (mode==512 )
    {
    word *table=data;
    uint8_t *cdata=(uint8_t *)(data+256);
    int i;
    int j;

    for (i=0;i<yss;i++,adr+=scr_linelen2,cdata+=(xs-xss))
      for (j=0;j<xss;j++)
        {
        if (*cdata)
        adr[j]=table[*cdata]+(table[*cdata] & ~0x1F);
        cdata++;
        }
    }
  }
void get_picture(word x,word y,word xs,word ys,void *p)
  {
  int32_t scr_linelen2 = GetScreenPitch();
  word *adr=GetScreenAdr()+scr_linelen2*y+x;
  word *data=p;
  word xss=xs;
  word yss=ys;
  if (x > DxGetResX() || y > DxGetResY()) return;

  if (x+xss>=DxGetResX()) xss=DxGetResX()-x;
  if (y+yss>=DxGetResY()) yss=DxGetResY()-y;

  data[0]=xss;
  data[1]=yss;
  data[2]=16;
  data+=3;
    {
    int i;
    int j;

    for (i=0;i<yss;i++,adr+=scr_linelen2)
      for (j=0;j<xss;j++)
        {
        *data=adr[j];
        data++;
        }
    }
  }

void put_image(word *image,word *target,int start_line,int sizex,int sizey)
//#pragma aux put_image parm [ESI][EDI][EAX][EBX][EDX] modify [ECX]
  {
    int32_t scr_linelen2 = GetScreenPitch();
	word *esi = image;
	word *edi = target;
	int edx = sizey;
	int ecx = esi[0];
	esi = esi + 3 + start_line * ecx;

	while (edx) {
		memcpy(edi,esi,ecx*2);
		esi += ecx;
		edi += scr_linelen2;
		edx--;
	}
/*
  __asm
    {
        mov     esi,image
        mov     edi,target
        mov     eax,start_line
        mov     ebx,sizex
        mov     edx,sizey
             ;ESI - obrazek
                        ;EDI - obrazovka
                        ;EAX - startline
                        ;EBX - velikostx
                        ;EDX - velikosty
        shl     eax,1
        xor     ecx,ecx
        mov     cx,[esi]
        imul    eax,ecx
        add     esi,eax
        add     esi,6
        mov     eax,ecx
puti_lp:mov     ecx,ebx
        shr     ecx,1
        rep     movsd
        rcl     ecx,1
        rep     movsw
        mov     ecx,eax
        sub     ecx,ebx
        add     esi,ecx
        sub     edi,ebx
        sub     edi,ebx
        add     edi,scr_linelen
        dec     edx
        jnz     puti_lp
    }*/
  }

void put_8bit_clipped(void *src,void *trg,int startline,int velx,int vely)
//#pragma aux put_8bit_clipped parm [ESI][EDI][EAX][EBX][EDX] modify [ECX];
  {
    int32_t scr_linelen2 = GetScreenPitch();
	  if (src==NULL) return;
	  {
		  word *esi = src;
		  word *edi = trg;
		  word *paleta = esi+3;
		  int cx = esi[0];
		  unsigned char *imgdata = (unsigned char *)(esi + 3 + 256)+ startline * cx;

		  while (vely) {
			  int i;
			  for (i = 0; i < velx; i++)
					if (imgdata[i]) edi[i] = paleta[imgdata[i]];
			  imgdata += cx;
			  edi += scr_linelen2;
			  vely--;
		  }
	  }
}

  /*_asm
    {
        mov     esi,src
        mov     edi,trg
        mov     eax,startline
        mov     ebx,velx
        mov     edx,vely
                          ;ESI - obrazek
                         ;EDI - obrazovka
                         ;EAX - startline
                         ;EBX - velikostx
                         ;EDX - velikosty

        push    ebp
        mov     ebp,ebx
        xor     ecx,ecx
        mov     cx,[esi]
        imul    eax,ecx
        lea     ebx,[esi+6];
        add     esi,6+512
        add     esi,eax
        mov     eax,ecx
put8_lp:mov     ecx,ebp
        push    eax
put8lp2:xor     eax,eax
        lodsb
        or      eax,eax
        jz      put8_trns
        mov     eax,[ebx+eax*2]
        stosw
put8nxt:dec     ecx
        jnz     put8lp2
        pop     eax
        mov     ecx,eax
        sub     ecx,ebp
        add     esi,ecx
        sub     edi,ebp
        sub     edi,ebp
        add     edi,scr_linelen
        dec     edx
        jnz     put8_lp
        pop     ebp
        jmp     ende
put8_trns:
        add     edi,2
        jmp     put8nxt
ende:
    }*/

void put_textured_bar_(void *src,void *trg,int xsiz,int ysiz,int xofs,int yofs)
//#pragma aux put_textured_bar_ parm [EBX][EDI][EDX][ECX][ESI][EAX];
  {

    int32_t scr_linelen2 = GetScreenPitch();
	word *imghdr = (word *)src;
	word cx = imghdr[0];
	word cy = imghdr[1];
	word tp = imghdr[2];
	word *paleta = imghdr+3;
	word *target = (word *)trg;
	unsigned char *imgdata = (unsigned char *)(paleta+256);
	int y;

	xofs = xofs % cx;

	if (tp != 8) return;

	for (y = 0; y < ysiz; y++) {
		int yf = (yofs + y) % cy;
		unsigned char *row = imgdata +(yf * cx);
		int x;
		for (x = 0; x < xsiz; x++) {
			unsigned char c = row[(x + xofs) % cx];
			if (c) target[x] = paleta[c];
		}
		target+=scr_linelen2;
	}
}
/*
  __asm
    {
    mov    ebx,src
    mov    edi,trg
    mov    edx,xsiz
    mov    ecx,ysiz
    mov    esi,xofs
    mov    eax,yofs
                        ;zobrazi texturovany obdelnik tvoreny cyklickou texturou
                        ;vstup
                        ;    EDI - pozice na obrazovce
                        ;    EBX - textura
                        ;    ECX - velikosty
                        ;    EDX - velikostx
                        ;    EAX - yofs
                        ;    ESI - xofs

        push    ebp             ;uchovej EBP - bude pouzit jako univerzalni registr
        mov     ebp,eax         ;zacneme o EAX radku v texture niz
        shl     edx,16          ;nachvili uchovej dx v horni pulce
        mul     short ptr [ebx]  ;zjisti pocatecni adresu v texture
        shl     eax,16
        shrd    eax,edx,16      ;EAX=AX*word ptr[ebx]
        shr     edx,16
        xchg    esi,eax         ;napln esi pocatkem
        lea     esi,[esi+512]   ;vypocti zacatek v texture+xlat
        lea     ebx,[ebx+6]     ;postav ebx na zacatek xlat
        add     esi,ebx         ;pricti zacatek textury
        add     esi,eax         ;pricti k ukazateli ofset v x
ptb_l2: push    eax             ;uchovej xofset
        push    edx             ;uchovej velikost v x
        push    esi             ;uchovej zacatek radky v texture
        shl     ebp,16          ;odsun citac offset do horni pulky ebp
        add     bp,ax           ;pricti k bp offset v x
ptb_l1: xor     eax,eax         ;pred kazdym bodem vynuluj eax
        lodsb                   ;nacti barvu
        or      al,al
        jz      ptb_s1
        mov     ax,[ebx+eax*2];vyhledej barvu v palete
        mov     [edi],ax        ;zapis hicolor barvu
ptb_s1: add     edi,2
        inc     bp              ;zvys counter v x
        cmp     bp,[ebx-6]      ;byl dosazen pravy roh textury?
        jc      ptb_skip1       ;ne pokracuj
        mov     ax,bp           ;nacti eax counterem
        sub     esi,eax         ;odexti to cele od esi - tj spatky doleva
        xor     bp,bp
ptb_skip1:
        dec     edx
        jnz     ptb_l1
        shr     ebp,16          ;vrat counter pro y
        pop     esi             ;obnov pocatek v texture
        mov     ax,[ebx-6]      ;nalouduj do eax delku x (horni pulka je zarucene prazdna)
        add     esi,eax         ;pricti k esi
        inc     ebp             ;zvys y counter
        cmp     bp,[ebx-4]      ;test zda jsme dosahli dolniho rohu textury
        jc      ptb_skip2       ;ne pokracuj
        mov     eax,ebp         ;ano nalouduj eax
        mul     short ptr [ebx-6];vynasob ho delkou v x
        shl     eax,16
        shrd    eax,edx,16      ;eax=ax*word ptr [ebx-4]
        sub     esi,eax         ;jsme na zacatku
        xor     ebp,ebp
ptb_skip2:
        pop     edx             ;obnov zbyvajici registry
        pop     eax
        add     edi,scr_linelen;
        sub     edi,edx
        sub     edi,edx
        dec     ecx             ;odecti 1 od globalniho citace radek
        jnz     ptb_l2          ;konec velke smycky
        POP     EBP
    }
  }
*/
#define MIXTRANSP(a,b) ((((a) & 0xF7DE)+((b) & 0xF7DE))>>1)

void trans_bar(int x,int y,int xs,int ys,int barva)
  {
  int32_t scr_linelen2 = GetScreenPitch();
  word *begline;
  int x1=x;
  int y1=y;
  int x2=x+xs-1;
  int y2=y+ys-1;
  int i,j;

  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (x1>x2) swap_int(x1,x2);
  if (y1>y2) swap_int(y1,y2);
  if (x1<0) x1=0;
  if (y1<0) y1=0;
  if (x2>mx) x2=mx;
  if (y2>my) y2=my;
  for (i=y1,begline=GetScreenAdr()+scr_linelen2*i;i<=y2;i++,begline+=scr_linelen2)
    {
    for (j=x1;j<=x2;j++) begline[j]=MIXTRANSP(begline[j],barva);
    }
  }

void trans_line_x(int x,int y,int xs,int barva)
  {
  trans_bar(x,y,xs,1,barva);
  }

void trans_line_y(int x,int y,int ys,int barva)
  {
  trans_bar(x,y,1,ys,barva);
  }

void trans_bar25(int x,int y,int xs,int ys)
  {
  word *begline;
  int x1=x;
  int y1=y;
  int x2=x+xs-1;
  int y2=y+ys-1;
  int i,j;

  int32_t scr_linelen2 = GetScreenPitch();
  int mx =  DxGetResX() - 1;
  int my =  DxGetResY() - 1;

  if (x1>x2) swap_int(x1,x2);
  if (y1>y2) swap_int(y1,y2);
  if (x1<0) x1=0;
  if (y1<0) y1=0;
  if (x2>mx) x2=mx;
  if (y2>my) y2=my;
  for (i=y1,begline=GetScreenAdr()+scr_linelen2*i;i<=y2;i++,begline+=scr_linelen2)
    {
    for (j=x1;j<=x2;j++) begline[j]=MIXTRANSP(begline[j],MIXTRANSP(begline[j],0));
    }
  }

void wait_retrace()
  {

  }


#define pic_start (2+2+2+512*5+512*5)

void put_picture2picture(word *source,word *target,int xp,int yp)
//#pragma aux put_picture2picture parm [ESI][EDI][EAX][EDX] modify [ECX]
  {

   word *srchdr = (word *)source;
   word *trghdr = (word *)target;
   word src_cx = srchdr[0];
   word trg_cx = trghdr[0];
   word src_cy = srchdr[1];
   word y;

   unsigned char *srcimagedata = (unsigned char *)source+pic_start;
   unsigned char *trgimagedata = (unsigned char *)target+pic_start;
   trgimagedata+=trg_cx * yp + xp;
   for (y = 0; y < src_cy; y++) {
	   word x;
	   for (x = 0; x < src_cx; x++) {
		   if (srcimagedata[x]) trgimagedata[x] = srcimagedata[x];
	   }
	   trgimagedata+=trg_cx;
	   srcimagedata+=src_cx;
   }
}/*

  __asm
    {
    mov   esi,source
    mov   edi,target
    mov   eax,xp
    mov   edx,yp
                             ;ESI - obrazek 256c
                             ;EDI - obrazek 256
                             ;EAX - Xpos
                             ;EDX - Ypos
        movzx   ecx,short ptr [edi]              ;vyzvedni sirku obrazku
        imul    edx,ecx                         ;nova adresa=edi+(Xpos+sirka*Ypos)
        add     eax,edx
        mov     edx,ecx
        lea     edi,[edi+eax+pic_start]         ;edi obsahuje novou adresu
        mov     ecx,[esi]                       ;ecx obsahuje Xsize a Ysize obrazku
        sub     ecx,10000h                      ;Ysize-1
        lea     esi,[esi+pic_start]             ;nastav esi na zacatek bitmapy
ppp_lp2:push    ecx                             ;uchovej velikosti obrazku v zasobniku
ppp_lp1:lodsb                                   ;nacti bod ze zdroje
        or      al,al                           ;zkontroluj zda to neni transparentni barva
        jz      ppp_trn                         ;pokud je tak ji prezskoc
        mov     [edi],al                        ;zapis barvu
ppp_trn:inc     edi                             ;dalsi bod
        dec     cx                              ;odecitej x sirku
        jnz     ppp_lp1                         ;dokud to neni vse
        pop     ecx                             ;obnov ecx
        movzx   eax,cx                          ;vem jeste jednou sirku
        sub     eax,edx                         ;spocitej kolik bajtu je nutne
        sub     edi,eax                         ;prezkocit k dosazeni dalsi radky
        sub     ecx,10000h                      ;opakuj pro y radku
        jnc     ppp_lp2
    }
  }*/

