| 0,0 → 1,1388 |
|---|
| ; |
| ; 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, add at ~07.06.2004 |
| ;0.11 many macros optimized by halyavin, 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,offset |
| { |
| 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 |
| push eax ;;;;;;;;;;;;;;;;;;; |
| 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 |
| pop eax |
| add edx,eax |
| |
| 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 |
| push offset |
| pop eax |
| 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 |
| int 0x40 |
| } |
| |
| ; 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 |
| int 0x40 |
| 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+30 |
| mov ecx,y*65536+7 |
| mov edx,delcolor |
| mov eax,13 |
| int 0x40 |
| end if |
| mov dword [ttt],fps_show_frequency |
| mov eax,47 |
| mov ebx,5*65536 |
| ; mov bl,0 |
| mov edx,x*65536+y |
| mov esi,color |
| mov ecx,[fps] |
| int 0x40 |
| 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] |
| words2reg edx, x , y ;arg1*65536+arg2 |
| int 0x40 |
| } |
| |
| 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] |
| int 0x40 |
| } |
| |
| |
| 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 |
| mov ecx,color/65536 |
| 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 1000h ; 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: |
| } |
| |