lang equ ru ; ; Assembler ; SMALL ; CODE ; Graphics ; Libary ; ; Ver 0.18 By Pavlushin Evgeni (RUSSIA) ; www.waptap@mail.ru ;InfoList ;0.01 LoadImage ;0.02 SetBmp ;0.03 Bmptoimg, Setimg ~01.03.2004 ;0.04 Bug deleted, copyimg ~03.05.2004 ;0.05 fullimg, collimg ~05.05.2004 ;0.06 getimg ~09.05.2004 ;0.07 convbmp ~13.05.2004 ;0.08 fps ~14.05.2004 ;0.09 drawfbox ~03.06.2004 ;0.10 all macros optimized by Halyavin A., add at ~07.06.2004 ;0.11 many macros optimized by Halyavin A., add at ~30.08.2004 ;0.12 bmptoimg ~07.09.2004 ;0.13 imgtoimg ~08.09.2004 ;0.14 imgtoimg modify not brake bmp pict! ~09.09.2004 ;0.15 giftoimg, giftoani ~10.09.2004 ;0.16 setframe, rgbtobgr, setbmp deleted ~20.09.2004 ;0.17 modification giftoimg, giftoani, getframeoff ~01.10.2004 ;0.18 aframetoimg,aimgtoimg,frametoimg ~03.10.2004 aframetoimg_use_count=0 macro aframetoimg img, x, y, canvas,acol { local loo,loo2,acolor aframetoimg_use_count=aframetoimg_use_count+1 if aframetoimg_use_count = 1 jmp end_aframetoimg_proc acolor dd 0 aframetoimg_proc: ;getout coord mov [acolor],ebp mov edx,ebx ;img ;xsize movzx eax,word [edx] add eax,esi ;y cor ; mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,ebx ;img ;xsize movzx edx,word [ebp] add eax,edx mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size add ebx,4 mov eax,ebx ;img ;xsize movzx esi,word [eax] movzx edi,word [eax+2] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: ;test on alpha color mov eax,[edx] shl eax,8 shr eax,8 cmp eax,[acolor] jne yx add edx,3 add ebp,3 jmp nx yx: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx nx: dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_aframetoimg_proc: end if push img push canvas push x push y push acol pop ebp pop esi pop edi pop ecx pop ebx call aframetoimg_proc } frametoimg_use_count=0 macro frametoimg img, x, y, canvas { local loo,loo2 frametoimg_use_count=frametoimg_use_count+1 if frametoimg_use_count = 1 jmp end_frametoimg_proc frametoimg_proc: ;getout coord mov edx,ebx ;img ;xsize movzx eax,word [edx] add eax,esi ;y cor ; mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,ebx ;img ;xsize movzx edx,word [ebp] add eax,edx mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size add ebx,4 mov eax,ebx ;img ;xsize movzx esi,word [eax] movzx edi,word [eax+2] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_frametoimg_proc: end if push img push canvas push x push y pop esi pop edi pop ecx pop ebx call frametoimg_proc } aimgtoimg_use_count=0 macro aimgtoimg img, x, y, canvas,acol { local loo,loo2,acolor aimgtoimg_use_count=aimgtoimg_use_count+1 if aimgtoimg_use_count = 1 jmp end_aimgtoimg_proc acolor dd 0 aimgtoimg_proc: ;getout coord mov [acolor],ebp mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size mov eax,ebx ;img ;xsize mov esi,[eax] add ebx,4 mov eax,ebx ; img+4 ;ysize mov edi,[eax] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: ;test on alpha color mov eax,[edx] shl eax,8 shr eax,8 cmp eax,[acolor] jne yx add edx,3 add ebp,3 jmp nx yx: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx nx: dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_aimgtoimg_proc: end if push img push canvas push x push y push acol pop ebp pop esi pop edi pop ecx pop ebx call aimgtoimg_proc } imgtoimg_use_count=0 macro imgtoimg img, x, y, canvas { local loo,loo2 imgtoimg_use_count=imgtoimg_use_count+1 if imgtoimg_use_count = 1 jmp end_imgtoimg_proc imgtoimg_proc: ;getout coord mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size mov eax,ebx ;img ;xsize mov esi,[eax] add ebx,4 mov eax,ebx ; img+4 ;ysize mov edi,[eax] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_imgtoimg_proc: end if push img push canvas push x push y pop esi pop edi pop ecx pop ebx call imgtoimg_proc } ;DrawBox macro drawfbox x,y,xs,ys,color { words2reg ebx,x,xs ;x*65536+xs words2reg ecx,y,ys ;y*65536+ys mov edx,color mov eax,13 mcall } ; FPS - Set Frame Per Second Display fps_show_frequency=40 macro fps x,y,color,delcolor { local spdat,savetime,new_time,fps,fps_cntr,out_fps,new_time,ttt local no_out_fps jmp spdat savetime dd 0 fps_cntr dd 0 fps dd 0 ttt dd 0 spdat: get_time: mov eax,3 mcall cmp eax,[savetime] jne new_time inc [fps_cntr] cmp dword [ttt],0 je out_fps dec dword [ttt] jmp no_out_fps new_time: mov [savetime],eax mov ebx,[fps_cntr] mov [fps],ebx mov [fps_cntr],0 out_fps: if ~(delcolor eq ) mov ebx,x*65536+36 mov ecx,y*65536+7 mov edx,delcolor mov eax,13 mcall end if mov dword [ttt],fps_show_frequency mov eax,47 mov ebx,6*65536 ; mov bl,0 mov edx,x*65536+y mov esi,color mov ecx,[fps] mcall no_out_fps: } ; COLLIMG - Collusion image's _1dbounce_count=0; macro collimg img1_off,x1,y1,img2_off,x2,y2,otv { local bounce,exit,anot,bc,nbc mov esi,[img1_off] ;xs1 mov edi,[img2_off] ;ys2 mov eax,x1 ; mov ebx,x2 ; call _1dbounce mov edx,ecx mov esi,[img1_off+4] ;ys1 mov edi,[img2_off+4] ;ys2 mov eax,y1 ; mov ebx,y2 ; call _1dbounce add edx,ecx cmp edx,2 je bounce mov otv,0 jmp exit _1dbounce_count=_1dbounce_count+1 if _1dbounce_count = 1 _1dbounce: cmp ebx,eax jb anot add eax,esi cmp eax,ebx jbe nbc bc: mov ecx,1 ret anot: add ebx,edi cmp ebx,eax ja bc nbc: xor ecx,ecx ret end if bounce: mov otv,1 exit: } macro rgbtobgr image { local loo mov eax,[image] mul dword [image+4] mov ecx,eax mov esi,image+8 ; add esi,8 loo: mov al,[esi] mov bl,[esi+2] mov [esi],bl mov [esi+2],al add esi,3 dec ecx jnz loo } macro setimg x , y ,arg3 { mov eax,7 mov ebx,arg3 add ebx,8 mov cx,[arg3] shl ecx,16 add cx,[arg3+4] ; wordstoreg ecx,[arg3],[arg3+4] ; wordstoreg edx,x,y words2reg edx, x , y ;arg1*65536+arg2 mcall } macro setframe x , y ,arg3 { mov eax,7 mov ebx,arg3 add ebx,8 words2reg edx, x , y ;arg1*65536+arg2 add edx,dword [arg3] mov ecx,dword [arg3+4] mcall } macro getimg imgsrc,x,y,xs,ys,imgdest { local cyc if xs eqtype 0 mov dword [imgdest],xs else mov eax,xs mov dword [imgdest],eax end if if ys eqtype 0 mov dword [imgdest+4],ys else mov eax,ys mov dword [imgdest+4],eax end if mov eax,dword [imgsrc] ;getx size ; lea ecx,[eax+2*eax] mov ecx,eax shl ecx,1 add ecx,eax mov ebx,y mul ebx add eax,x mov edx,ecx lea eax,[eax+2*eax] ;eax=offset on imsrc ; mov ebp,eax ; shl eax,1 ; add eax,ebp mov ecx,xs mov ebx,ys mov edi,8+imgdest lea esi,[eax+8+imgsrc] ; mov esi,eax ; add esi,8 ; add esi,imgsrc cld cyc: movsw movsb dec ecx jne cyc add esi,edx mov ecx,xs sub esi,ecx sub esi,ecx sub esi,ecx dec ebx jne cyc } macro copyimg img2_off,img1_off { mov eax,dword [img1_off] mov ebx,dword [img1_off+4] mul ebx lea ecx,[eax+2*eax] lea esi,[img1_off+8] lea edi,[img2_off+8] cld rep movsb } macro fullimg img_off,xs,ys,color { local cop mov eax,xs mov ebx,ys mov dword [img_off],eax mov dword [img_off+4],ebx mul ebx lea ebp,[eax+2*eax] mov esi,color if color eqtype 0 6 else mov ecx,esi shr ecx,16 end if xor edi,edi cop: mov word [img_off+8+edi],si add edi,2 mov byte [img_off+8+edi],cl inc edi cmp edi,ebp jne cop } ; number of frame in ecx ; callculatin offset of raw data macro getframeoff num_of_frame,offset_of_animation,offset_of_frame { local loo,setpic mov ebp,num_of_frame ;ecx mov esi,offset_of_animation;Image loo: cmp ebp,0 je setpic movzx eax,word [esi+4] movzx ebx,word [esi+6] mul ebx ;dword [esi+4] mov ebx,3 mul ebx add eax,8 add esi,eax dec ebp jmp loo setpic: mov dword offset_of_frame,esi } ; BMPTOIMG -Convert BMP format TO IMG format ; (SYNTAX) BMPTOIMG BMP_source_offset,IMG_dest_ofset ; (SAMPLE) View BMPLS.ASM sample. ; ( NOTE ) This is macros is not brake bmp structure! Tested in 32,8,4 bits bmptoimg_data_area_count=0 macro bmptoimg bmp_load_area,img_dest_area { local fileinfo,string,end_bmp,nodix local converttable,noaddelem,nextbit,convert1bpp,convert4bpp,convert2 local nextelem,convertno32,nomorestring,convert1,nextstring,yespicsize ;local qwe,bmpfn ; convert: movzx eax,word [bmp_load_area+28] mul dword [bmp_load_area+18] add eax,31 shr eax,5 mov dword [bmptoimg_data_area_dwps],eax ;dwps-doublewords per string shl eax,2 mov dword [bmptoimg_data_area_bps],eax ;bps-bytes per string cmp dword [bmp_load_area+34],0 jne yespicsize ;if picture size is defined mul dword [bmp_load_area+22] mov dword [bmp_load_area+34],eax yespicsize: mov ebp,img_dest_area+8 mov eax,bmp_load_area mov ebx,eax add ebx, [bmp_load_area+2];file size inc ebx mov dword [bmptoimg_soi],ebx ;soi-start of image area for drawing add eax, [bmp_load_area+10] mov dword [bmptoimg_data_area_sop],eax ;sop-start of picture in file add eax, [bmp_load_area+34] mov dword [bmptoimg_data_area_eop],eax ;eop-end of picture in file mov eax, [bmp_load_area+18] lea eax,[eax+2*eax] ;3x pixels in eax mov edi,dword [bmptoimg_soi] ;initializing mov esi,dword [bmptoimg_data_area_eop] sub esi,dword [bmptoimg_data_area_bps] nextstring: push edi push ebp cmp word [bmp_load_area+28],24 jne convertno32 mov edi,ebp mov ecx,[bmptoimg_data_area_dwps] cld rep movsd convert1: pop ebp pop edi sub esi,dword [bmptoimg_data_area_bps] sub esi,dword [bmptoimg_data_area_bps] cmp esi,dword [bmptoimg_data_area_sop] jb end_bmp add edi,eax add ebp,eax jmp nextstring convertno32: mov ebx,bmp_load_area add ebx, [bmp_load_area+14] add ebx,14 ;start of color table push esi add esi,dword [bmptoimg_data_area_bps] mov dword [bmptoimg_data_area_eos],esi pop esi nextelem: push eax movzx eax,byte [esi] cmp word [bmp_load_area+28],4 je convert4bpp cmp word [bmp_load_area+28],1 je convert1bpp call converttable convert2: pop eax inc esi cmp esi,dword [bmptoimg_data_area_eos] jae convert1 add edi,3 add ebp,3 jmp nextelem convert4bpp: shl ax,4 shr al,4 push ax movzx eax,ah call converttable add edi,3 add ebp,3 pop ax movzx eax,al call converttable jmp convert2 convert1bpp: mov ecx,eax mov edx,7 nextbit: xor eax,eax bt ecx,edx jnc noaddelem inc eax noaddelem: push edx call converttable pop edx dec edx js convert2 add edi,3 add ebp,3 jmp nextbit converttable: shl eax,2 add eax,ebx mov edx, dword [eax] ; mov dword [edi],edx mov [ebp],edx ret bmptoimg_data_area_count=bmptoimg_data_area_count+1 if bmptoimg_data_area_count = 1 ; DATA AREA bmptoimg_soi dd 0 bmptoimg_data_area_bps dd 0 bmptoimg_data_area_dwps dd 0 bmptoimg_data_area_sop dd 0 bmptoimg_data_area_eop dd 0 bmptoimg_data_area_eos dd 0 end if end_bmp: mov eax,dword [bmp_load_area+18] mov ebx,dword [bmp_load_area+22] mov dword [img_dest_area],eax mov dword [img_dest_area+4],ebx } ; For convert RGB to BGR COLOR_ORDER equ MENUETOS macro giftoani gifsrc,imgsrc,num_of_frames { local hasharea, ReadGIF, nextblock,_null local globalColor, img_count, cur_info, img_start local codesize, compsize, bit_count, CC, EOI, Palette local block_ofs, table_ptr, gifmacend local no_gc, block_skip, no_comm, noextblock, uselocal local setPal, filltable, reinit, cycle, zadd, noinc local notintable, er, zend, nxt, continue, ex, Gif_skipmap local Gif_get_sym, shift, nextbl, noblock, loop1, exx local Gif_output, next, loop2 _null fix 0x1000 ; 0x1000 ; jmp sss ; if defined gif_hash_offset ; else ; hasharea: ; times 4096 dd 0 ;4096 ; end if ;sss: mov esi,gifsrc ;�����⥫� �� ��� 䠨� � ����� mov edi,imgsrc ;�����⥫� �� ᯨ᮪ ���⨭�� if defined gif_hash_offset mov eax,gif_hash_offset ;������ ������� ������ 4096*4 ���� else mov eax,hasharea ;������ ������� ������ 4096*4 ���� end if call ReadGIF push ecx pop dword num_of_frames jmp gifmacend if defined gif_hash_offset else hasharea: times 4096 dd 0 ;4096 end if ReadGIF: push esi edi mov [table_ptr],eax mov [cur_info],edi xor eax,eax mov [globalColor],eax mov [img_count],eax inc eax cmp dword[esi],'GIF8' jne er ; signature mov ecx,[esi+0xa] inc eax add esi,0xd mov edi,esi bt ecx,7 jnc nextblock mov [globalColor],esi call Gif_skipmap nextblock: cmp byte[edi],0x21 jne noextblock inc edi cmp byte[edi],0xf9 ; Graphic Control Ext jne no_gc add edi,7 jmp nextblock no_gc: cmp byte[edi],0xfe ; Comment Ext jne no_comm inc edi block_skip: movzx eax,byte[edi] lea edi,[edi+eax+1] cmp byte[edi],0 jnz block_skip inc edi jmp nextblock no_comm: cmp byte[edi],0xff ; Application Ext jne nextblock add edi,13 jmp block_skip noextblock: cmp byte[edi],0x2c ; image beginning jne er inc [img_count] inc edi mov esi,[cur_info] xchg esi,edi movsd movsd push edi movzx ecx,word[esi] inc esi bt ecx,7 jc uselocal push [globalColor] mov edi,esi jmp setPal uselocal: call Gif_skipmap push esi setPal: movzx ecx,byte[edi] inc ecx mov [codesize],ecx dec ecx pop [Palette] lea esi,[edi+1] mov edi,[table_ptr] xor eax,eax cld lodsb ; eax - block_count add eax,esi mov [block_ofs],eax mov [bit_count],8 mov eax,1 shl eax,cl mov [CC],eax inc eax mov [EOI],eax lea ecx,[eax-1] mov eax, _null shl 16 filltable: stosd inc eax loop filltable pop edi mov [img_start],edi reinit: mov edx,[EOI] inc edx push [codesize] pop [compsize] call Gif_get_sym cmp eax,[CC] je reinit call Gif_output cycle: movzx ebx,ax call Gif_get_sym cmp eax,edx jae notintable cmp eax,[CC] je reinit cmp eax,[EOI] je zend call Gif_output zadd: push eax mov eax,[table_ptr] mov [eax+edx*4],ebx pop eax cmp edx,0xFFF jae cycle inc edx bsr ebx,edx cmp ebx,[compsize] jne noinc inc [compsize] noinc: jmp cycle notintable: push eax mov eax,ebx call Gif_output push ebx movzx eax,bx call Gif_output pop ebx eax jmp zadd er: pop edi jmp ex zend: ; mov eax,[.cur_info] ; skip offset to next frame ; mov [eax],edi mov [cur_info],edi add esi,2 xchg esi,edi nxt: cmp byte[edi],0 jnz continue inc edi jmp nxt continue: cmp byte[edi],0x3b ;read next frame jne nextblock xor eax,eax stosd mov ecx,[img_count] ex: pop edi esi ret Gif_skipmap: ; in: ecx - image descriptor, esi - pointer to colormap ; out: edi - pointer to area after colormap and ecx,111b inc ecx ; color map size mov ebx,1 shl ebx,cl lea ebx,[ebx*2+ebx] lea edi,[esi+ebx] ret Gif_get_sym: mov ecx,[compsize] push ecx xor eax,eax shift: ror byte[esi],1 rcr eax,1 dec [bit_count] jnz loop1 inc esi cmp esi,[block_ofs] jb noblock push eax xor eax,eax lodsb test eax,eax jnz nextbl mov eax,[EOI] sub esi,2 add esp,8 jmp exx nextbl: add eax,esi mov [block_ofs],eax pop eax noblock: mov [bit_count],8 loop1: loop shift pop ecx rol eax,cl exx: xor ecx,ecx ret Gif_output: push esi eax edx mov edx,[table_ptr] next: push word[edx+eax*4] mov ax,word[edx+eax*4+2] inc ecx cmp ax,_null jnz next shl ebx,16 mov bx,[esp] loop2: pop ax lea esi,[eax+eax*2] add esi,[Palette] if COLOR_ORDER eq MENUETOS mov esi,[esi] bswap esi shr esi,8 mov [edi],esi add edi,3 else movsw movsb end if loop loop2 pop edx eax esi ret globalColor dd 1 img_count dd 1 cur_info dd 1 ; image table pointer img_start dd 1 codesize dd 1 compsize dd 1 bit_count dd 1 CC dd 1 EOI dd 1 Palette dd 1 block_ofs dd 1 table_ptr dd 1 gifmacend: } macro giftoimg gifsrc,imgsrc { local hasharea, ReadGIF, nextblock,_null local globalColor, img_count, cur_info, img_start local codesize, compsize, bit_count, CC, EOI, Palette local block_ofs, table_ptr, gifmacend local no_gc, block_skip, no_comm, noextblock, uselocal local setPal, filltable, reinit, cycle, zadd, noinc local notintable, er, zend, nxt, continue, ex, Gif_skipmap local Gif_get_sym, shift, nextbl, noblock, loop1, exx local Gif_output, next, loop2 _null fix 0x1000 ; 0x1000 mov esi,gifsrc ;�����⥫� �� ��� 䠨� � ����� mov edi,imgsrc ;�����⥫� �� ᯨ᮪ ���⨭�� if defined gif_hash_offset mov eax,gif_hash_offset ;������ ������� ������ 4096*4 ���� else mov eax,hasharea ;������ ������� ������ 4096*4 ���� end if call ReadGIF jmp gifmacend if defined gif_hash_offset else hasharea: times 4096 dd 0 ;4096 end if ReadGIF: push esi edi mov [table_ptr],eax mov [cur_info],edi xor eax,eax mov [globalColor],eax mov [img_count],eax inc eax cmp dword[esi],'GIF8' jne er ; signature mov ecx,[esi+0xa] inc eax add esi,0xd mov edi,esi bt ecx,7 jnc nextblock mov [globalColor],esi call Gif_skipmap nextblock: cmp byte[edi],0x21 jne noextblock inc edi cmp byte[edi],0xf9 ; Graphic Control Ext jne no_gc add edi,7 jmp nextblock no_gc: cmp byte[edi],0xfe ; Comment Ext jne no_comm inc edi block_skip: movzx eax,byte[edi] lea edi,[edi+eax+1] cmp byte[edi],0 jnz block_skip inc edi jmp nextblock no_comm: cmp byte[edi],0xff ; Application Ext jne nextblock add edi,13 jmp block_skip noextblock: cmp byte[edi],0x2c ; image beginning jne er inc [img_count] inc edi mov esi,[cur_info] xchg esi,edi ; movsd ; movsd mov bp,word[esi+4] movzx ebx,bp mov [edi],ebx mov bp,word[esi+6] movzx ebx,bp mov [edi+4],ebx add edi,8 add esi,8 push edi movzx ecx,word[esi] inc esi bt ecx,7 jc uselocal push [globalColor] mov edi,esi jmp setPal uselocal: call Gif_skipmap push esi setPal: movzx ecx,byte[edi] inc ecx mov [codesize],ecx dec ecx pop [Palette] lea esi,[edi+1] mov edi,[table_ptr] xor eax,eax cld lodsb ; eax - block_count add eax,esi mov [block_ofs],eax mov [bit_count],8 mov eax,1 shl eax,cl mov [CC],eax inc eax mov [EOI],eax lea ecx,[eax-1] mov eax, _null shl 16 filltable: stosd inc eax loop filltable pop edi mov [img_start],edi reinit: mov edx,[EOI] inc edx push [codesize] pop [compsize] call Gif_get_sym cmp eax,[CC] je reinit call Gif_output cycle: movzx ebx,ax call Gif_get_sym cmp eax,edx jae notintable cmp eax,[CC] je reinit cmp eax,[EOI] je zend call Gif_output zadd: push eax mov eax,[table_ptr] mov [eax+edx*4],ebx pop eax cmp edx,0xFFF jae cycle inc edx bsr ebx,edx cmp ebx,[compsize] jne noinc inc [compsize] noinc: jmp cycle notintable: push eax mov eax,ebx call Gif_output push ebx movzx eax,bx call Gif_output pop ebx eax jmp zadd er: pop edi jmp ex zend: ; mov eax,[.cur_info] ; skip offset to next frame ; mov [eax],edi mov [cur_info],edi add esi,2 xchg esi,edi nxt: cmp byte[edi],0 jnz continue inc edi jmp nxt continue: ; cmp byte[edi],0x3b ;read next frame ; jne nextblock xor eax,eax stosd mov ecx,[img_count] ex: pop edi esi ret Gif_skipmap: ; in: ecx - image descriptor, esi - pointer to colormap ; out: edi - pointer to area after colormap and ecx,111b inc ecx ; color map size mov ebx,1 shl ebx,cl lea ebx,[ebx*2+ebx] lea edi,[esi+ebx] ret Gif_get_sym: mov ecx,[compsize] push ecx xor eax,eax shift: ror byte[esi],1 rcr eax,1 dec [bit_count] jnz loop1 inc esi cmp esi,[block_ofs] jb noblock push eax xor eax,eax lodsb test eax,eax jnz nextbl mov eax,[EOI] sub esi,2 add esp,8 jmp exx nextbl: add eax,esi mov [block_ofs],eax pop eax noblock: mov [bit_count],8 loop1: loop shift pop ecx rol eax,cl exx: xor ecx,ecx ret Gif_output: push esi eax edx mov edx,[table_ptr] next: push word[edx+eax*4] mov ax,word[edx+eax*4+2] inc ecx cmp ax,_null jnz next shl ebx,16 mov bx,[esp] loop2: pop ax lea esi,[eax+eax*2] add esi,[Palette] if COLOR_ORDER eq MENUETOS mov esi,[esi] bswap esi shr esi,8 mov [edi],esi add edi,3 else movsw movsb end if loop loop2 pop edx eax esi ret globalColor dd 1 img_count dd 1 cur_info dd 1 ; image table pointer img_start dd 1 codesize dd 1 compsize dd 1 bit_count dd 1 CC dd 1 EOI dd 1 Palette dd 1 block_ofs dd 1 table_ptr dd 1 gifmacend: }