| 0,0 → 1,2150 |
|---|
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; ;; |
| ;; 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: 3606 $ |
| |
| |
| ; 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, [_display.pitch] |
| mov ebx, [_display.bpp] |
| 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 [_display.bpp], 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], 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] |
| mov ebx, [_display.bpp] |
| shr ebx, 3 |
| imul eax, ebx |
| neg eax |
| add eax, [_display.pitch] |
| 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 [_display.bpp], 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], 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 byte [_display.bpp], 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 byte [_display.bpp], 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], 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 byte [_display.bpp], 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 byte [_display.bpp], 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 byte [_display.bpp], 24 |
| jz @f |
| sub edi, eax |
| ;-------------------------------------- |
| align 4 |
| @@: |
| add edi, [_display.pitch] |
| ; 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], 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 |
| ;------------------------------------------------------------------------------ |