;****************
;Fonctions videos
;****************
    DOSSEG
    .MODEL LARGE
    .286

;********************************
;D‚claration des fonctions public
;********************************

    PUBLIC Hold_vmode
    PUBLIC VIDEO_SEG
    PUBLIC SR_MONTRE_PAGE

;**********************************
;Variables pour les fonctions video
;**********************************
    .DATA

    Hold_vmode DB 0              
    VIDEO_SEG DW 0A000H

;*******************
;D‚but des fonctions
;*******************
    .CODE

;******************************
; Montre la page video sp‚cifi‚
;******************************
    SR_MONTRE_PAGE PROC FAR
     PUSH BP
     MOV BP,SP
     PUSH DX

     CLI
      MOV DX,3D4H
      MOV AL,0CH
      OUT DX,AL
      INC DX

      CMP WORD PTR [BP+6],0
      JE @PAGE0
       MOV AL,0
       JMP @PAGE1
      @PAGE0:
       MOV AL,80H
      @PAGE1:

      OUT DX,AL
     STI

    POP DX
    POP BP
    RETF 2
    ENDP




   END
