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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa12.inc @ 425 – Rev 425 → 431