DOSSEG
.MODEL SMALL
.STACK 32768
.486

INCLUDE INCLUDE\FLAT.INC
INCLUDE INCLUDE\FREE_OVE.FNC
INCLUDE INCLUDE\HIMEM.INC
INCLUDE INCLUDE\VESA.INC
INCLUDE INCLUDE\CLAVIER.INC

.DATA
emb1 DD 0

.CODE
START:
 MOV AX,@DATA
 MOV DS,AX
 FLAT_MODE                        ;Passe en mode flat
 NEW_KEY                          ;Installe le nouveau clavier
 GET_HIMEM_ADRESSE                ;Recup‚re adresse driver HIMEM
 ACTIVE_A20                       ;Active la ligne d'adresse A20
 RETURN_SVGA_INFO                 ;Retourne les infos du driver VESA
 RETURN_MODE_INFO 114H            ;
 SET_SVGA_MODE 114H               ;


alloue_emb 10
mov emb1,eax

 COPY_RAM_RAMVIDEO emb1,0,800*600

@k1: key 1
 jne @k1

libere_emb emb1

 MOV AX,0003H            ;Repasse en mode texte
 INT 10H                 ;
 DESACTIVE_A20           ;Desactive la ligne d'adresse A20
 HOLD_KEY                ;Restaure le clavier
 MOV AX,4C00H            ;Retourne au dos
 INT 21H                 ;
END START

