cos2000v1/noyau/video.asm

1358 lines
28 KiB
NASM
Raw Normal View History

.model tiny
.486
smart
.code
org 0h
start:
jmp tsr ;Saute <20> 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<72>
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<70>s le n<> de fonction
xor bh,bh ;quel sera l'entr<74>e dans la table index<65>e
shl bx,1 ;des adresses fonctions.
mov bx,cs:[bx+tables] ;On r<>cup<75>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<65>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<69> lors du IRET
;xor eax,eax
;mov ax,cs ;On r<>cup<75>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<69> 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<65>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<72> 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<63>re de code ASCII DL apr<70>s le curseur
;-> AH=7, DL code ASCII du caract<63>re
;<-
;============================================
showchar:
push cx
mov cl,dl
mov ch,cs:colors
call charout
pop cx
ret
;=============SetVideoMode (Fonction 00h)=========
;Fixe le mode vid<69>o courant a AL
;-> AH=0, AL mode d'<27>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<69>o courant dans AL
;-> AH=1
;<- AL mode d'<27>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<75>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<6E>e par ds:si dans la carte vid<69>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<75>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<75>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 <20> 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<6E>es du curseur a X:BH,Y:BL
;-> AH=24
;<- BH coordonn<6E>es x, BL coordonn<6E>es y
;=============================
getxy:
mov bh,cs:x
mov bl,cs:y
ret
;==========SETXY (Fonction 19h)=========
;Change les coordonn<6E>es du curseur a X:BH,Y:BL
;-> AH=25, BH coordonn<6E>es x, BL coordonn<6E>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<6E>es du curseur graphique a X:BX,Y:CX
;-> AH=x, BX coordonn<6E>es x, CX coordonn<6E>es y
;<- ES:DI pointeur sur pixel avec plan de bit ajust<73>
;======================================
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<6E>es x, CX coordonn<6E>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<75>re en al la couleur du pixel de coordonn<6E>es X:BX,Y:CX
;-> AH=x, BX coordonn<6E>es x, CX coordonn<6E>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<6E>e en ES:DI sur l'<27>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<63>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<63>re ASCII CL attribut CH apr<70>s le curseur, en le mettant <20> 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<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 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<75>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'<27>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<75>re l'<27>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<75>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