WebSVN – Kolibri OS – Diff – /kernel/trunk/video/vesa20.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;  VESA20.INC                                                  ;;
;;                                                              ;;
;;  Vesa 2.0 functions for MenuetOS                             ;;
;;                                                              ;;
;;  Copyright 2002 Ville Turjanmaa                              ;;
;;  Alexey, kgaz@crosswindws.net                                ;;
;;  - Voodoo compatible graphics                                ;;
;;  Juan M. Caravaca                                            ;;
;;  - Graphics optimimizations eg. drawline                     ;;
;;                                                              ;;
;;  See file COPYING for details                                ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 2575 $
 
 
; If you're planning to write your own video driver I suggest
; you replace the VESA12.INC file and see those instructions.
 
;Screen_Max_X             equ     0xfe00
;Screen_Max_Y            equ     0xfe04
;BytesPerScanLine        equ     0xfe08
;LFBAddress              equ     0xfe80
;ScreenBPP               equ     0xfbf1
 
 
 
;-----------------------------------------------------------------------------
; getpixel
;
; in:
; eax = x coordinate
; ebx = y coordinate
;
; ret:
; ecx = 00 RR GG BB
;-----------------------------------------------------------------------------
align 4
getpixel:
        push    eax ebx edx edi
        call    dword [GETPIXEL]
        pop     edi edx ebx eax
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_getpixel24:
; eax = x
; ebx = y
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        je      @f
        cmp     [_display.select_cursor], 0
        jne     .no_mouseunder
;--------------------------------------
align 4
@@:
; check mouse area for putpixel
        test    ecx, 0x04000000  ; don't load to mouseunder area
        jnz     .no_mouseunder
        call    [_display.check_m_pixel]
        test    ecx, ecx        ;0xff000000
        jnz     @f
;--------------------------------------
align 4
.no_mouseunder:
;--------------------------------------
;        imul    ebx, [BytesPerScanLine] ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [eax+eax*2]; edi = x*3
        add     edi, ebx      ; edi = x*3+(y*y multiplier)
        mov     ecx, [LFB_BASE+edi]
;--------------------------------------
align 4
@@:
        and     ecx, 0xffffff
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_getpixel32:
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        je      @f
        cmp     [_display.select_cursor], 0
        jne     .no_mouseunder
;--------------------------------------
align 4
@@:
; check mouse area for putpixel
        test    ecx, 0x04000000  ; don't load to mouseunder area
        jnz     .no_mouseunder
        call    [_display.check_m_pixel]
        test    ecx, ecx        ;0xff000000
        jnz     @f
;--------------------------------------
align 4
.no_mouseunder:
;--------------------------------------
;        imul    ebx, [BytesPerScanLine] ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [ebx+eax*4]; edi = x*4+(y*y multiplier)
        mov     ecx, [LFB_BASE+edi]
;--------------------------------------
align 4
@@:
        and     ecx, 0xffffff
        ret
;-----------------------------------------------------------------------------
virtual at esp
 putimg:
   .real_sx        dd ?
   .real_sy        dd ?
   .image_sx       dd ?
   .image_sy       dd ?
   .image_cx       dd ?
   .image_cy       dd ?
   .pti            dd ?
   .abs_cx         dd ?
   .abs_cy         dd ?
   .line_increment dd ?
   .winmap_newline dd ?
   .screen_newline dd ?
   .real_sx_and_abs_cx dd ?
   .real_sy_and_abs_cy dd ?
   .stack_data = 4*14
   .edi         dd      ?
   .esi         dd      ?
   .ebp         dd      ?
   .esp         dd      ?
   .ebx         dd      ?
   .edx         dd      ?
   .ecx         dd      ?
   .eax         dd      ?
   .ret_addr    dd      ?
   .arg_0       dd      ?
end virtual
;-----------------------------------------------------------------------------
align 16
; ebx = pointer
; ecx = size [x|y]
; edx = coordinates [x|y]
; ebp = pointer to 'get' function
; esi = pointer to 'init' function
; edi = parameter for 'get' function
vesa20_putimage:
        pushad
        sub     esp, putimg.stack_data
; save pointer to image
        mov     [putimg.pti], ebx
; unpack the size
        mov     eax, ecx
        and     ecx, 0xFFFF
        shr     eax, 16
        mov     [putimg.image_sx], eax
        mov     [putimg.image_sy], ecx
; unpack the coordinates
        mov     eax, edx
        and     edx, 0xFFFF
        shr     eax, 16
        mov     [putimg.image_cx], eax
        mov     [putimg.image_cy], edx
; calculate absolute (i.e. screen) coordinates
        mov     eax, [TASK_BASE]
        mov     ebx, [eax-twdw + WDATA.box.left]
        add     ebx, [putimg.image_cx]
        mov     [putimg.abs_cx], ebx
        mov     ebx, [eax-twdw + WDATA.box.top]
        add     ebx, [putimg.image_cy]
        mov     [putimg.abs_cy], ebx
; real_sx = MIN(wnd_sx-image_cx, image_sx);
        mov     ebx, [eax-twdw + WDATA.box.width]; ebx = wnd_sx
; \begin{diamond}[20.08.2006]
; note that WDATA.box.width is one pixel less than real window x-size
        inc     ebx
; \end{diamond}[20.08.2006]
        sub     ebx, [putimg.image_cx]
        ja      @f
        add     esp, putimg.stack_data
        popad
        ret
;--------------------------------------
align 4
@@:
        cmp     ebx, [putimg.image_sx]
        jbe     .end_x
        mov     ebx, [putimg.image_sx]
;--------------------------------------
align 4
.end_x:
        mov     [putimg.real_sx], ebx
; init real_sy
        mov     ebx, [eax-twdw + WDATA.box.height]; ebx = wnd_sy
; \begin{diamond}[20.08.2006]
        inc     ebx
; \end{diamond}[20.08.2006]
        sub     ebx, [putimg.image_cy]
        ja      @f
        add     esp, putimg.stack_data
        popad
        ret
;--------------------------------------
align 4
@@:
        cmp     ebx, [putimg.image_sy]
        jbe     .end_y
        mov     ebx, [putimg.image_sy]
;--------------------------------------
align 4
.end_y:
        mov     [putimg.real_sy], ebx
; line increment
        mov     eax, [putimg.image_sx]
        mov     ecx, [putimg.real_sx]
        sub     eax, ecx
;;     imul    eax, [putimg.source_bpp]
;     lea     eax, [eax + eax * 2]
        call    esi
        add     eax, [putimg.arg_0]
        mov     [putimg.line_increment], eax
; winmap new line increment
        mov     eax, [Screen_Max_X]
        inc     eax
        sub     eax, [putimg.real_sx]
        mov     [putimg.winmap_newline], eax
; screen new line increment
        mov     eax, [BytesPerScanLine]
        movzx   ebx, byte [ScreenBPP]
        shr     ebx, 3
        imul    ecx, ebx
        sub     eax, ecx
        mov     [putimg.screen_newline], eax
; pointer to image
        mov     esi, [putimg.pti]
; pointer to screen
        mov     edx, [putimg.abs_cy]
;        imul    edx, [BytesPerScanLine]
        mov     edx, [BPSLine_calc_area+edx*4]
        mov     eax, [putimg.abs_cx]
;        movzx   ebx, byte [ScreenBPP]
;        shr     ebx, 3
        imul    eax, ebx
        add     edx, eax
; pointer to pixel map
        mov     eax, [putimg.abs_cy]
;        imul    eax, [Screen_Max_X]
;        add     eax, [putimg.abs_cy]
        mov     eax, [d_width_calc_area + eax*4]
 
        add     eax, [putimg.abs_cx]
        add     eax, [_WinMapAddress]
        xchg    eax, ebp
;--------------------------------------
        mov     ecx, [putimg.real_sx]
        add     ecx, [putimg.abs_cx]
        mov     [putimg.real_sx_and_abs_cx], ecx
        mov     ecx, [putimg.real_sy]
        add     ecx, [putimg.abs_cy]
        mov     [putimg.real_sy_and_abs_cy], ecx
;--------------------------------------
; get process number
        mov     ebx, [CURRENT_TASK]
        cmp     byte [ScreenBPP], 32
        je      put_image_end_32
;--------------------------------------
put_image_end_24:
        mov     edi, [putimg.real_sy]
;--------------------------------------
; check for hardware cursor
        mov     ecx, [_display.select_cursor]
        cmp     ecx, select_cursor
        je      put_image_end_24_new
        cmp     ecx, 0
        je      put_image_end_24_old
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
; store to real LFB
        mov     [LFB_BASE+edx], ax
        shr     eax, 16
        mov     [LFB_BASE+edx+2], al
;--------------------------------------
align 4
.skip:
        add     edx, 3
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
;--------------------------------------
align 4
.finish:
        add     esp, putimg.stack_data
        popad
        ret
;------------------------------------------------------------------------------
align 4
put_image_end_24_old:
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
        push    ecx
 
        neg     ecx
        add     ecx, [putimg.real_sx_and_abs_cx + 4]
        shl     ecx, 16
        add     ecx, [putimg.real_sy_and_abs_cy + 4]
        sub     ecx, edi
 
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel
        pop     ecx
; store to real LFB
        mov     [LFB_BASE+edx], ax
        shr     eax, 16
        mov     [LFB_BASE+edx+2], al
;--------------------------------------
align 4
.skip:
        add     edx, 3
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
        jmp     put_image_end_24.finish
;------------------------------------------------------------------------------
align 4
put_image_end_24_new:
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
        push    ecx
 
 
;--------------------------------------
align 4
 
 
.sh:
 
 
 
        neg     ecx
        add     ecx, [putimg.real_sx_and_abs_cx + 4]
 
;--------------------------------------
; check for X
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        shl     ecx, 16
 
        add     ecx, [putimg.real_sy_and_abs_cy + 4]
        sub     ecx, edi
;--------------------------------------
; check for Y
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
;--------------------------------------
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel_new.1
        cmp     ecx, -1   ;SHIT HAPPENS?
        jne     .no_mouse_area
 
        mov     ecx, [esp]
        jmp     .sh
;--------------------------------------
align 4
.no_mouse_area:
        pop     ecx
; store to real LFB
        mov     [LFB_BASE+edx], ax
        shr     eax, 16
        mov     [LFB_BASE+edx+2], al
;--------------------------------------
align 4
.skip:
        add     edx, 3
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
        jmp     put_image_end_24.finish
;------------------------------------------------------------------------------
align 4
put_image_end_32:
        mov     edi, [putimg.real_sy]
;--------------------------------------
; check for hardware cursor
        mov     ecx, [_display.select_cursor]
        cmp     ecx, select_cursor
        je      put_image_end_32_new
        cmp     ecx, 0
        je      put_image_end_32_old
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
; store to real LFB
        mov     [LFB_BASE+edx], eax
;--------------------------------------
align 4
.skip:
        add     edx, 4
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
;--------------------------------------
align 4
.finish:
        add     esp, putimg.stack_data
        popad
        cmp     [SCR_MODE], dword 0x12
        jne     @f
        call    VGA__putimage
;--------------------------------------
align 4
@@:
        mov     [EGA_counter], 1
        ret
;------------------------------------------------------------------------------
align 4
put_image_end_32_old:
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
        push    ecx
 
        neg     ecx
        add     ecx, [putimg.real_sx_and_abs_cx + 4]
        shl     ecx, 16
        add     ecx, [putimg.real_sy_and_abs_cy + 4]
        sub     ecx, edi
 
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel
        pop     ecx
; store to real LFB
        mov     [LFB_BASE+edx], eax
;--------------------------------------
align 4
.skip:
        add     edx, 4
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
        jmp     put_image_end_32.finish
;------------------------------------------------------------------------------
align 4
put_image_end_32_new:
;--------------------------------------
align 4
.new_line:
        mov     ecx, [putimg.real_sx]
;--------------------------------------
align 4
.new_x:
        push    [putimg.edi]
        mov     eax, [putimg.ebp+4]
        call    eax
        cmp     [ebp], bl
        jne     .skip
;--------------------------------------
        push    ecx
 
 
;--------------------------------------
align 4
 
 
.sh:
 
 
 
        neg     ecx
        add     ecx, [putimg.real_sx_and_abs_cx + 4]
 
;--------------------------------------
; check for X
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        shl     ecx, 16
 
        add     ecx, [putimg.real_sy_and_abs_cy + 4]
        sub     ecx, edi
;--------------------------------------
; check for Y
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
;--------------------------------------
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel_new.1
        cmp     ecx, -1   ;SHIT HAPPENS?
        jne     .no_mouse_area
 
        mov     ecx, [esp]
        jmp     .sh
;--------------------------------------
align 4
.no_mouse_area:
        pop     ecx
; store to real LFB
        mov     [LFB_BASE+edx], eax
;--------------------------------------
align 4
.skip:
        add     edx, 4
        inc     ebp
        dec     ecx
        jnz     .new_x
 
        add     esi, [putimg.line_increment]
        add     edx, [putimg.screen_newline];[BytesPerScanLine]
        add     ebp, [putimg.winmap_newline];[Screen_Max_X]
 
        cmp     [putimg.ebp], putimage_get1bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get2bpp
        jz      .correct
        cmp     [putimg.ebp], putimage_get4bpp
        jnz     @f
;--------------------------------------
align 4
.correct:
        mov     eax, [putimg.edi]
        mov     byte [eax], 80h
;--------------------------------------
align 4
@@:
        dec     edi
        jnz     .new_line
        jmp     put_image_end_32.finish
;------------------------------------------------------------------------------
align 4
__sys_putpixel:
 
; eax = x coordinate
; ebx = y coordinate
; ecx = ?? RR GG BB    ; 0x01000000 negation
                       ; 0x02000000 used for draw_rectangle without top line
                       ;            for example drawwindow_III and drawwindow_IV
; edi = 0x00000001 force
 
;;;        mov  [novesachecksum], dword 0
        pushad
        cmp     [Screen_Max_X], eax
        jb      .exit
        cmp     [Screen_Max_Y], ebx
        jb      .exit
        test    edi, 1           ; force ?
        jnz     .forced
 
; not forced:
        mov     edx, [d_width_calc_area + ebx*4]
        add     edx, [_WinMapAddress]
        movzx   edx, byte [eax+edx]
        cmp     edx, [CURRENT_TASK]
        jne     .exit
;--------------------------------------
align 4
.forced:
; check if negation
        test    ecx, 0x01000000
        jz      .noneg
 
        call    getpixel
        not     ecx
 
        rol     ecx, 8
        mov     cl, [esp+32-8+3]
        ror     ecx, 8
        mov     [esp+32-8], ecx
;--------------------------------------
align 4
.noneg:
; OK to set pixel
        call    dword [PUTPIXEL]; call the real put_pixel function
;--------------------------------------
align 4
.exit:
        popad
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_putpixel24:
; eax = x
; ebx = y
        mov     ecx, eax
        shl     ecx, 16
        mov     cx, bx
 
;        imul    ebx, [BytesPerScanLine]  ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [eax+eax*2]; edi = x*3
        mov     eax, [esp+32-8+4]
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], 0
        jne     @f
; check mouse area for putpixel
        test    eax, 0x04000000
        jnz     @f
        call    check_mouse_area_for_putpixel
;--------------------------------------
align 4
@@:
; store to real LFB
        mov     [LFB_BASE+ebx+edi], ax
        shr     eax, 16
        mov     [LFB_BASE+ebx+edi+2], al
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_putpixel24_new:
; eax = x
; ebx = y
        mov     ecx, eax
        shl     ecx, 16
        mov     cx, bx
 
;        imul    ebx, [BytesPerScanLine]  ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [eax+eax*2]; edi = x*3
        mov     eax, [esp+32-8+4]
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        jne     @f
; check mouse area for putpixel
        test    eax, 0x04000000
        jnz     @f
;--------------------------------------
; check for Y
 
 
 
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     @f
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      @f
 
        rol     ecx, 16
;--------------------------------------
; check for X
 
 
 
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     @f
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      @f
 
        ror     ecx, 16
 
        call    check_mouse_area_for_putpixel_new.1
;--------------------------------------
align 4
@@:
; store to real LFB
        mov     [LFB_BASE+ebx+edi], ax
        shr     eax, 16
        mov     [LFB_BASE+ebx+edi+2], al
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_putpixel32:
; eax = x
; ebx = y
        mov     ecx, eax
        shl     ecx, 16
        mov     cx, bx
 
;        imul    ebx, [BytesPerScanLine]  ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [ebx+eax*4]; edi = x*4+(y*y multiplier)
        mov     eax, [esp+32-8+4]; eax = color
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], 0
        jne     @f
; check mouse area for putpixel
        test    eax, 0x04000000
        jnz     @f
        call    check_mouse_area_for_putpixel
;--------------------------------------
align 4
@@:
        and     eax, 0xffffff
; store to real LFB
        mov     [LFB_BASE+edi], eax
        ret
;-----------------------------------------------------------------------------
align 4
Vesa20_putpixel32_new:
; eax = x
; ebx = y
        mov     ecx, eax
        shl     ecx, 16
        mov     cx, bx
 
;        imul    ebx, [BytesPerScanLine]  ; ebx = y * y multiplier
        mov     ebx, [BPSLine_calc_area+ebx*4]
        lea     edi, [ebx+eax*4]; edi = x*4+(y*y multiplier)
        mov     eax, [esp+32-8+4]; eax = color
;--------------------------------------
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        jne     @f
; check mouse area for putpixel
        test    eax, 0x04000000
        jnz     @f
;--------------------------------------
; check for Y
 
 
 
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     @f
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      @f
 
        rol     ecx, 16
;--------------------------------------
; check for X
 
 
 
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     @f
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      @f
 
        ror     ecx, 16
 
        call    check_mouse_area_for_putpixel_new.1
;--------------------------------------
align 4
@@:
        and     eax, 0xffffff
; store to real LFB
        mov     [LFB_BASE+edi], eax
        ret
;-----------------------------------------------------------------------------
align 4
calculate_edi:
;        mov     edi, ebx
;        imul    edi, [Screen_Max_X]
;        add     edi, ebx
        mov     edi, [d_width_calc_area + ebx*4]
        add     edi, eax
        ret
;-----------------------------------------------------------------------------
; DRAWLINE
;-----------------------------------------------------------------------------
align 4
__sys_draw_line:
; draw a line
; eax = HIWORD = x1
;       LOWORD = x2
; ebx = HIWORD = y1
;       LOWORD = y2
; ecx = color
; edi = force ?
        pusha
 
dl_x1 equ esp+20
dl_y1 equ esp+16
dl_x2 equ esp+12
dl_y2 equ esp+8
dl_dx equ esp+4
dl_dy equ esp+0
 
        xor     edx, edx   ; clear edx
        xor     esi, esi   ; unpack arguments
        xor     ebp, ebp
        mov     si, ax     ; esi = x2
        mov     bp, bx     ; ebp = y2
        shr     eax, 16    ; eax = x1
        shr     ebx, 16    ; ebx = y1
        push    eax        ; save x1
        push    ebx        ; save y1
        push    esi        ; save x2
        push    ebp        ; save y2
; checking x-axis...
        sub     esi, eax   ; esi = x2-x1
        push    esi        ; save y2-y1
        jl      .x2lx1     ; is x2 less than x1 ?
        jg      .no_vline  ; x1 > x2 ?
        mov     edx, ebp   ; else (if x1=x2)
        call    vline
        push    edx ; necessary to rightly restore stack frame at .exit
        jmp     .exit
;--------------------------------------
align 4
.x2lx1:
        neg     esi         ; get esi absolute value
;--------------------------------------
align 4
.no_vline:
; checking y-axis...
        sub     ebp, ebx    ; ebp = y2-y1
        push    ebp         ; save y2-y1
        jl      .y2ly1      ; is y2 less than y1 ?
        jg      .no_hline   ; y1 > y2 ?
        mov     edx, [dl_x2]; else (if y1=y2)
        call    hline
        jmp     .exit
;--------------------------------------
align 4
.y2ly1:
        neg     ebp         ; get ebp absolute value
;--------------------------------------
align 4
.no_hline:
        cmp     ebp, esi
        jle     .x_rules    ; |y2-y1| < |x2-x1|  ?
        cmp     [dl_y2], ebx; make sure y1 is at the begining
        jge     .no_reverse1
        neg     dword [dl_dx]
        mov     edx, [dl_x2]
        mov     [dl_x2], eax
        mov     [dl_x1], edx
        mov     edx, [dl_y2]
        mov     [dl_y2], ebx
        mov     [dl_y1], edx
;--------------------------------------
align 4
.no_reverse1:
        mov     eax, [dl_dx]
        cdq                 ; extend eax sing to edx
        shl     eax, 16     ; using 16bit fix-point maths
        idiv    ebp         ; eax = ((x2-x1)*65536)/(y2-y1)
;--------------------------------------
; correction for the remainder of the division
        shl     edx, 1
        cmp     ebp, edx
        jb      @f
        inc     eax
;--------------------------------------
align 4
@@:
;--------------------------------------
        mov     edx, ebp    ; edx = counter (number of pixels to draw)
        mov     ebp, 1 *65536; <<16   ; ebp = dy = 1.0
        mov     esi, eax    ; esi = dx
        jmp     .y_rules
;--------------------------------------
align 4
.x_rules:
        cmp     [dl_x2], eax ; make sure x1 is at the begining
        jge     .no_reverse2
        neg     dword [dl_dy]
        mov     edx, [dl_x2]
        mov     [dl_x2], eax
        mov     [dl_x1], edx
        mov     edx, [dl_y2]
        mov     [dl_y2], ebx
        mov     [dl_y1], edx
;--------------------------------------
align 4
.no_reverse2:
        xor     edx, edx
        mov     eax, [dl_dy]
        cdq                 ; extend eax sing to edx
        shl     eax, 16     ; using 16bit fix-point maths
        idiv    esi         ; eax = ((y2-y1)*65536)/(x2-x1)
;--------------------------------------
; correction for the remainder of the division
        shl     edx, 1
        cmp     esi, edx
        jb      @f
        inc     eax
;--------------------------------------
align 4
@@:
;--------------------------------------
        mov     edx, esi    ; edx = counter (number of pixels to draw)
        mov     esi, 1 *65536;<< 16   ; esi = dx = 1.0
        mov     ebp, eax    ; ebp = dy
;--------------------------------------
align 4
.y_rules:
        mov     eax, [dl_x1]
        mov     ebx, [dl_y1]
        shl     eax, 16
        shl     ebx, 16
 
        and     ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
;-----------------------------------------------------------------------------
align 4
.draw:
        push    eax ebx
;--------------------------------------
; correction for the remainder of the division
        test    ah, 0x80
        jz      @f
        add     eax, 1 shl 16
;--------------------------------------
align 4
@@:
;--------------------------------------
        shr     eax, 16
;--------------------------------------
; correction for the remainder of the division
        test    bh, 0x80
        jz      @f
        add     ebx, 1 shl 16
;--------------------------------------
align 4
@@:
;--------------------------------------
        shr     ebx, 16
;        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 save to mouseunder area
;        call    [putpixel]
        call    __sys_putpixel
        pop     ebx eax
        add     ebx, ebp     ; y = y+dy
        add     eax, esi     ; x = x+dx
        dec     edx
        jnz     .draw
; force last drawn pixel to be at (x2,y2)
        mov     eax, [dl_x2]
        mov     ebx, [dl_y2]
;        and     ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
;        call    [putpixel]
        call    __sys_putpixel
;--------------------------------------
align 4
.exit:
        add     esp, 6*4
        popa
;        call    [draw_pointer]
        ret
;------------------------------------------------------------------------------
align 4
hline:
; draw an horizontal line
; eax = x1
; edx = x2
; ebx = y
; ecx = color
; edi = force ?
        push    eax edx
        cmp     edx, eax   ; make sure x2 is above x1
        jge     @f
        xchg    eax, edx
;--------------------------------------
align 4
@@:
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 save to mouseunder area
;--------------------------------------
align 4
@@:
;        call    [putpixel]
        call    __sys_putpixel
        inc     eax
        cmp     eax, edx
        jle     @b
        pop     edx eax
        ret
;------------------------------------------------------------------------------
align 4
vline:
; draw a vertical line
; eax = x
; ebx = y1
; edx = y2
; ecx = color
; edi = force ?
        push    ebx edx
        cmp     edx, ebx   ; make sure y2 is above y1
        jge     @f
        xchg    ebx, edx
;--------------------------------------
align 4
@@:
        and     ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
;--------------------------------------
align 4
@@:
;        call    [putpixel]
        call    __sys_putpixel
        inc     ebx
        cmp     ebx, edx
        jle     @b
        pop     edx ebx
        ret
;------------------------------------------------------------------------------
align 4
virtual at esp
drbar:
     .bar_sx       dd ?
     .bar_sy       dd ?
     .bar_cx       dd ?
     .bar_cy       dd ?
     .abs_cx       dd ?
     .abs_cy       dd ?
     .real_sx      dd ?
     .real_sy      dd ?
     .color        dd ?
     .line_inc_scr dd ?
     .line_inc_map dd ?
     .real_sx_and_abs_cx dd ?
     .real_sy_and_abs_cy dd ?
     .stack_data = 4*13
end virtual
;--------------------------------------
align 4
; eax   cx
; ebx   cy
; ecx   xe
; edx   ye
; edi   color
vesa20_drawbar:
        pushad
        sub     esp, drbar.stack_data
        mov     [drbar.color], edi
        sub     edx, ebx
        jle     .exit       ;// mike.dld, 2005-01-29
        sub     ecx, eax
        jle     .exit       ;// mike.dld, 2005-01-29
        mov     [drbar.bar_sy], edx
        mov     [drbar.bar_sx], ecx
        mov     [drbar.bar_cx], eax
        mov     [drbar.bar_cy], ebx
        mov     edi, [TASK_BASE]
        add     eax, [edi-twdw + WDATA.box.left]; win_cx
        add     ebx, [edi-twdw + WDATA.box.top]; win_cy
        mov     [drbar.abs_cx], eax
        mov     [drbar.abs_cy], ebx
; real_sx = MIN(wnd_sx-bar_cx, bar_sx);
        mov     ebx, [edi-twdw + WDATA.box.width]; ebx = wnd_sx
; \begin{diamond}[20.08.2006]
; note that WDATA.box.width is one pixel less than real window x-size
        inc     ebx
; \end{diamond}[20.08.2006]
        sub     ebx, [drbar.bar_cx]
        ja      @f
;--------------------------------------
align 4
.exit:                       ;// mike.dld, 2005-01-29
        add     esp, drbar.stack_data
        popad
        xor     eax, eax
        inc     eax
        ret
;--------------------------------------
align 4
@@:
        cmp     ebx, [drbar.bar_sx]
        jbe     .end_x
        mov     ebx, [drbar.bar_sx]
;--------------------------------------
align 4
.end_x:
        mov     [drbar.real_sx], ebx
; real_sy = MIN(wnd_sy-bar_cy, bar_sy);
        mov     ebx, [edi-twdw + WDATA.box.height]; ebx = wnd_sy
; \begin{diamond}[20.08.2006]
        inc     ebx
; \end{diamond}
        sub     ebx, [drbar.bar_cy]
        ja      @f
        add     esp, drbar.stack_data
        popad
        xor     eax, eax
        inc     eax
        ret
;--------------------------------------
align 4
@@:
        cmp     ebx, [drbar.bar_sy]
        jbe     .end_y
        mov     ebx, [drbar.bar_sy]
;--------------------------------------
align 4
.end_y:
        mov     [drbar.real_sy], ebx
; line_inc_map
        mov     eax, [Screen_Max_X]
        sub     eax, [drbar.real_sx]
        inc     eax
        mov     [drbar.line_inc_map], eax
; line_inc_scr
        mov     eax, [drbar.real_sx]
        movzx   ebx, byte [ScreenBPP]
        shr     ebx, 3
        imul    eax, ebx
        neg     eax
        add     eax, [BytesPerScanLine]
        mov     [drbar.line_inc_scr], eax
; pointer to screen
        mov     edx, [drbar.abs_cy]
;        imul    edx, [BytesPerScanLine]
        mov     edx, [BPSLine_calc_area+edx*4]
        mov     eax, [drbar.abs_cx]
        imul    eax, ebx
        add     edx, eax
; pointer to pixel map
        mov     eax, [drbar.abs_cy]
;        imul    eax, [Screen_Max_X]
;        add     eax, [drbar.abs_cy]
        mov     eax, [d_width_calc_area + eax*4]
 
        add     eax, [drbar.abs_cx]
        add     eax, [_WinMapAddress]
        xchg    eax, ebp
;--------------------------------------
        mov     ebx, [drbar.real_sx]
        add     ebx, [drbar.abs_cx]
        mov     [drbar.real_sx_and_abs_cx], ebx
        mov     ebx, [drbar.real_sy]
        add     ebx, [drbar.abs_cy]
        mov     [drbar.real_sy_and_abs_cy], ebx
 
        add     edx, LFB_BASE
;--------------------------------------
; get process number
        mov     ebx, [CURRENT_TASK]  ; bl - process num
        mov     esi, [drbar.real_sy]
        mov     eax, [drbar.color] ; BBGGRR00
        rol     eax, 8
        mov     bh, al  ; 0x80 drawing gradient bars
        ror     eax, 8
        cmp     byte [ScreenBPP], 24
        jne     draw_bar_end_32
;--------------------------------------
align 4
draw_bar_end_24:
; eax - color high   RRGGBB
; bl - process num
; ecx - temp
; edx - pointer to screen
; esi - counter
; edi - counter
;--------------------------------------
; check for hardware cursor
        mov     ecx, [_display.select_cursor]
        cmp     ecx, select_cursor
        je      draw_bar_end_24_new
        cmp     ecx, 0
        je      draw_bar_end_24_old
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
; store to real LFB
        mov     [edx], ax
        shr     eax, 16
        mov     [edx + 2], al
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 3
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
;--------------------------------------
align 4
.end:
        add     esp, drbar.stack_data
        popad
        xor     eax, eax
        ret
;------------------------------------------------------------------------------
align 4
draw_bar_end_24_old:
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
        mov     ecx, [drbar.real_sx_and_abs_cx]
        sub     ecx, edi
        shl     ecx, 16
        add     ecx, [drbar.real_sy_and_abs_cy]
        sub     ecx, esi
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel
; store to real LFB
        mov     [edx], ax
        shr     eax, 16
        mov     [edx + 2], al
        mov     eax, [drbar.color]
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 3
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
        jmp     draw_bar_end_24.end
;------------------------------------------------------------------------------
align 4
draw_bar_end_24_new:
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
        mov     ecx, [drbar.real_sy_and_abs_cy]
        sub     ecx, esi
;--------------------------------------
; check for Y
 
 
 
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        rol     ecx, 16
        add     ecx, [drbar.real_sx_and_abs_cx]
        sub     ecx, edi
;--------------------------------------
; check for X
 
 
 
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        ror     ecx, 16
;--------------------------------------
; check mouse area for putpixel
        push    eax
        call    check_mouse_area_for_putpixel_new.1
        mov     [edx], ax
        shr     eax, 16
        mov     [edx + 2], al
        pop     eax
        jmp     .skip
; store to real LFB
;--------------------------------------
align 4
.no_mouse_area:
        mov     [edx], ax
        ror     eax, 16
        mov     [edx + 2], al
        rol     eax, 16
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 3
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
        jmp     draw_bar_end_24.end
;------------------------------------------------------------------------------
align 4
draw_bar_end_32:
; eax - color high   RRGGBB
; bl - process num
; ecx - temp
; edx - pointer to screen
; esi - counter
; edi - counter
;--------------------------------------
; check for hardware cursor
        mov     ecx, [_display.select_cursor]
        cmp     ecx, select_cursor
        je      draw_bar_end_32_new
        cmp     ecx, 0
        je      draw_bar_end_32_old
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
; store to real LFB
        mov     [edx], eax
        mov     eax, [drbar.color]
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 4
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
;--------------------------------------
align 4
.end:
        add     esp, drbar.stack_data
        popad
        cmp     [SCR_MODE], dword 0x12
        jne     @f
        call    VGA_draw_bar
;--------------------------------------
align 4
@@:
        xor     eax, eax
        mov     [EGA_counter], 1
        ret
;------------------------------------------------------------------------------
align 4
draw_bar_end_32_old:
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
        mov     ecx, [drbar.real_sx_and_abs_cx]
        sub     ecx, edi
        shl     ecx, 16
        add     ecx, [drbar.real_sy_and_abs_cy]
        sub     ecx, esi
 
; check mouse area for putpixel
        call    check_mouse_area_for_putpixel
; store to real LFB
        mov     [edx], eax
        mov     eax, [drbar.color]
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 4
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
        jmp     draw_bar_end_32.end
;------------------------------------------------------------------------------
align 4
draw_bar_end_32_new:
;--------------------------------------
align 4
.new_y:
        mov     edi, [drbar.real_sx]
;--------------------------------------
align 4
.new_x:
        cmp     byte [ebp], bl
        jne     .skip
;--------------------------------------
        mov     ecx, [drbar.real_sy_and_abs_cy]
        sub     ecx, esi
;--------------------------------------
; check for Y
 
 
 
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        rol     ecx, 16
        add     ecx, [drbar.real_sx_and_abs_cx]
        sub     ecx, edi
;--------------------------------------
; check for X
 
 
 
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        ror     ecx, 16
;--------------------------------------
; check mouse area for putpixel
        push    eax
        call    check_mouse_area_for_putpixel_new.1
        mov     [edx], eax
        pop     eax
        jmp     .skip
; store to real LFB
;--------------------------------------
align 4
.no_mouse_area:
        mov     [edx], eax
;--------------------------------------
align 4
.skip:
; add pixel
        add     edx, 4
        inc     ebp
        dec     edi
        jnz     .new_x
; add line
        add     edx, [drbar.line_inc_scr]
        add     ebp, [drbar.line_inc_map]
; drawing gradient bars
        test    bh, 0x80
        jz      @f
        test    al, al
        jz      @f
        dec     al
;--------------------------------------
align 4
@@:
        dec     esi
        jnz     .new_y
        jmp     draw_bar_end_32.end
;------------------------------------------------------------------------------
align 4
vesa20_drawbackground_tiled:
        pushad
; External loop for all y from start to end
        mov     ebx, [draw_data+32+RECT.top]    ; y start
;--------------------------------------
align 4
dp2:
        mov     ebp, [draw_data+32+RECT.left]   ; x start
; 1) Calculate pointers in WinMapAddress (does pixel belong to OS thread?) [ebp]
;                       and LFB data (output for our function) [edi]
;        mov     eax, [BytesPerScanLine]
;        mul     ebx
        mov     eax, [BPSLine_calc_area+ebx*4]
        xchg    ebp, eax
        add     ebp, eax
        add     ebp, eax
        add     ebp, eax
        cmp     [ScreenBPP], byte 24    ; 24 or 32 bpp ? - x size
        jz      @f
        add     ebp, eax
;--------------------------------------
align 4
@@:
        add     ebp, LFB_BASE
; ebp:=Y*BytesPerScanLine+X*BytesPerPixel+AddrLFB
        call    calculate_edi
        xchg    edi, ebp
        add     ebp, [_WinMapAddress]
; Now eax=x, ebx=y, edi->output, ebp=offset in WinMapAddress
; 2) Calculate offset in background memory block
        push    eax
        xor     edx, edx
        mov     eax, ebx
        div     dword [BgrDataHeight]   ; edx := y mod BgrDataHeight
        pop     eax
        push    eax
        mov     ecx, [BgrDataWidth]
        mov     esi, edx
        imul    esi, ecx                ; esi := (y mod BgrDataHeight) * BgrDataWidth
        xor     edx, edx
        div     ecx             ; edx := x mod BgrDataWidth
        sub     ecx, edx
        add     esi, edx        ; esi := (y mod BgrDataHeight)*BgrDataWidth + (x mod BgrDataWidth)
        pop     eax
        lea     esi, [esi*3]
        add     esi, [img_background]
        xor     edx, edx
        inc     edx
; 3) Loop through redraw rectangle and copy background data
; Registers meaning:
; eax = x, ebx = y (screen coordinates)
; ecx = deltax - number of pixels left in current tile block
; edx = 1
; esi -> bgr memory, edi -> output
; ebp = offset in WinMapAddress
;--------------------------------------
align 4
dp3:
        cmp     [ebp], dl
        jnz     nbgp
;--------------------------------------
        push    eax ecx
 
        mov     ecx, eax
        shl     ecx, 16
        add     ecx, ebx
 
        mov     eax, [esi]
 
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        je      @f
        cmp     [_display.select_cursor], 0
        jne     .no_mouseunder
;--------------------------------------
align 4
@@:
        and     eax, 0xffffff
; check mouse area for putpixel
        call    [_display.check_mouse]
;--------------------------------------
align 4
.no_mouseunder:
; store to real LFB
        mov     [edi], ax
        shr     eax, 16
        mov     [edi+2], al
 
        pop     ecx eax
;--------------------------------------
align 4
nbgp:
        add     esi, 3
        add     edi, 3
;--------------------------------------
align 4
@@:
        cmp     [ScreenBPP], byte 25    ; 24 or 32 bpp?
        sbb     edi, -1         ; +1 for 32 bpp
; I do not use 'inc eax' because this is slightly slower then 'add eax,1'
        add     ebp, edx
        add     eax, edx
        cmp     eax, [draw_data+32+RECT.right]
        ja      dp4
        sub     ecx, edx
        jnz     dp3
; next tile block on x-axis
        mov     ecx, [BgrDataWidth]
        sub     esi, ecx
        sub     esi, ecx
        sub     esi, ecx
        jmp     dp3
;--------------------------------------
align 4
dp4:
; next scan line
        inc     ebx
        cmp     ebx, [draw_data+32+RECT.bottom]
        jbe     dp2
        popad
        mov     [EGA_counter], 1
        cmp     [SCR_MODE], dword 0x12
        jne     @f
        call    VGA_drawbackground
;--------------------------------------
align 4
@@:
        ret
;------------------------------------------------------------------------------
align 4
vesa20_drawbackground_stretch:
        pushad
; Helper variables
; calculate 2^32*(BgrDataWidth-1) mod (ScreenWidth-1)
        mov     eax, [BgrDataWidth]
        dec     eax
        xor     edx, edx
        div     dword [Screen_Max_X]
        push    eax     ; high
        xor     eax, eax
        div     dword [Screen_Max_X]
        push    eax     ; low
; the same for height
        mov     eax, [BgrDataHeight]
        dec     eax
        xor     edx, edx
        div     dword [Screen_Max_Y]
        push    eax     ; high
        xor     eax, eax
        div     dword [Screen_Max_Y]
        push    eax     ; low
; External loop for all y from start to end
        mov     ebx, [draw_data+32+RECT.top]    ; y start
        mov     ebp, [draw_data+32+RECT.left]   ; x start
; 1) Calculate pointers in WinMapAddress (does pixel belong to OS thread?) [ebp]
;                       and LFB data (output for our function) [edi]
;        mov     eax, [BytesPerScanLine]
;        mul     ebx
        mov     eax, [BPSLine_calc_area+ebx*4]
        xchg    ebp, eax
        add     ebp, eax
        add     ebp, eax
        add     ebp, eax
        cmp     [ScreenBPP], byte 24    ; 24 or 32 bpp ? - x size
        jz      @f
        add     ebp, eax
;--------------------------------------
align 4
@@:
; ebp:=Y*BytesPerScanLine+X*BytesPerPixel+AddrLFB
        call    calculate_edi
        xchg    edi, ebp
; Now eax=x, ebx=y, edi->output, ebp=offset in WinMapAddress
        push    ebx
        push    eax
; 2) Calculate offset in background memory block
        mov     eax, ebx
        imul    ebx, dword [esp+12]
        mul     dword [esp+8]
        add     edx, ebx        ; edx:eax = y * 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
        mov     esi, edx
        imul    esi, [BgrDataWidth]
        push    edx
        push    eax
        mov     eax, [esp+8]
        mul     dword [esp+28]
        push    eax
        mov     eax, [esp+12]
        mul     dword [esp+28]
        add     [esp], edx
        pop     edx             ; edx:eax = x * 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
        add     esi, edx
        lea     esi, [esi*3]
        add     esi, [img_background]
        push    eax
        push    edx
        push    esi
; 3) Smooth horizontal
;--------------------------------------
align 4
bgr_resmooth0:
        mov     ecx, [esp+8]
        mov     edx, [esp+4]
        mov     esi, [esp]
        push    edi
        mov     edi, bgr_cur_line
        call    smooth_line
;--------------------------------------
align 4
bgr_resmooth1:
        mov     eax, [esp+16+4]
        inc     eax
        cmp     eax, [BgrDataHeight]
        jae     bgr.no2nd
        mov     ecx, [esp+8+4]
        mov     edx, [esp+4+4]
        mov     esi, [esp+4]
        add     esi, [BgrDataWidth]
        add     esi, [BgrDataWidth]
        add     esi, [BgrDataWidth]
        mov     edi, bgr_next_line
        call    smooth_line
;--------------------------------------
align 4
bgr.no2nd:
        pop     edi
;--------------------------------------
align 4
sdp3:
        xor     esi, esi
        mov     ecx, [esp+12]
; 4) Loop through redraw rectangle and copy background data
; Registers meaning:
; esi = offset in current line, edi -> output
; ebp = offset in WinMapAddress
; dword [esp] = offset in bgr data
; qword [esp+4] = x * 2^32 * (BgrDataWidth-1) / (ScreenWidth-1)
; qword [esp+12] = y * 2^32 * (BgrDataHeight-1) / (ScreenHeight-1)
; dword [esp+20] = x
; dword [esp+24] = y
; precalculated constants:
; qword [esp+28] = 2^32*(BgrDataHeight-1)/(ScreenHeight-1)
; qword [esp+36] = 2^32*(BgrDataWidth-1)/(ScreenWidth-1)
;--------------------------------------
align 4
sdp3a:
        mov     eax, [_WinMapAddress]
        cmp     [ebp+eax], byte 1
        jnz     snbgp
        mov     eax, [bgr_cur_line+esi]
        test    ecx, ecx
        jz      .novert
        mov     ebx, [bgr_next_line+esi]
        call    [overlapping_of_points_ptr]
;--------------------------------------
align 4
.novert:
        push    ecx
; check for hardware cursor
        cmp     [_display.select_cursor], select_cursor
        je      @f
        cmp     [_display.select_cursor], 0
        jne     .no_mouseunder
;--------------------------------------
align 4
@@:
        mov     ecx, [esp+20+4]        ;x
        shl     ecx, 16
        add     ecx, [esp+24+4]        ;y
; check mouse area for putpixel
        call    [_display.check_mouse]
;--------------------------------------
align 4
.no_mouseunder:
; store to real LFB
        mov     [LFB_BASE+edi], ax
        shr     eax, 16
        mov     [LFB_BASE+edi+2], al
        pop     ecx
;--------------------------------------
align 4
snbgp:
        cmp     [ScreenBPP], byte 25
        sbb     edi, -4
        add     ebp, 1
        mov     eax, [esp+20]
        add     eax, 1
        mov     [esp+20], eax
        add     esi, 4
        cmp     eax, [draw_data+32+RECT.right]
        jbe     sdp3a
;--------------------------------------
align 4
sdp4:
; next y
        mov     ebx, [esp+24]
        add     ebx, 1
        mov     [esp+24], ebx
        cmp     ebx, [draw_data+32+RECT.bottom]
        ja      sdpdone
; advance edi, ebp to next scan line
        sub     eax, [draw_data+32+RECT.left]
        sub     ebp, eax
        add     ebp, [Screen_Max_X]
        add     ebp, 1
        sub     edi, eax
        sub     edi, eax
        sub     edi, eax
        cmp     [ScreenBPP], byte 24
        jz      @f
        sub     edi, eax
;--------------------------------------
align 4
@@:
        add     edi, [BytesPerScanLine]
; restore ecx,edx; advance esi to next background line
        mov     eax, [esp+28]
        mov     ebx, [esp+32]
        add     [esp+12], eax
        mov     eax, [esp+16]
        adc     [esp+16], ebx
        sub     eax, [esp+16]
        mov     ebx, eax
        lea     eax, [eax*3]
        imul    eax, [BgrDataWidth]
        sub     [esp], eax
        mov     eax, [draw_data+32+RECT.left]
        mov     [esp+20], eax
        test    ebx, ebx
        jz      sdp3
        cmp     ebx, -1
        jnz     bgr_resmooth0
        push    edi
        mov     esi, bgr_next_line
        mov     edi, bgr_cur_line
        mov     ecx, [Screen_Max_X]
        inc     ecx
        rep movsd
        jmp     bgr_resmooth1
;--------------------------------------
align 4
sdpdone:
        add     esp, 44
        popad
        mov     [EGA_counter], 1
        cmp     [SCR_MODE], dword 0x12
        jne     @f
        call    VGA_drawbackground
;--------------------------------------
align 4
@@:
        ret
 
uglobal
;--------------------------------------
align 4
bgr_cur_line    rd      1920    ; maximum width of screen
bgr_next_line   rd      1920
;--------------------------------------
endg
;--------------------------------------
align 4
smooth_line:
        mov     al, [esi+2]
        shl     eax, 16
        mov     ax, [esi]
        test    ecx, ecx
        jz      @f
        mov     ebx, [esi+2]
        shr     ebx, 8
        call    [overlapping_of_points_ptr]
;--------------------------------------
align 4
@@:
        stosd
        mov     eax, [esp+20+8]
        add     eax, 1
        mov     [esp+20+8], eax
        cmp     eax, [draw_data+32+RECT.right]
        ja      @f
        add     ecx, [esp+36+8]
        mov     eax, edx
        adc     edx, [esp+40+8]
        sub     eax, edx
        lea     eax, [eax*3]
        sub     esi, eax
        jmp     smooth_line
;--------------------------------------
align 4
@@:
        mov     eax, [draw_data+32+RECT.left]
        mov     [esp+20+8], eax
        ret
;------------------------------------------------------------------------------
align 16
overlapping_of_points:
if 0
; this version of procedure works, but is slower than next version
        push    ecx edx
        mov     edx, eax
        push    esi
        shr     ecx, 24
        mov     esi, ecx
        mov     ecx, ebx
        movzx   ebx, dl
        movzx   eax, cl
        sub     eax, ebx
        movzx   ebx, dh
        imul    eax, esi
        add     dl, ah
        movzx   eax, ch
        sub     eax, ebx
        imul    eax, esi
        add     dh, ah
        ror     ecx, 16
        ror     edx, 16
        movzx   eax, cl
        movzx   ebx, dl
        sub     eax, ebx
        imul    eax, esi
        pop     esi
        add     dl, ah
        mov     eax, edx
        pop     edx
        ror     eax, 16
        pop     ecx
        ret
else
        push    ecx edx
        mov     edx, eax
        push    esi
        shr     ecx, 26
        mov     esi, ecx
        mov     ecx, ebx
        shl     esi, 9
        movzx   ebx, dl
        movzx   eax, cl
        sub     eax, ebx
        movzx   ebx, dh
        add     dl, [BgrAuxTable+(eax+0x100)+esi]
        movzx   eax, ch
        sub     eax, ebx
        add     dh, [BgrAuxTable+(eax+0x100)+esi]
        ror     ecx, 16
        ror     edx, 16
        movzx   eax, cl
        movzx   ebx, dl
        sub     eax, ebx
        add     dl, [BgrAuxTable+(eax+0x100)+esi]
        pop     esi
        mov     eax, edx
        pop     edx
        ror     eax, 16
        pop     ecx
        ret
end if
 
iglobal
;--------------------------------------
align 4
overlapping_of_points_ptr       dd      overlapping_of_points
;--------------------------------------
endg
;------------------------------------------------------------------------------
align 4
init_background:
        mov     edi, BgrAuxTable
        xor     edx, edx
;--------------------------------------
align 4
.loop2:
        mov     eax, edx
        shl     eax, 8
        neg     eax
        mov     ecx, 0x200
;--------------------------------------
align 4
.loop1:
        mov     byte [edi], ah
        inc     edi
        add     eax, edx
        loop    .loop1
        add     dl, 4
        jnz     .loop2
        test    byte [cpu_caps+(CAPS_MMX/8)], 1 shl (CAPS_MMX mod 8)
        jz      @f
        mov     [overlapping_of_points_ptr], overlapping_of_points_mmx
;--------------------------------------
align 4
@@:
        ret
;------------------------------------------------------------------------------
align 16
overlapping_of_points_mmx:
        movd    mm0, eax
        movd    mm4, eax
        movd    mm1, ebx
        pxor    mm2, mm2
        punpcklbw mm0, mm2
        punpcklbw mm1, mm2
        psubw   mm1, mm0
        movd    mm3, ecx
        psrld   mm3, 24
        packuswb mm3, mm3
        packuswb mm3, mm3
        pmullw  mm1, mm3
        psrlw   mm1, 8
        packuswb mm1, mm2
        paddb   mm4, mm1
        movd    eax, mm4
        ret
;------------------------------------------------------------------------------

Rev 2480	Rev 2575
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
4	;; Distributed under terms of the GNU General Public License ;;	4	;; Distributed under terms of the GNU General Public License ;;
5	;; ;;	5	;; ;;
6	;; VESA20.INC ;;	6	;; VESA20.INC ;;
7	;; ;;	7	;; ;;
8	;; Vesa 2.0 functions for MenuetOS ;;	8	;; Vesa 2.0 functions for MenuetOS ;;
9	;; ;;	9	;; ;;
10	;; Copyright 2002 Ville Turjanmaa ;;	10	;; Copyright 2002 Ville Turjanmaa ;;
11	;; Alexey, kgaz@crosswindws.net ;;	11	;; Alexey, kgaz@crosswindws.net ;;
12	;; - Voodoo compatible graphics ;;	12	;; - Voodoo compatible graphics ;;
13	;; Juan M. Caravaca ;;	13	;; Juan M. Caravaca ;;
14	;; - Graphics optimimizations eg. drawline ;;	14	;; - Graphics optimimizations eg. drawline ;;
15	;; ;;	15	;; ;;
16	;; See file COPYING for details ;;	16	;; See file COPYING for details ;;
17	;; ;;	17	;; ;;
18	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	18	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19		19
20	$Revision: 2480 $	20	$Revision: 2575 $
21		21
22		22
23	; If you're planning to write your own video driver I suggest	23	; If you're planning to write your own video driver I suggest
24	; you replace the VESA12.INC file and see those instructions.	24	; you replace the VESA12.INC file and see those instructions.
25		25
26	;Screen_Max_X equ 0xfe00	26	;Screen_Max_X equ 0xfe00
27	;Screen_Max_Y equ 0xfe04	27	;Screen_Max_Y equ 0xfe04
28	;BytesPerScanLine equ 0xfe08	28	;BytesPerScanLine equ 0xfe08
29	;LFBAddress equ 0xfe80	29	;LFBAddress equ 0xfe80
30	;ScreenBPP equ 0xfbf1	30	;ScreenBPP equ 0xfbf1
31		31
32		32
33		33
34	;-----------------------------------------------------------------------------	34	;-----------------------------------------------------------------------------
35	; getpixel	35	; getpixel
36	;	36	;
37	; in:	37	; in:
38	; eax = x coordinate	38	; eax = x coordinate
39	; ebx = y coordinate	39	; ebx = y coordinate
40	;	40	;
41	; ret:	41	; ret:
42	; ecx = 00 RR GG BB	42	; ecx = 00 RR GG BB
43	;-----------------------------------------------------------------------------	43	;-----------------------------------------------------------------------------
44	align 4	44	align 4
45	getpixel:	45	getpixel:
46	push eax ebx edx edi	46	push eax ebx edx edi
47	call dword [GETPIXEL]	47	call dword [GETPIXEL]
48	pop edi edx ebx eax	48	pop edi edx ebx eax
49	ret	49	ret
50	;-----------------------------------------------------------------------------	50	;-----------------------------------------------------------------------------
51	align 4	51	align 4
52	Vesa20_getpixel24:	52	Vesa20_getpixel24:
53	; eax = x	53	; eax = x
54	; ebx = y	54	; ebx = y
55	;--------------------------------------	55	;--------------------------------------
56	; check for hardware cursor	56	; check for hardware cursor
57	cmp [_display.select_cursor], select_cursor	57	cmp [_display.select_cursor], select_cursor
58	je @f	58	je @f
59	cmp [_display.select_cursor], 0	59	cmp [_display.select_cursor], 0
60	jne .no_mouseunder	60	jne .no_mouseunder
61	;--------------------------------------	61	;--------------------------------------
62	align 4	62	align 4
63	@@:	63	@@:
64	; check mouse area for putpixel	64	; check mouse area for putpixel
65	test ecx, 0x04000000 ; don't load to mouseunder area	65	test ecx, 0x04000000 ; don't load to mouseunder area
66	jnz .no_mouseunder	66	jnz .no_mouseunder
67	call [_display.check_m_pixel]	67	call [_display.check_m_pixel]
68	test ecx, ecx ;0xff000000	68	test ecx, ecx ;0xff000000
69	jnz @f	69	jnz @f
70	;--------------------------------------	70	;--------------------------------------
71	align 4	71	align 4
72	.no_mouseunder:	72	.no_mouseunder:
73	;--------------------------------------	73	;--------------------------------------
74	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier	74	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
75	mov ebx, [BPSLine_calc_area+ebx*4]	75	mov ebx, [BPSLine_calc_area+ebx*4]
76	lea edi, [eax+eax2]; edi = x3	76	lea edi, [eax+eax2]; edi = x3
77	add edi, ebx ; edi = x3+(yy multiplier)	77	add edi, ebx ; edi = x3+(yy multiplier)
78	mov ecx, [LFB_BASE+edi]	78	mov ecx, [LFB_BASE+edi]
79	;--------------------------------------	79	;--------------------------------------
80	align 4	80	align 4
81	@@:	81	@@:
82	and ecx, 0xffffff	82	and ecx, 0xffffff
83	ret	83	ret
84	;-----------------------------------------------------------------------------	84	;-----------------------------------------------------------------------------
85	align 4	85	align 4
86	Vesa20_getpixel32:	86	Vesa20_getpixel32:
87	;--------------------------------------	87	;--------------------------------------
88	; check for hardware cursor	88	; check for hardware cursor
89	cmp [_display.select_cursor], select_cursor	89	cmp [_display.select_cursor], select_cursor
90	je @f	90	je @f
91	cmp [_display.select_cursor], 0	91	cmp [_display.select_cursor], 0
92	jne .no_mouseunder	92	jne .no_mouseunder
93	;--------------------------------------	93	;--------------------------------------
94	align 4	94	align 4
95	@@:	95	@@:
96	; check mouse area for putpixel	96	; check mouse area for putpixel
97	test ecx, 0x04000000 ; don't load to mouseunder area	97	test ecx, 0x04000000 ; don't load to mouseunder area
98	jnz .no_mouseunder	98	jnz .no_mouseunder
99	call [_display.check_m_pixel]	99	call [_display.check_m_pixel]
100	test ecx, ecx ;0xff000000	100	test ecx, ecx ;0xff000000
101	jnz @f	101	jnz @f
102	;--------------------------------------	102	;--------------------------------------
103	align 4	103	align 4
104	.no_mouseunder:	104	.no_mouseunder:
105	;--------------------------------------	105	;--------------------------------------
106	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier	106	; imul ebx, [BytesPerScanLine] ; ebx = y * y multiplier
107	mov ebx, [BPSLine_calc_area+ebx*4]	107	mov ebx, [BPSLine_calc_area+ebx*4]
108	lea edi, [ebx+eax4]; edi = x4+(y*y multiplier)	108	lea edi, [ebx+eax4]; edi = x4+(y*y multiplier)
109	mov ecx, [LFB_BASE+edi]	109	mov ecx, [LFB_BASE+edi]
110	;--------------------------------------	110	;--------------------------------------
111	align 4	111	align 4
112	@@:	112	@@:
113	and ecx, 0xffffff	113	and ecx, 0xffffff
114	ret	114	ret
115	;-----------------------------------------------------------------------------	115	;-----------------------------------------------------------------------------
116	virtual at esp	116	virtual at esp
117	putimg:	117	putimg:
118	.real_sx dd ?	118	.real_sx dd ?
119	.real_sy dd ?	119	.real_sy dd ?
120	.image_sx dd ?	120	.image_sx dd ?
121	.image_sy dd ?	121	.image_sy dd ?
122	.image_cx dd ?	122	.image_cx dd ?
123	.image_cy dd ?	123	.image_cy dd ?
124	.pti dd ?	124	.pti dd ?
125	.abs_cx dd ?	125	.abs_cx dd ?
126	.abs_cy dd ?	126	.abs_cy dd ?
127	.line_increment dd ?	127	.line_increment dd ?
128	.winmap_newline dd ?	128	.winmap_newline dd ?
129	.screen_newline dd ?	129	.screen_newline dd ?
130	.real_sx_and_abs_cx dd ?	130	.real_sx_and_abs_cx dd ?
131	.real_sy_and_abs_cy dd ?	131	.real_sy_and_abs_cy dd ?
132	.stack_data = 4*14	132	.stack_data = 4*14
133	.edi dd ?	133	.edi dd ?
134	.esi dd ?	134	.esi dd ?
135	.ebp dd ?	135	.ebp dd ?
136	.esp dd ?	136	.esp dd ?
137	.ebx dd ?	137	.ebx dd ?
138	.edx dd ?	138	.edx dd ?
139	.ecx dd ?	139	.ecx dd ?
140	.eax dd ?	140	.eax dd ?
141	.ret_addr dd ?	141	.ret_addr dd ?
142	.arg_0 dd ?	142	.arg_0 dd ?
143	end virtual	143	end virtual
144	;-----------------------------------------------------------------------------	144	;-----------------------------------------------------------------------------
145	align 16	145	align 16
146	; ebx = pointer	146	; ebx = pointer
147	; ecx = size [x\|y]	147	; ecx = size [x\|y]
148	; edx = coordinates [x\|y]	148	; edx = coordinates [x\|y]
149	; ebp = pointer to 'get' function	149	; ebp = pointer to 'get' function
150	; esi = pointer to 'init' function	150	; esi = pointer to 'init' function
151	; edi = parameter for 'get' function	151	; edi = parameter for 'get' function
152	vesa20_putimage:	152	vesa20_putimage:
153	pushad	153	pushad
154	sub esp, putimg.stack_data	154	sub esp, putimg.stack_data
155	; save pointer to image	155	; save pointer to image
156	mov [putimg.pti], ebx	156	mov [putimg.pti], ebx
157	; unpack the size	157	; unpack the size
158	mov eax, ecx	158	mov eax, ecx
159	and ecx, 0xFFFF	159	and ecx, 0xFFFF
160	shr eax, 16	160	shr eax, 16
161	mov [putimg.image_sx], eax	161	mov [putimg.image_sx], eax
162	mov [putimg.image_sy], ecx	162	mov [putimg.image_sy], ecx
163	; unpack the coordinates	163	; unpack the coordinates
164	mov eax, edx	164	mov eax, edx
165	and edx, 0xFFFF	165	and edx, 0xFFFF
166	shr eax, 16	166	shr eax, 16
167	mov [putimg.image_cx], eax	167	mov [putimg.image_cx], eax
168	mov [putimg.image_cy], edx	168	mov [putimg.image_cy], edx
169	; calculate absolute (i.e. screen) coordinates	169	; calculate absolute (i.e. screen) coordinates
170	mov eax, [TASK_BASE]	170	mov eax, [TASK_BASE]
171	mov ebx, [eax-twdw + WDATA.box.left]	171	mov ebx, [eax-twdw + WDATA.box.left]
172	add ebx, [putimg.image_cx]	172	add ebx, [putimg.image_cx]
173	mov [putimg.abs_cx], ebx	173	mov [putimg.abs_cx], ebx
174	mov ebx, [eax-twdw + WDATA.box.top]	174	mov ebx, [eax-twdw + WDATA.box.top]
175	add ebx, [putimg.image_cy]	175	add ebx, [putimg.image_cy]
176	mov [putimg.abs_cy], ebx	176	mov [putimg.abs_cy], ebx
177	; real_sx = MIN(wnd_sx-image_cx, image_sx);	177	; real_sx = MIN(wnd_sx-image_cx, image_sx);
178	mov ebx, [eax-twdw + WDATA.box.width]; ebx = wnd_sx	178	mov ebx, [eax-twdw + WDATA.box.width]; ebx = wnd_sx
179	; \begin{diamond}[20.08.2006]	179	; \begin{diamond}[20.08.2006]
180	; note that WDATA.box.width is one pixel less than real window x-size	180	; note that WDATA.box.width is one pixel less than real window x-size
181	inc ebx	181	inc ebx
182	; \end{diamond}[20.08.2006]	182	; \end{diamond}[20.08.2006]
183	sub ebx, [putimg.image_cx]	183	sub ebx, [putimg.image_cx]
184	ja @f	184	ja @f
185	add esp, putimg.stack_data	185	add esp, putimg.stack_data
186	popad	186	popad
187	ret	187	ret
188	;--------------------------------------	188	;--------------------------------------
189	align 4	189	align 4
190	@@:	190	@@:
191	cmp ebx, [putimg.image_sx]	191	cmp ebx, [putimg.image_sx]
192	jbe .end_x	192	jbe .end_x
193	mov ebx, [putimg.image_sx]	193	mov ebx, [putimg.image_sx]
194	;--------------------------------------	194	;--------------------------------------
195	align 4	195	align 4
196	.end_x:	196	.end_x:
197	mov [putimg.real_sx], ebx	197	mov [putimg.real_sx], ebx
198	; init real_sy	198	; init real_sy
199	mov ebx, [eax-twdw + WDATA.box.height]; ebx = wnd_sy	199	mov ebx, [eax-twdw + WDATA.box.height]; ebx = wnd_sy
200	; \begin{diamond}[20.08.2006]	200	; \begin{diamond}[20.08.2006]
201	inc ebx	201	inc ebx
202	; \end{diamond}[20.08.2006]	202	; \end{diamond}[20.08.2006]
203	sub ebx, [putimg.image_cy]	203	sub ebx, [putimg.image_cy]
204	ja @f	204	ja @f
205	add esp, putimg.stack_data	205	add esp, putimg.stack_data
206	popad	206	popad
207	ret	207	ret
208	;--------------------------------------	208	;--------------------------------------
209	align 4	209	align 4
210	@@:	210	@@:
211	cmp ebx, [putimg.image_sy]	211	cmp ebx, [putimg.image_sy]
212	jbe .end_y	212	jbe .end_y
213	mov ebx, [putimg.image_sy]	213	mov ebx, [putimg.image_sy]
214	;--------------------------------------	214	;--------------------------------------
215	align 4	215	align 4
216	.end_y:	216	.end_y:
217	mov [putimg.real_sy], ebx	217	mov [putimg.real_sy], ebx
218	; line increment	218	; line increment
219	mov eax, [putimg.image_sx]	219	mov eax, [putimg.image_sx]
220	mov ecx, [putimg.real_sx]	220	mov ecx, [putimg.real_sx]
221	sub eax, ecx	221	sub eax, ecx
222	;; imul eax, [putimg.source_bpp]	222	;; imul eax, [putimg.source_bpp]
223	; lea eax, [eax + eax * 2]	223	; lea eax, [eax + eax * 2]
224	call esi	224	call esi
225	add eax, [putimg.arg_0]	225	add eax, [putimg.arg_0]
226	mov [putimg.line_increment], eax	226	mov [putimg.line_increment], eax
227	; winmap new line increment	227	; winmap new line increment
228	mov eax, [Screen_Max_X]	228	mov eax, [Screen_Max_X]
229	inc eax	229	inc eax
230	sub eax, [putimg.real_sx]	230	sub eax, [putimg.real_sx]
231	mov [putimg.winmap_newline], eax	231	mov [putimg.winmap_newline], eax
232	; screen new line increment	232	; screen new line increment
233	mov eax, [BytesPerScanLine]	233	mov eax, [BytesPerScanLine]
234	movzx ebx, byte [ScreenBPP]	234	movzx ebx, byte [ScreenBPP]
235	shr ebx, 3	235	shr ebx, 3
236	imul ecx, ebx	236	imul ecx, ebx
237	sub eax, ecx	237	sub eax, ecx
238	mov [putimg.screen_newline], eax	238	mov [putimg.screen_newline], eax
239	; pointer to image	239	; pointer to image
240	mov esi, [putimg.pti]	240	mov esi, [putimg.pti]
241	; pointer to screen	241	; pointer to screen
242	mov edx, [putimg.abs_cy]	242	mov edx, [putimg.abs_cy]
243	; imul edx, [BytesPerScanLine]	243	; imul edx, [BytesPerScanLine]
244	mov edx, [BPSLine_calc_area+edx*4]	244	mov edx, [BPSLine_calc_area+edx*4]
245	mov eax, [putimg.abs_cx]	245	mov eax, [putimg.abs_cx]
246	; movzx ebx, byte [ScreenBPP]	246	; movzx ebx, byte [ScreenBPP]
247	; shr ebx, 3	247	; shr ebx, 3
248	imul eax, ebx	248	imul eax, ebx
249	add edx, eax	249	add edx, eax
250	; pointer to pixel map	250	; pointer to pixel map
251	mov eax, [putimg.abs_cy]	251	mov eax, [putimg.abs_cy]
252	; imul eax, [Screen_Max_X]	252	; imul eax, [Screen_Max_X]
253	; add eax, [putimg.abs_cy]	253	; add eax, [putimg.abs_cy]
254	mov eax, [d_width_calc_area + eax*4]	254	mov eax, [d_width_calc_area + eax*4]
255		255
256	add eax, [putimg.abs_cx]	256	add eax, [putimg.abs_cx]
257	add eax, [_WinMapAddress]	257	add eax, [_WinMapAddress]
258	xchg eax, ebp	258	xchg eax, ebp
259	;--------------------------------------	259	;--------------------------------------
260	mov ecx, [putimg.real_sx]	260	mov ecx, [putimg.real_sx]
261	add ecx, [putimg.abs_cx]	261	add ecx, [putimg.abs_cx]
262	mov [putimg.real_sx_and_abs_cx], ecx	262	mov [putimg.real_sx_and_abs_cx], ecx
263	mov ecx, [putimg.real_sy]	263	mov ecx, [putimg.real_sy]
264	add ecx, [putimg.abs_cy]	264	add ecx, [putimg.abs_cy]
265	mov [putimg.real_sy_and_abs_cy], ecx	265	mov [putimg.real_sy_and_abs_cy], ecx
266	;--------------------------------------	266	;--------------------------------------
267	; get process number	267	; get process number
268	mov ebx, [CURRENT_TASK]	268	mov ebx, [CURRENT_TASK]
269	cmp byte [ScreenBPP], 32	269	cmp byte [ScreenBPP], 32
270	je put_image_end_32	270	je put_image_end_32
271	;--------------------------------------	271	;--------------------------------------
272	put_image_end_24:	272	put_image_end_24:
273	mov edi, [putimg.real_sy]	273	mov edi, [putimg.real_sy]
274	;--------------------------------------	274	;--------------------------------------
275	; check for hardware cursor	275	; check for hardware cursor
276	mov ecx, [_display.select_cursor]	276	mov ecx, [_display.select_cursor]
277	cmp ecx, select_cursor	277	cmp ecx, select_cursor
278	je put_image_end_24_new	278	je put_image_end_24_new
279	cmp ecx, 0	279	cmp ecx, 0
280	je put_image_end_24_old	280	je put_image_end_24_old
281	;--------------------------------------	281	;--------------------------------------
282	align 4	282	align 4
283	.new_line:	283	.new_line:
284	mov ecx, [putimg.real_sx]	284	mov ecx, [putimg.real_sx]
285	;--------------------------------------	285	;--------------------------------------
286	align 4	286	align 4
287	.new_x:	287	.new_x:
288	push [putimg.edi]	288	push [putimg.edi]
289	mov eax, [putimg.ebp+4]	289	mov eax, [putimg.ebp+4]
290	call eax	290	call eax
291	cmp [ebp], bl	291	cmp [ebp], bl
292	jne .skip	292	jne .skip
293	;--------------------------------------	293	;--------------------------------------
294	; store to real LFB	294	; store to real LFB
295	mov [LFB_BASE+edx], ax	295	mov [LFB_BASE+edx], ax
296	shr eax, 16	296	shr eax, 16
297	mov [LFB_BASE+edx+2], al	297	mov [LFB_BASE+edx+2], al
298	;--------------------------------------	298	;--------------------------------------
299	align 4	299	align 4
300	.skip:	300	.skip:
301	add edx, 3	301	add edx, 3
302	inc ebp	302	inc ebp
303	dec ecx	303	dec ecx
304	jnz .new_x	304	jnz .new_x
305		305
306	add esi, [putimg.line_increment]	306	add esi, [putimg.line_increment]
307	add edx, [putimg.screen_newline];[BytesPerScanLine]	307	add edx, [putimg.screen_newline];[BytesPerScanLine]
308	add ebp, [putimg.winmap_newline];[Screen_Max_X]	308	add ebp, [putimg.winmap_newline];[Screen_Max_X]
309		309
310	cmp [putimg.ebp], putimage_get1bpp	310	cmp [putimg.ebp], putimage_get1bpp
311	jz .correct	311	jz .correct
312	cmp [putimg.ebp], putimage_get2bpp	312	cmp [putimg.ebp], putimage_get2bpp
313	jz .correct	313	jz .correct
314	cmp [putimg.ebp], putimage_get4bpp	314	cmp [putimg.ebp], putimage_get4bpp
315	jnz @f	315	jnz @f
316	;--------------------------------------	316	;--------------------------------------
317	align 4	317	align 4
318	.correct:	318	.correct:
319	mov eax, [putimg.edi]	319	mov eax, [putimg.edi]
320	mov byte [eax], 80h	320	mov byte [eax], 80h
321	;--------------------------------------	321	;--------------------------------------
322	align 4	322	align 4
323	@@:	323	@@:
324	dec edi	324	dec edi
325	jnz .new_line	325	jnz .new_line
326	;--------------------------------------	326	;--------------------------------------
327	align 4	327	align 4
328	.finish:	328	.finish:
329	add esp, putimg.stack_data	329	add esp, putimg.stack_data
330	popad	330	popad
331	ret	331	ret
332	;------------------------------------------------------------------------------	332	;------------------------------------------------------------------------------
333	align 4	333	align 4
334	put_image_end_24_old:	334	put_image_end_24_old:
335	;--------------------------------------	335	;--------------------------------------
336	align 4	336	align 4
337	.new_line:	337	.new_line:
338	mov ecx, [putimg.real_sx]	338	mov ecx, [putimg.real_sx]
339	;--------------------------------------	339	;--------------------------------------
340	align 4	340	align 4
341	.new_x:	341	.new_x:
342	push [putimg.edi]	342	push [putimg.edi]
343	mov eax, [putimg.ebp+4]	343	mov eax, [putimg.ebp+4]
344	call eax	344	call eax
345	cmp [ebp], bl	345	cmp [ebp], bl
346	jne .skip	346	jne .skip
347	;--------------------------------------	347	;--------------------------------------
348	push ecx	348	push ecx
349		349
350	neg ecx	350	neg ecx
351	add ecx, [putimg.real_sx_and_abs_cx + 4]	351	add ecx, [putimg.real_sx_and_abs_cx + 4]
352	shl ecx, 16	352	shl ecx, 16
353	add ecx, [putimg.real_sy_and_abs_cy + 4]	353	add ecx, [putimg.real_sy_and_abs_cy + 4]
354	sub ecx, edi	354	sub ecx, edi
355		355
356	; check mouse area for putpixel	356	; check mouse area for putpixel
357	call check_mouse_area_for_putpixel	357	call check_mouse_area_for_putpixel
358	pop ecx	358	pop ecx
359	; store to real LFB	359	; store to real LFB
360	mov [LFB_BASE+edx], ax	360	mov [LFB_BASE+edx], ax
361	shr eax, 16	361	shr eax, 16
362	mov [LFB_BASE+edx+2], al	362	mov [LFB_BASE+edx+2], al
363	;--------------------------------------	363	;--------------------------------------
364	align 4	364	align 4
365	.skip:	365	.skip:
366	add edx, 3	366	add edx, 3
367	inc ebp	367	inc ebp
368	dec ecx	368	dec ecx
369	jnz .new_x	369	jnz .new_x
370		370
371	add esi, [putimg.line_increment]	371	add esi, [putimg.line_increment]
372	add edx, [putimg.screen_newline];[BytesPerScanLine]	372	add edx, [putimg.screen_newline];[BytesPerScanLine]
373	add ebp, [putimg.winmap_newline];[Screen_Max_X]	373	add ebp, [putimg.winmap_newline];[Screen_Max_X]
374		374
375	cmp [putimg.ebp], putimage_get1bpp	375	cmp [putimg.ebp], putimage_get1bpp
376	jz .correct	376	jz .correct
377	cmp [putimg.ebp], putimage_get2bpp	377	cmp [putimg.ebp], putimage_get2bpp
378	jz .correct	378	jz .correct
379	cmp [putimg.ebp], putimage_get4bpp	379	cmp [putimg.ebp], putimage_get4bpp
380	jnz @f	380	jnz @f
381	;--------------------------------------	381	;--------------------------------------
382	align 4	382	align 4
383	.correct:	383	.correct:
384	mov eax, [putimg.edi]	384	mov eax, [putimg.edi]
385	mov byte [eax], 80h	385	mov byte [eax], 80h
386	;--------------------------------------	386	;--------------------------------------
387	align 4	387	align 4
388	@@:	388	@@:
389	dec edi	389	dec edi
390	jnz .new_line	390	jnz .new_line
391	jmp put_image_end_24.finish	391	jmp put_image_end_24.finish
392	;------------------------------------------------------------------------------	392	;------------------------------------------------------------------------------
393	align 4	393	align 4
394	put_image_end_24_new:	394	put_image_end_24_new:
395	;--------------------------------------	395	;--------------------------------------
396	align 4	396	align 4
397	.new_line:	397	.new_line:
398	mov ecx, [putimg.real_sx]	398	mov ecx, [putimg.real_sx]
399	;--------------------------------------	399	;--------------------------------------
400	align 4	400	align 4
401	.new_x:	401	.new_x:
402	push [putimg.edi]	402	push [putimg.edi]
403	mov eax, [putimg.ebp+4]	403	mov eax, [putimg.ebp+4]
404	call eax	404	call eax
405	cmp [ebp], bl	405	cmp [ebp], bl
406	jne .skip	406	jne .skip
407	;--------------------------------------	407	;--------------------------------------
408	push ecx	408	push ecx
409	mov ecx, [putimg.real_sy_and_abs_cy + 4]	-
410	sub ecx, edi	-
411	;--------------------------------------	409	;--------------------------------------
412	; check for Y	410	align 4
413	cmp cx, [Y_UNDER_subtraction_CUR_hot_y]	-
414	jb .no_mouse_area	-
415		411	.sh:
416	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]	-
417	jae .no_mouse_area	-
418		-
419	rol ecx, 16	412	neg ecx
420	add ecx, [putimg.real_sx_and_abs_cx + 4]	413	add ecx, [putimg.real_sx_and_abs_cx + 4]
421	sub ecx, [esp]	-
422	;--------------------------------------	414	;--------------------------------------
423	; check for X	415	; check for X
-		416	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]
-		417	jae .no_mouse_area
-		418
424	cmp cx, [X_UNDER_subtraction_CUR_hot_x]	419	sub cx, [X_UNDER_subtraction_CUR_hot_x]
425	jb .no_mouse_area	420	jb .no_mouse_area
-		421
-		422	shl ecx, 16
-		423
-		424	add ecx, [putimg.real_sy_and_abs_cy + 4]
-		425	sub ecx, edi
-		426	;--------------------------------------
426		427	; check for Y
427	cmp cx, [X_UNDER_sub_CUR_hot_x_add_curh]	428	cmp cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
-		429	jae .no_mouse_area
-		430
-		431	sub cx, [Y_UNDER_subtraction_CUR_hot_y]
428	jae .no_mouse_area	432	jb .no_mouse_area
429	;--------------------------------------	433	;--------------------------------------
430	; check mouse area for putpixel	434	; check mouse area for putpixel
431	call check_mouse_area_for_putpixel_new.1	435	call check_mouse_area_for_putpixel_new.1
-		436	cmp ecx, -1 ;SHIT HAPPENS?
-		437	jne .no_mouse_area
-		438
-		439	mov ecx, [esp]
-		440	jmp .sh
432	;--------------------------------------	441	;--------------------------------------
433	align 4	442	align 4
434	.no_mouse_area:	443	.no_mouse_area:
435	pop ecx	444	pop ecx
436	; store to real LFB	445	; store to real LFB
437	mov [LFB_BASE+edx], ax	446	mov [LFB_BASE+edx], ax
438	shr eax, 16	447	shr eax, 16
439	mov [LFB_BASE+edx+2], al	448	mov [LFB_BASE+edx+2], al
440	;--------------------------------------	449	;--------------------------------------
441	align 4	450	align 4
442	.skip:	451	.skip:
443	add edx, 3	452	add edx, 3
444	inc ebp	453	inc ebp
445	dec ecx	454	dec ecx
446	jnz .new_x	455	jnz .new_x
447		456
448	add esi, [putimg.line_increment]	457	add esi, [putimg.line_increment]
449	add edx, [putimg.screen_newline];[BytesPerScanLine]	458	add edx, [putimg.screen_newline];[BytesPerScanLine]
450	add ebp, [putimg.winmap_newline];[Screen_Max_X]	459	add ebp, [putimg.winmap_newline];[Screen_Max_X]
451		460
452	cmp [putimg.ebp], putimage_get1bpp	461	cmp [putimg.ebp], putimage_get1bpp
453	jz .correct	462	jz .correct
454	cmp [putimg.ebp], putimage_get2bpp	463	cmp [putimg.ebp], putimage_get2bpp
455	jz .correct	464	jz .correct
456	cmp [putimg.ebp], putimage_get4bpp	465	cmp [putimg.ebp], putimage_get4bpp
457	jnz @f	466	jnz @f
458	;--------------------------------------	467	;--------------------------------------
459	align 4	468	align 4
460	.correct:	469	.correct:
461	mov eax, [putimg.edi]	470	mov eax, [putimg.edi]
462	mov byte [eax], 80h	471	mov byte [eax], 80h
463	;--------------------------------------	472	;--------------------------------------
464	align 4	473	align 4
465	@@:	474	@@:
466	dec edi	475	dec edi
467	jnz .new_line	476	jnz .new_line
468	jmp put_image_end_24.finish	477	jmp put_image_end_24.finish
469	;------------------------------------------------------------------------------	478	;------------------------------------------------------------------------------
470	align 4	479	align 4
471	put_image_end_32:	480	put_image_end_32:
472	mov edi, [putimg.real_sy]	481	mov edi, [putimg.real_sy]
473	;--------------------------------------	482	;--------------------------------------
474	; check for hardware cursor	483	; check for hardware cursor
475	mov ecx, [_display.select_cursor]	484	mov ecx, [_display.select_cursor]
476	cmp ecx, select_cursor	485	cmp ecx, select_cursor
477	je put_image_end_32_new	486	je put_image_end_32_new
478	cmp ecx, 0	487	cmp ecx, 0
479	je put_image_end_32_old	488	je put_image_end_32_old
480	;--------------------------------------	489	;--------------------------------------
481	align 4	490	align 4
482	.new_line:	491	.new_line:
483	mov ecx, [putimg.real_sx]	492	mov ecx, [putimg.real_sx]

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa20.inc – Rev 2480 → 2575