.model tiny
.486
smart
.code

org 0100h

start:
jmp tsr
db 'VIDEO'
Tsr:
cli
cmp ax,1234h
jne nomore
mov ax,4321h
jmp itsok
nomore:
push bx
mov bl,ah
xor bh,bh
shl bx,1
mov bx,cs:[bx].tables
mov cs:current,bx
pop bx
call cs:current
itsok:
jnc noerror
push bp
mov bp,sp
or byte ptr [bp+6],1b
pop bp
mov ax,cs
shl eax,16
mov ax,cs:current
jmp endofint
noerror:
push bp
mov bp,sp
and byte ptr [bp+6],0FEh
pop bp
endofint:
sti
iret
current dw 0
tables   dw setvideomode
         dw getvideomode
         dw cleartext
         dw changefont
         dw loadfont
         dw space
         dw line
         dw showchar
         dw showint
         dw showsigned
         dw showhex
         dw showbin
         dw showstring
         dw showstring0
         dw showcharat
         dw showintat
         dw showsignedat
         dw showhexat
         dw showbinat
         dw showstringat
         dw showstring0at
         dw setcolor
         dw getcolor
         dw scrolldown
         dw getxy
         dw setxy2
         dw savescreen
         dw restorescreen
         dw page2to1
         dw page1to2
         dw xchgPages
         dw savepage1
         dw changelineattr
         dw waitretrace
         dw getinfos
         dw loadbmp
         dw showbmp
         dw clearscr
         dw savedac
         dw restoredac
         dw savestate
         dw restorestate

;sauve le DAC
savedac:
push ax cx dx di
mov dx,3C7h
xor ax,ax
out dx,al
mov cx,256*3
inc dx
inc dx
mov di,offset dac
save:
in al,dx
mov cs:[di],al
inc di
dec cx
jne save 
pop di dx cx ax
ret

;restore le DAC
restoredac:
push ax cx dx si
xor ax,ax
cli
mov dx,3DAh
in al,dx
mov dx,0
out dx,al
mov dx,3C8h
out dx,al
mov cx,256*3
mov si,offset dac
save2:
mov al,cs:[si]
inc si   
out dx,al
dec cx
jne save2
mov dx,3DAh
in al,dx
mov dx,32
out dx,al
pop si dx cx ax
ret

;Change la police a CL
changefont:
push ax cx dx
mov ah,cl
and cl,11b
and ah,0100b
shl ah,2
add ah,cl
mov dx,3C4h
mov al,3
out dx,ax
pop dx cx ax
ret        

;met la police BL … ds:si taille dans CL
loadfont:
push ax bx cx dx si di es
xor di,di
mov dx,3C4h
cli  
doseq:   
mov ax,cs:[di+offset reg1]
out dx,ax
inc di
inc di
cmp di,6
jbe doseq
mov dx,3CEh
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,255
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,3C4h
doseqs:   
mov ax,cs:[di+offset reg2]
out dx,ax
inc di
inc di
cmp di,6
jbe doseqs
mov dx,3CEh
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    
reg2 dw 0100h, 0302h, 0304h, 0300h 
     dw 0004h, 1005h, 0E06h 
reg1 dw 0100h, 0402h, 0704h, 0300h
     dw 0204h, 0005h, 0406h                   

;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 16 couleurs
mode5      DB 63H,00H,  03H,09H,0FH,00H,06H
             DB 2DH,27H,28H,90H,2BH,080H,0BFH,01FH,00H,0C0H,00H,00H,00H,00H,00H,00H
             DB 9CH,8EH,8FH,14H,00H,96H,0B9H,0E3H,0FFH
             DB 00H,00H,00H,00H,00H,00H,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*200 256 couleurs 
mode6        DB 63H, 00H,  03H,01H,0FH,00H,0EH
             DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,41H,00H,00H,00H,00H,00H,00H
             DB 9CH,0EH,8FH,28H,40H,96H,0B9H,0A3H,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 00,00

;320*400 256 couleurs chain4
mode7        DB 63H, 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 00,00

;640*400 16 couleurs
mode8        DB 63H, 00H,  03H,01H,0FH,00H,0EH
             DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,41H,00H,00H,00H,00H,00H,00H
             DB 9CH,0EH,8FH,28H,40H,96H,0B9H,0A3H,0FFH
             DB 00H,00H,00H,00H,00H,10H,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 00,00

;640*400 256 couleurs
mode9        DB 63H, 00H,  03H,01H,0FH,00H,0EH
             DB 2DH,27H,27H,91H,2AH,9FH,0BFH,1FH,00H,0C0H,00H,00H,00H,00H,00H,00H
             DB 9CH,0EH,8FH,50H,00H,8FH,0C0H,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 00,00




;
;=============CLEAR=========
;Efface l'ecran texte
;-> 
;<- 
;=============================
cleartext:
push es eax cx di
xor di,di
mov ax,0b800h
mov es,ax
mov eax,07200720h
mov cx,cs:pagesize
shr cx,2
cld
rep stosd
mov cs:xy,0
mov cs:x,0
mov cs:y,0
pop di cx eax es
ret

;=============CLEAR=========
;Efface l'ecran texte
;-> 
;<- 
;=============================
clearpixel:
push es eax cx di
xor di,di
mov ax,0A000h
mov es,ax
mov eax,0h
mov cx,cs:pagesize
shr cx,2
cld
rep stosd
pop di cx eax es
ret             

Sequencer equ 03C4h
misc equ 03C2h
CCRT equ 03D4h
Attribs equ 03C0h
graphic equ 03CEh
statut equ 3DAh

initmode:
push bx cx si ds
;xor bx,bx
;mov ds,bx
;lds si,ds:[43h*4]
push cs
pop ds
mov si,offset font
mov cl,8
mov bl,1
call loadfont
pop ds si cx bx
ret

;Renvoie le mode video dans al
getvideomode:
mov al,cs:mode
ret

;====Met le mode video a al
setvideomode:
push ax dx di
cmp cs:mode,0FFh
jne noinit
call initmode
mov cs:pagesize,4000
call cleartext
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,5
jb 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,25
jb initcrt          
mov dx,graphic
xor ax,ax
initgraphic:
mov ah,cs:[di]
out dx,ax
inc al
inc di
cmp al,9
jb 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,21
jb initattribs
mov al,cs:[di]
mov cs:columns,al
mov ah,cs:[di+1]
mov cs:lines,ah
mul ah
shl ax,1
mov cs:pagesize,ax
mov al,20h
out dx,al
pop di dx ax
ret

;==========SPACE===========
;met un espace apr‚s le curseur
;-> 
;<- 
;=============================
space:
push bx es
add cs:xy,2
mov bx,0B800h
mov es,bx
mov bx,cs:xy
mov byte ptr es:[bx],' '
pop es bx
ret

;==========SHOWCHAR===========
;met un caractŠre apr‚s le curseur
;-> dl
;<- 
;=============================
showchar:
push dx bx es
mov bx,0B800h
mov es,bx
mov bx,cs:xy
mov dh,cs:colors
mov es:[bx],dx
add cs:xy,2
pop es bx dx
ret

;==========SHOWCHARAT===========
;met un caractŠre apr‚s le curseur coord ah,al
;-> dl ah al
;<- 
;=============================
showcharat:
push es di
call setxy
call showchar
pop di es
ret

;==========LINE=========
;remet le curseur a la ligne
;-> 
;<- 
;=============================
line:
push bx cx di es
mov bh,cs:x
mov bl,cs:y
xor bh,bh
mov cl,cs:lines
dec cl
dec cl
cmp bl,cl
jne scro
dec bl
mov cl,1
call scrolldown
scro:
inc bl
call setxy
pop es di cx bx
ret

;==========SETCOLOR=========
;Change les attributs du texte a CL
;-> CL
;<- 
;=============================
setcolor:
mov cs:colors,CL
ret

;==========GETCOLOR=========
;R‚cupŠre les attributs du texte dans CL
;-> 
;<- CL
;=============================
getcolor:
mov cl,cs:colors
ret

updatecursor:
push ax dx di
mov dx,3D4h
mov al,0Eh
mov di,offset xy
mov ah,cs:[di]
out dx,ax
mov ah,cs:[di+1]
inc al
out dx,ax
pop di dx ax
ret

;==========SCROLLDOWN=========
;defile de cx lines vers le bas
;-> CX
;<- 
;=============================
scrolldown:
push ax cx dx si di ds es
mov si,0B800h
mov es,si
mov ds,si
mov ax,cx
mul cs:columns
shl ax,1
mov si,ax
mov cx,cs:pagesize
sub cx,si
xor di,di
cld
rep movsb
pop es ds di si dx cx ax
ret

;==========GETXY=========
;Change les coordonnées du curseur a X:AL,Y:AH
;-> AX
;<- 
;=============================
getxy:
mov bh,cs:x
mov bl,cs:y
ret

;==========SETXY=========
;Change les coordonnées du curseur a X:AH,Y:AL
;-> AX
;<- es di
;=============================
setxy:
push ax bx dx
mov cs:x,bh
mov cs:y,bl
mov al,bl
mov bl,bh
xor bh,bh
mov di,bx
mul cs:columns
add di,ax
shl di,1
mov cs:xy,di
mov ax,0B800h
mov es,ax
pop dx bx ax
ret

setxy2:
push es di
call setxy
pop di es
ret


;===================================sauve l'ecran rapidement================
SaveScreen:
        push    cx si di ds es
        mov     cx,0B800H
        mov     ds,cx
        push    cs
        pop     es
        mov     cx,cs:pagesize
        shr     cx,2
        xor     si,si
        mov     di,offset Copy2
        cld
        rep     movsd
        pop     es ds di si cx 
        ret

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

;===================================sauve l'ecran rapidement================
Savepage1:
        push    cx si di ds es
        mov     cx,0B800H
        mov     ds,cx
        push    cs
        pop     es
        mov     cx,cs:pagesize
        shr     cx,2
        xor     si,si
        mov     di,offset Copy
        cld
        rep     movsd
        pop     es ds di si cx 
        ret

;===================================sauve l'ecran rapidement================
RestoreScreen:
        push    cx si di ds es
        mov     cx,0B800H
        mov     es,cx
        push    cs
        pop     ds
        mov     cx,cs:pagesize
        shr     cx,2
        mov     si,offset Copy2
        xor     di,di
        cld
        rep     movsd
        pop     es ds di si cx 
        ret

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

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

;===============================Page1to2============================
Page1to2:
        push    cx si di ds es
        mov     cx,0B800H
        mov     es,cx
        mov     ds,cx
        mov     cx,cs:pagesize
        shr     cx,2
        mov     di,4000
        xor     si,si
        cld
        rep     movsd
        pop     ds es di si cx 
        ret
 
;===============================xchgPages============================
xchgPages:
        push    cx si di ds es
        call    savepage1
        call    page2to1
        mov     cx,0B800H
        mov     es,cx
        push    cs
        pop     ds
        mov     cx,cs:pagesize
        shr     cx,2
        mov     si,offset Copy
        mov     di,4000
        rep     movsd
        pop     es ds di si cx 
        ret

;===================================Afficher un int EDX a l'‚cran en ah,al================
ShowInt:
        push    eax bx cx edx esi di es ds
        mov     di,cs:xy
        mov     cx,0B800h
        mov     es,cx
        xor     cx,cx
        mov     eax,edx
        mov     esi,10
        mov     bx,offset showbuffer+27
decint3:
        xor     edx,edx
        div     esi
        add     dl,'0'
        mov     dh,cs:colors
        sub     bx,2
        add     cx,2
        mov     cs:[bx],dx
        cmp     ax,0
        jne     decint3
        mov     si,bx
        push    cs
        pop     ds
        cld
        rep     movsb
        mov     cs:xy,di
        pop     ds es di esi edx cx bx eax 
ret       
showbuffer db 35 dup (0FFh)

;===================================Afficher un int EDX a l'‚cran en ah,al================
ShowIntat:
push es di
        call    setxy
        call    showint
pop di es
ret

waitretrace:
push ax dx
mov dx,3DAh
waitr:
in al,dx
test al,8
jz waitr
pop dx ax
ret

nbexactbit:
push edx
xor cx,cx
viewnb:
inc cx
shr edx,1
cmp edx,0
jnz viewnb
pop edx
ret

bittobyte:
push dx
adap:
mov dx,cx
and dx,3
jz adapfin
add cx,1
jmp adap
adapfin:
pop dx
ret

Nbbit:
cmp edx,0FFh
jb ok1
cmp edx,0FFFFh
jb ok2
mov cx,32
ret
ok1:
mov cx,8
ret
ok2:
mov cx,16
ret   

showhexat:
push es di
        call    setxy
        call    showhex
pop di es
ret      

showbinat:
push cx es di
call setxy
call showbin
pop di es cx
ret

;==============================Affiche le nombre nb binaire en EDX==============
Showbin:
        push    es ax bx cx di
        mov     di,cs:xy
        mov     bx,0B800h
        mov     es,bx
        mov     ax,cx
        sub     cx,32
        neg     cx
        shl     edx,cl
        mov     ch,cs:colors
binaize:
        rol     edx,1
        mov     cl,'0'
        adc     cl,0  
        mov     es:[di],cx
        add     di,2
        dec     al
        jnz     binaize
        mov     cs:xy,di
        pop     di cx bx ax es
        ret

;==============================Affiche le nombre nb hexa en EDX==============
ShowHex:
        push    es ax bx cx di
        mov     di,cs:xy
        mov     bx,0B800h
        mov     es,bx
        mov     ax,cx
        sub     cx,32
        neg     cx
        shl     edx,cl
        mov     ch,cs:colors
        shr     ax,2
Hexaize:
        rol     edx,4
        mov     bx,dx
        and     bx,0fh
        mov     cl,cs:[bx+offset Tab]
        mov     es:[di],cx
        add     di,2
        dec     al
        jnz     Hexaize
        mov     cs:xy,di
        pop     di cx bx ax es
        ret
Tab db '0123456789ABCDEF'

;===================================Afficher un int EDX a l'‚cran en ah,al================
Showsigned:
push ax ebx edx es
xor ebx,ebx
mov bl,cl
bt edx,ebx
jnc pos
neg edx 
mov ah,cs:colors
mov al,'-'
mov bx,0B800h
mov es,bx
mov bx,cs:xy
mov word ptr es:[bx],ax
add cs:xy,2
pos:
call showint 
pop es edx ebx ax
ret

showsignedat:
push es di
call setxy
call showsigned
pop di es 
ret

;================Affiche la chaine de caractŠre contenue dans ds:si
showstring:
        push    es bx cx si di
        mov     di,cs:xy
        mov     bx,0B800h
        mov     es,bx
        mov     bl,[si]
        mov     ch,cs:colors
strinaize:
        inc     si
        mov     cl,[si]
        mov     es:[di],cx
        add     di,2
        dec     bl
        jnz     strinaize
        mov     cs:xy,di
        pop     di si cx bx es
        ret

;================Affiche la chaine 0 de caractŠre contenue dans ds:si
showstring0:
        push    es cx si di
        mov     di,cs:xy
        mov     cx,0B800h
        mov     es,cx
        mov     ch,cs:colors
strinaize0:
        mov     cl,[si]
        cmp     cl,0
        je      no0
        mov     es:[di],cx
        add     di,2
        inc     si
        jmp     strinaize0
        no0:
        mov     cs:xy,di
        pop     di si cx es
        ret


showstringat:
push es di
call setxy
call showstring
pop di es
ret

showstring0at:
push es di
call setxy
call showstring0
pop di es
ret

;couleur al pour ligne di
changelineattr:
push ax bx di es
mov bx,ax
mov ax,0B800h
mov es,ax
mov ax,di
mul cs:columns
mov di,ax
shl di,1
mov al,cs:columns
inc di
popep:
mov es:[di],bl
add di,2
dec al
jnz popep
pop es di bx ax
ret       

;Retourne en es:di un bloc de donn‚es
Getinfos:
push cx si di ds
push cs
pop ds
mov cx,10
mov si,offset lines
cld
rep movsb
pop ds di si cx
ret


clearscr:
push eax cx
mov cx,320*200/4
mov eax,0
rep movsd
pop cx eax

loadbmp:
push ax bx cx dx bp ds
mov ax,ds:[18]
mov si,ax
shr ax,2
and si,11b
cmp si,0
je is4x
add ax,1
is4x:
mov cs:sizeh,ax
mov ax,ds:[22]
mov cs:sizev,ax
mov di,0FFFFh-1024
mov si,54
mov cl, 0ffh
paletteload:
lodsb
shr al, 2
mov [di+2], al
lodsb
shr al, 2
mov [di+1], al
lodsb
shr al, 2
mov [di+0], al
inc si
add di, 3
dec cl
jnz paletteload
mov si,0FFFFh-1024
mov dx, 3c8h
cld
mov cl, 0ffh
xor bx, bx
palettemake:
mov al, bl
out dx, al
inc dx
lodsb
out dx, al
lodsb
out dx, al
lodsb
out dx, al
dec dx
inc bl
dec cl
jnz palettemake
pop ds bp dx cx bx ax  
ret
sizeh dw 0
sizev dw 0

showbmp:
push ax bx cx dx si di ds es
mov dx,cs:sizev
add bx,dx
mov di,cx
mov ax,bx
shl ax,6
shl bx,8
add di,bx
add di,ax
mov bx,di
mov ax,0A000H
mov es,ax
mov si,1024+54
mov ax,cs:sizeh
bouclebmp:
cmp di,64000
jae nopp
cld
rep movsd
no:
mov cx,ax
sub bx,320
mov di,bx
dec dx
jnz bouclebmp
fin:
pop es ds di si dx cx bx ax 
ret
nopp:
shl cx,2
add si,cx
jmp no

fire:
push ax cx dx si di
xor si,si
xor di,di
mov cx,64000
makefire:
xor ax,ax
mov al,[si]
add al,[si+321]
adc ah,0
add al,[si-321]
adc ah,0
add al,[si+320]
adc ah,0
shr ax,2
cmp al,191
jb pp
mov al,191
pp:
cmp al,0
je p
dec ax
p:
mov es:[di],al
inc si
inc di
dec cx
jnz makefire
pop di si dx cx ax
ret

fireflamme:
push ax cx dx si di
xor si,si
xor di,di
mov cx,64000
makefire2:
xor ax,ax
mov al,[si]
add al,[si+1]
adc ah,0
add al,[si-1]
adc ah,0
add al,[si+320]
adc ah,0
shr ax,2
cmp al,191
jb ppp
mov al,191
ppp:
cmp al,0
je pppp
dec ax
pppp:
mov es:[di],al
inc si
inc di
dec cx
jnz makefire2
pop di si dx cx ax
ret    

gauss:
push ax cx dx si di
xor si,si
xor di,di
mov cx,64000
makegauss:
xor ax,ax
mov al,[si+1]
add al,[si-1]
adc ah,0
add al,[si+321]
adc ah,0
add al,[si+320]
adc ah,0
add al,[si+319]
adc ah,0
add al,[si-321]
adc ah,0
add al,[si-320]
adc ah,0
add al,[si-319]
adc ah,0
shr ax,3
mov es:[di],al
inc si
inc di
dec cx
jnz makegauss
pop di si dx cx ax
ret

lowgauss:
push ax cx dx si di
xor si,si
xor di,di
mov cx,64000
makegausss:
xor ax,ax
mov al,[si+1]
add al,[si-1]
adc ah,0
add al,[si+320]
adc ah,0
add al,[si-320]
adc ah,0
shr ax,2
mov es:[di],al
inc si
inc di
dec cx
jnz makegausss
pop di si dx cx ax
ret

firepalett:
push ax cx dx
mov dx,03C8h
xor ax,ax
out dx,al
inc dx
mov cx,64
rouge1:
out dx,al
push ax
xor al,al
out dx,al
out dx,al
pop ax
inc ax
loop rouge1
mov cx,64
jaune1:
push ax
mov al,63
out dx,al
pop ax
out dx,al
push ax
xor al,al
out dx,al
pop ax
inc ax
loop jaune1
mov cx,63
blanc1:
push ax
mov al,63
out dx,al
out dx,al
pop ax
out dx,al
loop blanc1
pop dx cx ax
ret

allfirepalett:
push ax cx dx
mov dx,03C8h
xor ax,ax
out dx,al
inc dx
mov cx,64
rouge:
push ax
shr ax,1
out dx,al
xor al,al
out dx,al
out dx,al
pop ax
inc ax
loop rouge
mov cx,64
rouge2:
push ax
shr ax,1
out dx,al
xor al,al
out dx,al
out dx,al
pop ax
inc ax
loop rouge2
mov cx,64
Jaune:
push ax
mov al,63
out dx,al
pop ax
out dx,al
push ax
xor al,al
out dx,al
pop ax
inc ax
loop jaune
mov cx,64
blanc:
push ax
mov al,63
out dx,al
out dx,al
pop  ax
out dx,al
loop blanc
pop dx cx ax
ret

gaussscreen:
push ax ds es
mov ax,0A000h
mov ds,ax
push fs
pop es
call gauss
push ds
pop es
push fs
pop ds
call Copyscreen
pop es ds ax
ret

lowgaussscreen:
push ax ds es
mov ax,0A000h
mov ds,ax
push fs
pop es
call lowgauss
push ds
pop es
push fs
pop ds
call Copyscreen
pop es ds ax
ret

firescreen:
push ax ds es
mov ax,0A000h
mov ds,ax
push fs
pop es
call fire
push ds
pop es
push fs
pop ds
call Copyscreen
pop es ds ax
ret

copyscreen:
push si di cx
xor si,si
xor di,di
mov cx,64000/4
rep movsd
pop cx di si
ret

;Sauve l'‚tat de la carte en es:di
savestate:
push cx si di ds 
push cs
pop ds
mov cx,10
mov si,offset lines
cld
rep movsb
call savescreento
pop ds di si cx
ret

;R‚cupŠre l'‚tat de la carte en ds:si    
restorestate:
push cx si di es
push cs
pop es
mov cx,10
mov di,offset lines
cld
rep movsb
call restorescreenfrom
pop es di si cx
ret       

lines db 0
columns db 0
x db 0
y db 0
xy dw 0
colors db 7
mode db 0FFh
pagesize dw 0
font equ $
copy equ $+4000
copy2 equ $+8000
dac equ $+12000
endofme equ $ +12768

end start