WebSVN – Kolibri OS – Diff – /kernel/trunk/video/vesa12.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                        ;;
;;  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,[0xfff2]
;je retsb
;mov [0xfff2],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,[0xfff2]
je retsb
mov [0xfff2],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,[0xfff2]
;je retsb
;mov [0xfff2],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,[0xfff2]
;   je retsb
;   mov [0xfff2],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,0x300000
 
        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,[0xfe00]
        inc   ecx
        div   ecx
 
        push  eax
        mov   eax,ebx
        imul  eax,dword [WinMapAddress-4]
        xor   edx,edx
        mov   ecx,[0xfe04]
        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,0x300000
        pop   ebx
        pop   eax
 
      v12di4:
 
        mov   ecx,[esi]
        pusha
        mov   esi,eax
        mov   edi,ebx
        mov   eax,[0xfe00]
        add   eax,1
        mul   ebx
        add   eax,esi
        add   eax,WinMapAddress
        cmp   [eax],byte 1
        jnz   v12nbgp
        mov   eax,[0xfe08]
        mov   ebx,edi
        mul   ebx
        add   eax,esi
        add   eax,esi
        add   eax,esi
        cmp   [0xFBF1],byte 24
        jz    v12bgl3
        add   eax,esi
 
      v12bgl3:
 
        push ebx
        push eax
 
        sub  eax,[0xfe80]
 
        shr  eax,16
        call set_bank
        pop  eax
        and  eax,65535
        add  eax,0xa0000
        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,[0xfe08]
    mul  ebx
    pop  ecx
    add  eax,ecx         ; x
    add  eax,ecx
    add  eax,ecx
    cmp  [0xfbf1],byte 24     ; 24 or 32 bpp ? - x start
    jz   dbpi2412
    add  eax,ecx
 
  dbpi2412:
 
    add  eax,[0xfe80]
    mov  edi,eax
 
    ; x size
 
    mov  eax,[esp+4] ; [esp+6]
    mov  ecx,eax
    add  ecx,eax
    add  ecx,eax
    cmp  [0xfbf1],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,[0xfe00]
    jnz  dbcblimitlset12
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]
    cmp  ecx,[0xfe04]
    jnz  dbcblimitlset12
    pop  ecx
    pop  eax
    push dword 0
    jmp  dbcblimitlno12
 
  dbcblimitlset12:
 
    pop  ecx
    pop  eax
    push dword 1
 
  dbcblimitlno12:
 
    cmp  [0xfbf1],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,[0xfe80]
      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,[0xfe80]
        shr  eax,16
        call set_bank
        and  edi,0xffff
        add  edi,0xa0000
        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,[0xfe08]
    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,[0xfe80]
      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,[0xfe80]
        shr  eax,16
        call set_bank
        and  edi,0xffff
        add  edi,0xa0000
        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,[0xfe08]
    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,[0xfe08]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,0xa0000
        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,[0xfe08]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,0xa0000
        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,[0xfe08]
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,0xa0000
        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,[0xfe08]
        xor  edx,edx
        mul  ebx
        add  edi,eax
        mov  eax,edi
        shr  eax,16
        call set_bank
        and  edi,65535
        add  edi,0xa0000
        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 [0xfe08]
    pop   ecx
    add   eax,ecx         ; x
    add   eax,ecx
    add   eax,ecx
    cmp  [0xfbf1],byte 24     ; 24 or 32 bpp ? - x start
    jz   pi2412
    add  eax,ecx
 
  pi2412:
 
    add  eax,[0xfe80]
    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,[0xfe00]
    jnz  dbcblimitlset212
    mov  ecx,[eax+draw_data-CURRENT_TASK+RECT.bottom]
    cmp  ecx,[0xfe04]
    jnz  dbcblimitlset212
    pop  ecx
    push 0
    jmp  dbcblimitlno212
 
  dbcblimitlset212:
 
    pop  ecx
    push 1
 
  dbcblimitlno212:
 
    cmp  [0xfbf1],byte 24     ; 24 or 32 bpp ?
    jnz  pi32bit12
 
  pi24bit12:
 
  newpi12:
 
    push edi
    push ecx
    push ebx
 
      mov  edx,edi
      sub  edx,[0xfe80]
      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,[0xfe80]
        shr  eax,16
        call set_bank
        pop  eax
        and  edi,0xffff
        add  edi,0xa0000
        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,[0xfe08]
    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,[0xfe80]
      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,[0xfe80]
        shr  eax,16
        call set_bank
        pop  eax
        and  edi,0xffff
        mov  [edi+0xa0000],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,[0xfe08]
    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   [0xfbf1],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,0xa0000
     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,0xa0000
     mov   eax,[edi]
     and   eax,0x00ffffff
     ret

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa12.inc – Rev 314 → 379