;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2022. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; VGA.INC ;; ;; ;; ;; 640x480 mode 0x12 VGA functions for MenuetOS ;; ;; ;; ;; Paul Butcher, paul.butcher@asa.co.uk ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Revision$ ;------------------------------------------------------------------------------ align 4 paletteVGA: ;16 colour palette mov dx, 0x3c8 mov al, 0 out dx, al mov ecx, 16 mov dx, 0x3c9 xor eax, eax ;-------------------------------------- align 4 palvganew: mov al, 0 test ah, 4 jz palvgalbl1 add al, 31 test ah, 8 jz palvgalbl1 add al, 32 ;-------------------------------------- align 4 palvgalbl1: out dx, al; red 0,31 or 63 mov al, 0 test ah, 2 jz palvgalbl2 add al, 31 test ah, 8 jz palvgalbl2 add al, 32 ;-------------------------------------- align 4 palvgalbl2: out dx, al; blue 0,31 or 63 mov al, 0 test ah, 1 jz palvgalbl3 add al, 31 test ah, 8 jz palvgalbl3 add al, 32 ;-------------------------------------- align 4 palvgalbl3: out dx, al; green 0,31 or 63 add ah, 1 loop palvganew ; mov dx, 3ceh ; mov ax, 0005h ; out dx, ax ret ;------------------------------------------------------------------------------ align 4 palette320x200: mov edx, 0x3c8 xor eax, eax out dx, al mov ecx, 256 mov edx, 0x3c9 xor eax, eax ;-------------------------------------- align 4 palnew: mov al, 0 test ah, 64 jz pallbl1 add al, 21 ;-------------------------------------- align 4 pallbl1: test ah, 128 jz pallbl2 add al, 42 ;-------------------------------------- align 4 pallbl2: out dx, al mov al, 0 test ah, 8 jz pallbl3 add al, 8 ;-------------------------------------- align 4 pallbl3: test ah, 16 jz pallbl4 add al, 15 ;-------------------------------------- align 4 pallbl4: test ah, 32 jz pallbl5 add al, 40 ;-------------------------------------- align 4 pallbl5: out dx, al mov al, 0 test ah, 1 jz pallbl6 add al, 8 ;-------------------------------------- align 4 pallbl6: test ah, 2 jz pallbl7 add al, 15 ;-------------------------------------- align 4 pallbl7: test ah, 4 jz pallbl8 add al, 40 ;-------------------------------------- align 4 pallbl8: out dx, al add ah, 1 loop palnew ret ;------------------------------------------------------------------------------ align 4 uglobal novesachecksum dd 0x0 EGA_counter db 0 VGA_drawing_screen db 0 VGA_8_pixels: rb 16 temp: .cx dd 0 endg ;------------------------------------------------------------------------------ align 4 checkVga_N13: cmp [SCR_MODE], 0x13 jne @f pushad cmp [EGA_counter], 1 je novesal mov ecx, [MOUSE_X] cmp ecx, [novesachecksum] jne novesal popad ;-------------------------------------- align 4 @@: ret ;-------------------------------------- align 4 novesal: mov [novesachecksum], ecx xor ecx, ecx ;mov ecx, 0 movzx eax, word [MOUSE_Y] cmp eax, 100 jge m13l3 mov eax, 100 ;-------------------------------------- align 4 m13l3: cmp eax, 480-100 jbe m13l4 mov eax, 480-100 ;-------------------------------------- align 4 m13l4: sub eax, 100 imul eax, 640*4 add ecx, eax movzx eax, word [MOUSE_X] cmp eax, 160 jge m13l1 mov eax, 160 ;-------------------------------------- align 4 m13l1: cmp eax, 640-160 jbe m13l2 mov eax, 640-160 ;-------------------------------------- align 4 m13l2: sub eax, 160 shl eax, 2 add ecx, eax mov esi, [LFBAddress] add esi, ecx mov edi, VGABasePtr mov edx, 200 mov ecx, 320 cld ;-------------------------------------- align 4 m13pix: lodsd test eax, eax jz .save_pixel push eax mov ebx, eax and eax, (128+64+32) ; blue shr eax, 5 and ebx, (128+64+32)*256; green shr ebx, 8+2 add eax, ebx pop ebx and ebx, (128+64)*256*256; red shr ebx, 8+8 add eax, ebx ;-------------------------------------- align 4 .save_pixel: stosb loop m13pix mov ecx, 320 add esi, 4*(640-320) dec edx jnz m13pix mov [EGA_counter], 0 popad ret ;------------------------------------------------------------------------------ align 4 VGA_drawbackground: ; draw all pushad mov esi, [LFBAddress] mov edi, VGABasePtr mov ebx, 640/32; 640*480/(8*4) mov edx, 480 ;-------------------------------------- align 4 @@: push ebx edx esi edi shl edx, 9 lea edx, [edx+edx*4] add esi, edx shr edx, 5 add edi, edx call VGA_draw_long_line pop edi esi edx ebx dec edx jnz @r call VGA_draw_long_line_1 popad ret ;------------------------------------------------------------------------------ align 4 VGA_draw_long_line: mov dx, 3ceh mov ax, 0ff08h cli out dx, ax mov ax, 0005h out dx, ax ;-------------------------------------- align 4 m12pix: call VGA_draw_32_pixels dec ebx jnz m12pix mov dx, 3c4h mov ax, 0ff02h out dx, ax mov dx, 3ceh mov ax, 0205h out dx, ax mov dx, 3ceh mov al, 08h out dx, al sti ret ;------------------------------------------------------------------------------ align 4 VGA_draw_32_pixels: xor eax, eax mov ebp, VGA_8_pixels mov [ebp], eax mov [ebp+4], eax mov [ebp+8], eax mov [ebp+12], eax mov ch, 4 ;-------------------------------------- align 4 .main_loop: mov cl, 8 ;-------------------------------------- align 4 .convert_pixels_to_VGA: lodsd ; eax = 24bit colour test eax, eax jz .end rol eax, 8 mov al, ch ror eax, 8 mov ch, 1 dec cl shl ch, cl cmp al, 85 jbe .p13green or [ebp], ch cmp al, 170 jbe .p13green or [ebp+12], ch ;-------------------------------------- align 4 .p13green: cmp ah, 85 jbe .p13red or [ebp+4], ch cmp ah, 170 jbe .p13red or [ebp+12], ch ;-------------------------------------- align 4 .p13red: shr eax, 8 cmp ah, 85 jbe .p13cont or [ebp+8], ch cmp ah, 170 jbe .p13cont or [ebp+12], ch ;-------------------------------------- align 4 .p13cont: ror eax, 8 mov ch, ah inc cl ;-------------------------------------- align 4 .end: dec cl jnz .convert_pixels_to_VGA inc ebp dec ch jnz .main_loop push esi sub ebp, 4 mov esi, ebp mov dx, 3c4h mov ah, 1h ;-------------------------------------- align 4 @@: mov al, 02h out dx, ax xchg ax, bp lodsd mov [edi], eax xchg ax, bp shl ah, 1 cmp ah, 10h jnz @r add edi, 4 pop esi ret ;------------------------------------------------------------------------------ align 4 VGA_putpixel: ; eax = x ; ebx = y mov ecx, eax mov eax, [esp+32-8+4] ; color ;-------------------------------------- ; check for hardware cursor cmp [_display.select_cursor], select_cursor je @f cmp [_display.select_cursor], 0 jne .no_mouseunder ;-------------------------------------- align 4 @@: push ecx shl ecx, 16 mov cx, bx ; check mouse area for putpixel test eax, 0x04000000 jnz @f call [_display.check_mouse] ;-------------------------------------- align 4 @@: pop ecx ;-------------------------------------- align 4 .no_mouseunder: shl ebx, 9 lea ebx, [ebx+ebx*4] ; multiply by 5 lea edx, [ebx+ecx*4] ; + x*BytesPerPixel (Vesa2.0 32) mov edi, edx add edi, [LFBAddress] ; + LFB address mov [edi], eax ; write to LFB for Vesa2.0 shr edx, 5 ; change BytesPerPixel to 1/8 mov edi, edx add edi, VGABasePtr ; address of pixel in VGA area and ecx, 0x07 ; bit no. (modulo 8) pushfd ; edi = address, eax = 24bit colour, ecx = bit no. (modulo 8) xor edx, edx test eax, eax jz .p13cont cmp al, 85 jbe .p13green or dl, 0x01 cmp al, 170 jbe .p13green or dl, 0x08 ;-------------------------------------- align 4 .p13green: cmp ah, 85 jbe .p13red or dl, 0x02 cmp ah, 170 jbe .p13red or dl, 0x08 ;-------------------------------------- align 4 .p13red: shr eax, 8 cmp ah, 85 jbe .p13cont or dl, 0x04 cmp ah, 170 jbe .p13cont or dl, 0x08 ;-------------------------------------- align 4 .p13cont: ror edx, 8 inc cl xor eax, eax inc ah shr ax, cl mov dx, 3cfh cli out dx, al mov al, [edi] ; dummy read rol edx, 8 mov [edi], dl popfd ret ;------------------------------------------------------------------------------ align 4 VGA__putimage: ; ecx = size [x|y] ; edx = coordinates [x|y] pushad rol edx, 16 movzx eax, dx rol edx, 16 movzx ebx, dx movzx edx, cx rol ecx, 16 movzx ecx, cx call VGA_draw_bar_1 popad ret ;------------------------------------------------------------------------------ align 4 VGA_draw_bar: ; eax cx ; ebx cy ; ecx xe ; edx ye pushad sub ecx, eax sub edx, ebx and eax, 0xffff and ebx, 0xffff and ecx, 0xffff and edx, 0xffff call VGA_draw_bar_1 popad ret ;------------------------------------------------------------------------------ align 4 VGA_draw_bar_1: mov [temp.cx], eax mov eax, [current_slot_idx] shl eax, 5 add ebx, [eax+window_data+WDATA.box.top] mov eax, [eax+window_data+WDATA.box.left] add eax, [temp.cx] and eax, 0xfff8 shl ebx, 9 lea ebx, [ebx+ebx*4] ; multiply by 5 lea ebx, [ebx+eax*4] ; + x*BytesPerPixel (Vesa2.0 32) mov esi, ebx add esi, [LFBAddress] ; + LFB address shr ebx, 5 ; change BytesPerPixel to 1/8 mov edi, ebx add edi, VGABasePtr ; address of pixel in VGA area mov ebx, ecx shr ebx, 5 inc ebx ;-------------------------------------- align 4 .main_loop: call VGA_draw_long_line_1 dec edx jnz .main_loop call VGA_draw_long_line_1 ret ;------------------------------------------------------------------------------ align 4 VGA_draw_long_line_1: push ebx edx esi edi shl edx, 9 lea edx, [edx+edx*4] add esi, edx shr edx, 5 add edi, edx call VGA_draw_long_line pop edi esi edx ebx ret ;------------------------------------------------------------------------------