forked from KolibriOS/kolibrios
539 lines
14 KiB
PHP
539 lines
14 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; 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, [TASK_BASE]
|
|
;add ebx, [eax-twdw + 4]
|
|
;mov eax, [eax-twdw + 0]
|
|
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
|
|
;------------------------------------------------------------------------------
|