| 0,0 → 1,1017 |
|---|
| func color_24_to_4_bits |
| begin |
| push edx |
| mov dl,0 |
| cmp al,85 ; blue |
| jbe .p13green |
| or dl,0x01 |
| cmp al,170 |
| jbe .p13green |
| or dl,0x08 |
| .p13green: |
| shr eax,8 |
| cmp al,85 ; green |
| jbe .p13red |
| or dl,0x02 |
| cmp al,170 |
| jbe .p13red |
| or dl,0x08 |
| .p13red: |
| cmp ah,85 ; red |
| jbe .p13cont |
| or dl,0x04 |
| cmp ah,170 |
| jbe .p13cont |
| or dl,0x08 |
| .p13cont: |
| mov eax,edx |
| pop edx |
| ret |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_draw_rect.04 ;/////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; eax - x start |
| ; ebx - y start |
| ; ecx - x end |
| ; edx - y end |
| ; edi - color |
| ;----------------------------------------------------------------------------- |
| ;- eax(ebx) [x start]*65536 + [x size] |
| ;- ebx(ecx) [y start]*65536 + [y size] |
| ;- ecx(edx) color 0x00RRGGBB |
| ;----------------------------------------------------------------------------- |
| begin |
| pushad |
| cli |
| jif eax,e,ecx,.exit |
| jif ebx,e,edx,.exit |
| |
| call get_cursor_rect |
| |
| push eax |
| mov eax,edi |
| call color_24_to_4_bits |
| mov edi,eax |
| pop eax |
| |
| mov ebp,[0x3010] |
| movsx esi,word[ebp-0x3000+0] |
| add eax,esi |
| add ecx,esi |
| movsx esi,word[ebp-0x3000+4] |
| add ebx,esi |
| add edx,esi |
| ; add eax,[ebp-0x3000+0] |
| ; add ebx,[ebp-0x3000+4] |
| ; add ecx,[ebp-0x3000+0] |
| ; add edx,[ebp-0x3000+4] |
| |
| mov esi,[0x00003000] |
| mov esi,[CLIP_RECTS+esi*4] |
| mov ebp,[esi] |
| or ebp,ebp |
| jz .exit |
| add esi,4 |
| .nx: jif ecx,le,[rr.left],.skip |
| jif eax,ge,[rr.right],.skip |
| jif edx,le,[rr.top],.skip |
| jif ebx,ge,[rr.bottom],.skip |
| pushad |
| jif eax,ge,[rr.left],@f |
| mov eax,[rr.left] |
| @@: jif ebx,ge,[rr.top],@f |
| mov ebx,[rr.top] |
| @@: jif ecx,l,[rr.right],@f |
| mov ecx,[rr.right] |
| @@: jif edx,l,[rr.bottom],@f |
| mov edx,[rr.bottom] |
| @@: call is_intersect_rc |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put: sub edx,ebx |
| push edx edi ebx eax |
| mov edi,ebx |
| shl edi,6 |
| shl ebx,4 |
| add edi,ebx |
| shr eax,3 |
| add edi,eax |
| add edi,0x000A0000 |
| pop eax ebx |
| |
| mov ebx,eax |
| mov esi,ecx |
| sub esi,eax |
| mov dx,0x03CE |
| |
| ;edi = Offset in VMem |
| ;esi = Length |
| ;ebx = x |
| ; dx = Graphix Controller |
| |
| mov cl,bl ; Get StartBit |
| and ecx,07h |
| |
| mov eax,esi |
| add eax,ecx |
| cmp eax,8 ; Is x+Length<One Byte |
| jb .D_One |
| |
| mov ax,0xff08 ; 11111111b | BitMask Register |
| shr ah,cl ; BitMask |
| out dx,ax ; Write BitMask |
| push ecx |
| mov ah,[esp+4] |
| mov ecx,[esp+4+4] |
| push edi |
| .D_LL: ; Draw Left of Box |
| mov al,[edi] |
| mov [edi],ah |
| add edi,80 ; edi:=edi+80 |
| dec ecx |
| jnz .D_LL |
| pop edi |
| inc edi |
| pop ecx |
| |
| mov ax,0xFF08 ; BitMask Register |
| out dx,ax ; Write BitMask |
| |
| mov eax,esi |
| mov ch,8 |
| sub ch,cl |
| movzx ecx,ch |
| sub eax,ecx |
| shr eax,3 ; Length div 8 |
| |
| push edi ebx |
| mov ebx,[esp+8+4] |
| mov edx,eax |
| mov al,[esp+8] |
| .D_LC: |
| mov ecx,edx |
| rep stosb |
| add edi,80 |
| sub edi,edx |
| dec ebx |
| jnz .D_LC |
| pop ebx edi |
| add edi,edx |
| |
| mov ecx,ebx ; ecx:=x+Length |
| add ecx,esi |
| and ecx,07h ; ecx and 07 |
| mov ah,0ffh |
| shr ah,cl ; BitMask |
| jz .D_End |
| |
| not ah |
| mov al,8 ; BitMask Register |
| mov dx,03ceh ; Graphics Controller |
| out dx,ax ; Write BitMask |
| mov ecx,[esp+4] |
| mov al,[esp] |
| .D_LR: |
| mov ah,[edi] |
| mov [edi],al |
| add edi,80 |
| dec ecx |
| jnz .D_LR |
| |
| jmp .D_End |
| |
| .D_One: |
| mov ah,0ffh |
| shr ah,cl ; Left BitMask |
| |
| add ebx,esi |
| dec ebx |
| and ebx,07h |
| |
| mov ecx,7 |
| sub ecx,ebx |
| |
| mov bl,0ffh |
| shl bl,cl ; Right BitMask |
| |
| and ah,bl ; Full BitMask |
| mov al,8 ; BitMask Register |
| out dx,ax ; Write BitMask |
| mov ecx,[esp+4] |
| mov al,[esp] |
| .D_L: |
| mov dl,[edi] ; Fill Latches |
| mov [edi],al ; Write Pixel |
| add edi,80 |
| dec ecx |
| jnz .D_L |
| .D_End: |
| pop edi |
| add esp,4 |
| popad |
| .skip: |
| add esi,SR |
| dec ebp |
| jnz .nx |
| |
| .exit: |
| sti |
| popad |
| retn |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_draw_line.04 ;/////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; eax(ebx) [x start] shl 16 + [x end] |
| ; ebx(ecx) [y start] shl 16 + [y end] |
| ; ecx(edx) colour 0x00RRGGBB |
| ; edi = 0x00000001 force |
| ;----------------------------------------------------------------------------- |
| begin |
| push 0 |
| pushad |
| cli |
| |
| test ecx,0x01000000 |
| jnz .exit |
| |
| call get_cursor_rect |
| |
| mov eax,ecx |
| call color_24_to_4_bits |
| ; mov [esp+4*8],ecx |
| mov [esp+4*8],al |
| |
| movsx eax,word[esp+4*7] ; x end |
| cmp ax,[esp+4*7+2] ; x start |
| je dl.vert_line |
| movsx eax,word[esp+4*4] ; y end |
| cmp ax,[esp+4*4+2] ; y start |
| je dl.horz_line |
| |
| .exit: |
| sti |
| popad |
| add esp,4 |
| retn |
| |
| dl.vert_line: |
| push eax |
| mov cl,al |
| and cl,7 |
| mov ax,0x8008 |
| shr ah,cl |
| mov dx,0x03CE |
| out dx,ax |
| pop eax |
| mov ecx,[esp+4*8] |
| |
| test edi,1 |
| jnz .forced |
| mov esi,[0x00003000] |
| mov esi,[CLIP_RECTS+esi*4] |
| mov edi,[esi] |
| or edi,edi |
| jz .exit |
| add esi,4 |
| .nx: movsx ebx,word[esp+4*4+2] ; y start |
| movsx edx,word[esp+4*4] ; y end |
| cmp ebx,edx |
| je .exit |
| jl @f |
| xchg ebx,edx |
| @@: jif eax,l,[rr.left],.skip |
| jif eax,ge,[rr.right],.skip |
| jif edx,l,[rr.top],.skip |
| jif ebx,ge,[rr.bottom],.skip |
| jif ebx,ge,[rr.top],@f |
| mov ebx,[rr.top] |
| @@: jif edx,l,[rr.bottom],@f |
| mov edx,[rr.bottom] |
| dec edx |
| .draw: |
| @@: call is_intersect_vln |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put: push ebx eax |
| mov ebp,ebx |
| shl ebp,6 |
| shl ebx,4 |
| add ebp,ebx |
| shr eax,3 |
| add ebp,eax |
| add ebp,0x000A0000 |
| pop eax ebx |
| @@: mov ch,[ebp] |
| mov [ebp],cl |
| add ebp,80 |
| inc ebx |
| cmp ebx,edx |
| jle @b |
| .skip: |
| add esi,SR |
| dec edi |
| jnz .nx |
| .exit: |
| sti |
| popad |
| add esp,4 |
| retn |
| .forced: |
| jif eax,l,[viewport.left],.exit |
| jif eax,ge,[viewport.right],.exit |
| movsx ebx,word[esp+4*4+2] ; y start |
| movsx edx,word[esp+4*4] ; y end |
| jif ebx,e,edx,.exit |
| jl @f |
| xchg ebx,edx |
| @@: jif edx,l,[viewport.top],.exit |
| jif ebx,ge,[viewport.bottom],.exit |
| jif ebx,ge,[viewport.top],@f |
| mov ebx,[viewport.top] |
| @@: jif edx,l,[viewport.bottom],@f |
| mov edx,[viewport.bottom] |
| dec edx |
| @@: mov edi,1 |
| jmp .draw |
| |
| dl.horz_line: |
| cld |
| mov ecx,[esp+4*8] |
| test edi,1 |
| jnz .forced |
| mov esi,[0x00003000] |
| mov esi,[CLIP_RECTS+esi*4] |
| mov edi,[esi] |
| or edi,edi |
| jz .exit |
| add esi,4 |
| .nx: movsx ebx,word[esp+4*7+2] ; x start |
| movsx edx,word[esp+4*7] ; x end |
| cmp ebx,edx |
| je .exit |
| jl @f |
| xchg ebx,edx |
| @@: jif eax,l,[rr.top],.skip |
| jif eax,ge,[rr.bottom],.skip |
| jif edx,l,[rr.left],.skip |
| jif ebx,ge,[rr.right],.skip |
| jif ebx,ge,[rr.left],@f |
| mov ebx,[rr.left] |
| @@: jif edx,l,[rr.right],@f |
| mov edx,[rr.right] |
| dec edx |
| .draw: |
| @@: call is_intersect_hln |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put: push edi ebx eax |
| mov edi,eax |
| shl edi,6 |
| shl eax,4 |
| add edi,eax |
| shr ebx,3 |
| add edi,ebx |
| add edi,0x000A0000 |
| pop eax ebx |
| |
| push eax ebx edx esi ecx |
| mov esi,edx |
| sub esi,ebx |
| inc esi |
| mov dx,0x03CE |
| ;edi = Offset in VMem |
| ;esi = Length |
| ;ebx = x |
| ; dx = Graphix Controller |
| mov cl,bl ; Get StartBit |
| and ecx,07h |
| |
| mov eax,esi |
| add eax,ecx |
| cmp eax,8 ; Is x+Length<One Byte |
| jb .D_One |
| |
| mov ax,0xFF08 ; 11111111b | BitMask Register |
| shr ah,cl ; BitMask |
| out dx,ax ; Write BitMask |
| mov al,[edi] |
| mov eax,[esp] |
| mov [edi],al |
| inc edi |
| |
| mov ax,0xFF08 ; BitMask | BitMask Register |
| out dx,ax ; Write BitMask |
| |
| mov eax,esi |
| mov ch,8 |
| sub ch,cl |
| mov cl,ch |
| xor ch,ch |
| sub eax,ecx |
| shr eax,3 ; Length div 8 |
| mov ecx,eax |
| mov eax,[esp] |
| rep stosb |
| |
| mov ecx,ebx ; ecx:=x+Length |
| add ecx,esi |
| and ecx,07h ; ecx and 07 |
| mov ah,0ffh |
| shr ah,cl ; BitMask |
| jz .D_End |
| |
| not ah |
| mov al,8 ; BitMask Register |
| out dx,ax ; Write BitMask |
| mov cl,[edi] |
| mov eax,[esp] |
| mov [edi],al |
| jmp .D_End |
| |
| .D_One: |
| mov ax,0xff08 ; | BitMask Register |
| shr ah,cl ; Left BitMask |
| |
| add ebx,esi |
| dec ebx |
| and ebx,07h |
| |
| mov ecx,7 |
| sub ecx,ebx |
| |
| mov bl,0ffh |
| shl bl,cl ; Right BitMask |
| |
| and ah,bl ; Full BitMask |
| out dx,ax ; Write BitMask |
| |
| mov dl,[edi] ; Fill Latches |
| mov eax,[esp] |
| mov [edi],al ; Write Pixel |
| .D_End: |
| pop ecx esi edx ebx eax edi |
| |
| ; mov ebp,[bytes_per_scanline] |
| ; imul ebp,eax |
| ; lea ebp,[ebp+ebx*4] |
| ; add ebp,[lfb_address] |
| ; @@: test ecx,0x01000000 |
| ; jz .dr |
| ; mov ecx,[ebp] |
| ; not ecx |
| ; or ecx,0x01000000 |
| ; .dr: mov [ebp],ecx |
| ; add ebp,4 |
| ; inc ebx |
| ; cmp ebx,edx |
| ; jle @b |
| .skip: |
| add esi,SR |
| dec edi |
| jnz .nx |
| .exit: |
| sti |
| popad |
| add esp,4 |
| retn |
| .forced: |
| jif eax,l,[viewport.top],.exit |
| jif eax,ge,[viewport.bottom],.exit |
| movsx ebx,word[esp+4*7+2] ; x start |
| movsx edx,word[esp+4*7] ; x end |
| cmp ebx,edx |
| je .exit |
| jl @f |
| xchg ebx,edx |
| @@: jif edx,l,[viewport.left],.exit |
| jif ebx,ge,[viewport.right],.exit |
| jif ebx,ge,[viewport.left],@f |
| mov ebx,[viewport.left] |
| @@: jif edx,l,[viewport.right],@f |
| mov edx,[viewport.right] |
| dec edx |
| @@: mov edi,1 |
| jmp .draw |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_put_pixel.04 ;/////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; eax = x coordinate |
| ; ebx = y coordinate |
| ; ecx = ?? RR GG BB ; 0x01000000 negation |
| ; edi = 0x00000001 force |
| ;----------------------------------------------------------------------------- |
| begin |
| pushad |
| cli |
| ; mov edx,[bytes_per_scanline] |
| ; imul edx,ebx |
| ; lea edx,[edx+eax*4] |
| ; add edx,[lfb_address] |
| ; test ecx,0x01000000 |
| ; jz @f |
| ; mov ecx,[edx] |
| ; not ecx |
| @@: test edi,1 |
| jnz .forced |
| mov esi,[0x00003000] |
| mov esi,[CLIP_RECTS+esi*4] |
| mov edi,[esi] |
| or edi,edi |
| jz .exit |
| add esi,4 |
| @@: jif eax,l,[rr.left],.skip |
| jif eax,ge,[rr.right],.skip |
| jif ebx,l,[rr.top],.skip |
| jif ebx,ge,[rr.bottom],.skip |
| call get_cursor_rect |
| call is_intersect_pt |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put:;mov [edx],ecx |
| ; mov ax,SegA000 {Calculate Offset} |
| ; mov es,ax |
| ; mov bx,[y] |
| mov edi,ebx |
| shl edi,6 ; 80*y |
| shl ebx,4 |
| add edi,ebx |
| |
| push ecx |
| mov cl,al |
| shr eax,3 ; /8 |
| add edi,eax ; 80*y + (x/8) |
| |
| and cl,7 ; Get Bit that Changes |
| mov ax,0x8008 |
| shr ah,cl |
| mov dx,0x03CE |
| out dx,ax |
| add edi,0x000A0000 |
| |
| call color_24_to_4_bits |
| mov ah,[edi] ; dummy read |
| mov [edi],al |
| |
| .exit: |
| sti |
| popad |
| retn |
| .skip: |
| add esi,SR |
| dec edi |
| jnz @b |
| jmp .exit |
| .forced: |
| jif eax,l,[viewport.left],.exit |
| jif ebx,l,[viewport.top],.exit |
| jif eax,ge,[viewport.right],.exit |
| jif ebx,ge,[viewport.bottom],.exit |
| |
| ; mov ax,SegA000 {Calculate Offset} |
| ; mov es,ax |
| ; mov bx,[y] |
| mov edi,ebx |
| shl edi,6 ; 80*y |
| shl ebx,4 |
| add edi,ebx |
| |
| push ecx |
| mov cl,al |
| shr eax,3 ; /8 |
| add edi,eax ; 80*y + (x/8) |
| |
| and cl,7 ; Get Bit that Changes |
| mov ax,0x8008 |
| shr ah,cl |
| mov dx,0x03CE |
| out dx,ax |
| add edi,0x000A0000 |
| |
| pop eax |
| call color_24_to_4_bits |
| mov ah,[edi] ; dummy read |
| mov [edi],al |
| |
| sti |
| popad |
| retn |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_get_pixel.04 ;/////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; eax = x coordinate |
| ; ebx = y coordinate |
| ;----------------------------------------------------------------------------- |
| |
| clr_table dd \ |
| 0x00000000,0x00000080,0x00008000,0x00008080,\ |
| 0x00800000,0x00800080,0x00808000,0x00808080,\ |
| 0x00CCCCCC,0x000000FF,0x0000FF00,0x0000FFFF,\ |
| 0x00FF0000,0x00FF00FF,0x00FFFF00,0x00FFFFFF |
| |
| begin |
| pushad |
| cli |
| |
| mov edi,ebx |
| shl edi,6 ; 80*y |
| shl ebx,4 |
| add edi,ebx |
| mov cl,al |
| shr eax,3 ; /8 |
| add edi,eax ; 80*y + (x/8) |
| add edi,0x000A0000 |
| |
| and ecx,7 |
| neg ecx |
| add cl,7 |
| mov dx,0x03CE |
| xor bl,bl |
| mov ah,3 |
| @1: |
| mov al,4 |
| out dx,al |
| inc dx |
| mov al,ah |
| out dx,al |
| dec dx |
| mov al,[edi] |
| shr al,cl |
| and al,1 |
| xchg cl,ah |
| shl al,cl |
| xchg cl,ah |
| or bl,al |
| dec ah |
| jns @1 |
| |
| and ebx,0x0000000F |
| mov eax,[ebx*4+clr_table] |
| mov [esp+4*6],eax |
| |
| sti |
| popad |
| retn |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_put_image.04 ;/////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; eax(ebx) pointer to image in memory - RRGGBBRRGGBB.. |
| ; ebx(ecx) image size [x]*65536+[y] |
| ; ecx(edx) image position in window [x]*65536+[y] |
| ; ret: eax 0 succesful, 1 overlapped |
| ;----------------------------------------------------------------------------- |
| begin |
| mov eax,ebx |
| mov ebx,ecx |
| mov ecx,edx |
| .direct: |
| pushad |
| cli |
| jif ebx,z,0x0000FFFF,.exit,test |
| jif ebx,z,0xFFFF0000,.exit,test |
| |
| cld |
| |
| call get_cursor_rect |
| |
| mov ebp,eax |
| movsx eax,word[esp+4*6+2] |
| movsx ebx,word[esp+4*6] |
| movsx ecx,word[esp+4*4+2] |
| movsx edx,word[esp+4*4] |
| lea edi,[ecx*3] |
| push edi |
| add ecx,eax |
| add edx,ebx |
| mov edi,[0x00003010] |
| movsx esi,word[edi-0x3000+0] |
| add eax,esi |
| add ecx,esi |
| movsx esi,word[edi-0x3000+4] |
| add ebx,esi |
| add edx,esi |
| ; add eax,[esi-0x3000+0] |
| ; add ebx,[esi-0x3000+4] |
| ; add ecx,[esi-0x3000+0] |
| ; add edx,[esi-0x3000+4] |
| |
| mov esi,[0x00003000] |
| mov esi,[CLIP_RECTS+esi*4] |
| mov edi,[esi] |
| or edi,edi |
| jz .exit |
| add esi,4 |
| cld |
| .nx: jif ecx,l,[rr.left],.skip |
| jif eax,ge,[rr.right],.skip |
| jif edx,l,[rr.top],.skip |
| jif ebx,ge,[rr.bottom],.skip |
| pushad |
| jif eax,ge,[rr.left],@f |
| mov eax,[rr.left] |
| @@: jif ebx,ge,[rr.top],@f |
| mov ebx,[rr.top] |
| @@: jif ecx,l,[rr.right],@f |
| mov ecx,[rr.right] |
| @@: jif edx,l,[rr.bottom],@f |
| mov edx,[rr.bottom] |
| @@: call is_intersect_rc |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put: |
| mov esi,ebx |
| sub esi,[esp+4*4] |
| imul esi,[esp+4*8] |
| mov edi,eax |
| sub edi,[esp+4*7] |
| lea edi,[edi*3] |
| add esi,edi |
| add esi,ebp |
| mov edi,ebx |
| mov ebp,ebx |
| shl edi,6 ; 80*y |
| shl ebp,4 |
| add edi,ebp |
| add edi,0x000A0000 |
| .xxx: push eax edx esi edi ebx eax |
| or ebp,-1 |
| mov edx,0x03CE |
| @@: mov eax,[esp] |
| push ecx edi |
| mov cl,al |
| shr eax,3 ; /8 |
| add edi,eax ; 80*y + (x/8) |
| |
| mov eax,0x8008 |
| and cl,7 ; Get Bit that Changes |
| shr ah,cl |
| out dx,ax |
| |
| lodsd |
| dec esi |
| and eax,0x00FFFFFF |
| cmp eax,ebp |
| jne .ppp |
| mov cl,bl |
| jmp .ppp.2 |
| .ppp: |
| mov ebp,eax |
| call color_24_to_4_bits |
| mov bl,al |
| .ppp.2: |
| mov al,[edi] ; dummy read |
| mov [edi],cl |
| pop edi ecx |
| inc dword[esp] |
| cmp [esp],ecx |
| jl @b |
| pop eax ebx edi esi edx eax |
| inc ebx |
| add esi,[esp+4*8] |
| add edi,80 |
| cmp ebx,edx |
| jl .xxx |
| popad |
| .skip: |
| add esi,SR |
| dec edi |
| jnz .nx |
| |
| .exit: |
| add esp,4 |
| sti |
| popad |
| xor eax,eax |
| retn |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| func vm_mike_draw_bg.04 ;///////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| begin |
| pushad |
| |
| cmp byte[0x460000-12],1 |
| je .tiled |
| |
| mov eax,[viewport.left] |
| mov ebx,[viewport.top] |
| mov ecx,[viewport.right] |
| mov edx,[viewport.bottom] |
| mov edi,[0x00300000] |
| |
| cli |
| jif eax,e,ecx,.exit |
| jif ebx,e,edx,.exit |
| |
| call get_cursor_rect |
| |
| push eax |
| mov eax,edi |
| call color_24_to_4_bits |
| mov edi,eax |
| pop eax |
| |
| mov esi,[CLIP_RECTS+4] |
| mov ebp,[esi] |
| or ebp,ebp |
| jz .exit |
| add esi,4 |
| .nx: jif ecx,le,[rr.left],.skip |
| jif eax,ge,[rr.right],.skip |
| jif edx,le,[rr.top],.skip |
| jif ebx,ge,[rr.bottom],.skip |
| pushad |
| jif eax,ge,[rr.left],@f |
| mov eax,[rr.left] |
| @@: jif ebx,ge,[rr.top],@f |
| mov ebx,[rr.top] |
| @@: jif ecx,l,[rr.right],@f |
| mov ecx,[rr.right] |
| @@: jif edx,l,[rr.bottom],@f |
| mov edx,[rr.bottom] |
| @@: call is_intersect_rc |
| jc .put |
| cmp [mouse_invisible],0 |
| jne .put |
| call [SF.draw_mouse_under] |
| mov [mouse_invisible],1 |
| .put: sub edx,ebx |
| push edx edi ebx eax |
| mov edi,ebx |
| shl edi,6 |
| shl ebx,4 |
| add edi,ebx |
| shr eax,3 |
| add edi,eax |
| add edi,0x000A0000 |
| pop eax ebx |
| |
| mov ebx,eax |
| mov esi,ecx |
| sub esi,eax |
| mov dx,0x03CE |
| |
| ;edi = Offset in VMem |
| ;esi = Length |
| ;ebx = x |
| ; dx = Graphix Controller |
| |
| mov cl,bl ; Get StartBit |
| and ecx,07h |
| |
| mov eax,esi |
| add eax,ecx |
| cmp eax,8 ; Is x+Length<One Byte |
| jb .D_One |
| |
| mov ax,0xff08 ; 11111111b | BitMask Register |
| shr ah,cl ; BitMask |
| out dx,ax ; Write BitMask |
| push ecx |
| mov ah,[esp+4] |
| mov ecx,[esp+4+4] |
| push edi |
| .D_LL: ; Draw Left of Box |
| mov al,[edi] |
| mov [edi],ah |
| add edi,80 ; edi:=edi+80 |
| dec ecx |
| jnz .D_LL |
| pop edi |
| inc edi |
| pop ecx |
| |
| mov ax,0xFF08 ; BitMask Register |
| out dx,ax ; Write BitMask |
| |
| mov eax,esi |
| mov ch,8 |
| sub ch,cl |
| movzx ecx,ch |
| sub eax,ecx |
| shr eax,3 ; Length div 8 |
| |
| push edi ebx |
| mov ebx,[esp+8+4] |
| mov edx,eax |
| mov al,[esp+8] |
| .D_LC: |
| mov ecx,edx |
| rep stosb |
| add edi,80 |
| sub edi,edx |
| dec ebx |
| jnz .D_LC |
| pop ebx edi |
| add edi,edx |
| |
| mov ecx,ebx ; ecx:=x+Length |
| add ecx,esi |
| and ecx,07h ; ecx and 07 |
| mov ah,0ffh |
| shr ah,cl ; BitMask |
| jz .D_End |
| |
| not ah |
| mov al,8 ; BitMask Register |
| mov dx,03ceh ; Graphics Controller |
| out dx,ax ; Write BitMask |
| mov ecx,[esp+4] |
| mov al,[esp] |
| .D_LR: |
| mov ah,[edi] |
| mov [edi],al |
| add edi,80 |
| dec ecx |
| jnz .D_LR |
| |
| jmp .D_End |
| |
| .D_One: |
| mov ah,0ffh |
| shr ah,cl ; Left BitMask |
| |
| add ebx,esi |
| dec ebx |
| and ebx,07h |
| |
| mov ecx,7 |
| sub ecx,ebx |
| |
| mov bl,0ffh |
| shl bl,cl ; Right BitMask |
| |
| and ah,bl ; Full BitMask |
| mov al,8 ; BitMask Register |
| out dx,ax ; Write BitMask |
| mov ecx,[esp+4] |
| mov al,[esp] |
| .D_L: |
| mov dl,[edi] ; Fill Latches |
| mov [edi],al ; Write Pixel |
| add edi,80 |
| dec ecx |
| jnz .D_L |
| .D_End: |
| pop edi |
| add esp,4 |
| popad |
| .skip: |
| add esi,SR |
| dec ebp |
| jnz .nx |
| |
| .exit: |
| sti |
| popad |
| retn |
| |
| .tiled: |
| mov eax,bg_address |
| mov ebx,[bg_width-2] |
| mov bx,word[bg_height] |
| xor ecx,ecx |
| xor edx,edx |
| .lp1: push eax |
| call vm_mike_put_image.04.direct |
| pop eax |
| add edx,[bg_width] |
| cmp edx,[screen_width] |
| jae @f |
| shl edx,16 |
| add ecx,edx |
| shr edx,16 |
| jmp .lp1 |
| @@: and ecx,0x0000FFFF |
| xor edx,edx |
| add ecx,[bg_height] |
| cmp ecx,[screen_height] |
| jb .lp1 |
| popad |
| retn |
| endf |
| Property changes: |
|---|
| Added: svn:executable |
|---|
| +* |
|---|
| \ No newline at end of property |
|---|