WebSVN – Kolibri OS – Diff – /kernel/trunk/boot/bootvesa.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 750 $
 
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         ;âðåìåííîå õðàíåíèå êóðñîðà.
home_cursor dw 0    ;current shows rows a table
end_cursor  dw 0     ;end of position current shows rows a table
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
;-------------------------------------------------------
;Write message about incorrect v_mode and write message about jmp on swith v_mode
v_mode_error:
        _setcursor 19,2
        mov     si, fatalsel
        call    printplain
        _setcursor 20,2
        mov     si,pres_key
        call    printplain
        xor     eax,eax
        int     16h
        jmp     cfgmanager.d
;-------------------------------------------------------
;
 
 
 
;-------------------------------------------------------
print_vesa_info:
        _setcursor 5,2
 
        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     .exit
  @@:
        cmp     [es:vi.VESASignature],'VESA'
        jne     .exit
        cmp     [es:vi.VESAVersion],0x0100
        jb      .exit
        jmp     .vesaok2
 
  .exit:
        mov     si,novesa
        call    printplain
        ret
 
  .vesaok2:
        mov     ax,[es:vi.VESAVersion]
        add     ax,'00'
 
        mov     [s_vesa.ver], ah
        mov     [s_vesa.ver+2], al
        mov     si,s_vesa
        call    printplain
 
        _setcursor 4,2
        mov     si,word[es:vi.OemStringPtr]
        mov     di,si
 
        push    ds
        mov     ds,word[es:vi.OemStringPtr+2]
        call    printplain
        pop     ds
 
        ret
;-----------------------------------------------------------------------------
 
calc_vmodes_table:
        pushad
 
;        push    0
;        pop     es
 
        lfs     si, [es:vi.VideoModePtr]
 
        mov     bx,modes_table
;save no vesa mode of work 320x200, EGA/CGA 256 梥⮢ and 640x480, VGA 16 梥⮢
        mov     word [es:bx],640
        mov     word [es:bx+2],480
        mov     word [es:bx+6],0x13
        
        mov     word [es:bx+10],640
        mov     word [es:bx+12],480
        mov     word [es:bx+16],0x12
        add     bx,20
  .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], 24
;        jb      @f
 
        cmp     [es:mi.BitsPerPixel],16
        jne     .l0
        cmp     [es:mi.GreenMaskSize],5
        jne     .l0
        mov     [es:mi.BitsPerPixel],15
 
 
  .l0:
        cmp     [es:mi.XRes],640
        jb      @f
        cmp     [es:mi.YRes],480
        jb      @f
;        cmp     [es:mi.BitsPerPixel],8
;        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
 
    @@:
        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
;;;;;;;;;;;;;;;;;;
;Sort array
;        mov     si,modes_table
;.new_mode:
;        mov     ax,word [es:si]
;        cmp     ax,-1
;        je      .exxit
;        add     ax,word [es:si+2]
;        add     ax,word [es:si+8]
;        mov     bp,si
;.again:
;        add     bp,12
;        mov     bx,word [es:bp]
;        cmp     bx,-1
;        je      .exit
;        add     bx,word [es:bp+2]
;        add     bx,word [es:bp+8]
;        
;        cmp     ax,bx
;        ja      .loops
;        jmp     .again
;.loops: 
;        push    dword [es:si]
;        push    dword [es:si+4]
;        push    dword [es:si+8]
;        push    dword [es:bp]
;        push    dword [es:bp+4]
;        push    dword [es:bp+8]
;
;        pop     dword [es:si+8]
;        pop     dword [es:si+4]
;        pop     dword [es:si]
;        pop     dword [es:bp+8]
;        pop     dword [es:bp+4]
;        pop     dword [es:bp]
;        jmp     .new_mode
;
;.exit:  add     si,12
;        jmp     .new_mode
;.exxit:
        popad
        ret
 
;-----------------------------------------------------------------------------
 
draw_current_vmode:
        push    0
        pop     es
 
        mov     si,word [cursor_pos]
 
        cmp     word [es:si+6],0x12
        je      .no_vesa_0x12
 
        cmp     word [es:si+6],0x13
        je      .no_vesa_0x13
 
        mov     di,loader_block_error
        movzx   eax,word[es:si+0]
        mov     ecx,10
        call    int2strnz
        mov     byte[es:di],'x'
        inc     di
        movzx   eax,word[es:si+2]
        call    int2strnz
        mov     byte[es:di],'x'
        inc     di
        movzx   eax,word[es:si+8]
        call    int2strnz
        mov     dword[es:di],0x00000d0a
        mov     si,loader_block_error
        push    ds
        push    es
        pop     ds
        call    printplain
        pop     ds
        ret
.no_vesa_0x13:
        mov     si,mode0
        jmp     .print
.no_vesa_0x12:
        mov     si,mode9
.print:
        call    printplain
        ret        
;-----------------------------------------------------------------------------
check_first_parm:
        mov     si,word [preboot_graph]
        test    si,si
        jnz      .no_zero        ;if no zero
.zerro:
;        mov     ax,modes_table
;        mov     word [cursor_pos],ax
;        mov     word [home_cursor],ax
;        mov     word [preboot_graph],ax
;SET default video of mode first probe will fined a move of work 1024x768@32
 
        mov     ax,1024
        mov     bx,768
        mov     si,modes_table
        call    .loops
        test    ax,ax
        jz     .ok_found_mode
        mov     ax,800
        mov     bx,600
        mov     si,modes_table
        call    .loops
        test    ax,ax
        jz     .ok_found_mode
        mov     ax,640
        mov     bx,480
        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
;        cmp     ax,modes_table
;        jb      .zerro           ;check on correct if bellow
;        cmp     ax,word [end_cursor]
;        ja      .zerro           ;check on correct if anymore
 
.ok_found_mode:
        mov     word [home_cursor],si
;        mov     word [cursor_pos],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
        push    word [preboot_graph]
        pop     word [cursor_pos]
        ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;
.loops:
        cmp     ax,word [es:si]
        jne     .next
        cmp     bx,word [es:si+2]
        jne     .next
        cmp     word [es:si+8],32
        je      .ok
        cmp     word [es:si+8],24
        je      .ok
.next:  add     si,size_of_step
        cmp     word [es:si],-1
        je      .exit
        jmp     .loops
.ok:    xor     ax,ax        
.exit:  ret
 
 
;-----------------------------------------------------------------------------
 
;default_vmode:
        
;-----------------------------------------------------------------------------
draw_vmodes_table:
        _setcursor 9, 2
        mov     si,gr_mode
        call    printplain
 
        mov     si,_st
        call    printplain
 
        push    word [cursor_pos]
        pop     ax
        push    word [home_cursor]
        pop     si
        mov     cx,si
 
        cmp     ax,si
        je      .ok
        jb      .low
 
 
        add     cx,size_of_step*long_v_table
        
        cmp     ax,cx
        jb      .ok
        
        sub     cx,size_of_step*long_v_table
        add     cx,size_of_step
        cmp     cx,word[end_cursor]
        jae     .ok
        add     si,size_of_step
        push    si
        pop     word [home_cursor]
        jmp     .ok
 
 
.low:   sub     cx,size_of_step
        cmp     cx,modes_table
        jb      .ok
        push    cx
        push    cx
        pop     word [home_cursor]
        pop     si
 
 
.ok:
        mov     bp,long_v_table               ;show rows
.@@_next_bit:
        cmp     word [es:si+6],0x12
        je      .show_0x12
        cmp     word [es:si+6],0x13
        je      .show_0x13
 
        movzx   eax,word[es:si]
        cmp     ax,-1
        je      .@@_end
        mov     di,_rs+23          
        mov     ecx,10
        mov     bl,4
        call    int2str
        movzx   eax,word[es:si+2]
        inc     di
        mov     bl,4
        call    int2str
 
        movzx   eax,word[es:si+8]
        inc     di
        mov     bl,2
        call    int2str
;clear cursor
        mov     word[ds:_r1+21],'  '
        mov     word[ds:_r1+50],'  '
 
        mov     word[ds:_r2+21],'  '
        mov     word[ds:_r2+45],'  '
 
        mov     word[ds:_rs+21],'  '
        mov     word[ds:_rs+46],'  '
 
        cmp     si, word [cursor_pos]
        jne     .next
;draw   cursor
        mov     word[ds:_rs+21],'>>'
        mov     word[ds:_rs+46],'<<'
        
 
 
.next:
        push    si
        mov     si,_rs
.@@_sh:
        call    printplain
        pop     si
        add     si,size_of_step
 
        dec     bp
        jnz     .@@_next_bit
 
.@@_end:
        mov     si,_bt
        call    printplain
; show scroll
        push    es
        push    0xB800
        pop     es
; arrows
        mov     di, (11*80+53)*2
        mov     al, 30
        stosb
        add     di, 80*2-1
        mov     al, 32
        mov     cx, scroll_area_size
@@:
        stosb
        add     di, 80*2-1
        loop    @b
        mov     al, 31
        stosb
; calculate scroll size
        mov     ax, [end_cursor]
        sub     ax, modes_table
        mov     bx, size_of_step
        cwd
        div     bx
        mov     si, ax          ; si = size of list
        mov     ax, [home_cursor]
        sub     ax, modes_table
        cwd
        div     bx
        mov     di, ax
        mov     ax, scroll_area_size*long_v_table
        cwd
        div     si
        test    ax, ax
        jnz     @f
        inc     ax
@@:
        cmp     al, scroll_area_size
        jb      @f
        mov     al, scroll_area_size
@@:
        mov     cx, ax
; cx = scroll height
; calculate scroll pos
        xor     bx, bx          ; initialize scroll pos
        sub     al, scroll_area_size+1
        neg     al
        sub     si, long_v_table-1
        jbe     .draw_scroll
        mul     di
        div     si
        mov     bx, ax
.draw_scroll:
        mov     al, 0xDB
        imul    di, bx, 80*2
        add     di, (12*80+53)*2
@@:
        stosb
        add     di, 80*2-1
        loop    @b
        pop     es
        ret
.show_0x13:
        push    si
 
        cmp     si, word [cursor_pos]
        jne     @f
        mov     word[ds:_r1+21],'>>'
        mov     word[ds:_r1+50],'<<'        
@@:
        mov     si,_r1
        jmp     .@@_sh
.show_0x12:
        push    si
        cmp     si, word [cursor_pos]
        jne     @f
 
        mov     word[ds:_r2+21],'>>'
        mov     word[ds:_r2+45],'<<'
@@:
        mov     si,_r2
        jmp     .@@_sh
 
;-----------------------------------------------------------------------------
;Clear arrea of current video page (0xb800)
clear_vmodes_table:
        pusha
       ; draw frames
        push    es
        push    0xb800
        pop     es
        mov     di,1444
        xor     ax,ax
        mov     ah, 1*16+15
        mov     cx,70
        mov     bp,12
.loop_start:
        rep     stosw
        mov     cx,70
        add     di,20
        dec     bp               ; ã¬¥­ìè¨âì DX,
        jns        .loop_start       
        pop     es
        popa
        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
 
        cmp     cx,0x12
        je      .mode0x12_0x13
        cmp     cx,0x13
        je      .mode0x12_0x13
 
 
        cmp     byte [s_vesa.ver],'2'
        jb      .vesa12
 
;  VESA 2 and Vesa 3
 
        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
        cmp     [es:mi.BitsPerPixel],16
        jne     .l0
        cmp     [es:mi.GreenMaskSize],5
        jne     .l0
        mov     [es:mi.BitsPerPixel],15
.l0:
        mov     al, byte [es:di+0x19]
        mov     [es:0x9000], al
        jmp     .exit
 
.mode0x12_0x13:
        mov     byte [es:0x9000], 32
        or      dword [es:0x9018], 0xFFFFFFFF; 0x800000
 
 
;  VESA 1.2 PM BANK SWITCH ADDRESS
 
.vesa12:
 
 
        mov     ax,0x4f0A
        xor     bx,bx
        int     0x10
        xor     eax,eax
        xor     ebx,ebx
        mov     ax,es
        shl     eax,4
        mov     bx,di
        add     eax,ebx
        movzx   ebx,word[es:di]
        add     eax,ebx
        push    0x0000
        pop     es
        mov     [es:0x9014],eax
  .exit:
        ret
 
 
;        mov     dword[es:0x9018],0x000A0000
;        ret
 
;=============================================================================
;=============================================================================
;=============================================================================
@@:
>
@@:
>
>
>

Rev 749	Rev 750
-		1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-		2	;; ;;
-		3	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
-		4	;; Distributed under terms of the GNU General Public License ;;
-		5	;; ;;
-		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-		7
-		8	$Revision: 750 $
1	struc VBE_VGAInfo {	9
2	.VESASignature dd ? ; char	10	struc VBE_VGAInfo {
3	.VESAVersion dw ? ; short	11	.VESASignature dd ? ; char
4	.OemStringPtr dd ? ; char *	12	.VESAVersion dw ? ; short
5	.Capabilities dd ? ; ulong	13	.OemStringPtr dd ? ; char *
6	.VideoModePtr dd ? ; ulong	14	.Capabilities dd ? ; ulong
7	.TotalMemory dw ? ; short	15	.VideoModePtr dd ? ; ulong
8	; VBE 2.0+	16	.TotalMemory dw ? ; short
9	.OemSoftwareRev db ? ; short	17	; VBE 2.0+
10	.OemVendorNamePtr dw ? ; char *	18	.OemSoftwareRev db ? ; short
11	.OemProductNamePtr dw ? ; char *	19	.OemVendorNamePtr dw ? ; char *
12	.OemProductRevPtr dw ? ; char *	20	.OemProductNamePtr dw ? ; char *
13	.reserved rb 222 ; char	21	.OemProductRevPtr dw ? ; char *
14	.OemData rb 256 ; char	22	.reserved rb 222 ; char
15	}	23	.OemData rb 256 ; char
16		24	}
17	struc VBE_ModeInfo {	25
18	.ModeAttributes dw ? ; short	26	struc VBE_ModeInfo {
19	.WinAAttributes db ? ; char	27	.ModeAttributes dw ? ; short
20	.WinBAttributes db ? ; char	28	.WinAAttributes db ? ; char
21	.WinGranularity dw ? ; short	29	.WinBAttributes db ? ; char
22	.WinSize dw ? ; short	30	.WinGranularity dw ? ; short
23	.WinASegment dw ? ; ushort	31	.WinSize dw ? ; short
24	.WinBSegment dw ? ; ushort	32	.WinASegment dw ? ; ushort
25	.WinFuncPtr dd ? ; void *	33	.WinBSegment dw ? ; ushort
26	.BytesPerScanLine dw ? ; short	34	.WinFuncPtr dd ? ; void *
27	.XRes dw ? ; short	35	.BytesPerScanLine dw ? ; short
28	.YRes dw ? ; short	36	.XRes dw ? ; short
29	.XCharSize db ? ; char	37	.YRes dw ? ; short
30	.YCharSize db ? ; char	38	.XCharSize db ? ; char
31	.NumberOfPlanes db ? ; char	39	.YCharSize db ? ; char
32	.BitsPerPixel db ? ; char	40	.NumberOfPlanes db ? ; char
33	.NumberOfBanks db ? ; char	41	.BitsPerPixel db ? ; char
34	.MemoryModel db ? ; char	42	.NumberOfBanks db ? ; char
35	.BankSize db ? ; char	43	.MemoryModel db ? ; char
36	.NumberOfImagePages db ? ; char	44	.BankSize db ? ; char
37	.res1 db ? ; char	45	.NumberOfImagePages db ? ; char
38	.RedMaskSize db ? ; char	46	.res1 db ? ; char
39	.RedFieldPosition db ? ; char	47	.RedMaskSize db ? ; char
40	.GreenMaskSize db ? ; char	48	.RedFieldPosition db ? ; char
41	.GreenFieldPosition db ? ; char	49	.GreenMaskSize db ? ; char
42	.BlueMaskSize db ? ; char	50	.GreenFieldPosition db ? ; char
43	.BlueFieldPosition db ? ; char	51	.BlueMaskSize db ? ; char
44	.RsvedMaskSize db ? ; char	52	.BlueFieldPosition db ? ; char
45	.RsvedFieldPosition db ? ; char	53	.RsvedMaskSize db ? ; char
46	.DirectColorModeInfo db ? ; char ; MISSED IN THIS TUTORIAL!! SEE ABOVE	54	.RsvedFieldPosition db ? ; char
47	; VBE 2.0+	55	.DirectColorModeInfo db ? ; char ; MISSED IN THIS TUTORIAL!! SEE ABOVE
48	.PhysBasePtr dd ? ; ulong	56	; VBE 2.0+
49	.OffScreenMemOffset dd ? ; ulong	57	.PhysBasePtr dd ? ; ulong
50	.OffScreenMemSize dw ? ; short	58	.OffScreenMemOffset dd ? ; ulong
51	; VBE 3.0+	59	.OffScreenMemSize dw ? ; short
52	.LinbytesPerScanLine dw ? ; short	60	; VBE 3.0+
53	.BankNumberOfImagePages db ? ; char	61	.LinbytesPerScanLine dw ? ; short
54	.LinNumberOfImagePages db ? ; char	62	.BankNumberOfImagePages db ? ; char
55	.LinRedMaskSize db ? ; char	63	.LinNumberOfImagePages db ? ; char
56	.LinRedFieldPosition db ? ; char	64	.LinRedMaskSize db ? ; char
57	.LingreenMaskSize db ? ; char	65	.LinRedFieldPosition db ? ; char
58	.LinGreenFieldPosition db ? ; char	66	.LingreenMaskSize db ? ; char
59	.LinBlueMaskSize db ? ; char	67	.LinGreenFieldPosition db ? ; char
60	.LinBlueFieldPosition db ? ; char	68	.LinBlueMaskSize db ? ; char
61	.LinRsvdMaskSize db ? ; char	69	.LinBlueFieldPosition db ? ; char
62	.LinRsvdFieldPosition db ? ; char	70	.LinRsvdMaskSize db ? ; char
63	.MaxPixelClock dd ? ; ulong	71	.LinRsvdFieldPosition db ? ; char
64	.res2 rb 190 ; char	72	.MaxPixelClock dd ? ; ulong
65	}	73	.res2 rb 190 ; char
66		74	}
67	virtual at $A000	75
68	vi VBE_VGAInfo	76	virtual at $A000
69	mi VBE_ModeInfo	77	vi VBE_VGAInfo
70	modes_table:	78	mi VBE_ModeInfo
71	end virtual	79	modes_table:
72	cursor_pos dw 0 ;âðåìåííîå õðàíåíèå êóðñîðà.	80	end virtual
73	home_cursor dw 0 ;current shows rows a table	81	cursor_pos dw 0 ;âðåìåííîå õðàíåíèå êóðñîðà.
74	end_cursor dw 0 ;end of position current shows rows a table	82	home_cursor dw 0 ;current shows rows a table
75	long_v_table equ 9 ;long of visible video table	83	end_cursor dw 0 ;end of position current shows rows a table
76	size_of_step equ 10	84	long_v_table equ 9 ;long of visible video table
77	scroll_area_size equ (long_v_table-2)	85	size_of_step equ 10
78	int2str:	86	scroll_area_size equ (long_v_table-2)
79	dec bl	87	int2str:
80	jz @f	88	dec bl
81	xor edx,edx	89	jz @f
82	div ecx	90	xor edx,edx
83	push edx	91	div ecx
84	call int2str	92	push edx
85	pop eax	93	call int2str
86	@@: or al,0x30	94	pop eax
87	mov [ds:di],al	95	@@: or al,0x30
88	inc di	96	mov [ds:di],al
89	ret	97	inc di
90		98	ret
91	int2strnz:	99
92	cmp eax,ecx	100	int2strnz:
93	jb @f	101	cmp eax,ecx
94	xor edx,edx	102	jb @f
95	div ecx	103	xor edx,edx
96	push edx	104	div ecx
97	call int2strnz	105	push edx
98	pop eax	106	call int2strnz
99	@@: or al,0x30	107	pop eax
100	mov [es:di],al	108	@@: or al,0x30
101	inc di	109	mov [es:di],al
102	ret	110	inc di
103	;-------------------------------------------------------	111	ret
104	;Write message about incorrect v_mode and write message about jmp on swith v_mode	112	;-------------------------------------------------------
105	v_mode_error:	113	;Write message about incorrect v_mode and write message about jmp on swith v_mode
106	_setcursor 19,2	114	v_mode_error:
107	mov si, fatalsel	115	_setcursor 19,2
108	call printplain	116	mov si, fatalsel
109	_setcursor 20,2	117	call printplain
110	mov si,pres_key	118	_setcursor 20,2
111	call printplain	119	mov si,pres_key
112	xor eax,eax	120	call printplain
113	int 16h	121	xor eax,eax
114	jmp cfgmanager.d	122	int 16h
115	;-------------------------------------------------------	123	jmp cfgmanager.d
116	;	124	;-------------------------------------------------------
117		125	;
118		126
119		127
120	;-------------------------------------------------------	128
121	print_vesa_info:	129	;-------------------------------------------------------
122	_setcursor 5,2	130	print_vesa_info:
123		131	_setcursor 5,2
124	mov [es:vi.VESASignature],'VBE2'	132
125	mov ax,0x4F00	133	mov [es:vi.VESASignature],'VBE2'
126	mov di,vi ;0xa000	134	mov ax,0x4F00
127	int 0x10	135	mov di,vi ;0xa000
128	or ah,ah	136	int 0x10
129	jz @f	137	or ah,ah
130	mov [es:vi.VESASignature],'VESA'	138	jz @f
131	mov ax,$4F00	139	mov [es:vi.VESASignature],'VESA'
132	mov di,vi	140	mov ax,$4F00
133	int 0x10	141	mov di,vi
134	or ah,ah	142	int 0x10
135	jnz .exit	143	or ah,ah
136	@@:	144	jnz .exit
137	cmp [es:vi.VESASignature],'VESA'	145	@@:
138	jne .exit	146	cmp [es:vi.VESASignature],'VESA'
139	cmp [es:vi.VESAVersion],0x0100	147	jne .exit
140	jb .exit	148	cmp [es:vi.VESAVersion],0x0100
141	jmp .vesaok2	149	jb .exit
142		150	jmp .vesaok2
143	.exit:	151
144	mov si,novesa	152	.exit:
145	call printplain	153	mov si,novesa
146	ret	154	call printplain
147		155	ret
148	.vesaok2:	156
149	mov ax,[es:vi.VESAVersion]	157	.vesaok2:
150	add ax,'00'	158	mov ax,[es:vi.VESAVersion]
151		159	add ax,'00'
152	mov [s_vesa.ver], ah	160
153	mov [s_vesa.ver+2], al	161	mov [s_vesa.ver], ah
154	mov si,s_vesa	162	mov [s_vesa.ver+2], al
155	call printplain	163	mov si,s_vesa
156		164	call printplain
157	_setcursor 4,2	165
158	mov si,word[es:vi.OemStringPtr]	166	_setcursor 4,2
159	mov di,si	167	mov si,word[es:vi.OemStringPtr]
160		168	mov di,si
161	push ds	169
162	mov ds,word[es:vi.OemStringPtr+2]	170	push ds
163	call printplain	171	mov ds,word[es:vi.OemStringPtr+2]
164	pop ds	172	call printplain
165		173	pop ds
166	ret	174
167	;-----------------------------------------------------------------------------	175	ret
168		176	;-----------------------------------------------------------------------------
169	calc_vmodes_table:	177
170	pushad	178	calc_vmodes_table:
171		179	pushad
172	; push 0	180
173	; pop es	181	; push 0
174		182	; pop es
175	lfs si, [es:vi.VideoModePtr]	183
176		184	lfs si, [es:vi.VideoModePtr]
177	mov bx,modes_table	185
178	;save no vesa mode of work 320x200, EGA/CGA 256 梥⮢ and 640x480, VGA 16 梥⮢	186	mov bx,modes_table
179	mov word [es:bx],640	187	;save no vesa mode of work 320x200, EGA/CGA 256 梥⮢ and 640x480, VGA 16 梥⮢
180	mov word [es:bx+2],480	188	mov word [es:bx],640
181	mov word [es:bx+6],0x13	189	mov word [es:bx+2],480
182		190	mov word [es:bx+6],0x13
183	mov word [es:bx+10],640	191
184	mov word [es:bx+12],480	192	mov word [es:bx+10],640
185	mov word [es:bx+16],0x12	193	mov word [es:bx+12],480
186	add bx,20	194	mov word [es:bx+16],0x12
187	.next_mode:	195	add bx,20
188	mov cx,word [fs:si] ; mode number	196	.next_mode:
189	cmp cx,-1	197	mov cx,word [fs:si] ; mode number
190	je .modes_ok.2	198	cmp cx,-1
191		199	je .modes_ok.2
192	mov ax,0x4F01	200
193	mov di,mi	201	mov ax,0x4F01
194	int 0x10	202	mov di,mi
195		203	int 0x10
196	or ah,ah	204
197	jnz .modes_ok.2;vesa_info.exit	205	or ah,ah
198		206	jnz .modes_ok.2;vesa_info.exit
199	test [es:mi.ModeAttributes],00000001b ;videomode support ?	207
200	jz @f	208	test [es:mi.ModeAttributes],00000001b ;videomode support ?
201	test [es:mi.ModeAttributes],00010000b ;picture ?	209	jz @f
202	jz @f	210	test [es:mi.ModeAttributes],00010000b ;picture ?
203	test [es:mi.ModeAttributes],10000000b ;LFB ?	211	jz @f
204	jz @f	212	test [es:mi.ModeAttributes],10000000b ;LFB ?
205		213	jz @f
206	; cmp [es:mi.BitsPerPixel], 24	214
207	; jb @f	215	; cmp [es:mi.BitsPerPixel], 24
208		216	; jb @f
209	cmp [es:mi.BitsPerPixel],16	217
210	jne .l0	218	cmp [es:mi.BitsPerPixel],16
211	cmp [es:mi.GreenMaskSize],5	219	jne .l0
212	jne .l0	220	cmp [es:mi.GreenMaskSize],5
213	mov [es:mi.BitsPerPixel],15	221	jne .l0
214		222	mov [es:mi.BitsPerPixel],15
215		223
216	.l0:	224
217	cmp [es:mi.XRes],640	225	.l0:
218	jb @f	226	cmp [es:mi.XRes],640
219	cmp [es:mi.YRes],480	227	jb @f
220	jb @f	228	cmp [es:mi.YRes],480
221	; cmp [es:mi.BitsPerPixel],8	229	jb @f
222	; jb @f	230	; cmp [es:mi.BitsPerPixel],8
223		231	; jb @f
224	mov ax,[es:mi.XRes]	232
225	mov [es:bx+0],ax ; +0[2] : resolution X	233	mov ax,[es:mi.XRes]
226	mov ax,[es:mi.YRes]	234	mov [es:bx+0],ax ; +0[2] : resolution X
227	mov [es:bx+2],ax ; +2[2] : resolution Y	235	mov ax,[es:mi.YRes]
228	mov ax,[es:mi.ModeAttributes]	236	mov [es:bx+2],ax ; +2[2] : resolution Y
229	mov [es:bx+4],ax ; +4[2] : attributes	237	mov ax,[es:mi.ModeAttributes]
230		238	mov [es:bx+4],ax ; +4[2] : attributes
231	cmp [s_vesa.ver],'2'	239
232	jb .lp1	240	cmp [s_vesa.ver],'2'
233		241	jb .lp1
234	or cx,0x4000 ; use LFB	242
235	.lp1: mov [es:bx+6],cx ; +6 : mode number	243	or cx,0x4000 ; use LFB
236	movzx ax,byte [es:mi.BitsPerPixel]	244	.lp1: mov [es:bx+6],cx ; +6 : mode number
237	mov word [es:bx+8],ax ; +8 : bits per pixel	245	movzx ax,byte [es:mi.BitsPerPixel]
238	add bx,size_of_step	246	mov word [es:bx+8],ax ; +8 : bits per pixel
239		247	add bx,size_of_step
240	@@:	248
241	add si,2	249	@@:
242	jmp .next_mode	250	add si,2
243		251	jmp .next_mode
244	.modes_ok.2:	252
245		253	.modes_ok.2:
246	mov word[es:bx],-1 ;end video table	254
247	mov word[end_cursor],bx ;save end cursor position	255	mov word[es:bx],-1 ;end video table
248	;;;;;;;;;;;;;;;;;;	256	mov word[end_cursor],bx ;save end cursor position
249	;Sort array	257	;;;;;;;;;;;;;;;;;;
250	; mov si,modes_table	258	;Sort array
251	;.new_mode:	259	; mov si,modes_table
252	; mov ax,word [es:si]	260	;.new_mode:
253	; cmp ax,-1	261	; mov ax,word [es:si]
254	; je .exxit	262	; cmp ax,-1
255	; add ax,word [es:si+2]	263	; je .exxit
256	; add ax,word [es:si+8]	264	; add ax,word [es:si+2]
257	; mov bp,si	265	; add ax,word [es:si+8]
258	;.again:	266	; mov bp,si
259	; add bp,12	267	;.again:
260	; mov bx,word [es:bp]	268	; add bp,12
261	; cmp bx,-1	269	; mov bx,word [es:bp]
262	; je .exit	270	; cmp bx,-1
263	; add bx,word [es:bp+2]	271	; je .exit
264	; add bx,word [es:bp+8]	272	; add bx,word [es:bp+2]
265	;	273	; add bx,word [es:bp+8]
266	; cmp ax,bx	274	;
267	; ja .loops	275	; cmp ax,bx
268	; jmp .again	276	; ja .loops
269	;.loops:	277	; jmp .again
270	; push dword [es:si]	278	;.loops:
271	; push dword [es:si+4]	279	; push dword [es:si]
272	; push dword [es:si+8]	280	; push dword [es:si+4]
273	; push dword [es:bp]	281	; push dword [es:si+8]
274	; push dword [es:bp+4]	282	; push dword [es:bp]
275	; push dword [es:bp+8]	283	; push dword [es:bp+4]
276	;	284	; push dword [es:bp+8]
277	; pop dword [es:si+8]	285	;
278	; pop dword [es:si+4]	286	; pop dword [es:si+8]
279	; pop dword [es:si]	287	; pop dword [es:si+4]
280	; pop dword [es:bp+8]	288	; pop dword [es:si]
281	; pop dword [es:bp+4]	289	; pop dword [es:bp+8]
282	; pop dword [es:bp]	290	; pop dword [es:bp+4]
283	; jmp .new_mode	291	; pop dword [es:bp]
284	;	292	; jmp .new_mode
285	;.exit: add si,12	293	;
286	; jmp .new_mode	294	;.exit: add si,12
287	;.exxit:	295	; jmp .new_mode
288	popad	296	;.exxit:
289	ret	297	popad
290		298	ret
291	;-----------------------------------------------------------------------------	299
292		300	;-----------------------------------------------------------------------------
293	draw_current_vmode:	301
294	push 0	302	draw_current_vmode:
295	pop es	303	push 0
296		304	pop es
297	mov si,word [cursor_pos]	305
298		306	mov si,word [cursor_pos]
299	cmp word [es:si+6],0x12	307
300	je .no_vesa_0x12	308	cmp word [es:si+6],0x12
301		309	je .no_vesa_0x12
302	cmp word [es:si+6],0x13	310
303	je .no_vesa_0x13	311	cmp word [es:si+6],0x13
304		312	je .no_vesa_0x13
305	mov di,loader_block_error	313
306	movzx eax,word[es:si+0]	314	mov di,loader_block_error
307	mov ecx,10	315	movzx eax,word[es:si+0]
308	call int2strnz	316	mov ecx,10
309	mov byte[es:di],'x'	317	call int2strnz
310	inc di	318	mov byte[es:di],'x'
311	movzx eax,word[es:si+2]	319	inc di
312	call int2strnz	320	movzx eax,word[es:si+2]
313	mov byte[es:di],'x'	321	call int2strnz
314	inc di	322	mov byte[es:di],'x'
315	movzx eax,word[es:si+8]	323	inc di
316	call int2strnz	324	movzx eax,word[es:si+8]
317	mov dword[es:di],0x00000d0a	325	call int2strnz
318	mov si,loader_block_error	326	mov dword[es:di],0x00000d0a
319	push ds	327	mov si,loader_block_error
320	push es	328	push ds
321	pop ds	329	push es
322	call printplain	330	pop ds
323	pop ds	331	call printplain
324	ret	332	pop ds
325	.no_vesa_0x13:	333	ret
326	mov si,mode0	334	.no_vesa_0x13:
327	jmp .print	335	mov si,mode0
328	.no_vesa_0x12:	336	jmp .print
329	mov si,mode9	337	.no_vesa_0x12:
330	.print:	338	mov si,mode9
331	call printplain	339	.print:
332	ret	340	call printplain
333	;-----------------------------------------------------------------------------	341	ret
334	check_first_parm:	342	;-----------------------------------------------------------------------------
335	mov si,word [preboot_graph]	343	check_first_parm:
336	test si,si	344	mov si,word [preboot_graph]
337	jnz .no_zero ;if no zero	345	test si,si
338	.zerro:	346	jnz .no_zero ;if no zero
339	; mov ax,modes_table	347	.zerro:
340	; mov word [cursor_pos],ax	348	; mov ax,modes_table
341	; mov word [home_cursor],ax	349	; mov word [cursor_pos],ax
342	; mov word [preboot_graph],ax	350	; mov word [home_cursor],ax
343	;SET default video of mode first probe will fined a move of work 1024x768@32	351	; mov word [preboot_graph],ax
344		352	;SET default video of mode first probe will fined a move of work 1024x768@32
345	mov ax,1024	353
346	mov bx,768	354	mov ax,1024
347	mov si,modes_table	355	mov bx,768
348	call .loops	356	mov si,modes_table
349	test ax,ax	357	call .loops
350	jz .ok_found_mode	358	test ax,ax
351	mov ax,800	359	jz .ok_found_mode
352	mov bx,600	360	mov ax,800
353	mov si,modes_table	361	mov bx,600
354	call .loops	362	mov si,modes_table
355	test ax,ax	363	call .loops
356	jz .ok_found_mode	364	test ax,ax
357	mov ax,640	365	jz .ok_found_mode
358	mov bx,480	366	mov ax,640
359	mov si,modes_table	367	mov bx,480
360	call .loops	368	mov si,modes_table
361	test ax,ax	369	call .loops
362	jz .ok_found_mode	370	test ax,ax
363		371	jz .ok_found_mode
364	mov si,modes_table	372
365	jmp .ok_found_mode	373	mov si,modes_table
366		374	jmp .ok_found_mode
367		375
368		376
369	.no_zero:	377
370	mov bp,word [number_vm]	378	.no_zero:
371	cmp bp,word [es:si+6]	379	mov bp,word [number_vm]
372	jz .ok_found_mode	380	cmp bp,word [es:si+6]
373	mov ax,word [x_save]	381	jz .ok_found_mode
374	mov bx,word [y_save]	382	mov ax,word [x_save]
375	mov si,modes_table	383	mov bx,word [y_save]
376	call .loops	384	mov si,modes_table
377	test ax,ax	385	call .loops
378	jz .ok_found_mode	386	test ax,ax
379		387	jz .ok_found_mode
380	mov si,modes_table	388
381	; cmp ax,modes_table	389	mov si,modes_table
382	; jb .zerro ;check on correct if bellow	390	; cmp ax,modes_table
383	; cmp ax,word [end_cursor]	391	; jb .zerro ;check on correct if bellow
384	; ja .zerro ;check on correct if anymore	392	; cmp ax,word [end_cursor]
385		393	; ja .zerro ;check on correct if anymore
386	.ok_found_mode:	394
387	mov word [home_cursor],si	395	.ok_found_mode:
388	; mov word [cursor_pos],si	396	mov word [home_cursor],si
389	mov word [preboot_graph],si	397	; mov word [cursor_pos],si
390	mov ax,si	398	mov word [preboot_graph],si
391		399	mov ax,si
392	mov ecx,long_v_table	400
393		401	mov ecx,long_v_table
394	.loop: add ax,size_of_step	402
395	cmp ax,word [end_cursor]	403	.loop: add ax,size_of_step
396	jae .next_step	404	cmp ax,word [end_cursor]
397	loop .loop	405	jae .next_step
398	.next_step:	406	loop .loop
399	sub ax,size_of_step*long_v_table	407	.next_step:
400	cmp ax,modes_table	408	sub ax,size_of_step*long_v_table
401	jae @f	409	cmp ax,modes_table
402	mov ax,modes_table	410	jae @f
403	@@:	411	mov ax,modes_table
404		412	@@:
405	mov word[home_cursor],ax	413
406	push word [preboot_graph]	414	mov word[home_cursor],ax
407	pop word [cursor_pos]	415	push word [preboot_graph]
408	ret	416	pop word [cursor_pos]
409	;;;;;;;;;;;;;;;;;;;;;;;;;;;	417	ret
410	.loops:	418	;;;;;;;;;;;;;;;;;;;;;;;;;;;
411	cmp ax,word [es:si]	419	.loops:
412	jne .next	420	cmp ax,word [es:si]
413	cmp bx,word [es:si+2]	421	jne .next
414	jne .next	422	cmp bx,word [es:si+2]
415	cmp word [es:si+8],32	423	jne .next
416	je .ok	424	cmp word [es:si+8],32
417	cmp word [es:si+8],24	425	je .ok
418	je .ok	426	cmp word [es:si+8],24
419	.next: add si,size_of_step	427	je .ok
420	cmp word [es:si],-1	428	.next: add si,size_of_step
421	je .exit	429	cmp word [es:si],-1
422	jmp .loops	430	je .exit
423	.ok: xor ax,ax	431	jmp .loops
424	.exit: ret	432	.ok: xor ax,ax
425		433	.exit: ret
426		434
427	;-----------------------------------------------------------------------------	435
428		436	;-----------------------------------------------------------------------------
429	;default_vmode:	437
430		438	;default_vmode:
431	;-----------------------------------------------------------------------------	439
432	draw_vmodes_table:	440	;-----------------------------------------------------------------------------
433	_setcursor 9, 2	441	draw_vmodes_table:
434	mov si,gr_mode	442	_setcursor 9, 2
435	call printplain	443	mov si,gr_mode
436		444	call printplain
437	mov si,_st	445
438	call printplain	446	mov si,_st
439		447	call printplain
440	push word [cursor_pos]	448
441	pop ax	449	push word [cursor_pos]
442	push word [home_cursor]	450	pop ax
443	pop si	451	push word [home_cursor]
444	mov cx,si	452	pop si
445		453	mov cx,si
446	cmp ax,si	454
447	je .ok	455	cmp ax,si
448	jb .low	456	je .ok
449		457	jb .low
450		458
451	add cx,size_of_step*long_v_table	459
452		460	add cx,size_of_step*long_v_table
453	cmp ax,cx	461
454	jb .ok	462	cmp ax,cx
455		463	jb .ok
456	sub cx,size_of_step*long_v_table	464
457	add cx,size_of_step	465	sub cx,size_of_step*long_v_table
458	cmp cx,word[end_cursor]	466	add cx,size_of_step
459	jae .ok	467	cmp cx,word[end_cursor]
460	add si,size_of_step	468	jae .ok
461	push si	469	add si,size_of_step
462	pop word [home_cursor]	470	push si
463	jmp .ok	471	pop word [home_cursor]
464		472	jmp .ok
465		473
466	.low: sub cx,size_of_step	474
467	cmp cx,modes_table	475	.low: sub cx,size_of_step
468	jb .ok	476	cmp cx,modes_table
469	push cx	477	jb .ok
470	push cx	478	push cx
471	pop word [home_cursor]	479	push cx
472	pop si	480	pop word [home_cursor]
473		481	pop si
474		482
475	.ok:	483
476	mov bp,long_v_table ;show rows	484	.ok:
477	.@@_next_bit:	485	mov bp,long_v_table ;show rows
478	cmp word [es:si+6],0x12	486	.@@_next_bit:
479	je .show_0x12	487	cmp word [es:si+6],0x12
480	cmp word [es:si+6],0x13	488	je .show_0x12
481	je .show_0x13	489	cmp word [es:si+6],0x13
482		490	je .show_0x13
483	movzx eax,word[es:si]	491
484	cmp ax,-1	492	movzx eax,word[es:si]
485	je .@@_end	493	cmp ax,-1
486	mov di,_rs+23	494	je .@@_end
487	mov ecx,10	495	mov di,_rs+23
488	mov bl,4	496	mov ecx,10
489	call int2str	497	mov bl,4
490	movzx eax,word[es:si+2]	498	call int2str
491	inc di	499	movzx eax,word[es:si+2]
492	mov bl,4	500	inc di

Subversion Repositories Kolibri OS

(root)/kernel/trunk/boot/bootvesa.inc – Rev 749 → 750