.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 getfont dw showline dw showchar dw showpixel dw getpixel dw nothings dw setstyle dw getstyle dw enablecursor dw disablecursor dw nothings dw nothings dw nothings dw nothings dw nothings dw nothings dw setcolor dw getcolor dw scrolldown dw getxy dw setxy dw savescreen dw restorescreen dw page2to1 dw page1to2 dw xchgPages dw nothings dw waithretrace 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 ;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 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 style db 0 font db 0 graphic db 0 reserved1 dw 0 reserved2 dw 0 reserved3 dw 0 nbpage db 0 color db 0 cursor db 0 segments 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 11 planesize equ 65000 ;============================================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 ;=============ENABLECURSOR (Fonction 013)========= ;Autorise le d‚filement ;-> AH=42 ;<- ;===================================================== EnableCursor: push ax dx mov cs: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 bh,cs:x mov bl,cs:y call setxy pop dx ax ret ;=============DISABLECURSOR (Fonction 14)========= ;D‚sactive le d‚filement ;-> AH=43 ;<- ;===================================================== DisableCursor: push ax dx mov cs: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 pop dx ax ret ;==========SETSTYLE (Fonction 11)========= ;Change le style du texte a CL ;-> AH=x ,CX style ;<- ;========================================= setstyle: mov cs:style,cl ret ;==========GETSTYLE (Fonction 12)========= ;Récupère le style du texte dans CL ;-> AH=x ;<- CX style ;========================================= getstyle: mov cl,cs:style 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 mov cl,cs:[di-5] and cl,01000000b cmp cl,0 je colors16 mov cs:color,8 mov cl,4 jmp colors256 colors16: mov cs:color,4 mov cl,3 colors256: cmp cs:mode,5 setae cs:graphic jb istext shl ax,cl mov cs:segments,0A000h jmp wasgraph istext: mov cs:segments,0B800h shl ax,1 wasgraph: 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:cursor,1 mov cs:style,0 pop di dx cx ax ret errorsetvideomode: pop di dx cx ax ret initvideo: push bx cx si ds call clearscreen 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 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,planesize mov di,cs:adress shr cx,2 cmp cs: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: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: xor bx,bx call setxy 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 05h)========= ;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 cs:graphic,0 je okscro mov cx,8 okscro: call scrolldown scro: inc bl call setxy 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 ;==========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 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: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: 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 dx di 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 call setcursor pop di dx 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 si di es cmp cs:color,4 je showpixel4 mov si,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,si mov es:[di],al jmp endofshow showpixel4: mov dx,ax mov ax,cx mov ch,dl mov cl,bl mul cs:linesize shr bx,3 add ax,bx mov di,ax add di,cs: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: pop es di si dx cx bx ax ret ;==========GETPIXEL (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 ;==========WAITHRETRACE (Fonction 0xh)========= ;Synchronisation avec la retrace horizontale ;<- AH=x ;-> ;============================================= waithretrace: push ax dx mov dx,3DAh waitr2: in al,dx test al,1 jz waitr2 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 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 cmp cs:cursor,1 jne notshow 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 notshow: 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 al,ch mov di,cx and di,11111111b shl di,3 add di,offset font8x8 mov bl,cs:x mov cl,cs: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:style,0 jnz transparent colored: and al,1111b call showpixel 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 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 ;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 data4 db '/vgatemp',0 ;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