perso
/
cos2000v1
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
cos2000v1/noyau/video.asm

1299 lines
26 KiB
NASM
Raw Blame History

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 waithretrace
declare waitretrace
declare getvideoinfos
declare savedac
declare restoredac
declare savestate
declare restorestate
declare enablescroll
declare disablescroll
declare getchars
declare savescreen
declare savescreento
declare saveparamto
declare restoreparamfrom
declare restorescreen
declare restorescreenfrom
declare page2to1
declare page1to2
declare xchgpages
declare savestate
declare restorestate
declare savestate
declare restoredacfrom
declare restoredac
declare savedacto
ende
importing
use SYSTEME,mbcreate
use SYSTEME,mbfindsb
use SYSTEME,mbfree
use SYSTEME,mbchown
endi
;================================Table des modes videos (64 BYTES) ============================================
;40*25 16 couleurs
mode0 DB 67H,00H, 03H,08H,03H,00H,02H
DB 2DH,27H,28H,90H,2BH,0A0H,0BFH,01FH,00H,4FH,0DH,0EH,00H,00H,00H,00H
DB 9CH,8EH,8FH,14H,1FH,96H,0B9H,0A3H,0FFH
DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
DB 00H,01H,02H,03H,04H,05H,14H,07H,38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
DB 0CH,00H,0FH,08H,00H
DB 40,25
;80*25 16 couleurs
mode1 DB 67H,00H, 03H,00H,03H,00H,02H
DB 5FH,4FH,50H,82H,55H,81H,0BFH,1FH,00H,4FH,0DH,0EH,00H,00H,00H,00H
DB 9CH,0EH,8FH,28H,1FH,96H,0B9H,0A3h,0FFH
DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
DB 00H,01H,02H,03H,04H,05H,14H,07H,38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
DB 0CH,00H,0FH,08H,00H
DB 80,25
;80*50 16 couleurs
mode2 DB 63H, 00H, 03H,01H,03H,01H,02H
DB 5FH,4FH,50H,82H,55H,81H,0BFH,1FH,00H,47H,06H,07H,00H,00H,00H
DB 00H,9CH,8EH,8FH,28H,1FH,96H,0B9H,0A3H,0FFH
DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
DB 0CH,00H,0FH,00H,00H
DB 80,50
;100*50 16 couleurs
mode3 DB 067H,00H,03H,01H,03H,01H,02H
DB 70H,63H,64H,85H,68H,84H,0BFH,1FH,00H,47H,06H,07H,00H,00H,00H
DB 00H,9Ch,08EH,8FH,32H,1FH,96H,0B9H,0A3H,0FFH
DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
DB 0CH,00H,0FH,00H,00H
DB 100,50
;100*60 16 couleurs
mode4 DB 0A7H,00H,03H,01H,03H,01H,02H
DB 70H,63H,64H,85H,68H,84H,0FFH,1FH,00H,47H,06H,07H,00H,00H,00H
DB 00H,0E7H,8EH,0DFH,32H,1FH,0DFH,0E5H,0A3H,0FFH
DB 00H,00H,00H,00H,00H,10H,0EH,00H,0FFH
DB 00H,01H,02H,03H,04H,05H,14H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH
DB 0CH,00H,0FH,00H,00H
DB 100,60
;320*200 256 couleurs
mode5 DB 63H, 00H, 03H,01H,0FH,00H,06H
DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,41H,00H,00H,00H,00H,00H,00H
DB 9CH,0EH,8FH,28H,00H,96H,0B9H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04H,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
DB 41H,00H,0FH,00H,00H
DB 40,25
;320*400 256 couleurs
mode6 DB 063H, 00H, 03H,01H,0FH,00H,06H
DB 5FH,4FH,50H,82H,54H,80H,0BFH,1FH,00H,40H,00H,00H,00H,00H,00H,00H
DB 9CH,8EH,8FH,28H,00H,96H,0B9H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04H,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
DB 41H,00H,0FH,00H,00H
DB 40,50
;320*480 256 couleurs
mode7 DB 0E3H, 00H, 03H,01H,0FH,00H,06H
DB 5FH,4FH,50H,82H,54H,80H,0BH,3EH,00H,40H,00H,00H,00H,00H,00H,00H
DB 0EAH,0ACH,0DFH,28H,00H,0E7H,06H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
DB 41H,00H,0FH,00H,00H
DB 40,60
;360*480 256 couleurs
mode8 DB 0E7H, 00H, 03H,01H,0FH,00H,06H
DB 6BH,59H,5AH,8EH,5EH,8AH,0DH,3EH,00H,40H,00H,00H,00H,00H,00H,00H
DB 0EAH,0ACH,0DFH,2DH,00H,0E7H,06H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
DB 41H,00H,0FH,00H,00H
DB 45,60
;400*600 256 couleurs
mode9 DB 0E7H, 00H, 03H,01H,0FH,00H,06H
DB 74h,63h,64h,97h,68h,95h,86h,0F0h,00h,60h,00h,00h,00h,00h,00h,00h
DB 5Bh,8Dh,57h,32h,00h,60h,80h,0E3h,0FFh
DB 00H,00H,00H,00H,00H,40H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04h,05H,06H,07H,08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
DB 41H,00H,0FH,00H,00H
DB 50,75
;640*480 16 couleurs
mode10 DB 0E3H
DB 00H
DB 03H,01H,0FH,00H,06H
DB 5FH,4FH,50H,82H,53H,9FH,0BH,3EH,00H,40H,00H,00H,00H,00H,00H,00H,0E9H,8BH,0DFH,28H,00H,0E7H,04H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,00H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04H,05H,06H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH,01H,00H,0FH,00H,00H
DB 80,60
;800*600 16 couleurs
mode11 DB 0E7H
DB 00H
DB 03H,01H,0FH,00H,06H
DB 70H,63H,64H,92H,65H,82H,70H,0F0H,00H,60H,00H,00H,00H,00H,00H,00H,5BH,8CH,57H,32H,00H,58H,70H,0E3H,0FFH
DB 00H,00H,00H,00H,00H,00H,05H,0FH,0FFH
DB 00H,01H,02H,03H,04H,05H,06H,07H,10H,11H,3AH,3BH,3CH,3DH,3EH,3FH,01H,00H,0FH,00H,00H
DB 100,75
;============================================DATABLOCK=========================================================
datablock vgainf
;=======================================Equivalence pour la clart<72> du code========================================
sequencer equ 03C4h
misc equ 03C2h
ccrt equ 03D4h
attribs equ 03C0h
graphics equ 03CEh
statut equ 03DAh
maxmode equ 11
planesize equ 65000
;============================================Fonctions de l'int VIDEO===========================================
;=============ENABLESCROLLING=========
;Autorise le d<>filement
;->
;<-
;=====================================
proc enablescroll
mov [cs:datablock.scrolling],1
ret
endp
;=============DISABLESCROLLING=========
;D<>sactive le d<>filement
;->
;<-
;======================================
proc disablescroll
mov [cs:datablock.scrolling],0
ret
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
ret
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
ret
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
ret
endp
;==========GETSTYLE=========
;R<>cup<75>re le style du texte dans AX
;->
;<- AX style
;===========================
proc getstyle
mov al,[cs:datablock.style]
xor ah,ah
ret
endp
;=============SetVideoMode=========
;Fixe le mode vid<69>o courant a %0
;-> %0 mode d'<27>cran
;<- Carry if error
;==================================
proc setvideomode uses ax cx dx di, modenum:word
mov ax,[modenum]
xor ah,ah
cmp al,maxmode
ja .errorsetvideomode
cmp [cs:datablock.modenum],5h
jb .nographic
cmp al,5h
jae .nographic
call initfont
.nographic:
cmp [cs:datablock.modenum],0FFh
jne .noinit
call initfont
.noinit:
mov [cs:datablock.modenum],al
xor ah,ah
mov di,ax
shl di,6
add di,mode0
mov dx,misc
mov al,[cs:di]
out dx,al
inc di
mov dx,statut
mov al,[cs:di]
out dx,al
inc di
mov dx,sequencer
xor ax,ax
.initsequencer:
mov ah,[cs:di]
out dx,ax
inc al
inc di
cmp al,4
jbe .initsequencer
mov ax,0E11h
mov dx,ccrt
out dx,ax
xor ax,ax
.initcrt:
mov ah,[cs:di]
out dx,ax
inc al
inc di
cmp al,24
jbe .initcrt
mov dx,graphics
xor ax,ax
.initgraphic:
mov ah,[cs:di]
out dx,ax
inc al
inc di
cmp al,8
jbe .initgraphic
mov dx,statut
in al,dx
mov dx,attribs
xor ax,ax
.initattribs:
mov ah,[cs:di]
push ax
in ax,dx
pop ax
out dx,al
xchg ah,al
out dx,al
xchg ah,al
inc al
inc di
cmp al,20
jbe .initattribs
mov al,20h
out dx,al
mov al,[cs:di]
mov [cs:datablock.columns],al
mov ah,[cs:di+1]
mov [cs:datablock.lines],ah
mul ah
mov cl,[cs:di-5]
and cl,01000000b
cmp cl,0
je .colors16
mov [cs:datablock.color],8
mov cl,4
jmp .colors256
.colors16:
mov [cs:datablock.color],4
mov cl,3
.colors256:
cmp [cs:datablock.modenum],5
setae [cs:datablock.graphic]
jb .istext
shl ax,cl
mov [cs:datablock.segments],0A000h
jmp .wasgraph
.istext:
mov [cs:datablock.segments],0B800h
shl ax,1
.wasgraph:
mov [cs:datablock.pagesize],ax
mov ax,planesize
xor dx,dx
div [cs:datablock.pagesize]
mov [cs:datablock.nbpage],al
mov al,[cs:di-36]
xor ah,ah
shl ax,2
mov cl,[cs:datablock.graphic]
shr ax,cl
mov [cs:datablock.linesize],ax
mov ax,[cs:di-43]
mov [cs:datablock.adress],ax
mov [cs:datablock.base],ax
mov [cs:datablock.cursor],1
mov [cs:datablock.style],0
ret
.errorsetvideomode:
ret
endp
initfont:
push ds
stdcall clearscreen
push cs
pop ds
stdcall loadfont,font8x8,8,1
stdcall loadfont,font8x16,16,0
pop ds
ret
;=============GetVideoMode=========
;Renvoie le mode vid<69>o courant dans AX
;->
;<- AX
;==================================
proc getvideomode
mov al,[cs:datablock.modenum]
xor ah,ah
ret
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
ret
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
ret
.errorsetfont:
ret
endp
;=============GetFont=========
;R<>cup<75>re le n<> de la font active AX
;->
;<- CL n<> font, Carry if error
;=============================
proc getfont
mov al,[cs:datablock.font]
xor ah,ah
ret
endp
;!!!!!!!!!!!!!!!!!!!! a remettre les anciens params de timing depuis origine
;=============LoadFont========
;Charge une police point<6E>e par %0 dans la carte vid<69>o sous n<>font %1, taille police dans %2
;-> %0 n<>font, %1 pointeur vers Font, %2 taille police
;<- Carry if error
;=============================
proc loadfont uses ax bx cx dx si di es, pointer:word, size:word, font:word
mov si,[pointer]
mov cx,[size]
mov bx,[font]
cmp bl,7
ja .errorloadfont
xor di,di
cli
mov dx,sequencer
.doseq:
mov ax,[cs:di+reg1]
out dx,ax
inc di
inc di
cmp di,6
jbe .doseq
mov dx,graphics
.doseq2:
mov ax,[cs:di+reg1]
out dx,ax
inc di
inc di
cmp di,6+6
jbe .doseq2
sti
mov ax,0A000h
mov es,ax
mov dx,256
mov al,0
xor bh,bh
cmp bl,4
jb .isless
sub bl,4
shl bl,1
inc bl
jmp .okmake
.isless:
shl bl,1
.okmake:
mov di,bx
shl di,13
mov bh,cl
mov bl,cl
sub bl,32
neg bl
xor cx,cx
cld
.popz:
mov cl,bh
rep movsb
mov cl,bl
rep stosb
dec dx
jnz .popz
xor di,di
mov dx,sequencer
.doseqs:
mov ax,[cs:di+reg2]
out dx,ax
inc di
inc di
cmp di,6
jbe .doseqs
mov dx,graphics
.doseqs2:
mov ax,[cs:di+reg2]
out dx,ax
inc di
inc di
cmp di,6+6
jbe .doseqs2
ret
.errorloadfont:
stc
ret
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 retour 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
ret
endp
;==========SETCOLOR=========
;Change les attributs du texte a CL
;-> %0 couleur
;<-
;===========================
proc setcolor, color:word
mov cx,[color]
mov [cs:datablock.colors],cl
ret
endp
;==========GETCOLOR=========
;R<>cup<75>re les attributs du texte dans AX
;->
;<- AX couleur
;===========================
proc getcolor
mov al,[cs:datablock.colors]
xor ah,ah
ret
endp
;==========SCROLLDOWN=========
;defile de %0 lines vers le bas
;-> %0 lines <20> d<>filer vers le bas
;<-
;=============================
proc scrolldown uses ax cx dx si di ds es, line:word
cmp [cs:datablock.scrolling],0
je .graphp
mov ax,[line]
mul [cs:datablock.linesize]
mov si,ax
mov cx,[cs:datablock.pagesize]
sub cx,si
mov di,[cs:datablock.adress]
cld
cmp [cs:datablock.graphic],1
jne .textp
mov ax,0A000h
mov es,ax
mov ds,ax
mov ax,0F02h
mov dx,sequencer
out dx,ax
mov ax,0105h
mov dx,graphics
out dx,ax
cld
rep movsb
mov ax,0005h
cmp [cs:datablock.color],4
je .not256ok
mov ax,4005h
.not256ok:
mov dx,graphics
out dx,ax
mov ax,0003h
out dx,ax
jmp .graphp
.textp:
mov ax,0B800h
mov es,ax
mov ds,ax
rep movsb
.graphp:
ret
endp
;==========GETXY=========
;Met les coordonn<6E>es du curseur dans ah,al au format point
;->
;<- ah coordonn<6E>es x, al coordonn<6E>es y
;========================
proc getxy uses bx
mov ah,[cs:datablock.x]
mov al,[cs:datablock.y]
ret
endp
;==========SETXY=========
;Change les coordonn<6E>es du curseur a X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y
;<-
;========================
proc setxy uses ax bx dx di, x:word ,y: word
mov ax,[y]
mov bx,[x]
mov [cs:datablock.x],bl
mov [cs:datablock.y],al
mov di,[cs:datablock.adress]
add di,bx
mul [cs:datablock.columns]
add di,ax
shl di,1
mov [cs:datablock.xy],di
call setcursor
ret
endp
;==========SHOWPIXEL=========
;Affiche un pixel de couleur AL en X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y, %2 couleur
;<-
;============================
proc showpixel uses ax bx cx dx si di es, x:word,y:word,color:word
mov bx,[x]
mov cx,[y]
mov ax,[color]
cmp [cs:datablock.color],4
je .showpixel4
mov si,ax
mov ax,cx
mov cl,bl
mul [cs:datablock.linesize]
shr bx,2
add ax,bx
mov di,ax
add di,[cs:datablock.adress]
and cl,3
mov ah,1
shl ah,cl
mov al,2
mov dx,sequencer
out dx,ax
mov bx,0A000h
mov es,bx
mov ax,si
mov [es:di],al
jmp .endofshow
.showpixel4:
mov dx,ax
mov ax,cx
mov ch,dl
mov cl,bl
mul [cs:datablock.linesize]
shr bx,3
add ax,bx
mov di,ax
add di,[cs:datablock.adress]
and cl,111b
xor cl,111b
mov ah,1
shl ah,cl
mov al,8
mov dx,graphics ;masque
out dx,ax
mov ax,0205h
out dx,ax
mov ax,0003h
out dx,ax
mov bx,0A000h
mov es,bx
mov al,[es:di]
mov [es:di],ch
.endofshow:
ret
endp
;!!!!!!!!!!!!!! gerer le mode chain 4
;==========GETPIXEL=========
;R<>cup<75>re en ax la couleur du pixel de coordonn<6E>es X:%0,Y:%1
;-> %0 coordonn<6E>es x, %1 coordonn<6E>es y
;<- AX couleur
;=========================================
proc getpixel uses ax bx cx dx di es, x:word,y:word
mov bx,[x]
mov cx,[y]
mov ax,cx
mov cl,bl
mul [cs:datablock.linesize]
shr bx,2
add ax,bx
mov di,ax
add di,[cs:datablock.adress]
and cl,3
mov ah,cl
mov al,4
mov dx,graphics
out dx,ax
mov bx,0A000h
mov es,bx
mov al,[es:di]
ret
endp
;==========GETVGAINFO=========
;Renvoie un bloc de donn<6E>e en ES:DI sur l'<27>tat de la carte graphique
;<- ES:%0 pointeur
;->
;=============================================
proc getvideoinfos uses cx si di ds, pointer:word
push cs
pop ds
mov cx,datablock.sizeof
mov si,datablock
mov di,[pointer]
cld
rep movsb
ret
endp
;==========WAITretRACE=========
;Synchronisation avec la retrace verticale
;<-
;->
;==============================
proc waitretrace uses ax dx
mov dx,3DAh
.waitr:
in al,dx
test al,8
jz .waitr
ret
endp
;==========WAITHretRACE=========
;Synchronisation avec la retrace horizontale
;<-
;->
;===============================
proc waithretrace uses ax dx
mov dx,3DAh
.waitr:
in al,dx
test al,1
jz .waitr
ret
endp
;==========GETCHAR=========
;Renvoie en AX le caract<63>re sur le curseur
;<-
;->
;==========================
proc getchars uses di es
mov ax,0B800h
mov es,ax
mov di,[cs:datablock.xy]
mov al,[es:di]
xor ah,ah
ret
endp
;==========SHOWCHAR=========
;Ecrit le caract<63>re ASCII %0 attribut %1 apr<70>s le curseur, en le mettant <20> jours
;<-
;->
;===========================
proc showchars uses ax bx cx dx di es, char:word,attr:word
mov cl,byte [char]
mov ch,byte [attr]
cmp [attr],0FFFFh
jne .notlastattr
mov ch,[cs:datablock.colors]
.notlastattr:
cmp [cs:datablock.graphic],1
jne .textaccess
call emulatechar
jmp .adjusttext
.textaccess:
mov ax,0B800h
mov es,ax
mov di,[cs:datablock.xy]
mov [es:di],cx
add [cs:datablock.xy],2
.adjusttext:
inc [cs:datablock.x]
mov cl,[cs:datablock.columns]
cmp [cs:datablock.x],cl
jb .noadjusted
stdcall addline
.noadjusted:
call setcursor
ret
endp
setcursor:
push ax cx dx
cmp [cs:datablock.cursor],1
jne notshow
mov dx,ccrt
mov al,0Eh
mov cx,[cs:datablock.xy]
shr cx,1
mov ah,ch
out dx,ax
mov ah,cl
inc al
out dx,ax
notshow:
pop dx cx ax
ret
;Ecrit le caract<63>re ASCII CL attribut CH apr<70>s le curseur graphique, en le mettant <20> jours en mode graphique
emulatechar:
push ax bx cx dx di
mov al,ch
mov di,cx
and di,11111111b
shl di,3
add di,font8x8
mov bl,[cs:datablock.x]
mov cl,[cs:datablock.y]
xor bh,bh
xor ch,ch
shl bx,3
shl cx,3
mov ah,[cs:di]
xor dx,dx
bouclet:
rol ah,1
push ax
jc colored
shr al,4
cmp [cs:datablock.style],0
jnz transparent
colored:
and ax,1111b
stdcall showpixel,bx,cx,ax
transparent:
pop ax
inc bx
inc dl
cmp dl,8
jb bouclet
inc di
mov ah,[cs:di]
xor dl,dl
sub bx,8
inc cx
inc dh
cmp dh,8
jb bouclet
ended:
pop di dx cx bx ax
ret
;sauve l'ecran dans un bloc de m<>moire
proc savescreen uses ax ds bp
mov bp,sp
push cs
pop ds
invoke mbcreate,data3,[cs:datablock.pagesize]
jc .error
invoke mbchown,ax,word [ss:bp+8]
jc .error
push ax
pop ds
stdcall savescreento,0
clc
ret
.error:
stc
ret
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
ret
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
ret
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
ret
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
ret
.error:
stc
ret
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
ret
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
ret
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
ret
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
ret
.error:
stc
ret
endp
data4 db '/vgatemp',0
;Sauve l'<27>tat de la carte dans un bloc m<>moire
proc savestate uses ax cx di ds bp
mov bp,sp
mov cx,datablock.sizeof
add cx,[cs:datablock.pagesize]
add cx,3*256
push cs
pop ds
invoke mbcreate,adata,cx
jc .error
invoke mbchown,ax,word [ss:bp+12]
jc .error
push ax
pop ds
xor di,di
stdcall saveparamto,di
add di,datablock.sizeof
stdcall savescreento,di
add di,[cs:datablock.pagesize]
stdcall savedacto,di
clc
ret
.error:
stc
ret
endp
adata db '/vga',0
;R<>cup<75>re l'<27>tat de la carte depuis son bloc m<>moire
proc restorestate uses ax cx di ds bp
mov bp,sp
push cs
pop ds
invoke mbfindsb,adata,word [ss:bp+12]
jc .error
push ax
pop ds
xor di,di
stdcall restoreparamfrom,di
add di,datablock.sizeof
stdcall restorescreenfrom,di
add di,[cs:datablock.pagesize]
stdcall restoredacfrom,di
clc
ret
.error:
stc
ret
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
ret
.error:
stc
ret
endp
data2 db '/vgadac',0
;R<>cup<75>re le dac depuis son bloc m<>moire
proc restoredac uses ax ds bp
mov bp,sp
invoke mbfindsb,data2,word [ss:bp+8]
jc .error
push ax
pop ds
stdcall restoredacfrom,0
clc
ret
.error:
stc
ret
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
ret
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
ret
endp
font8x8:
include "..\include\pol8x8.inc"
font8x16:
include "..\include\pol8x16.inc"
Reference in New Issue View Git Blame Copy Permalink