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é 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è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éo courant a %0 ;-> %0 mode d'é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é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è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ée par %0 dans la carte vidé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è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 à 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ées du curseur dans ah,al au format point ;-> ;<- ah coordonnées x, al coordonnées y ;======================== proc getxy uses bx mov ah,[cs:datablock.x] mov al,[cs:datablock.y] retf endp ;==========SETXY========= ;Change les coordonnées du curseur a X:%0,Y:%1 ;-> %0 coordonnées x, %1 coordonné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ées x, %1 coordonné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ère en ax la couleur du pixel de coordonnées X:%0,Y:%1 ;-> %0 coordonnées x, %1 coordonné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ée en ES:DI sur l'é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è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ère ASCII %0 attribut %1 aprés le curseur, en le mettant à 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è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,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'é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ère l'é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è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"