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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/vesa12.inc – Rev 2 → 5