cos2000v1/noyau/video.asm

use16
align 1

include "..\include\mem.h"
include "..\include\graphic.h"

org 0h

header exe 1,exports,imports,0,0

exporting
declare setvideomode		
declare getvideomode
declare clearscreen
declare setfont
declare loadfont
declare getfont
declare addline
declare showchars
declare showpixel
declare getpixel
declare setstyle
declare getstyle
declare enablecursor
declare disablecursor
declare setcolor
declare getcolor
declare scrolldown
declare getxy
declare setxy
declare savescreen
declare restorescreen
declare page2to1
declare page1to2
declare xchgpages
declare waithretfrace
declare waitretfrace
declare getvideoinfos
declare savedac
declare restoredac
declare savestate
declare restorestate
declare enablescroll
declare disablescroll
declare getchars
declare savescreen
declare savescreento
declare saveparamto
declare restoreparamfrom
declare restorescreen
declare restorescreenfrom
declare page2to1
declare page1to2
declare xchgpages
declare savestate
declare restorestate
declare savestate
declare restoredacfrom
declare restoredac
declare savedacto
ende

importing
use SYSTEME,mbcreate
use SYSTEME,mbfindsb
use SYSTEME,mbfree
use SYSTEME,mbchown
endi

;================================Table des modes videos (64 BYTES) ============================================
;40*25 16 couleurs
mode0        DB 67H,00H,  03H,08H,03H,00H,02H
             DB 2DH,27H,28H,90H,2BH,0A0H,0BFH,01FH,00H,4FH,0DH,0EH,00H,00H,00H,00H
             DB 9CH,8EH,8FH,14H,1FH,96H,0B9H,0A3H,0FFH
             DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
             DB 00H,01H,02H,03H,04H,05H,14H,07H,38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
             DB 0CH,00H,0FH,08H,00H
             DB 40,25

;80*25 16 couleurs
mode1        DB 67H,00H,  03H,00H,03H,00H,02H
             DB 5FH,4FH,50H,82H,55H,81H,0BFH,1FH,00H,4FH,0DH,0EH,00H,00H,00H,00H
             DB 9CH,0EH,8FH,28H,1FH,96H,0B9H,0A3h,0FFH
             DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
             DB 00H,01H,02H,03H,04H,05H,14H,07H,38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
             DB 0CH,00H,0FH,08H,00H
             DB 80,25

;80*50 16 couleurs
mode2        DB 63H, 00H, 03H,01H,03H,01H,02H
             DB 5FH,4FH,50H,82H,55H,81H,0BFH,1FH,00H,47H,06H,07H,00H,00H,00H
             DB 00H,9CH,8EH,8FH,28H,1FH,96H,0B9H,0A3H,0FFH
             DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
             DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
             DB 0CH,00H,0FH,00H,00H
             DB 80,50        
                             
;100*50 16 couleurs
mode3        DB 067H,00H,03H,01H,03H,01H,02H
             DB 70H,63H,64H,85H,68H,84H,0BFH,1FH,00H,47H,06H,07H,00H,00H,00H
             DB 00H,9Ch,08EH,8FH,32H,1FH,96H,0B9H,0A3H,0FFH
             DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
             DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
             DB 0CH,00H,0FH,00H,00H
             DB 100,50        

;100*60 16 couleurs
mode4        DB 0A7H,00H,03H,01H,03H,01H,02H
             DB 70H,63H,64H,85H,68H,84H,0FFH,1FH,00H,47H,06H,07H,00H,00H,00H
             DB 00H,0E7H,8EH,0DFH,32H,1FH,0DFH,0E5H,0A3H,0FFH
             DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
             DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
             DB 0CH,00H,0FH,00H,00H
             DB 100,60

;320*200 256 couleurs 
mode5        DB 63H, 00H,  03H,01H,0FH,00H,06H
             DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,41H,00H,00H,00H,00H,00H,00H
             DB 9CH,0EH,8FH,28H,00H,96H,0B9H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04H,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
             DB 41H,00H,0FH,00H,00H
             DB 40,25  

;320*400 256 couleurs 
mode6     DB 063H, 00H,  03H,01H,0FH,00H,06H
             DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,40H,00H,00H,00H,00H,00H,00H
             DB 9CH,8EH,8FH,28H,00H,96H,0B9H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04H,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
             DB 41H,00H,0FH,00H,00H
             DB 40,50

;320*480 256 couleurs 
mode7 	DB 0E3H, 00H,  03H,01H,0FH,00H,06H
             DB 5FH,4FH,50H,82H,54H,80H,0BH,3EH,00H,40H,00H,00H,00H,00H,00H,00H
             DB 0EAH,0ACH,0DFH,28H,00H,0E7H,06H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
             DB 41H,00H,0FH,00H,00H
             DB 40,60

;360*480 256 couleurs 
mode8 DB 0E7H, 00H,  03H,01H,0FH,00H,06H
             DB 6BH,59H,5AH,8EH,5EH,8AH,0DH,3EH,00H,40H,00H,00H,00H,00H,00H,00H
             DB 0EAH,0ACH,0DFH,2DH,00H,0E7H,06H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
             DB 41H,00H,0FH,00H,00H
             DB 45,60

;400*600 256 couleurs 
mode9 DB 0E7H, 00H,  03H,01H,0FH,00H,06H
		 DB 74h,63h,64h,97h,68h,95h,86h,0F0h,00h,60h,00h,00h,00h,00h,00h,00h
		 DB 5Bh,8Dh,57h,32h,00h,60h,80h,0E3h,0FFh
 		 DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
             DB 41H,00H,0FH,00H,00H
             DB 50,75
             
;640*480 16 couleurs
mode10        DB 0E3H
             DB 00H
             DB 03H,01H,0FH,00H,06H
             DB 5FH,4FH,50H,82H,53H,9FH,0BH,3EH,00H,40H,00H,00H,00H,00H,00H,00H,0E9H,8BH,0DFH,28H,00H,0E7H,04H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,00H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04H,05H,06H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH,01H,00H,0FH,00H,00H
             DB 80,60

;800*600 16 couleurs
mode11        DB 0E7H
             DB 00H
             DB 03H,01H,0FH,00H,06H
             DB 70H,63H,64H,92H,65H,82H,70H,0F0H,00H,60H,00H,00H,00H,00H,00H,00H,5BH,8CH,57H,32H,00H,58H,70H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,00H,05H,0FH,0FFH
             DB 00H,01H,02H,03H,04H,05H,06H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH,01H,00H,0FH,00H,00H
             DB 100,75

;============================================DATABLOCK=========================================================
datablock vgainf

;=======================================Equivalence pour la clart<72> du code========================================
sequencer 	equ 03C4h
misc 		equ 03C2h
ccrt 		equ 03D4h
attribs 	equ 03C0h
graphics    	equ 03CEh
statut 		equ 03DAh

maxmode	        equ 11
planesize	equ 65000
;============================================Fonctions de l'int VIDEO===========================================


;=============ENABLESCROLLING=========
;Autorise le d<>filement
;->
;<- 
;=====================================
proc enablescroll
        mov     [cs:datablock.scrolling],1
        retf
endp

;=============DISABLESCROLLING=========
;D<>sactive le d<>filement
;->
;<- 
;======================================
proc disablescroll
        mov     [cs:datablock.scrolling],0
        retf
endp

;=============ENABLECURSOR=============
;Autorise le d<>filement
;->
;<-
;======================================
proc enablecursor uses ax dx
        mov     [cs:datablock.cursor],1
       	mov 	dx,ccrt
	mov 	al,0Ah
	out     dx,al
	inc     dx
	in      al,dx
	and     al,11011111b
	mov     ah,al
	dec     dx
	mov     al,0Ah
	out     dx,ax
	mov     al,[cs:datablock.x]
	xor     ah,ah
	mov     dl,[cs:datablock.y]
	xor     dh,dh
	stdcall    setxy,ax,dx
        retf
endp

;=============DISABLECURSOR=============
;D<>sactive le d<>filement
;->
;<-
;=======================================
proc disablecursor uses ax dx
        mov     [cs:datablock.cursor],0
       	mov 	dx,ccrt
	mov 	al,0Ah
	out     dx,al
	inc     dx
	in      al,dx
	or      al,00100000b
	mov     ah,al
	dec     dx
	mov     al,0Ah
	out     dx,ax
        retf
endp
        
;==========SETSTYLE=========
;Change le style du texte a %0
;-> %0 style
;<-
;============================
proc setstyle uses cx, style:word
        mov     ax,[style]
	mov 	[cs:datablock.style],al
	retf
endp

;==========GETSTYLE=========
;R<>cup<75>re le style du texte dans AX
;->
;<- AX style
;===========================
proc getstyle
	mov 	al,[cs:datablock.style]
	xor     ah,ah
	retf
endp

;=============SetVideoMode=========
;Fixe le mode vid<69>o courant a %0
;-> %0 mode d'<27>cran
;<- Carry if error
;==================================
proc setvideomode uses ax cx dx di, modenum:word
        mov     ax,[modenum]
        xor     ah,ah	
        cmp     al,maxmode
	ja	.errorsetvideomode
	cmp     [cs:datablock.modenum],5h
	jb	.nographic
	cmp	al,5h
	jae	.nographic
	call	initfont
.nographic:
        cmp     [cs:datablock.modenum],0FFh
        jne     .noinit
	call	initfont
.noinit:
	mov 	[cs:datablock.modenum],al
	xor 	ah,ah
	mov 	di,ax
	shl 	di,6
	add 	di,mode0 
	mov 	dx,misc
	mov 	al,[cs:di]
	out 	dx,al
	inc 	di              
	mov 	dx,statut
	mov 	al,[cs:di]
	out 	dx,al
	inc 	di              
	mov 	dx,sequencer
	xor 	ax,ax
.initsequencer:
	mov 	ah,[cs:di]
	out 	dx,ax
	inc 	al
	inc 	di
	cmp 	al,4
	jbe 	.initsequencer
	mov 	ax,0E11h
	mov 	dx,ccrt
	out 	dx,ax
	xor 	ax,ax
.initcrt:
	mov 	ah,[cs:di]
	out 	dx,ax
	inc 	al
	inc 	di
	cmp 	al,24
	jbe 	.initcrt
        mov     dx,graphics
	xor 	ax,ax
.initgraphic:
	mov 	ah,[cs:di]
	out 	dx,ax
	inc 	al
	inc 	di
	cmp 	al,8
	jbe 	.initgraphic
	mov 	dx,statut
	in 	al,dx
	mov 	dx,attribs
	xor 	ax,ax
.initattribs:
	mov 	ah,[cs:di]
	push 	ax
	in 	ax,dx
	pop	ax
	out 	dx,al
	xchg 	ah,al
	out 	dx,al
	xchg 	ah,al
	inc 	al
	inc	di
	cmp 	al,20
	jbe	.initattribs
	mov 	al,20h
	out 	dx,al
	mov 	al,[cs:di]
	mov 	[cs:datablock.columns],al
	mov 	ah,[cs:di+1]
	mov 	[cs:datablock.lines],ah
	mul 	ah
	mov     cl,[cs:di-5]
	and     cl,01000000b
	cmp     cl,0
	je      .colors16
	mov     [cs:datablock.color],8
	mov     cl,4
	jmp     .colors256
.colors16:
        mov     [cs:datablock.color],4
        mov     cl,3
.colors256:
  	cmp     [cs:datablock.modenum],5
        setae   [cs:datablock.graphic]
        jb      .istext
	shl     ax,cl
        mov     [cs:datablock.segments],0A000h
	jmp     .wasgraph
.istext:
        mov     [cs:datablock.segments],0B800h
        shl     ax,1
.wasgraph:
	mov 	[cs:datablock.pagesize],ax
	mov	ax,planesize
	xor	dx,dx
	div	[cs:datablock.pagesize]
	mov	[cs:datablock.nbpage],al
        mov     al,[cs:di-36]
	xor 	ah,ah
        shl     ax,2
	mov     cl,[cs:datablock.graphic]
	shr     ax,cl
        mov     [cs:datablock.linesize],ax
        mov     ax,[cs:di-43]
        mov     [cs:datablock.adress],ax
	mov	[cs:datablock.base],ax
        mov     [cs:datablock.cursor],1
        mov     [cs:datablock.style],0
	retf
.errorsetvideomode:
	retf
endp


initfont:
	push 	ds
	stdcall    clearscreen
	push 	cs
	pop 	ds
	stdcall 	loadfont,font8x8,8,1
	stdcall 	loadfont,font8x16,16,0
	pop 	ds
	retf

;=============GetVideoMode=========
;Renvoie le mode vid<69>o courant dans AX
;->
;<- AX
;==================================
proc getvideomode
	mov 	al,[cs:datablock.modenum]
	xor     ah,ah
	retf
endp

;=============CLEARSCREEN=========
;Efface l'ecran graphique ou texte
;->
;<-
;=================================
proc clearscreen uses eax cx dx di es
	mov 	cx,planesize
	mov	di,[cs:datablock.adress]
	shr 	cx,2
        cmp     [cs:datablock.graphic],1
	jne 	.erasetext
	mov  	ax,0A000h
	mov 	es,ax
.erasegraph:
	mov     ax,0F02h
        mov     dx,sequencer
	out     dx,ax
	mov     ax,0205h
        mov     dx,graphics
	out     dx,ax
	mov     ax,0003h
	out     dx,ax
	mov     ax,0FF08h
	out     dx,ax	
	mov	eax,00000000h
	cld
	rep 	stosd
	mov     ax,0005h
	cmp     [cs:datablock.color],4
	je      .not256
	mov     ax,4005h	
.not256:
        mov     dx,graphics
	out     dx,ax
	mov     ax,0003h
	out     dx,ax
        jmp     .endoferase
.erasetext:
	mov 	ax,0B800h
	mov 	es,ax
	mov 	eax,07200720h
	cld
	rep 	stosd	
.endoferase:	
        stdcall    setxy,0,0
	retf
endp


;=============SetFont=========
;Active la font %0 parmi les 8
;-> %0 n<> font
;<- Carry if error
;=============================
proc setfont uses ax cx dx, font:word
	mov     cx,[font]
	xor     ch,ch
	cmp	cl,7
      	ja    	.errorsetfont
	mov	[cs:datablock.font],cl
	mov 	ah,cl
	and 	cl,11b
	and 	ah,0100b
	shl 	ah,2
	add 	ah,cl
      	mov   	dx,sequencer
	mov 	al,3
	out 	dx,ax
        retf
.errorsetfont:
	retf    
endp

;=============GetFont=========
;R<>cup<75>re le n<> de la font active AX
;->
;<- CL n<> font, Carry if error
;=============================
proc getfont
	mov	al,[cs:datablock.font]
	xor     ah,ah
	retf
endp

;!!!!!!!!!!!!!!!!!!!! a remettre les anciens params de timing depuis origine
;=============LoadFont========
;Charge une police point<6E>e par %0 dans la carte vid<69>o sous n<>font %1, taille police dans %2
;-> %0 n<>font, %1 pointeur vers Font, %2 taille police
;<- Carry if error
;=============================
proc loadfont uses ax bx cx dx si di es, pointer:word, size:word, font:word
	mov     si,[pointer]
	mov     cx,[size]
	mov     bx,[font]
	cmp	bl,7
      	ja    	.errorloadfont
	xor	di,di
      	cli  
      	mov   	dx,sequencer
.doseq:
	mov 	ax,[cs:di+reg1]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6
	jbe 	.doseq
      	mov   	dx,graphics 
.doseq2:
	mov 	ax,[cs:di+reg1]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6+6
	jbe 	.doseq2
	sti
	mov 	ax,0A000h
	mov	es,ax
	mov 	dx,256
	mov 	al,0
	xor 	bh,bh
	cmp 	bl,4
	jb 	.isless
	sub	bl,4
	shl 	bl,1
	inc 	bl
	jmp 	.okmake
.isless:
	shl 	bl,1
.okmake:
	mov 	di,bx
	shl 	di,13
	mov 	bh,cl
	mov 	bl,cl
	sub 	bl,32
	neg 	bl
	xor 	cx,cx
	cld
.popz:
	mov 	cl,bh
	rep 	movsb
	mov 	cl,bl
	rep 	stosb
	dec 	dx
	jnz 	.popz
	xor 	di,di
      	mov   	dx,sequencer
.doseqs:
	mov 	ax,[cs:di+reg2]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6
	jbe 	.doseqs
	mov     dx,graphics
.doseqs2:
	mov 	ax,[cs:di+reg2]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6+6
	jbe 	.doseqs2
	retf    
.errorloadfont:
	stc
	retf
  
reg2 	dw 0100h, 0302h, 0304h, 0300h 
     	dw 0004h, 1005h, 0E06h 
reg1 	dw 0100h, 0402h, 0704h, 0300h
     	dw 0204h, 0005h, 0406h
endp

;==========SHOWLINE===============
;remet le curseur text a la ligne avec un retfour chariot
;->
;<-
;=================================
proc addline uses bx cx
	mov 	bl,[cs:datablock.y]
	xor 	bh,bh
	mov 	cl,[cs:datablock.lines]
      	sub     cl,2
	cmp 	bl,cl
      	jne     .scro
	dec 	bl
	mov	cx,1
	cmp	[cs:datablock.graphic],0
	je	.okscro
	mov	cx,8
.okscro:
	stdcall	scrolldown,cx
.scro:
	inc 	bl
        stdcall    setxy,0,bx
	retf
endp

;==========SETCOLOR=========
;Change les attributs du texte a CL
;-> %0 couleur
;<- 
;===========================
proc setcolor, color:word
        mov     cx,[color]
	mov 	[cs:datablock.colors],cl
	retf
endp

;==========GETCOLOR=========
;R<>cup<75>re les attributs du texte dans AX
;->
;<- AX couleur
;===========================
proc getcolor
	mov 	al,[cs:datablock.colors]
	xor     ah,ah
	retf
endp
	
;==========SCROLLDOWN=========
;defile de %0 lines vers le bas
;-> %0 lines <20> d<>filer vers le bas
;<-
;=============================	
proc scrolldown uses ax cx dx si di ds es, line:word
        cmp     [cs:datablock.scrolling],0
        je      .graphp
	mov 	ax,[line]
	mul 	[cs:datablock.linesize]
	mov 	si,ax
	mov 	cx,[cs:datablock.pagesize]
	sub 	cx,si
	mov 	di,[cs:datablock.adress]
	cld
	cmp     [cs:datablock.graphic],1
	jne 	.textp
	mov  	ax,0A000h
	mov 	es,ax
	mov 	ds,ax
	mov     ax,0F02h
        mov     dx,sequencer
	out     dx,ax
	mov     ax,0105h
        mov     dx,graphics
	out     dx,ax
	cld
	rep 	movsb
	mov     ax,0005h
	cmp     [cs:datablock.color],4
	je      .not256ok
	mov     ax,4005h	
.not256ok:
        mov     dx,graphics
	out     dx,ax
	mov     ax,0003h
	out     dx,ax
        jmp     .graphp
        
.textp:
	mov 	ax,0B800h
	mov 	es,ax
	mov 	ds,ax
	rep 	movsb
.graphp:
	retf
endp 	

;==========GETXY=========
;Met les coordonn<6E>es du curseur dans ah,al au format point
;->
;<- ah coordonn<6E>es x, al coordonn<6E>es y
;========================
proc getxy uses bx
	mov 	ah,[cs:datablock.x]
	mov 	al,[cs:datablock.y]
	retf
endp

;==========SETXY=========
;Change les coordonn<6E>es du curseur a X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y
;<- 
;========================
proc setxy uses ax bx dx di, x:word ,y: word
	mov     ax,[y]
	mov     bx,[x]
	mov 	[cs:datablock.x],bl
	mov 	[cs:datablock.y],al
	mov	di,[cs:datablock.adress]
	add 	di,bx
	mul 	[cs:datablock.columns]
	add 	di,ax
	shl 	di,1
	mov 	[cs:datablock.xy],di
	call    setcursor
	retf
endp

;==========SHOWPIXEL=========
;Affiche un pixel de couleur AL en X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y, %2 couleur
;<- 
;============================
proc showpixel uses ax bx cx dx si di es, x:word,y:word,color:word   
     	mov     bx,[x]
     	mov     cx,[y]
     	mov     ax,[color]
     	cmp     [cs:datablock.color],4
     	je      .showpixel4
        mov     si,ax
	mov     ax,cx
        mov	cl,bl
        mul  	[cs:datablock.linesize]
        shr     bx,2
        add  	ax,bx
        mov     di,ax
	add     di,[cs:datablock.adress]
        and     cl,3
        mov     ah,1
        shl     ah,cl
        mov     al,2
        mov     dx,sequencer
        out     dx,ax
        mov     bx,0A000h
        mov  	es,bx
	mov	ax,si
	mov	[es:di],al	
        jmp     .endofshow
        
.showpixel4:
        mov     dx,ax
        mov     ax,cx
        mov     ch,dl
        mov	cl,bl
        mul  	[cs:datablock.linesize]
        shr     bx,3
        add  	ax,bx
        mov     di,ax
        add     di,[cs:datablock.adress]
        and     cl,111b
        xor     cl,111b
        mov     ah,1
        shl     ah,cl
        mov     al,8
        mov     dx,graphics           ;masque
        out     dx,ax
        mov     ax,0205h
        out     dx,ax
        mov     ax,0003h
        out     dx,ax
        mov     bx,0A000h
        mov  	es,bx
        mov	al,[es:di]
        mov	[es:di],ch	 	
.endofshow:        	
	retf
endp

;!!!!!!!!!!!!!! gerer le mode chain 4
;==========GETPIXEL=========
;R<>cup<75>re en ax la couleur du pixel de coordonn<6E>es X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y
;<- AX couleur
;=========================================
proc getpixel uses ax bx cx dx di es, x:word,y:word 
     	mov     bx,[x]
     	mov     cx,[y]
	mov     ax,cx
        mov	cl,bl
        mul  	[cs:datablock.linesize]
        shr     bx,2
        add  	ax,bx
        mov     di,ax
	add     di,[cs:datablock.adress]
        and     cl,3
	mov	ah,cl                                      
        mov     al,4
        mov     dx,graphics
        out     dx,ax
        mov     bx,0A000h
        mov  	es,bx
	mov	al,[es:di] 	
	retf
endp

;==========GETVGAINFO=========
;Renvoie un bloc de donn<6E>e en ES:DI sur l'<27>tat de la carte graphique
;<- ES:%0 pointeur
;->
;=============================================
proc getvideoinfos uses cx si di ds, pointer:word
	push 	cs
	pop 	ds
	mov 	cx,datablock.sizeof
	mov 	si,datablock
	mov     di,[pointer]
	cld
	rep 	movsb
	retf
endp

;==========WAITretfRACE=========
;Synchronisation avec la retfrace verticale
;<-
;->
;==============================
proc waitretfrace uses ax dx
	mov 	dx,3DAh
.waitr:
	in 	al,dx
	test 	al,8
	jz 	.waitr
	retf
endp
	
;==========WAITHretfRACE=========
;Synchronisation avec la retfrace horizontale
;<-
;->
;===============================
proc waithretfrace uses ax dx
	mov 	dx,3DAh
.waitr:
	in 	al,dx
	test 	al,1
	jz 	.waitr
	retf
endp
	
;==========GETCHAR=========
;Renvoie en AX le caract<63>re sur le curseur
;<-
;->
;==========================	
proc getchars uses di es
        mov	ax,0B800h
	mov	es,ax
	mov	di,[cs:datablock.xy]
	mov	al,[es:di]
	xor     ah,ah
        retf
endp

;==========SHOWCHAR=========
;Ecrit le caract<63>re ASCII %0 attribut %1 apr<70>s le curseur, en le mettant <20> jours
;<-
;->
;===========================
proc showchars uses ax bx cx dx di es, char:word,attr:word   
	mov     cl,byte [char]
	mov     ch,byte [attr]
        cmp     [attr],0FFFFh
        jne     .notlastattr
        mov     ch,[cs:datablock.colors]
.notlastattr:	
	cmp	[cs:datablock.graphic],1
	jne	.textaccess
        call    emulatechar
        jmp     .adjusttext
.textaccess:
	mov	ax,0B800h
	mov	es,ax
	mov	di,[cs:datablock.xy]
	mov	[es:di],cx
	add	[cs:datablock.xy],2
.adjusttext:
        inc     [cs:datablock.x]
	mov	cl,[cs:datablock.columns]
	cmp	[cs:datablock.x],cl
	jb	.noadjusted
        stdcall    addline
.noadjusted:
        call    setcursor
	retf
endp

setcursor:
        push    ax cx dx
        cmp     [cs:datablock.cursor],1
        jne     notshow
	mov 	dx,ccrt
	mov 	al,0Eh
	mov 	cx,[cs:datablock.xy]
	shr     cx,1
	mov 	ah,ch
	out 	dx,ax
	mov 	ah,cl
	inc	al
	out 	dx,ax
notshow:
	pop     dx cx ax
	ret


;Ecrit le caract<63>re ASCII CL attribut CH apr<70>s le curseur graphique, en le mettant <20> jours en mode graphique
emulatechar:
        push    ax bx cx dx di
        mov     al,ch
	mov	di,cx
	and 	di,11111111b
	shl 	di,3
	add 	di,font8x8
	mov     bl,[cs:datablock.x]
	mov     cl,[cs:datablock.y]
        xor     bh,bh
        xor     ch,ch	
	shl     bx,3
	shl     cx,3
	mov 	ah,[cs:di]
	xor     dx,dx
bouclet:
        rol	ah,1
	push    ax
        jc 	colored
	shr	al,4
	cmp     [cs:datablock.style],0
	jnz     transparent
colored:
        and     ax,1111b
	stdcall 	showpixel,bx,cx,ax
transparent:
        pop     ax
	inc 	bx
	inc     dl
	cmp 	dl,8
	jb 	bouclet
	inc 	di
	mov	ah,[cs:di]
	xor     dl,dl
	sub	bx,8
	inc 	cx
	inc     dh
	cmp 	dh,8
	jb 	bouclet
ended:
        pop     di dx cx bx ax
        ret

;sauve l'ecran dans un bloc de m<>moire
proc savescreen uses ax ds bp
mov     bp,sp
push    cs
pop     ds
invoke   mbcreate,data3,[cs:datablock.pagesize]
jc      .error
invoke    mbchown,ax,word [ss:bp+8]
jc      .error
push    ax
pop     ds
stdcall    savescreento,0
clc
retf
.error:
stc
retf
endp
data3 db '/vgascreen',0


;===================================sauve l'ecran rapidement en ds:%1================
proc savescreento uses ecx si di ds es, offset:word
        push    ds
        pop     es
        mov     cx,0B800h
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,[cs:datablock.pagesize]
        mov     di,[offset]
        shr     cx,2
        xor     si,si
        cld
        rep     movsd
        retf
endp

;===================================sauve les parametres en ds:%0================
proc saveparamto uses ecx si di ds es, offset:word
        push    ds
        pop     es
        push    cs
        pop     ds
        xor     ecx,ecx
        mov     cx,datablock.sizeof
        mov     di,[offset]
        mov     si,datablock
        cld
        rep     movsb
        retf
endp
        
;===================================restore les parametres depuis en ds:%0================
proc restoreparamfrom uses ecx si di es, offset:word
        push    cs
        pop     es
        xor     ecx,ecx
        mov     cx,datablock.sizeof
        mov     si,[offset]
        stdcall    setvideomode,word [si+datablock.modenum]
        mov     di,datablock
        cld
        rep     movsb
        retf
endp







;restaure l'ecran dans un bloc de m<>moire
proc restorescreen uses ax ds bp
mov     bp,sp
push    cs
pop     ds
invoke    mbfindsb,data3,word [ss:bp+8]
jc .error
push    ax
pop     ds
stdcall    restorescreenfrom,0
clc
retf
.error:
stc
retf
endp


;===================================restaure l'ecran rapidement en %1================
proc restorescreenfrom uses ecx si di es, offset:word
        mov     cx,0B800h
        mov     es,cx
        xor     ecx,ecx
        mov     cx,[cs:datablock.pagesize]
        mov     si,[offset]
        shr     cx,2
        xor     di,di
        cld
        rep     movsd
        retf
endp




;===============================Page2to1============================

proc page2to1 uses ecx si di ds es
        mov     cx,0B800H
        mov     es,cx
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,[cs:datablock.pagesize]
        shr     cx,2
        mov     si,[cs:datablock.pagesize]
        xor     di,di
        cld
        rep     movsd
        retf
endp

;===============================Page1to2============================
proc page1to2 uses ecx si di ds es
        mov     cx,0B800H
        mov     es,cx
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,[cs:datablock.pagesize]
        shr     cx,2
        mov     di,[cs:datablock.pagesize]
        xor     si,si
        cld
        rep     movsd
        retf
endp
;===============================xchgPages============================
proc xchgpages uses ax ecx si di ds es bp
mov     bp,sp
push    cs
pop     ds
invoke    mbcreate,data4,[cs:datablock.pagesize]
jc      .error
invoke    mbchown,ax,word [ss:bp+18]
jc      .error
push    ax
pop     ds
stdcall    savescreento,0
stdcall    page2to1
xor     si,si
mov     cx,0B800H
mov     es,cx
mov     di,[cs:datablock.pagesize]
xor     ecx,ecx
mov     cx,[cs:datablock.pagesize]
shr     cx,2
cld
rep     movsd
invoke    mbfree,ax
clc
retf
.error:
stc
retf
endp

data4 db '/vgatemp',0





;Sauve l'<27>tat de la carte dans un bloc m<>moire
proc savestate uses ax cx di ds bp
mov     bp,sp
mov     cx,datablock.sizeof
add     cx,[cs:datablock.pagesize]
add     cx,3*256
push    cs
pop     ds
invoke    mbcreate,adata,cx
jc      .error
invoke    mbchown,ax,word [ss:bp+12]
jc      .error
push    ax
pop     ds
xor     di,di
stdcall    saveparamto,di
add     di,datablock.sizeof
stdcall    savescreento,di
add     di,[cs:datablock.pagesize]
stdcall    savedacto,di
clc
retf
.error:
stc
retf
endp

adata db '/vga',0




;R<>cup<75>re l'<27>tat de la carte depuis son bloc m<>moire
proc restorestate uses ax cx di ds bp
mov     bp,sp
push    cs
pop     ds
invoke    mbfindsb,adata,word [ss:bp+12]
jc .error
push    ax
pop     ds
xor     di,di
stdcall    restoreparamfrom,di
add     di,datablock.sizeof
stdcall    restorescreenfrom,di
add     di,[cs:datablock.pagesize]
stdcall    restoredacfrom,di
clc
retf
.error:
stc
retf
endp


;sauve le DAC dans un bloc de m<>moire
proc savedac uses ax ds bp
mov     bp,sp
push    cs
pop     ds
invoke    mbcreate,data3,3*256
jc      .error
invoke    mbchown,ax,word [ss:bp+8]
jc      .error
push    ax
pop     ds
stdcall    savedacto,0
clc
retf
.error:
stc
retf
endp

data2 db '/vgadac',0



;R<>cup<75>re le dac depuis son bloc m<>moire
proc restoredac uses ax ds bp
mov     bp,sp
invoke    mbfindsb,data2,word [ss:bp+8]
jc .error
push    ax
pop     ds
stdcall    restoredacfrom,0
clc
retf
.error:
stc
retf
endp



;sauve le DAC en ds:%0
proc savedacto uses ax ds bp, offset:word
mov di,[offset]
mov dx,3C7h
mov cx,256
.save:
mov al,cl
dec al
out dx,al
inc dx
inc dx
in al,dx
mov [ds:di],al
inc di
in al,dx
mov [ds:di],al
inc di
in al,dx
mov [ds:di],al
inc di
dec dx
dec dx
dec cx
jne .save 
retf
endp

;restore le DAC depuis ds:si
proc restoredacfrom uses ax ds bp, offset:word
mov si,[offset]
xor ax,ax
mov dx,3C8h
mov cx,256
.save2:
mov al,cl
dec al
out dx,al
inc dx 
mov al,[ds:si]
inc si
out dx,al
mov al,[ds:si]
inc si 
out dx,al
mov al,[ds:si]
inc si  
out dx,al
dec dx
dec cx
jne .save2
retf
endp



font8x8:
include "..\include\pol8x8.inc"
font8x16:
include "..\include\pol8x16.inc"