.model tiny
.486
smart
.code

org 0h


start:
	jmp	tsr			;Saute à la routine résidente
names db 'VIDEO'			;Nom drivers
id    dw 1234h                ;Identifiant drivers
Tsr:
	cli				;Désactive interruptions logiciellement
	cmp 	ax,cs:ID         	;Compare si test de chargement
	jne 	nomore		;Si pas test alors on continu
      rol     ax,3*4            ;Rotation de 3 chiffre de l'ID pour montrer que le drivers est chargé
	jmp 	itsok			;On termine l'int avec notre code d'ID preuve du bon chargement de VIDEO
nomore:
        cmp     ah,maxfunc
        jbe     noerrorint
        stc
        jmp     itsok
        noerrorint:
        clc
	push 	bx
	mov 	bl,ah			;On calcule d'aprés le n° de fonction
	xor 	bh,bh			;quel sera l'entrée dans la table indexée
	shl 	bx,1			;des adresses fonctions.
	mov 	bx,cs:[bx+tables]	;On récupère cette adresse depuis la table
	mov 	cs:current,bx	;On la stocke temporairement pour obtenir les registres d'origine
	pop 	bx
        clc
        call 	cs:current		;Puis on execute la fonction
itsok:
	push 	bp		
	mov 	bp,sp			;On prend sp dans bp pour adresser la pile
	jnc 	noerror		;La fonction appelée a renvoyer une erreur :  Flag CARRY ?
        or      byte ptr [bp+6],1b;Si oui on le retranscrit sur le registre FLAG qui sera dépilé lors du IRET
        ;xor   eax,eax
        ;mov     ax,cs                   ;On récupère le segment et l'offset puis en renvoie l'adresse physique
        ;shl     eax,4                   ;de l'erreur.
        ;add     ax,cs:current
        ;jmp     endofint                ;on termine l'int
noerror:
	and 	byte ptr [bp+6],0FEh;Si pas d'erreur on efface le Bit CARRY du FLAG qui sera dépilé lors du IRET
endofint:
	pop 	bp
	sti				;On réactive les interruptions logiciellement
	iret				;Puis on retourne au programme appelant.

current dw 0			;Mot temporaire qui contient l'adresse de la fonction appelée
tables dw setvideomode		;Table qui contient les adresses de toutes les fonctions de VIDEO (WORD)
         dw getvideomode
         dw clearscreen
         dw setfont
         dw loadfont
         dw nothings
         dw showline
         dw showchar
         dw showpixel
         dw getpixel
         dw setxyg
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw nothings
         dw setcolor
         dw getcolor
         dw scrolldown
         dw getxy
         dw setxy2
         dw savescreen
         dw restorescreen
         dw page2to1
         dw page1to2
         dw xchgPages
         dw savepage1
         dw nothings
         dw waitretrace
         dw getvgainfos
         dw nothings
         dw nothings
         dw nothings
         dw savedac
         dw restoredac
         dw savestate
         dw restorestate
         dw enablescroll
         dw disablescroll
	 dw nothings
	 dw nothings
	 dw nothings
	 dw nothings
	 dw nothings
	 dw getchar

;================================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

DATABLOCKSIZE equ 40
DATABLOCK 	  equ $
;============================================DATABLOCK=========================================================
lines 	db 0
columns 	db 0
x           db 0
y 		db 0
xy		dw 0
colors 	db 7
mode 		db 0FFh
pagesize 	dw 0
pages       db 0
font		db 0
graphic 	db 0
xg		dw 0
yg		dw 0
style		dw 0
nbpage    	db 0
pagesshowed db 0
plane       db 0
xyg		dw 0
linesize    dw 0
adress     	dw 0
base 		dw 0
scrolling       db 1

;=======================================Equivalence pour la clarté du code========================================
Sequencer 	equ 03C4h
misc 		equ 03C2h
CCRT 		equ 03D4h
Attribs 	equ 03C0h
graphics    	equ 03CEh
statut 		equ 03DAh

maxfunc equ 39h
maxmode	equ 9
planesize	equ 64000
;============================================Fonctions de l'int VIDEO===========================================

;message d'erreur specifiant que les interruptions n'existent plus
nothings:
         push    cx si
         mov     si,offset msg
         mov     ch,04
showit:
         mov     cl,cs:[si]
         cmp     cl,0
         je      endshowit
         inc     si
         call    charout
         jmp     showit
endshowit:
          pop    si cx
          ret

msg db 'ERREUR: int 47h fonction inexistante !!!',0

;=============ENABLESCROLLING (Fonction 02AH)=========
;Autorise le d‚filement
;-> AH=42
;<- 
;=====================================================
 EnableScroll:
        mov     cs:scrolling,1
        ret

;=============DISABLESCROLLING (Fonction 2Bh)=========
;D‚sactive le d‚filement
;-> AH=43
;<- 
;=====================================================
DisableScroll:
        mov     cs:scrolling,0
        ret
        
;==========SHOWCHAR (Fonction 07h)===========
;met un caractère de code ASCII DL aprés le curseur
;-> AH=7, DL code ASCII du caractère
;<-
;============================================
showchar:
	push 	cx
	mov	cl,dl
	mov 	ch,cs:colors
	call	charout
	pop 	cx
	ret

;=============SetVideoMode (Fonction 00h)=========
;Fixe le mode vidéo courant a AL
;-> AH=0, AL mode d'écran
;<- Carry if error
;=================================================
setvideomode:
	push 	ax cx dx di
      cmp   al,maxmode
	ja	errorsetvideomode
	cmp    cs:mode,5h
	jb	nographic
	cmp	al,5h
	jae	nographic
	call	initvideo
nographic:
        cmp    cs:mode,0FFh
        jne    noinit
	call	initvideo
noinit:
	mov 	cs:mode,al
	xor 	ah,ah
	mov 	di,ax
	shl 	di,6
	add 	di,offset 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:columns,al
	mov 	ah,cs:[di+1]
	mov 	cs:lines,ah
	mul 	ah
	shl 	ax,1
  	cmp   cs:mode,5
      setae cs:graphic
      jb    istext
	shl   ax,3
istext:
	mov 	cs:pagesize,ax
	mov	ax,planesize
	xor	dx,dx
	div	cs:pagesize
	mov	cs:nbpage,al
      mov   al,cs:[di-36]
	xor 	ah,ah
      shl   ax,2
	mov   cl,cs:graphic
	shr   ax,cl
      mov   cs:linesize,ax
      mov   ax,cs:[di-43]
      mov   cs:adress,ax
	mov	cs:base,ax
      mov   cs:pages,0
	pop 	di dx cx ax
	ret
errorsetvideomode:
	pop 	di dx cx ax
	ret

initvideo:
	push 	bx cx si ds
;xor bx,bx
;mov ds,bx
;lds si,ds:[43h*4]
	push 	cs
	pop 	ds
	mov 	si,offset font8x8
	mov 	cl,8	
      	mov 	bl,1
	call 	loadfont
	mov 	si,offset font8x16
	mov 	cl,16	
      	mov 	bl,0
	call 	loadfont
	mov 	cs:pagesize,64000
	call 	clearscreen
	pop 	ds si cx bx
	ret

;=============GetVideoMode (Fonction 01h)=========
;Renvoie le mode vidéo courant dans AL
;-> AH=1
;<- AL mode d'écran
;=================================================
getvideomode:
	mov 	al,cs:mode
	ret

;=============CLEARSCREEN (Fonction 02h)=========
;Efface l'ecran graphique ou texte
;-> AH=2
;<- 
;================================================
clearscreen:
	push 	eax cx dx di es
	mov 	cx,cs:pagesize
	mov	di,cs:adress
	shr 	cx,2
        cmp   byte ptr cs:graphic,1
	jne 	erasetext
	mov  	ax,0A000h  
	mov 	es,ax       
erasegraph:
	mov	ah,0
gogot:
	push  ax cx
	mov   cl,ah
	mov   ah,1
	shl   ah,cl
	mov   al,2
        mov   dx,sequencer
	out   dx,ax
	pop   cx ax
	push 	si di cx eax
	mov	eax,00000000h
	rep 	stosd
	pop 	eax cx di si
        inc   ah
	cmp	ah,3
        jbe   gogot
	jmp 	enderase
erasetext:
	mov 	ax,0B800h
	mov 	es,ax
	mov 	eax,07200720h
	cld
	rep 	stosd
enderase:
        mov     cs:x,0
        mov     cs:y,0
        mov     cs:xg,0
        mov     cs:yg,0
        mov     cs:xy,0
        mov     cs:xyg,0
        mov     cs:plane,0
        pop 	es di dx cx eax
	ret             


;=============SetFont (Fonction 03h)=========
;Active la font cl parmi les 8
;-> AH=3, CL n° font
;<- Carry if error
;============================================
setfont:
	push 	ax cx dx
	cmp	cl,7
      	ja    	errorsetfont
	mov	cs: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
	pop	dx cx ax
        ret
errorsetfont:
	pop 	dx cx ax
	ret    

;=============GetFont (Fonction 0xh)=========
;Récupère le n° de la font active
;-> AH=x
;<- CL n° font, Carry if error
;============================================
Getfont:
	push 	ax cx dx
	cmp	cl,7
      	ja    	errorgetfont
	mov	cs: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
	pop	dx cx ax
	ret        
errorgetfont:
	stc
	pop 	dx cx ax
	ret    

;=============LoadFont (Fonction 04h)==========
;Charge une police pointée par ds:si dans la carte vidéo sous n°font BL, taille police dans CL
;-> AH=4, BL n°font, DS:SI pointeur vers Font, CL taille police 
;<- Carry if error
;===========================================
loadfont:
	push 	ax bx cx dx si di es
	cmp	bl,7
      	ja    	errorloadfont
	xor	di,di
      	cli  
      	mov   	dx,sequencer
doseq:   
	mov 	ax,cs:[di+offset reg1]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6
	jbe 	doseq
      	mov   	dx,graphics 
doseq2:   
	mov 	ax,cs:[di+offset 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+offset reg2]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6
	jbe 	doseqs
        	mov     	dx,graphics 
doseqs2:   
	mov 	ax,cs:[di+offset reg2]
	out 	dx,ax
	inc 	di
	inc 	di
	cmp 	di,6+6
	jbe 	doseqs2
	pop 	es di si dx cx bx ax
	ret    
errorloadfont:
	stc
	pop 	es di si dx cx bx ax
	ret
  
reg2 	dw 0100h, 0302h, 0304h, 0300h 
     	dw 0004h, 1005h, 0E06h 
reg1 	dw 0100h, 0402h, 0704h, 0300h
     	dw 0204h, 0005h, 0406h                

;==========SHOWLINE (Fonction 06h)===============
;remet le curseur text a la ligne avec un retour chariot
;-> AH=6
;<-
;================================================
showline:
        push    bx cx 
	mov 	bl,cs:y
	xor 	bh,bh
	mov 	cl,cs:lines
      	sub     cl,2
	cmp 	bl,cl
      	jne     scro
	dec 	bl
	mov	cx,1
	cmp	byte ptr cs:graphic,0
	je	okscro
	mov	cx,8
okscro:
	call	scrolldown
scro:
	inc 	bl
        call    setxy2
        pop     cx bx
	ret

;==========SETCOLOR (Fonction 15h)=========
;Change les attributs du texte a CL
;-> AH=21 ,CL couleur
;<- 
;=========================================
setcolor:
	mov 	cs:colors,CL
	ret

;==========GETCOLOR (Fonction 16h)=========
;Récupère les attributs du texte dans CL
;-> AH=22
;<- CL couleur
;=========================================
getcolor:
	mov 	cl,cs:colors
	ret

;==========SETSTYLE (Fonction xh)=========
;Change le style du texte a CL
;-> AH=x ,CX style
;<- 
;=========================================
setstyle:
	mov 	cs:style,CX
	ret

;==========GETSTYLE (Fonction xh)=========
;Récupère le style du texte dans CL
;-> AH=x
;<- CX style
;=========================================
getstyle:
	mov 	cx,cs:style
	ret

;==========SCROLLDOWN (Fonction 17h)=========
;defile de cx lines vers le bas
;-> AH=23, CX lines à défiler vers le bas
;<- 
;=============================
scrolldown:
	push 	ax cx dx si di ds es
        cmp     cs:scrolling,0
        je      graphp
	mov 	ax,cx
	mul 	cs:linesize
	mov 	si,ax
	mov 	cx,cs:pagesize
	sub 	cx,si
	mov 	di,cs:adress
	cld
	cmp   byte ptr cs:graphic,1
	jne 	textp
	mov  	ax,0A000h  
	mov 	es,ax
	mov 	ds,ax           
	shr   cx,2    
transfert:
	mov	ah,0
gogo:
	push  ax cx
	mov   cl,ah
	mov   ah,1
	shl   ah,cl
	mov   al,2
      mov   dx,sequencer
	out   dx,ax
	pop   cx ax
	mov   al,4
      mov   dx,graphics
	out   dx,ax
	push 	si di cx
	rep 	movsd
	pop 	cx di si
      inc   ah
	cmp	ah,3
	jbe   gogo
	jmp   graphp
textp:
	mov 	ax,0B800h
	mov 	es,ax
	mov 	ds,ax
	rep 	movsb
graphp:
	pop 	es ds di si dx cx ax
	ret

;==========GETXY (Fonction 18h)=========
;Change les coordonnées du curseur a X:BH,Y:BL
;-> AH=24
;<- BH coordonnées x, BL coordonnées y
;=============================
getxy:
	mov 	bh,cs:x
	mov 	bl,cs:y
	ret

;==========SETXY (Fonction 19h)=========
;Change les coordonnées du curseur a X:BH,Y:BL
;-> AH=25, BH coordonnées x, BL coordonnées y
;<- 
;=====================================
setxy:
	push 	ax bx cx dx
;         	xor ax,ax
;	int 16h
;        mov     cl,cs:lines
;        dec     cl
;	sub     cl,bl
;	neg     cl
;	js      zero
;	xor     ch,ch
;	inc     cl
;       jmp     nozero
;zero:
;        mov     cx,0
;nozero:
;	call    scrolldown
	mov 	cs:x,bh
	mov 	cs:y,bl
	mov 	al,bl
	mov 	bl,bh
	xor 	bh,bh
	mov	di,cs:adress
	add 	di,bx
	mul 	cs:columns
	add 	di,ax
	shl 	di,1
	mov 	cs:xy,di
	cmp	byte ptr cs:graphic,1
	jne	oktext
	mov	bl,cs:x
	mov	cl,cs:y
	xor	bh,bh
	xor	ch,ch
	shl	bx,3
	shl	cx,3
	call	setxyg
	jmp   endofsetxy
oktext:
	mov 	ax,0B800h
	mov 	es,ax
	call   setcursor
endofsetxy:
	pop 	dx cx bx ax
	ret

setxy2:
	push	es di
	call 	setxy
	pop 	di es
	ret

;==========SETXYG (Fonction 0Ah)=========
;Change les coordonnées du curseur graphique a X:BX,Y:CX
;-> AH=x, BX coordonnées x, CX coordonnées y
;<- ES:DI pointeur sur pixel avec plan de bit ajusté
;======================================
setxyg:
     	push 	ax bx cx dx
	mov	cs:xg,bx
	mov	cs:yg,cx
      mov   ax,cx
      mov	cl,bl   
      mul  	cs:linesize                           
      shr   bx,2
      add  	ax,bx
      mov   di,ax
      and   cl,3                    
      mov   ah,1                        
      shl   ah,cl
      mov   al,2                   
      mov   dx, 3c4h       
      out   dx,ax       
	mov	cs:plane,cl
	mov	cs:xyg,di       
      mov   ax,0A000h      
      mov  	es,ax                  
	pop 	dx cx bx ax
	ret

;==========SHOWPIXEL (Fonction 08h)=========
;Affiche un pixel de couleur AL en X:BX,Y:CX
;-> AH=x, BX coordonnées x, CX coordonnées y, AL couleur
;<- 
;=========================================
showpixel:
     	push 	ax bx cx dx di bp es
      mov   bp,ax
	mov   ax,cx
      mov	cl,bl   
      mul  	cs:linesize                           
      shr   bx,2
      add  	ax,bx
      mov   di,ax
	add   di,cs: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,bp              
	mov	es:[di],al	 	
	pop	es bp di dx cx bx ax
	ret

;==========SHOWPIXEL (Fonction 09h)=========
;Récupère en al la couleur du pixel de coordonnées X:BX,Y:CX
;-> AH=x, BX coordonnées x, CX coordonnées y, AL couleur
;<- 
;=========================================
getpixel:
     	push 	ax bx cx dx di bp es
      mov   bp,ax
	mov   ax,cx
      mov	cl,bl   
      mul  	cs:linesize                           
      shr   bx,2
      add  	ax,bx
      mov   di,ax
	add   di,cs:adress
      and   cl,3 
	mov	ah,cl                                      
      mov   al,4                   
      mov   dx,graphics
      out   dx,ax       
      mov   bx,0A000h      
      mov  	es,bx
	mov	ax,bp
           
	mov	al,es:[di] 	
	pop	es bp di dx cx bx ax
	ret

;==========GETVGAINFO (Fonction 0xh)=========
;Renvoie un bloc de donnée en ES:DI sur l'état de la carte graphique
;<- AH=x, ES:DI pointeur
;->
;=============================================
Getvgainfos:
	push 	cx si di ds
	push 	cs
	pop 	ds
	mov 	cx,datablocksize
	mov 	si,offset datablock
	cld
	rep 	movsb
	pop 	ds di si cx
	ret

;==========WAITRETRACE (Fonction 0xh)=========
;Synchronisation avec la retrace verticale
;<- AH=x
;->
;=============================================
waitretrace:
	push 	ax dx
	mov 	dx,3DAh
waitr:
	in 	al,dx
	test 	al,8
	jz 	waitr
	pop 	dx ax
	ret

;Renvoie le caractère sur le curseur en dl	
getchar:
        push    ax di es
        mov	ax,0B800h
	mov	es,ax
	mov	di,cs:xy
	mov	dl,es:[di]
        pop     es di ax
        ret

;Ecrit le caractère ASCII CL attribut CH aprés le curseur, en le mettant à jours
charout:
	push 	ax bx cx dx di es
	cmp	byte ptr cs:graphic,1
	jne	textaccess
        call    emulatechar
        jmp     adjusttext
textaccess:
	mov	ax,0B800h
	mov	es,ax
	mov	di,cs:xy
	mov	es:[di],cx
	add	cs:xy,2
adjusttext:
        inc     cs:x
	mov	  cl,cs:columns
	cmp	  cs:x,cl
	jb	  noadjusted
        call    showline
noadjusted:
        call    setcursor
	pop 	es di dx cx bx ax
	ret

setcursor:
          push ax cx dx
	mov 	dx,CCRT
	mov 	al,0Eh
	mov 	cx,cs:xy
	shr     cx,1
	mov 	ah,ch
	out 	dx,ax
	mov 	ah,cl
	inc	al
	out 	dx,ax
	pop dx cx ax
	ret


;Ecrit le caractère ASCII CL attribut CH aprés le curseur graphique, en le mettant à jours en mode graphique
emulatechar:
        push    ax bx cx dx di
        mov	dx,cx
	mov	di,dx
	and 	di,11111111b
	shl 	di,3
	add 	di,offset font8x8
	xor 	bx,bx
	xor 	cx,cx
	mov 	ah,cs:[di]
bouclet:
	mov 	al,dh
	rol	ah,1
	jc 	colored
	shr	al,4
	bt    word ptr cs:style,0
	jc    transparent
colored:
	and	al,1111b
	push 	bx cx
	add   cx,cs:yg
	add 	bx,cs:xg
	call 	showpixel
	pop 	cx bx
transparent:
	inc 	bx
	cmp 	bx,8
	jb 	bouclet
	xor 	bx,bx
	inc 	di
	mov	ah,cs:[di]
	inc 	cx
	cmp 	cx,8
	jb 	bouclet
	add 	cs:xg,8
	mov	cx,cs:linesize
	shl	cx,2
	cmp	cs:xg,cx
	jb	ended
	mov	cs:xg,0
	add	cs:yg,8
ended:
        pop     di dx cx bx ax
        ret



;sauve l'ecran dans un bloc de mémoire
savescreen:
push    ax cx dx si di bp ds es gs
mov     bp,sp
mov     dx,ss:[bp+22]
mov     ah,2
mov     cx,cs:pagesize
push    cs
pop     ds
mov     si,offset data3
int     49h
mov     ah,6
int     49h
push    gs
pop     es
xor     di,di
call    savescreento
pop     gs es ds bp di si dx cx ax
ret

data3 db '/vgascreen',0


;===================================sauve l'ecran rapidement en es:di================
SaveScreento:
        push    cx si di ds 
        mov     cx,0B800h
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,cs:pagesize
        shr     cx,2
        xor     si,si
        cld
        rep     movsd
        pop     ds di si cx 
        ret

;===================================sauve les parametres en es:di================
Saveparamto:
        push    ecx si di ds
        push    cs
        pop     ds
        xor     ecx,ecx
        mov     cx,datablocksize
        mov     si,offset datablock
        cld
        rep     movsb
        pop     ds di si ecx
        ret
        
;===================================restore les parametres depuis en ds:si================
Restoreparamfrom:
        push    ecx si di es
        push    cs
        pop     es
        xor     ecx,ecx
        mov     cx,datablocksize
        mov     di,offset datablock
        cld
        rep     movsb
        pop     es di si ecx
        ret
        
;sauve la page1 dans un bloc de mémoire
Savepage1:
push    ax cx dx si di bp ds es gs
mov     bp,sp
mov     dx,ss:[bp+22]
mov     ah,2
mov     cx,cs:pagesize
push    cs
pop     ds
mov     si,offset data4
int     49h
mov     ah,6
int     49h
push    gs
pop     es
xor     di,di
call    Savepage1to
pop     gs es ds bp di si dx cx ax
ret

data4 db '/vgapage1',0

;===================================sauve l'ecran rapidement================
Savepage1to:
        push    ecx si di ds
        mov     cx,0B800H
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,cs:pagesize
        shr     cx,2
        mov     si,cs:pagesize
        cld
        rep     movsd
        pop     ds di si ecx
        ret
        
;R‚cupŠre l'ecran de la carte depuis son bloc mémoire
RestoreScreen:
push    ax dx si bp ds gs
mov     bp,sp
mov     dx,ss:[bp+16]
push    cs
pop     ds
mov     si,offset data3
mov     ah,9
int     49h
push    gs
pop     ds
xor     si,si
call    restorescreenfrom
pop     gs ds bp si dx ax
ret

;===================================restore l'ecran rapidement de ds:si================
RestoreScreenfrom:
        push    ecx si di ds es
        mov     cx,0B800H
        mov     es,cx
        xor     ecx,ecx
        mov     cx,cs:pagesize
        shr     cx,2
        xor     di,di
        cld
        rep     movsd
        pop     es ds di si ecx
        ret



;===============================Page2to1============================
Page2to1:
        push    ecx si di ds es
        mov     cx,0B800H
        mov     es,cx
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,cs:pagesize
        shr     cx,2
        mov     si,cs:pagesize
        xor     di,di
        cld
        rep     movsd
        pop     es ds di si ecx
        ret

;===============================Page1to2============================
Page1to2:
        push    ecx si di ds es
        mov     cx,0B800H
        mov     es,cx
        mov     ds,cx
        xor     ecx,ecx
        mov     cx,cs:pagesize
        shr     cx,2
        mov     di,cs:pagesize
        xor     si,si
        cld
        rep     movsd
        pop     ds es di si ecx
        ret

;===============================xchgPages============================
xchgPages:
push    ax cx dx si di bp ds es gs
mov     bp,sp
mov     dx,ss:[bp+22]
mov     ah,2
mov     cx,datablocksize
add     cx,cs:pagesize
add     cx,3*256
push    cs
pop     ds
mov     si,offset data4
int     49h
mov     ah,6
int     49h
push    gs
pop     es
xor     di,di
call    savescreento
call    Page2to1
push    gs
pop     ds
xor     si,si
mov     cx,0B800H
mov     es,cx
mov     di,cs:pagesize
xor     ecx,ecx
mov     cx,cs:pagesize
shr     cx,2
cld
rep     movsd
mov     ah,01h
int     49h
pop     gs es ds bp di si dx cx ax
ret


;Sauve l'‚tat de la carte dans un bloc mémoire
savestate:
push    ax cx dx si di bp ds es gs
mov     bp,sp
mov     dx,ss:[bp+22]
mov     ah,2
mov     cx,datablocksize
add     cx,cs:pagesize
add     cx,3*256
push    cs
pop     ds
mov     si,offset data
int     49h
mov     ah,6
int     49h
push    gs
pop     es
xor     di,di
call    saveparamto
add     di,datablocksize
call    savescreento
add     di,cs:pagesize
call    savedacto
pop     gs es ds bp di si dx cx ax
ret

data db '/vga',0

;R‚cupŠre l'‚tat de la carte depuis son bloc mémoire
restorestate:
push    ax dx si bp ds gs
mov     bp,sp
mov     dx,ss:[bp+16]
push    cs
pop     ds
mov     si,offset data
mov     ah,9
int     49h
push    gs
pop     ds
mov     al,ds:[7]
cmp     cs:mode,al
je      nochangemode
mov     ah,0
call    setvideomode
nochangemode:
xor     si,si
call    restoreparamfrom
add     si,datablocksize
call    restorescreenfrom
add     si,cs:pagesize
call    restoredacfrom
pop     gs ds bp si dx ax
ret

;sauve le DAC dans un bloc de mémoire
savedac:
push    ax cx dx si di bp ds es gs
mov     bp,sp
mov     dx,ss:[bp+22]
mov     ah,2
mov     cx,3*256
push    cs
pop     ds
mov     si,offset data2
int     49h
mov     ah,6
int     49h
push    gs
pop     es
xor     di,di
call    savedacto
pop     gs es ds bp di si dx cx ax
ret

data2 db '/vgadac',0

;R‚cupŠre le dac depuis son bloc mémoire
restoredac:
push    ax dx si bp ds gs
mov     bp,sp
mov     dx,ss:[bp+16]
push    cs
pop     ds
mov     si,offset data2
mov     ah,9
int     49h
push    gs
pop     ds
xor     si,si
call    restoredacfrom
pop     gs ds bp si dx ax
ret

;sauve le DAC en es:di
savedacto:
push ax cx dx di
mov dx,3C7h
mov cx,256
save:
mov al,cl
dec al
out dx,al
inc dx
inc dx
in al,dx
mov es:[di],al
inc di
in al,dx
mov es:[di],al
inc di
in al,dx
mov es:[di],al
inc di
dec dx
dec dx
dec cx
jne save 
pop di dx cx ax
ret

;restore le DAC depuis ds:si
restoredacfrom:
push ax cx dx si
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
pop si dx cx ax
ret


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


end start