WebSVN – Kolibri OS – Diff – /kernel/branches/flat_kernel/video/vesa12.inc


$Revision: 431 $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;  VESA12.INC                                                  ;;
;;                                                              ;;
;;  Vesa 1.2 functions for MenuetOS                             ;;
;;                                                              ;;
;;  Copyright 2002 Ville Turjanmaa                              ;;
;;                                                              ;;
;;  quickcode@mail.ru - bankswitch for S3 cards                 ;;
;;                                                              ;;
;;  See file COPYING for details                                ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
; A complete video driver should include the following types of function
;
; Putpixel
; Getpixel
;
; Drawimage
; Drawbar
;
; Drawbackground
;
;
; Modifying the set_bank -function is mostly enough
; for different Vesa 1.2 setups.
 
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
; set_bank for Trident videocards, work on Trident 9440
; modified by Mario79
;set_bank:
;cli
;cmp al,[BANK_RW]
;je retsb
;mov [BANK_RW],al
;push dx
;mov dx,3D8h
;out  dx,al
;pop dx
;retsb:
;sti
;ret
 
 
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
; set_bank for S3 videocards, work on S3 ViRGE PCI (325)
; modified by kmeaw
set_bank:
pushfd
cli
cmp al,[BANK_RW]
je retsb
mov [BANK_RW],al
push ax
push dx
push cx
mov cl, al
mov dx, 0x3D4
mov al, 0x38
out dx, al     ;CR38 Register Lock 1 ;Note: Traditionally 48h is used to
               ;unlock and 00h to lock
inc dx
mov al, 0x48
out dx, al     ;3d5 -?
dec dx
mov al, 0x31
out dx, al     ;CR31 Memory Configuration Register
;0  Enable Base Address Offset (CPUA BASE). Enables bank operation if set, ;disables if clear.
;4-5  Bit 16-17 of the Display Start Address. For the 801/5,928 see index 51h,
;for the 864/964 see index 69h.
 
inc dx
in al, dx
dec dx
mov ah, al
mov al, 0x31
out dx, ax
mov al, ah
or al, 9
inc dx
out dx, al
dec dx
mov al, 0x35
out dx, al   ;CR35 CRT Register Lock
inc dx
in al, dx
dec dx
and al, 0xF0
mov ch, cl
and ch, 0x0F
or ch, al
mov al, 0x35
out dx, al
inc dx
mov al, ch
out dx, ax
dec dx
mov al, 0x51  ;Extended System Control 2 Register
out dx, al
inc dx
in al, dx
dec dx
and al, 0xF3
shr cl, 2
and cl, 0x0C
or cl, al
mov al, 0x51
out dx, al
inc dx
mov al, cl
out dx, al
dec dx
mov al, 0x38
out dx, al
inc dx
xor al, al
out dx, al
dec dx
pop cx
pop dx
pop ax
retsb:
popfd
ret
 
;Set bank function for Intel 810/815 chipsets
; *****Modified by Protopopius, Russia.*****
; ********* http://menuetos.hut.ru **************
; ************************************************
;
;set_bank:
;cli
;cmp al,[BANK_RW]
;je retsb
;mov [BANK_RW],al
;push ax
;push dx
;mov dx,3CEh
;mov ah,al            ; Save value for later use
;mov al,10h           ; Index GR10 (Address Mapping)
;out dx,al            ; Select GR10
;inc dl
;mov al,3             ; Set bits 0 and 1 (Enable linear page mapping)
;out dx,al            ; Write value
;dec dl
;mov al,11h           ; Index GR11 (Page Selector)
;out dx,al            ; Select GR11
;inc dl
;mov al,ah            ; Write address
;out dx,al            ; Write the value
;pop dx
;pop ax
;retsb:
;sti
;ret
 
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
 
;set_bank:
;   cli
;   cmp al,[BANK_RW]
;   je retsb
;   mov [BANK_RW],al
;   push ax
;   push dx
;   mov ah,al
;   mov dx,0x03D4
;   mov al,0x39
;   out dx,al
;   inc dl
;   mov al,0xA5
;   out dx,al
;   dec dl
;   mov al,6Ah
;   out dx,al
;   inc dl
;   mov al,ah
;   out dx,al
;   dec dl
;   mov al,0x39
;   out dx,al
;   inc dl
;   mov al,0x5A
;   out dx,al
;   dec dl
;   pop dx
;   pop ax
;
; retsb:
;   ret
 
 
vesa12_drawbackground:
 
        call  [disable_mouse]
 
        push  eax
        push  ebx
        push  ecx
        push  edx
 
        xor   edx,edx
        mov   eax,dword[WinMapAddress-8]
        mov   ebx,dword[WinMapAddress-4]
        mul   ebx
        mov   ebx,3
        mul   ebx
        mov   [imax],eax
        mov   eax,[draw_data+32+RECT.left]
        mov   ebx,[draw_data+32+RECT.top]
        mov   edi,0 ;no force
 
      v12dp3:
 
        push  eax
        push  ebx
        mov   esi,IMG_BACKGROUND
 
        cmp   [WinMapAddress-12],dword 1     ; tiled background
        jne   no_vesa12_tiled_bgr
 
        push  edx
 
        xor   edx,edx
        mov   ecx,[WinMapAddress-8]
        div   ecx
        mov   eax,edx
 
        push  eax
        mov   eax,ebx
        xor   edx,edx
        mov   ecx,[WinMapAddress-4]
        div   ecx
        mov   ebx,edx
        pop   eax
 
        pop   edx
 
      no_vesa12_tiled_bgr:
 
        cmp   [WinMapAddress-12],dword 2     ; stretched background
        jne   no_vesa12_stretched_bgr
 
        push  edx
 
        imul  eax,dword [WinMapAddress-8]
        xor   edx,edx
        mov   ecx,[ScreenWidth]
        inc   ecx
        div   ecx
 
        push  eax
        mov   eax,ebx
        imul  eax,dword [WinMapAddress-4]
        xor   edx,edx
        mov   ecx,[ScreenHeight]
        inc   ecx
        div   ecx
        mov   ebx,eax
        pop   eax
 
        pop   edx
 
      no_vesa12_stretched_bgr:
 
 
        push  eax
        mov   eax,ebx
        xor   edx,edx
        mov   ebx,[WinMapAddress-8]
        add   ebx,[WinMapAddress-8]
        add   ebx,[WinMapAddress-8]
        mul   ebx
        mov   esi,eax
        pop   eax
        add   esi,eax
        add   esi,eax
        add   esi,eax
        add   esi,IMG_BACKGROUND
        pop   ebx
        pop   eax
 
      v12di4:
 
        mov   ecx,[esi]
        pusha
        mov   esi,eax
        mov   edi,ebx
        mov   eax,[ScreenWidth]
        add   eax,1
        mul   ebx
        add   eax,esi
        add   eax,WinMapAddress
        cmp   [eax],byte 1
        jnz   v12nbgp
        mov   eax,[BytesPerScanLine]
        mov   ebx,edi
        mul   ebx
        add   eax,esi
        add   eax,esi
        add   eax,esi
        cmp   [ScreenBPP],byte 24
        jz    v12bgl3
        add   eax,esi
 
      v12bgl3:
 
        push ebx
        push eax
 
        sub  eax,[LFBAddress]
 
        shr  eax,16
        call set_bank
        pop  eax
        and  eax,65535
        add  eax,VGABasePtr
        pop  ebx
 
        mov   [eax],cx
        add   eax,2
        shr   ecx,16
        mov   [eax],cl
        sti
 
      v12nbgp:
 
        popa
        add   esi,3
        inc   eax
        cmp   eax,[draw_data+32+RECT.right]
        jg    v12nodp31
        jmp   v12dp3
 
      v12nodp31:
 
        mov   eax,[draw_data+32+RECT.left]
        inc   ebx
        cmp   ebx,[draw_data+32+RECT.bottom]
        jg    v12dp4
        jmp   v12dp3
 
      v12dp4:
 
        pop   edx
        pop   ecx
        pop   ebx
        pop   eax
        ret
 
 
vesa12_drawbar:
 
    call  [disable_mouse]
 
;;    mov  [novesachecksum],dword 0
    sub  edx,ebx
    sub  ecx,eax
    push esi
    push edi
    push eax
    push ebx
    push ecx
    push edx
    mov  ecx,[TASK_BASE]
    add  eax,[ecx-twdw+WDATA.box.left]
    add  ebx,[ecx-twdw+WDATA.box.top]
    push eax
    mov  eax,ebx         ; y
    mov  ebx,[BytesPerScanLine]
    mul  ebx
    pop  ecx
    add  eax,ecx         ; x
    add  eax,ecx
    add  eax,ecx
    cmp  [ScreenBPP],byte 24     ; 24 or 32 bpp ? - x start
    jz   dbpi2412
    add  eax,ecx
 
  dbpi2412:
 
    add  eax,[LFBAddress]
    mov  edi,eax
 
    ; x size
 
    mov  eax,[esp+4] ; [esp+6]
    mov  ecx,eax
    add  ecx,eax
    add  ecx,eax
    cmp  [ScreenBPP],byte 24     ; 24 or 32 bpp ? - x size
    jz   dbpi24312
    add  ecx,eax
 
  dbpi24312:
 
    mov  ebx,[esp+0]
 
    ; check limits ?
 
    push eax
    push ecx
    mov  eax,[TASK_BASE]
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.left]
    cmp  ecx,0
    jnz  dbcblimitlset12
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.top]
    cmp  ecx,0
    jnz  dbcblimitlset12
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.right]
    cmp  ecx,[ScreenWidth]
    jnz  dbcblimitlset12
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]
    cmp  ecx,[ScreenHeight]
    jnz  dbcblimitlset12
    pop  ecx
    pop  eax
    push dword 0
    jmp  dbcblimitlno12
 
  dbcblimitlset12:
 
    pop  ecx
    pop  eax
    push dword 1
 
  dbcblimitlno12:
 
    cmp  [ScreenBPP],byte 24     ; 24 or 32 bpp ?
    jz   dbpi24bit12
    jmp  dbpi32bit12
 
 
; DRAWBAR 24 BBP
 
 
dbpi24bit12:
 
    push eax
    push ebx
    push edx
    mov  eax,ecx
    mov  ebx,3
    div  ebx
    mov  ecx,eax
    pop  edx
    pop  ebx
    pop  eax
    cld
 
  dbnewpi12:
 
    push ebx
    push edi
    push ecx
 
      xor  edx,edx
      mov  eax,edi
      sub  eax,[LFBAddress]
      mov  ebx,3
      div  ebx
      add  eax,WinMapAddress
      mov   ebx,[CURRENT_TASK]
      cld
 
      dbnp2412:
 
        mov  dl,[eax]
        push eax
        push ecx
        cmp  dl,bl
        jnz  dbimp24no12
        cmp  [esp+5*4],dword 0
        jz   dbimp24yes12
;        call dbcplimit
;        jnz  dbimp24no12
 
     dbimp24yes12:
 
        push edi
        mov  eax,edi
        sub  eax,[LFBAddress]
        shr  eax,16
        call set_bank
        and  edi,0xffff
        add  edi,VGABasePtr
        mov  eax,[esp+8+3*4+16+4+4]
        stosw
        shr  eax,16
        stosb
        sti
        pop  edi
        add  edi,3
        pop  ecx
        pop  eax
        inc  eax
        loop dbnp2412
        jmp  dbnp24d12
 
      dbimp24no12:
 
        pop  ecx
        pop  eax
        cld
        add  edi,3
        inc  eax
        loop dbnp2412
 
      dbnp24d12:
 
        mov  eax,[esp+3*4+16+4]
        test eax,0x80000000
        jz   nodbgl2412
        cmp  al,0
        jz   nodbgl2412
        dec  eax
        mov  [esp+3*4+16+4],eax
 
      nodbgl2412:
 
    pop  ecx
    pop  edi
    pop  ebx
    add  edi,[BytesPerScanLine]
    dec  ebx
    jz   dbnonewpi12
    jmp  dbnewpi12
 
  dbnonewpi12:
 
    add  esp,7*4
 
    ret
 
 
; DRAWBAR 32 BBP
 
 
  dbpi32bit12:
 
    cld
    shr  ecx,2
 
   dbnewpi3212:
 
    push ebx
    push edi
    push ecx
 
      mov  eax,edi
      sub  eax,[LFBAddress]
      shr  eax,2
      add  eax,WinMapAddress
      mov   ebx,[CURRENT_TASK]
      cld
 
      dbnp3212:
 
        mov  dl,[eax]
        push eax
        push ecx
        cmp  dl,bl
        jnz  dbimp32no12
        cmp  [esp+5*4],dword 0
        jz   dbimp32yes12
;        call dbcplimit
;        jnz  dbimp32no12
 
      dbimp32yes12:
 
        push edi
        mov  eax,edi
        sub  eax,[LFBAddress]
        shr  eax,16
        call set_bank
        and  edi,0xffff
        add  edi,VGABasePtr
        mov  eax,[esp+8+3*4+16+4+4]
        stosw
        shr  eax,16
        stosb
        sti
        pop  edi
        add  edi,4
        inc  ebp
        pop  ecx
        pop  eax
        inc  eax
        loop dbnp3212
        jmp  dbnp32d12
 
      dbimp32no12:
 
        pop  ecx
        pop  eax
        inc  eax
        add  edi,4
        inc  ebp
        loop dbnp3212
 
      dbnp32d12:
 
        mov  eax,[esp+12+16+4]
        test eax,0x80000000
        jz   nodbgl3212
        cmp  al,0
        jz   nodbgl3212
        dec  eax
        mov  [esp+12+16+4],eax
 
      nodbgl3212:
 
    pop  ecx
    pop  edi
    pop  ebx
    add  edi,[BytesPerScanLine]
    dec  ebx
    jz   nodbnewpi3212
    jmp  dbnewpi3212
 
  nodbnewpi3212:
 
    add  esp,7*4
    ret
 
 
Vesa12_putpixel24:
 
        mov  edi,eax ; x
        mov  eax,ebx ; y
        lea  edi,[edi+edi*2]
        mov  ebx,[BytesPerScanLine]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,VGABasePtr
        mov  eax,[esp+28]
        stosw
        shr  eax,16
        mov  [edi],al
        sti
        ret
 
 
 
Vesa12_putpixel32:
 
        mov  edi,eax ; x
        mov  eax,ebx ; y
        shl  edi,2
        mov  ebx,[BytesPerScanLine]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,VGABasePtr
        mov  ecx,[esp+28]
        mov  [edi],ecx
        sti
        ret
 
 
Vesa12_getpixel24:
 
        mov  edi,eax ; x
        mov  eax,ebx ; y
        lea  edi,[edi+edi*2]
        mov  ebx,[BytesPerScanLine]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,VGABasePtr
        mov  ecx,[edi]
        and  ecx,255*256*256+255*256+255
        sti
        ret
 
 
Vesa12_getpixel32:
 
        mov  edi,eax ; x
        mov  eax,ebx ; y
        shl  edi,2
        mov  ebx,[BytesPerScanLine]
        xor  edx,edx
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,VGABasePtr
        mov  ecx,[edi]
        and  ecx,255*256*256+255*256+255
        sti
 
        ret
 
 
 
vesa12_putimage:
; ebx = pointer to image
; ecx = size [x|y]
; edx = coordinates [x|y]
; ebp = pointer to 'get' function
; esi = pointer to 'init' function
; edi = parameter for 'get' function
 
;    mov  ebx,image
;    mov  ecx,320*65536+240
;    mov  edx,20*65536+20
 
    call  [disable_mouse]
 
    mov   [novesachecksum],dword 0
    push  esi
    push  edi
    push  eax
    push  ebx
    push  ecx
    push  edx
    movzx eax,word [esp+2]
    movzx ebx,word [esp+0]
    mov   ecx,[TASK_BASE]
    add   eax,[ecx-twdw+WDATA.box.left]
    add   ebx,[ecx-twdw+WDATA.box.top]
    push  eax
    mov   eax,ebx         ; y
    mul   dword [BytesPerScanLine]
    pop   ecx
    add   eax,ecx         ; x
    add   eax,ecx
    add   eax,ecx
    cmp  [ScreenBPP],byte 24     ; 24 or 32 bpp ? - x start
    jz   pi2412
    add  eax,ecx
 
  pi2412:
 
    add  eax,[LFBAddress]
    mov  edi,eax
 
    ; x size
 
    movzx ecx,word [esp+6]
 
    mov   esi,[esp+8]
    movzx ebx,word [esp+4]
 
    ; check limits while draw ?
 
    push  ecx
    mov  eax,[TASK_BASE]
    cmp  dword [eax+draw_data-CURRENT_TASK+RECT.left], 0
    jnz  dbcblimitlset212
    cmp  dword [eax+draw_data-CURRENT_TASK+RECT.top], 0
    jnz  dbcblimitlset212
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.right]
    cmp  ecx,[ScreenWidth]
    jnz  dbcblimitlset212
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]
    cmp  ecx,[ScreenHeight]
    jnz  dbcblimitlset212
    pop  ecx
    push 0
    jmp  dbcblimitlno212
 
  dbcblimitlset212:
 
    pop  ecx
    push 1
 
  dbcblimitlno212:
 
    cmp  [ScreenBPP],byte 24     ; 24 or 32 bpp ?
    jnz  pi32bit12
 
  pi24bit12:
 
  newpi12:
 
    push edi
    push ecx
    push ebx
 
      mov  edx,edi
      sub  edx,[LFBAddress]
      mov  ebx,3
      div  ebx
      add  edx,WinMapAddress
      mov  ebx,[CURRENT_TASK]
      mov  bh,[esp+4*3]
 
      np2412:
 
        cmp  bl,[edx]
        jnz  imp24no12
;        mov  eax,[esi]
        push    dword [esp+4*3+20]
        call    ebp
;        cmp  bh,0
;        jz   imp24yes12
;        call dbcplimit
;        jnz  imp24no12
 
     imp24yes12:
 
        push edi
        push eax
        mov  eax,edi
        sub  eax,[LFBAddress]
        shr  eax,16
        call set_bank
        pop  eax
        and  edi,0xffff
        add  edi,VGABasePtr
        mov  [edi],ax
        shr  eax,16
        mov  [edi+2],al
        pop  edi
 
     imp24no12:
 
        inc  edx
;        add  esi,3
        add  edi,3
        dec  ecx
        jnz  np2412
 
      np24d12:
 
     pop  ebx
     pop  ecx
     pop  edi
 
    add  edi,[BytesPerScanLine]
    add  esi,[esp+32]
    dec  ebx
    jnz  newpi12
 
  nonewpi12:
 
        pop     eax edx ecx ebx eax edi esi
        xor     eax, eax
        ret
 
 
  pi32bit12:
 
   newpi3212:
 
    push edi
    push ecx
    push ebx
 
      mov  edx,edi
      sub  edx,[LFBAddress]
      shr  edx,2
      add  edx,WinMapAddress
      mov   ebx,[CURRENT_TASK]
      mov   bh,[esp+4*3]
 
      np3212:
 
        cmp  bl,[edx]
        jnz  imp32no12
;        mov  eax,[esi]
        push    dword [esp+4*3+20]
        call    ebp
;        cmp  bh,0
;        jz   imp32yes12
;        call dbcplimit
;        jnz  imp32no12
 
      imp32yes12:
 
        push edi
        push eax
        mov  eax,edi
        sub  eax,[LFBAddress]
        shr  eax,16
        call set_bank
        pop  eax
        and  edi,0xffff
        mov  [edi+VGABasePtr],eax
        pop  edi
 
      imp32no12:
 
        inc  edx
;        add  esi,3
        add  edi,4
        dec  ecx
        jnz  np3212
 
      np32d12:
 
     pop  ebx
     pop  ecx
     pop  edi
 
    add   edi,[BytesPerScanLine]
    dec   ebx
    jnz   newpi3212
 
  nonewpi3212:
 
        pop     eax edx ecx ebx eax edi esi
        xor     eax, eax
        ret
 
 
vesa12_read_screen_pixel:
 
     and   eax,0x3FFFFF
     cmp   [ScreenBPP],byte 24      ; 24 or 32 bpp ?
     jz    v12rsp24
     mov   edi,eax
     shl   edi,2
     mov   eax,edi
     shr   eax,16
     call  set_bank
     and   edi,65535
     add   edi,VGABasePtr
     mov   eax,[edi]
     and   eax,0x00ffffff
     ret
  v12rsp24:
 
     imul  eax,3
     mov   edi,eax
     shr   eax,16
     call  set_bank
     and   edi,65535
     add   edi,VGABasePtr
     mov   eax,[edi]
     and   eax,0x00ffffff
     ret

Rev 387	Rev 444
-		1	$Revision: 431 $
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	2	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-		3	;; ;;
-		4	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
-		5	;; Distributed under terms of the GNU General Public License ;;
2	;; ;;	6	;; ;;
3	;; VESA12.INC ;;	7	;; VESA12.INC ;;
4	;; ;;	8	;; ;;
5	;; Vesa 1.2 functions for MenuetOS ;;	9	;; Vesa 1.2 functions for MenuetOS ;;
6	;; ;;	10	;; ;;
7	;; Copyright 2002 Ville Turjanmaa ;;	11	;; Copyright 2002 Ville Turjanmaa ;;
8	;; ;;	12	;; ;;
9	;; quickcode@mail.ru - bankswitch for S3 cards ;;	13	;; quickcode@mail.ru - bankswitch for S3 cards ;;
10	;; ;;	14	;; ;;
11	;; See file COPYING for details ;;	15	;; See file COPYING for details ;;
12	;; ;;	16	;; ;;
13	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	17	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14		18
15		19
16	; A complete video driver should include the following types of function	20	; A complete video driver should include the following types of function
17	;	21	;
18	; Putpixel	22	; Putpixel
19	; Getpixel	23	; Getpixel
20	;	24	;
21	; Drawimage	25	; Drawimage
22	; Drawbar	26	; Drawbar
23	;	27	;
24	; Drawbackground	28	; Drawbackground
25	;	29	;
26	;	30	;
27	; Modifying the set_bank -function is mostly enough	31	; Modifying the set_bank -function is mostly enough
28	; for different Vesa 1.2 setups.	32	; for different Vesa 1.2 setups.
29		33
30	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!	34	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
31	; set_bank for Trident videocards, work on Trident 9440	35	; set_bank for Trident videocards, work on Trident 9440
32	; modified by Mario79	36	; modified by Mario79
33	;set_bank:	37	;set_bank:
34	;cli	38	;cli
35	;cmp al,[BANK_RW]	39	;cmp al,[BANK_RW]
36	;je retsb	40	;je retsb
37	;mov [BANK_RW],al	41	;mov [BANK_RW],al
38	;push dx	42	;push dx
39	;mov dx,3D8h	43	;mov dx,3D8h
40	;out dx,al	44	;out dx,al
41	;pop dx	45	;pop dx
42	;retsb:	46	;retsb:
43	;sti	47	;sti
44	;ret	48	;ret
45		49
46		50
47	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!	51	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
48	; set_bank for S3 videocards, work on S3 ViRGE PCI (325)	52	; set_bank for S3 videocards, work on S3 ViRGE PCI (325)
49	; modified by kmeaw	53	; modified by kmeaw
50	set_bank:	54	set_bank:
51	pushfd	55	pushfd
52	cli	56	cli
53	cmp al,[BANK_RW]	57	cmp al,[BANK_RW]
54	je retsb	58	je retsb
55	mov [BANK_RW],al	59	mov [BANK_RW],al
56	push ax	60	push ax
57	push dx	61	push dx
58	push cx	62	push cx
59	mov cl, al	63	mov cl, al
60	mov dx, 0x3D4	64	mov dx, 0x3D4
61	mov al, 0x38	65	mov al, 0x38
62	out dx, al ;CR38 Register Lock 1 ;Note: Traditionally 48h is used to	66	out dx, al ;CR38 Register Lock 1 ;Note: Traditionally 48h is used to
63	;unlock and 00h to lock	67	;unlock and 00h to lock
64	inc dx	68	inc dx
65	mov al, 0x48	69	mov al, 0x48
66	out dx, al ;3d5 -?	70	out dx, al ;3d5 -?
67	dec dx	71	dec dx
68	mov al, 0x31	72	mov al, 0x31
69	out dx, al ;CR31 Memory Configuration Register	73	out dx, al ;CR31 Memory Configuration Register
70	;0 Enable Base Address Offset (CPUA BASE). Enables bank operation if set, ;disables if clear.	74	;0 Enable Base Address Offset (CPUA BASE). Enables bank operation if set, ;disables if clear.
71	;4-5 Bit 16-17 of the Display Start Address. For the 801/5,928 see index 51h,	75	;4-5 Bit 16-17 of the Display Start Address. For the 801/5,928 see index 51h,
72	;for the 864/964 see index 69h.	76	;for the 864/964 see index 69h.
73		77
74	inc dx	78	inc dx
75	in al, dx	79	in al, dx
76	dec dx	80	dec dx
77	mov ah, al	81	mov ah, al
78	mov al, 0x31	82	mov al, 0x31
79	out dx, ax	83	out dx, ax
80	mov al, ah	84	mov al, ah
81	or al, 9	85	or al, 9
82	inc dx	86	inc dx
83	out dx, al	87	out dx, al
84	dec dx	88	dec dx
85	mov al, 0x35	89	mov al, 0x35
86	out dx, al ;CR35 CRT Register Lock	90	out dx, al ;CR35 CRT Register Lock
87	inc dx	91	inc dx
88	in al, dx	92	in al, dx
89	dec dx	93	dec dx
90	and al, 0xF0	94	and al, 0xF0
91	mov ch, cl	95	mov ch, cl
92	and ch, 0x0F	96	and ch, 0x0F
93	or ch, al	97	or ch, al
94	mov al, 0x35	98	mov al, 0x35
95	out dx, al	99	out dx, al
96	inc dx	100	inc dx
97	mov al, ch	101	mov al, ch
98	out dx, ax	102	out dx, ax
99	dec dx	103	dec dx
100	mov al, 0x51 ;Extended System Control 2 Register	104	mov al, 0x51 ;Extended System Control 2 Register
101	out dx, al	105	out dx, al
102	inc dx	106	inc dx
103	in al, dx	107	in al, dx
104	dec dx	108	dec dx
105	and al, 0xF3	109	and al, 0xF3
106	shr cl, 2	110	shr cl, 2
107	and cl, 0x0C	111	and cl, 0x0C
108	or cl, al	112	or cl, al
109	mov al, 0x51	113	mov al, 0x51
110	out dx, al	114	out dx, al
111	inc dx	115	inc dx
112	mov al, cl	116	mov al, cl
113	out dx, al	117	out dx, al
114	dec dx	118	dec dx
115	mov al, 0x38	119	mov al, 0x38
116	out dx, al	120	out dx, al
117	inc dx	121	inc dx
118	xor al, al	122	xor al, al
119	out dx, al	123	out dx, al
120	dec dx	124	dec dx
121	pop cx	125	pop cx
122	pop dx	126	pop dx
123	pop ax	127	pop ax
124	retsb:	128	retsb:
125	popfd	129	popfd
126	ret	130	ret
127		131
128	;Set bank function for Intel 810/815 chipsets	132	;Set bank function for Intel 810/815 chipsets
129	; ***Modified by Protopopius, Russia.***	133	; ***Modified by Protopopius, Russia.***
130	; ******* http://menuetos.hut.ru ************	134	; ******* http://menuetos.hut.ru ************
131	; ************************************************	135	; ************************************************
132	;	136	;
133	;set_bank:	137	;set_bank:
134	;cli	138	;cli
135	;cmp al,[BANK_RW]	139	;cmp al,[BANK_RW]
136	;je retsb	140	;je retsb
137	;mov [BANK_RW],al	141	;mov [BANK_RW],al
138	;push ax	142	;push ax
139	;push dx	143	;push dx
140	;mov dx,3CEh	144	;mov dx,3CEh
141	;mov ah,al ; Save value for later use	145	;mov ah,al ; Save value for later use
142	;mov al,10h ; Index GR10 (Address Mapping)	146	;mov al,10h ; Index GR10 (Address Mapping)
143	;out dx,al ; Select GR10	147	;out dx,al ; Select GR10
144	;inc dl	148	;inc dl
145	;mov al,3 ; Set bits 0 and 1 (Enable linear page mapping)	149	;mov al,3 ; Set bits 0 and 1 (Enable linear page mapping)
146	;out dx,al ; Write value	150	;out dx,al ; Write value
147	;dec dl	151	;dec dl
148	;mov al,11h ; Index GR11 (Page Selector)	152	;mov al,11h ; Index GR11 (Page Selector)
149	;out dx,al ; Select GR11	153	;out dx,al ; Select GR11
150	;inc dl	154	;inc dl
151	;mov al,ah ; Write address	155	;mov al,ah ; Write address
152	;out dx,al ; Write the value	156	;out dx,al ; Write the value
153	;pop dx	157	;pop dx
154	;pop ax	158	;pop ax
155	;retsb:	159	;retsb:
156	;sti	160	;sti
157	;ret	161	;ret
158		162
159	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}	163	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
160		164
161	;set_bank:	165	;set_bank:
162	; cli	166	; cli
163	; cmp al,[BANK_RW]	167	; cmp al,[BANK_RW]
164	; je retsb	168	; je retsb
165	; mov [BANK_RW],al	169	; mov [BANK_RW],al
166	; push ax	170	; push ax
167	; push dx	171	; push dx
168	; mov ah,al	172	; mov ah,al
169	; mov dx,0x03D4	173	; mov dx,0x03D4
170	; mov al,0x39	174	; mov al,0x39
171	; out dx,al	175	; out dx,al
172	; inc dl	176	; inc dl
173	; mov al,0xA5	177	; mov al,0xA5
174	; out dx,al	178	; out dx,al
175	; dec dl	179	; dec dl
176	; mov al,6Ah	180	; mov al,6Ah
177	; out dx,al	181	; out dx,al
178	; inc dl	182	; inc dl
179	; mov al,ah	183	; mov al,ah
180	; out dx,al	184	; out dx,al
181	; dec dl	185	; dec dl
182	; mov al,0x39	186	; mov al,0x39
183	; out dx,al	187	; out dx,al
184	; inc dl	188	; inc dl
185	; mov al,0x5A	189	; mov al,0x5A
186	; out dx,al	190	; out dx,al
187	; dec dl	191	; dec dl
188	; pop dx	192	; pop dx
189	; pop ax	193	; pop ax
190	;	194	;
191	; retsb:	195	; retsb:
192	; ret	196	; ret
193		197
194		198
195	vesa12_drawbackground:	199	vesa12_drawbackground:
196		200
197	call [disable_mouse]	201	call [disable_mouse]
198		202
199	push eax	203	push eax
200	push ebx	204	push ebx
201	push ecx	205	push ecx
202	push edx	206	push edx
203		207
204	xor edx,edx	208	xor edx,edx
205	mov eax,dword[WinMapAddress-8]	209	mov eax,dword[WinMapAddress-8]
206	mov ebx,dword[WinMapAddress-4]	210	mov ebx,dword[WinMapAddress-4]
207	mul ebx	211	mul ebx
208	mov ebx,3	212	mov ebx,3
209	mul ebx	213	mul ebx
210	mov [imax],eax	214	mov [imax],eax
211	mov eax,[draw_data+32+RECT.left]	215	mov eax,[draw_data+32+RECT.left]
212	mov ebx,[draw_data+32+RECT.top]	216	mov ebx,[draw_data+32+RECT.top]
213	mov edi,0 ;no force	217	mov edi,0 ;no force
214		218
215	v12dp3:	219	v12dp3:
216		220
217	push eax	221	push eax
218	push ebx	222	push ebx
219	mov esi,IMG_BACKGROUND	223	mov esi,IMG_BACKGROUND
220		224
221	cmp [WinMapAddress-12],dword 1 ; tiled background	225	cmp [WinMapAddress-12],dword 1 ; tiled background
222	jne no_vesa12_tiled_bgr	226	jne no_vesa12_tiled_bgr
223		227
224	push edx	228	push edx
225		229
226	xor edx,edx	230	xor edx,edx
227	mov ecx,[WinMapAddress-8]	231	mov ecx,[WinMapAddress-8]
228	div ecx	232	div ecx
229	mov eax,edx	233	mov eax,edx
230		234
231	push eax	235	push eax
232	mov eax,ebx	236	mov eax,ebx
233	xor edx,edx	237	xor edx,edx
234	mov ecx,[WinMapAddress-4]	238	mov ecx,[WinMapAddress-4]
235	div ecx	239	div ecx
236	mov ebx,edx	240	mov ebx,edx
237	pop eax	241	pop eax
238		242
239	pop edx	243	pop edx
240		244
241	no_vesa12_tiled_bgr:	245	no_vesa12_tiled_bgr:
242		246
243	cmp [WinMapAddress-12],dword 2 ; stretched background	247	cmp [WinMapAddress-12],dword 2 ; stretched background
244	jne no_vesa12_stretched_bgr	248	jne no_vesa12_stretched_bgr
245		249
246	push edx	250	push edx
247		251
248	imul eax,dword [WinMapAddress-8]	252	imul eax,dword [WinMapAddress-8]
249	xor edx,edx	253	xor edx,edx
250	mov ecx,[ScreenWidth]	254	mov ecx,[ScreenWidth]
251	inc ecx	255	inc ecx
252	div ecx	256	div ecx
253		257
254	push eax	258	push eax
255	mov eax,ebx	259	mov eax,ebx
256	imul eax,dword [WinMapAddress-4]	260	imul eax,dword [WinMapAddress-4]
257	xor edx,edx	261	xor edx,edx
258	mov ecx,[ScreenHeight]	262	mov ecx,[ScreenHeight]
259	inc ecx	263	inc ecx
260	div ecx	264	div ecx
261	mov ebx,eax	265	mov ebx,eax
262	pop eax	266	pop eax
263		267
264	pop edx	268	pop edx
265		269
266	no_vesa12_stretched_bgr:	270	no_vesa12_stretched_bgr:
267		271
268		272
269	push eax	273	push eax
270	mov eax,ebx	274	mov eax,ebx
271	xor edx,edx	275	xor edx,edx
272	mov ebx,[WinMapAddress-8]	276	mov ebx,[WinMapAddress-8]
273	add ebx,[WinMapAddress-8]	277	add ebx,[WinMapAddress-8]
274	add ebx,[WinMapAddress-8]	278	add ebx,[WinMapAddress-8]
275	mul ebx	279	mul ebx
276	mov esi,eax	280	mov esi,eax
277	pop eax	281	pop eax
278	add esi,eax	282	add esi,eax
279	add esi,eax	283	add esi,eax
280	add esi,eax	284	add esi,eax
281	add esi,IMG_BACKGROUND	285	add esi,IMG_BACKGROUND
282	pop ebx	286	pop ebx
283	pop eax	287	pop eax
284		288
285	v12di4:	289	v12di4:
286		290
287	mov ecx,[esi]	291	mov ecx,[esi]
288	pusha	292	pusha
289	mov esi,eax	293	mov esi,eax
290	mov edi,ebx	294	mov edi,ebx
291	mov eax,[ScreenWidth]	295	mov eax,[ScreenWidth]
292	add eax,1	296	add eax,1
293	mul ebx	297	mul ebx
294	add eax,esi	298	add eax,esi
295	add eax,WinMapAddress	299	add eax,WinMapAddress
296	cmp [eax],byte 1	300	cmp [eax],byte 1
297	jnz v12nbgp	301	jnz v12nbgp
298	mov eax,[BytesPerScanLine]	302	mov eax,[BytesPerScanLine]
299	mov ebx,edi	303	mov ebx,edi
300	mul ebx	304	mul ebx
301	add eax,esi	305	add eax,esi
302	add eax,esi	306	add eax,esi
303	add eax,esi	307	add eax,esi
304	cmp [ScreenBPP],byte 24	308	cmp [ScreenBPP],byte 24
305	jz v12bgl3	309	jz v12bgl3
306	add eax,esi	310	add eax,esi
307		311
308	v12bgl3:	312	v12bgl3:
309		313
310	push ebx	314	push ebx
311	push eax	315	push eax
312		316
313	sub eax,[LFBAddress]	317	sub eax,[LFBAddress]
314		318
315	shr eax,16	319	shr eax,16
316	call set_bank	320	call set_bank
317	pop eax	321	pop eax
318	and eax,65535	322	and eax,65535
319	add eax,VGABasePtr	323	add eax,VGABasePtr
320	pop ebx	324	pop ebx
321		325
322	mov [eax],cx	326	mov [eax],cx
323	add eax,2	327	add eax,2
324	shr ecx,16	328	shr ecx,16
325	mov [eax],cl	329	mov [eax],cl
326	sti	330	sti
327		331
328	v12nbgp:	332	v12nbgp:
329		333
330	popa	334	popa
331	add esi,3	335	add esi,3
332	inc eax	336	inc eax
333	cmp eax,[draw_data+32+RECT.right]	337	cmp eax,[draw_data+32+RECT.right]
334	jg v12nodp31	338	jg v12nodp31
335	jmp v12dp3	339	jmp v12dp3
336		340
337	v12nodp31:	341	v12nodp31:
338		342
339	mov eax,[draw_data+32+RECT.left]	343	mov eax,[draw_data+32+RECT.left]
340	inc ebx	344	inc ebx
341	cmp ebx,[draw_data+32+RECT.bottom]	345	cmp ebx,[draw_data+32+RECT.bottom]
342	jg v12dp4	346	jg v12dp4
343	jmp v12dp3	347	jmp v12dp3
344		348
345	v12dp4:	349	v12dp4:
346		350
347	pop edx	351	pop edx
348	pop ecx	352	pop ecx
349	pop ebx	353	pop ebx
350	pop eax	354	pop eax
351	ret	355	ret
352		356
353		357
354	vesa12_drawbar:	358	vesa12_drawbar:
355		359
356	call [disable_mouse]	360	call [disable_mouse]
357		361
358	;; mov [novesachecksum],dword 0	362	;; mov [novesachecksum],dword 0
359	sub edx,ebx	363	sub edx,ebx
360	sub ecx,eax	364	sub ecx,eax
361	push esi	365	push esi
362	push edi	366	push edi
363	push eax	367	push eax
364	push ebx	368	push ebx
365	push ecx	369	push ecx
366	push edx	370	push edx
367	mov ecx,[TASK_BASE]	371	mov ecx,[TASK_BASE]
368	add eax,[ecx-twdw+WDATA.box.left]	372	add eax,[ecx-twdw+WDATA.box.left]
369	add ebx,[ecx-twdw+WDATA.box.top]	373	add ebx,[ecx-twdw+WDATA.box.top]
370	push eax	374	push eax
371	mov eax,ebx ; y	375	mov eax,ebx ; y
372	mov ebx,[BytesPerScanLine]	376	mov ebx,[BytesPerScanLine]
373	mul ebx	377	mul ebx
374	pop ecx	378	pop ecx
375	add eax,ecx ; x	379	add eax,ecx ; x
376	add eax,ecx	380	add eax,ecx
377	add eax,ecx	381	add eax,ecx
378	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x start	382	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x start
379	jz dbpi2412	383	jz dbpi2412
380	add eax,ecx	384	add eax,ecx
381		385
382	dbpi2412:	386	dbpi2412:
383		387
384	add eax,[LFBAddress]	388	add eax,[LFBAddress]
385	mov edi,eax	389	mov edi,eax
386		390
387	; x size	391	; x size
388		392
389	mov eax,[esp+4] ; [esp+6]	393	mov eax,[esp+4] ; [esp+6]
390	mov ecx,eax	394	mov ecx,eax
391	add ecx,eax	395	add ecx,eax
392	add ecx,eax	396	add ecx,eax
393	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size	397	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ? - x size
394	jz dbpi24312	398	jz dbpi24312
395	add ecx,eax	399	add ecx,eax
396		400
397	dbpi24312:	401	dbpi24312:
398		402
399	mov ebx,[esp+0]	403	mov ebx,[esp+0]
400		404
401	; check limits ?	405	; check limits ?
402		406
403	push eax	407	push eax
404	push ecx	408	push ecx
405	mov eax,[TASK_BASE]	409	mov eax,[TASK_BASE]
406	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.left]	410	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.left]
407	cmp ecx,0	411	cmp ecx,0
408	jnz dbcblimitlset12	412	jnz dbcblimitlset12
409	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.top]	413	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.top]
410	cmp ecx,0	414	cmp ecx,0
411	jnz dbcblimitlset12	415	jnz dbcblimitlset12
412	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.right]	416	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.right]
413	cmp ecx,[ScreenWidth]	417	cmp ecx,[ScreenWidth]
414	jnz dbcblimitlset12	418	jnz dbcblimitlset12
415	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]	419	mov ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]
416	cmp ecx,[ScreenHeight]	420	cmp ecx,[ScreenHeight]
417	jnz dbcblimitlset12	421	jnz dbcblimitlset12
418	pop ecx	422	pop ecx
419	pop eax	423	pop eax
420	push dword 0	424	push dword 0
421	jmp dbcblimitlno12	425	jmp dbcblimitlno12
422		426
423	dbcblimitlset12:	427	dbcblimitlset12:
424		428
425	pop ecx	429	pop ecx
426	pop eax	430	pop eax
427	push dword 1	431	push dword 1
428		432
429	dbcblimitlno12:	433	dbcblimitlno12:
430		434
431	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ?	435	cmp [ScreenBPP],byte 24 ; 24 or 32 bpp ?
432	jz dbpi24bit12	436	jz dbpi24bit12
433	jmp dbpi32bit12	437	jmp dbpi32bit12
434		438
435		439
436	; DRAWBAR 24 BBP	440	; DRAWBAR 24 BBP
437		441
438		442
439	dbpi24bit12:	443	dbpi24bit12:
440		444
441	push eax	445	push eax
442	push ebx	446	push ebx
443	push edx	447	push edx
444	mov eax,ecx	448	mov eax,ecx
445	mov ebx,3	449	mov ebx,3
446	div ebx	450	div ebx
447	mov ecx,eax	451	mov ecx,eax
448	pop edx	452	pop edx
449	pop ebx	453	pop ebx
450	pop eax	454	pop eax
451	cld	455	cld
452		456
453	dbnewpi12:	457	dbnewpi12:
454		458
455	push ebx	459	push ebx
456	push edi	460	push edi
457	push ecx	461	push ecx
458		462
459	xor edx,edx	463	xor edx,edx
460	mov eax,edi	464	mov eax,edi
461	sub eax,[LFBAddress]	465	sub eax,[LFBAddress]
462	mov ebx,3	466	mov ebx,3
463	div ebx	467	div ebx
464	add eax,WinMapAddress	468	add eax,WinMapAddress
465	mov ebx,[CURRENT_TASK]	469	mov ebx,[CURRENT_TASK]
466	cld	470	cld
467		471
468	dbnp2412:	472	dbnp2412:
469		473
470	mov dl,[eax]	474	mov dl,[eax]
471	push eax	475	push eax
472	push ecx	476	push ecx
473	cmp dl,bl	477	cmp dl,bl
474	jnz dbimp24no12	478	jnz dbimp24no12
475	cmp [esp+5*4],dword 0	479	cmp [esp+5*4],dword 0
476	jz dbimp24yes12	480	jz dbimp24yes12
477	; call dbcplimit	481	; call dbcplimit
478	; jnz dbimp24no12	482	; jnz dbimp24no12
479		483
480	dbimp24yes12:	484	dbimp24yes12:
481		485
482	push edi	486	push edi
483	mov eax,edi	487	mov eax,edi
484	sub eax,[LFBAddress]	488	sub eax,[LFBAddress]
485	shr eax,16	489	shr eax,16
486	call set_bank	490	call set_bank
487	and edi,0xffff	491	and edi,0xffff
488	add edi,VGABasePtr	492	add edi,VGABasePtr
489	mov eax,[esp+8+3*4+16+4+4]	493	mov eax,[esp+8+3*4+16+4+4]
490	stosw	494	stosw
491	shr eax,16	495	shr eax,16
492	stosb	496	stosb
493	sti	497	sti
494	pop edi	498	pop edi
495	add edi,3	499	add edi,3
496	pop ecx	500	pop ecx

Subversion Repositories Kolibri OS

(root)/kernel/branches/flat_kernel/video/vesa12.inc @ 444 – Rev 387 → 444