forked from KolibriOS/kolibrios
326 lines
7.1 KiB
PHP
326 lines
7.1 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
struc VBE_VGAInfo {
|
|
.VESASignature dd ? ; char
|
|
.VESAVersion dw ? ; short
|
|
.OemStringPtr dd ? ; char *
|
|
.Capabilities dd ? ; ulong
|
|
.VideoModePtr dd ? ; ulong
|
|
.TotalMemory dw ? ; short
|
|
; VBE 2.0+
|
|
.OemSoftwareRev db ? ; short
|
|
.OemVendorNamePtr dw ? ; char *
|
|
.OemProductNamePtr dw ? ; char *
|
|
.OemProductRevPtr dw ? ; char *
|
|
.reserved rb 222 ; char
|
|
.OemData rb 256 ; char
|
|
}
|
|
|
|
struc VBE_ModeInfo {
|
|
.ModeAttributes dw ? ; short
|
|
.WinAAttributes db ? ; char
|
|
.WinBAttributes db ? ; char
|
|
.WinGranularity dw ? ; short
|
|
.WinSize dw ? ; short
|
|
.WinASegment dw ? ; ushort
|
|
.WinBSegment dw ? ; ushort
|
|
.WinFuncPtr dd ? ; void *
|
|
.BytesPerScanLine dw ? ; short
|
|
.XRes dw ? ; short
|
|
.YRes dw ? ; short
|
|
.XCharSize db ? ; char
|
|
.YCharSize db ? ; char
|
|
.NumberOfPlanes db ? ; char
|
|
.BitsPerPixel db ? ; char
|
|
.NumberOfBanks db ? ; char
|
|
.MemoryModel db ? ; char
|
|
.BankSize db ? ; char
|
|
.NumberOfImagePages db ? ; char
|
|
.res1 db ? ; char
|
|
.RedMaskSize db ? ; char
|
|
.RedFieldPosition db ? ; char
|
|
.GreenMaskSize db ? ; char
|
|
.GreenFieldPosition db ? ; char
|
|
.BlueMaskSize db ? ; char
|
|
.BlueFieldPosition db ? ; char
|
|
.RsvedMaskSize db ? ; char
|
|
.RsvedFieldPosition db ? ; char
|
|
.DirectColorModeInfo db ? ; char ; MISSED IN THIS TUTORIAL!! SEE ABOVE
|
|
; VBE 2.0+
|
|
.PhysBasePtr dd ? ; ulong
|
|
.OffScreenMemOffset dd ? ; ulong
|
|
.OffScreenMemSize dw ? ; short
|
|
; VBE 3.0+
|
|
.LinbytesPerScanLine dw ? ; short
|
|
.BankNumberOfImagePages db ? ; char
|
|
.LinNumberOfImagePages db ? ; char
|
|
.LinRedMaskSize db ? ; char
|
|
.LinRedFieldPosition db ? ; char
|
|
.LingreenMaskSize db ? ; char
|
|
.LinGreenFieldPosition db ? ; char
|
|
.LinBlueMaskSize db ? ; char
|
|
.LinBlueFieldPosition db ? ; char
|
|
.LinRsvdMaskSize db ? ; char
|
|
.LinRsvdFieldPosition db ? ; char
|
|
.MaxPixelClock dd ? ; ulong
|
|
.res2 rb 190 ; char
|
|
}
|
|
|
|
virtual at $A000
|
|
vi VBE_VGAInfo
|
|
mi VBE_ModeInfo
|
|
modes_table:
|
|
end virtual
|
|
cursor_pos dw 0 ;temporary cursor storage.
|
|
home_cursor dw 0 ;current shows rows a table
|
|
end_cursor dw 0 ;end of position current shows rows a table
|
|
scroll_start dw 0 ;start position of scroll bar
|
|
scroll_end dw 0 ;end position of scroll bar
|
|
long_v_table equ 9 ;long of visible video table
|
|
size_of_step equ 10
|
|
scroll_area_size equ (long_v_table-2)
|
|
int2str:
|
|
dec bl
|
|
jz @f
|
|
xor edx,edx
|
|
div ecx
|
|
push edx
|
|
call int2str
|
|
pop eax
|
|
@@: or al,0x30
|
|
mov [ds:di],al
|
|
inc di
|
|
ret
|
|
|
|
int2strnz:
|
|
cmp eax,ecx
|
|
jb @f
|
|
xor edx,edx
|
|
div ecx
|
|
push edx
|
|
call int2strnz
|
|
pop eax
|
|
@@: or al,0x30
|
|
mov [es:di],al
|
|
inc di
|
|
ret
|
|
|
|
|
|
;-------------------------------------------------------
|
|
print_vesa_info:
|
|
|
|
mov [es:vi.VESASignature],'VBE2'
|
|
mov ax,0x4F00
|
|
mov di,vi ;0xa000
|
|
int 0x10
|
|
or ah,ah
|
|
jz @f
|
|
mov [es:vi.VESASignature],'VESA'
|
|
mov ax,$4F00
|
|
mov di,vi
|
|
int 0x10
|
|
or ah,ah
|
|
jnz $
|
|
@@:
|
|
cmp [es:vi.VESASignature],'VESA'
|
|
jne $
|
|
cmp [es:vi.VESAVersion],0x0100
|
|
jb $
|
|
|
|
.vesaok2:
|
|
|
|
ret
|
|
;-----------------------------------------------------------------------------
|
|
|
|
calc_vmodes_table:
|
|
pushad
|
|
|
|
; push 0
|
|
; pop es
|
|
|
|
lfs si, [es:vi.VideoModePtr]
|
|
|
|
mov bx,modes_table
|
|
|
|
.next_mode:
|
|
mov cx,word [fs:si] ; mode number
|
|
cmp cx,-1
|
|
je .modes_ok.2
|
|
|
|
mov ax,0x4F01
|
|
mov di,mi
|
|
int 0x10
|
|
|
|
or ah,ah
|
|
jnz .modes_ok.2 ;vesa_info.exit
|
|
|
|
test [es:mi.ModeAttributes],00000001b ;videomode support ?
|
|
jz @f
|
|
test [es:mi.ModeAttributes],00010000b ;picture ?
|
|
jz @f
|
|
test [es:mi.ModeAttributes],10000000b ;LFB ?
|
|
jz @f
|
|
|
|
cmp [es:mi.BitsPerPixel], 32 ;to show only 32 bpp videomodes
|
|
jb @f
|
|
|
|
.l0:
|
|
cmp [es:mi.XRes],800 ; only 800x600 and higher
|
|
jb @f
|
|
|
|
mov ax,[es:mi.XRes]
|
|
mov [es:bx+0],ax ; +0[2] : resolution X
|
|
mov ax,[es:mi.YRes]
|
|
mov [es:bx+2],ax ; +2[2] : resolution Y
|
|
mov ax,[es:mi.ModeAttributes]
|
|
mov [es:bx+4],ax ; +4[2] : attributes
|
|
|
|
;<< cmp [s_vesa.ver],'2'
|
|
;<< jb .lp1
|
|
|
|
or cx,0x4000 ; use LFB <<< ?
|
|
.lp1: mov [es:bx+6],cx ; +6 : mode number
|
|
movzx ax,byte [es:mi.BitsPerPixel]
|
|
mov word [es:bx+8],ax ; +8 : bits per pixel << ?
|
|
add bx,size_of_step ; size of record
|
|
|
|
@@:
|
|
add si,2
|
|
jmp .next_mode
|
|
|
|
.modes_ok.2:
|
|
|
|
mov word[es:bx],-1 ;end video table
|
|
mov word[end_cursor],bx ;save end cursor position
|
|
popad
|
|
ret
|
|
|
|
check_first_parm:
|
|
mov si,word [preboot_graph]
|
|
test si,si
|
|
jnz .no_zero ;if no zero
|
|
.zerro:
|
|
mov word[preboot_graph], ax
|
|
|
|
mov ax,1024
|
|
mov bx,768
|
|
mov si,modes_table
|
|
call .loops
|
|
test ax,ax
|
|
jz .ok_found_mode
|
|
|
|
mov si,modes_table
|
|
jmp .ok_found_mode
|
|
|
|
.no_zero:
|
|
mov bp,word [number_vm]
|
|
cmp bp,word [es:si+6]
|
|
jz .ok_found_mode
|
|
mov ax,word [x_save]
|
|
mov bx,word [y_save]
|
|
mov si,modes_table
|
|
call .loops
|
|
test ax,ax
|
|
jz .ok_found_mode
|
|
|
|
mov si,modes_table
|
|
|
|
.ok_found_mode:
|
|
mov word [home_cursor],si
|
|
mov word [preboot_graph],si
|
|
mov ax,si
|
|
|
|
mov ecx,long_v_table
|
|
|
|
.loop: add ax,size_of_step
|
|
cmp ax,word [end_cursor]
|
|
jae .next_step
|
|
loop .loop
|
|
.next_step:
|
|
sub ax,size_of_step*long_v_table
|
|
cmp ax,modes_table
|
|
jae @f
|
|
mov ax,modes_table
|
|
@@:
|
|
|
|
mov word [home_cursor],ax
|
|
mov si,[preboot_graph]
|
|
mov word [cursor_pos],si
|
|
|
|
push word [es:si]
|
|
pop word [x_save]
|
|
push word [es:si+2]
|
|
pop word [y_save]
|
|
push word [es:si+6]
|
|
pop word [number_vm]
|
|
|
|
ret
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
.loops:
|
|
cmp ax,word [es:si]
|
|
jne .next
|
|
cmp bx,word [es:si+2]
|
|
jne .next
|
|
je .ok
|
|
.next: add si,size_of_step
|
|
cmp word [es:si],-1
|
|
je .exit
|
|
jmp .loops
|
|
.ok: xor ax,ax
|
|
ret
|
|
.exit: or ax,-1
|
|
ret
|
|
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
set_vmode:
|
|
push 0 ;0;x1000
|
|
pop es
|
|
|
|
mov si,word [preboot_graph] ;[preboot_graph]
|
|
mov cx,word [es:si+6] ; number of mode
|
|
|
|
|
|
mov ax,word [es:si+0] ; resolution X
|
|
mov bx,word [es:si+2] ; resolution Y
|
|
|
|
|
|
mov word [es:0x900A],ax ; resolution X
|
|
mov word [es:0x900C],bx ; resolution Y
|
|
mov word [es:0x9008],cx ; number of mode
|
|
|
|
|
|
; VESA 2 and Vesa 3 only
|
|
|
|
mov ax,0x4f01
|
|
and cx,0xfff
|
|
mov di,mi;0xa000
|
|
int 0x10
|
|
; LFB
|
|
mov eax,[es:mi.PhysBasePtr] ;di+0x28]
|
|
mov [es:0x9018],eax
|
|
; ---- vbe voodoo
|
|
BytesPerLine equ 0x10
|
|
mov ax, [es:di+BytesPerLine]
|
|
mov [es:0x9001], ax
|
|
; BPP
|
|
.l0:
|
|
mov al, byte [es:di+0x19]
|
|
mov [es:0x9000], al
|
|
jmp .exit
|
|
|
|
.exit:
|
|
ret
|
|
|
|
|
|
;=============================================================================
|
|
|